From 1b7f4b1e90f8f07bec6669f4f22b54748b02268b Mon Sep 17 00:00:00 2001
From: Almindor <almindor@gmail.com>
Date: Sat, 16 Dec 2006 15:41:26 +0000
Subject: [PATCH] * adds "T" variants to types (delphi compat in the least)

git-svn-id: trunk@5612 -
---
 packages/extra/opengl/gl.pp    | 15 +++++++++++++++
 packages/extra/opengl/glext.pp |  5 +++++
 packages/extra/opengl/glu.pp   |  9 +++++++++
 packages/extra/opengl/glx.pp   |  9 +++++++++
 4 files changed, 38 insertions(+)

diff --git a/packages/extra/opengl/gl.pp b/packages/extra/opengl/gl.pp
index 7d9167991e..c869c713b1 100644
--- a/packages/extra/opengl/gl.pp
+++ b/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;
 
 {******************************************************************************}
 
diff --git a/packages/extra/opengl/glext.pp b/packages/extra/opengl/glext.pp
index 2a1defa395..ba01f158a4 100644
--- a/packages/extra/opengl/glext.pp
+++ b/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 *****//
diff --git a/packages/extra/opengl/glu.pp b/packages/extra/opengl/glu.pp
index e2fd721bb1..1f9b7838a2 100644
--- a/packages/extra/opengl/glu.pp
+++ b/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}
 
diff --git a/packages/extra/opengl/glx.pp b/packages/extra/opengl/glx.pp
index 2152d6dd51..2799dde360 100644
--- a/packages/extra/opengl/glx.pp
+++ b/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;