paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 19:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

components: opengl context: fixed compilation with fpc 2.3.1 after TBool declaration changes

Browse Source 
git-svn-id: trunk@14779 -
This commit is contained in:
vincents 2008-04-07 14:24:26 +00:00
parent 908e051af0
commit 243a732ad1
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/opengl/glgtkglxcontext.pas
View File

@ -338,7 +338,7 @@ end;
function gdk_gl_query: boolean; function gdk_gl_query: boolean;
begin begin
Result:=boolean(glXQueryExtension(GetDefaultXDisplay,nil,nil)=true); Result:=boolean(glXQueryExtension(GetDefaultXDisplay,nil,nil){$IFDEF VER2_2}=true{$ENDIF});
end; end;
function gdk_gl_choose_visual(attrlist: Plongint): PGdkVisual; function gdk_gl_choose_visual(attrlist: Plongint): PGdkVisual;
@ -420,9 +420,9 @@ begin
PrivateShareList:=PGdkGLContextPrivate(sharelist); PrivateShareList:=PGdkGLContextPrivate(sharelist);
if (sharelist<>nil) then if (sharelist<>nil) then
glxcontext := glXCreateContext(dpy, vi, PrivateShareList^.glxcontext, glxcontext := glXCreateContext(dpy, vi, PrivateShareList^.glxcontext,
direct=1) direct{$ifdef ver2_2}=1{$endif})
else else
glxcontext := glXCreateContext(dpy, vi, nil, direct=1); glxcontext := glXCreateContext(dpy, vi, nil, direct{$ifdef ver2_2}=1{$endif});
XFree(vi); XFree(vi);
if (glxcontext = nil) then exit; if (glxcontext = nil) then exit;
@ -500,7 +500,8 @@ begin
{$ELSE} {$ELSE}
GDK_WINDOW_XWINDOW(drawable), GDK_WINDOW_XWINDOW(drawable),
{$ENDIF} {$ENDIF}
PrivateContext^.glxcontext)=true); PrivateContext^.glxcontext)
{$IFDEF VER2_2}=true{$ENDIF});
end; end;
procedure gdk_gl_swap_buffers(drawable: PGdkDrawable); procedure gdk_gl_swap_buffers(drawable: PGdkDrawable);