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

git-svn-id: trunk@5612 -

packages/extra/opengl/gl.pp

@@ -94,6 +94,21 @@ type
   GLclampd   = Double;        PGLclampd   = ^GLclampd;
 { 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;
 
 {******************************************************************************}
 

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

@@ -99,6 +99,15 @@ type
   GLUquadricObj = GLUquadric;           PGLUquadricObj = PGLUquadric;
   GLUtesselatorObj = GLUtesselator;     PGLUtesselatorObj = PGLUtesselator;
   GLUtriangulatorObj = GLUtesselator;   PGLUtriangulatorObj = PGLUtesselator;
+  
+  TGLUnurbs = GLUnurbs;
+  TGLUquadric = GLUquadric;
+  TGLUtesselator = GLUtesselator;
+  
+  TGLUnurbsObj = GLUnurbsObj;
+  TGLUquadricObj = GLUquadricObj;
+  TGLUtesselatorObj = GLUtesselatorObj;
+  TGLUtriangulatorObj = GLUtriangulatorObj;
 
 {$IFDEF MORPHOS}
 

packages/extra/opengl/glx.pp

@@ -129,6 +129,15 @@ type
   GLXPixmap = TXID;
   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;