From: saschawillems <webmaster@saschawillems.de>
Date: Thu, 18 Sep 2014 15:53:33 +0000 (+0200)
Subject: Added missing function for GLX_EXT_swap_control
X-Git-Url: https://git.delphigl.com/?a=commitdiff_plain;h=3450b7533bec043648c69f07d20d519e82e3b0b7;p=LazOpenGLCore.git

Added missing function for GLX_EXT_swap_control
---

diff --git a/dglOpenGL.pas b/dglOpenGL.pas
index cda0368..09fd40d 100644
--- a/dglOpenGL.pas
+++ b/dglOpenGL.pas
@@ -11137,6 +11137,8 @@ type
   // GLX_EXT_texture_from_pixmap
   TglXBindTexImageEXT = procedure(dpy: PDisplay; drawable: GLXDrawable; buffer: GLint; const attrib_list: PGLint); cdecl;
   TglXReleaseTexImageEXT = procedure(dpy: PDisplay; drawable: GLXDrawable; buffer: GLint); cdecl;
+
+  TglXSwapIntervalEXT = procedure (dpy : PDisplay; drawable : GLXDrawable; interval : GLint); cdecl;
 {$ENDIF}
 
   // GL utility functions and procedures
@@ -14500,6 +14502,8 @@ var
   // GLX_EXT_texture_from_pixmap
   glXBindTexImageEXT: TglXBindTexImageEXT;
   glXReleaseTexImageEXT: TglXReleaseTexImageEXT;
+
+  glXSwapIntervalEXT : TglXSwapIntervalEXT;
 {$ENDIF}
 
   // GL utility functions and procedures
@@ -15136,6 +15140,8 @@ begin
       // GLX_EXT_texture_from_pixmap
       glXBindTexImageEXT := dglGetProcAddress('glXBindTexImageEXT');
       glXReleaseTexImageEXT := dglGetProcAddress('glXReleaseTexImageEXT');
+
+      glXSwapIntervalEXT := dglGetProcAddress('glXSwapIntervalEXT');
     {$ENDIF}
 
     Result := True;