* adds "T" variants to types (delphi compat in the least)

git-svn-id: trunk@5612 -

packages/extra/opengl/gl.pp

@@ -95,6 +95,21 @@ type
 { GLvoid     = void; }        PGLvoid     = Pointer;
                               PPGLvoid    = ^PGLvoid;
                               
+  TGLenum     = GLenum;
+  TGLboolean  = GLboolean;
+  TGLbitfield = GLbitfield;
+  TGLbyte     = GLbyte;
+  TGLshort    = GLshort;
+  TGLint      = GLint;
+  TGLsizei    = GLsizei;
+  TGLubyte    = GLubyte;
+  TGLushort   = GLushort;
+  TGLuint     = GLuint;
+  TGLfloat    = GLfloat;
+  TGLclampf   = GLclampf;
+  TGLdouble   = GLdouble;
+  TGLclampd   = GLclampd;
+
 {******************************************************************************}
 
 const

packages/extra/opengl/glext.pp

@@ -50,18 +50,23 @@ function glext_LoadExtension(ext: String): Boolean;
 
 type
   GLcharARB = Char;
+  TGLcharARB = GLcharARB;
   PGLcharARB = ^GLcharARB;
 
   GLhandleARB = Cardinal;
+  TGLhandleARB = GLhandleARB;
   PGLhandleARB = ^GLhandleARB;
 
   GLintptr = Integer;
+  TGLintptr = GLintptr;
   PGLintptr = ^GLintptr;
 
   GLsizeiptr = Integer;
+  TGLsizeiptr = GLsizeiptr;
   PGLsizeiptr = ^GLsizeiptr;
 
   GLchar = Char;
+  TGLchar = GLchar;
   PGLchar = Pchar;
 
 //***** GL_version_1_2 *****//

packages/extra/opengl/glu.pp

@@ -100,6 +100,15 @@ type
   GLUtesselatorObj = GLUtesselator;     PGLUtesselatorObj = PGLUtesselator;
   GLUtriangulatorObj = GLUtesselator;   PGLUtriangulatorObj = PGLUtesselator;
   
+  TGLUnurbs = GLUnurbs;
+  TGLUquadric = GLUquadric;
+  TGLUtesselator = GLUtesselator;
+  
+  TGLUnurbsObj = GLUnurbsObj;
+  TGLUquadricObj = GLUquadricObj;
+  TGLUtesselatorObj = GLUtesselatorObj;
+  TGLUtriangulatorObj = GLUtriangulatorObj;
+
 {$IFDEF MORPHOS}
 
 { MorphOS GL works differently due to different dynamic-library handling on Amiga-like }

packages/extra/opengl/glx.pp

@@ -130,6 +130,15 @@ type
   GLXDrawable = TXID;
   GLXContextID = TXID;
   
+  TXPixmap = XPixmap;
+  TXFont = XFont;
+  TXColormap = XColormap;
+
+  TGLXContext = GLXContext;
+  TGLXPixmap = GLXPixmap;
+  TGLXDrawable = GLXDrawable;
+  TGLXContextID = GLXContextID;
+
 var
   glXChooseVisual: function(dpy: PDisplay; screen: Integer; attribList: PInteger): PXVisualInfo; cdecl;
   glXCreateContext: function(dpy: PDisplay; vis: PXVisualInfo; shareList: GLXContext; direct: Boolean): GLXContext; cdecl;