* gdk/gtkglext from mischi library parts

packages/extra/gtk2/gtkglext/gdkglconfig.inc

@@ -0,0 +1,181 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglconfig.h }
+
+{$ifdef read_interface_types}
+
+  { PGdkGLConfig already defined in gdkgltypes.inc }
+
+  TGdkGLConfig = record
+    parent_instance: TGObject;
+    layer_plane: gint;
+    n_aux_buffers: gint;
+    n_sample_buffers: gint;
+    flag0 : word;
+  end;
+
+  PGdkGLConfigClass = ^TGdkGLConfigClass;
+  TGdkGLConfigClass = record
+    parent_class: TGObjectClass;
+  end;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+const
+  { Constants for operating on TGdkGLConfig.flag0 }
+  bm_TGdkGLConfig_is_rgba            = 1 shl 0;
+  bp_TGdkGLConfig_is_rgba            =       0;
+  bm_TGdkGLConfig_is_double_buffered = 1 shl 1;
+  bp_TGdkGLConfig_is_double_buffered =       1;
+  bm_TGdkGLConfig_as_single_mode     = 1 shl 2;
+  bp_TGdkGLConfig_as_single_mode     =       2;
+  bm_TGdkGLConfig_is_stereo          = 1 shl 3;
+  bp_TGdkGLConfig_is_stereo          =       3;
+  bm_TGdkGLConfig_has_alpha          = 1 shl 4;
+  bp_TGdkGLConfig_has_alpha          =       4;
+  bm_TGdkGLConfig_has_depth_buffer   = 1 shl 5;
+  bp_TGdkGLConfig_has_depth_buffer   =       5;
+  bm_TGdkGLConfig_has_stencil_buffer = 1 shl 6;
+  bp_TGdkGLConfig_has_stencil_buffer =       6;
+  bm_TGdkGLConfig_has_accum_buffer   = 1 shl 7;
+  bp_TGdkGLConfig_has_accum_buffer   =       7;
+
+{*
+ * Display mode bit masks.
+ *}
+const
+  GDK_GL_MODE_RGB         = 0;
+  GDK_GL_MODE_RGBA        = 0;       {* same as RGB *}
+  GDK_GL_MODE_INDEX       = 1 shl 0;
+  GDK_GL_MODE_SINGLE      = 0;
+  GDK_GL_MODE_DOUBLE      = 1 shl 1;
+  GDK_GL_MODE_STEREO      = 1 shl 2;
+  GDK_GL_MODE_ALPHA       = 1 shl 3;
+  GDK_GL_MODE_DEPTH       = 1 shl 4;
+  GDK_GL_MODE_STENCIL     = 1 shl 5;
+  GDK_GL_MODE_ACCUM       = 1 shl 6;
+  GDK_GL_MODE_MULTISAMPLE = 1 shl 7;   {* not supported yet *}
+
+type
+  TGdkGLConfigMode = Longint;
+  PGdkGLConfigMode = ^TGdkGLConfigMode;
+
+function GDK_TYPE_GL_CONFIG: GType;
+function GDK_GL_CONFIG(anObject: Pointer): PGdkGLConfig;
+function GDK_GL_CONFIG_CLASS(klass: Pointer): PGdkGLConfigClass;
+function GDK_IS_GL_CONFIG(anObject: Pointer): boolean;
+function GDK_IS_GL_CONFIG_CLASS(klass: Pointer): boolean;
+function GDK_GL_CONFIG_GET_CLASS(obj: Pointer): PGdkGLConfigClass;
+
+function gdk_gl_config_get_type: GType; cdecl; external GdkGLExtLib;
+
+{$ifndef GDK_MULTIHEAD_SAFE}
+function gdk_gl_config_new(
+  attrib_list: PInteger): PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+{$endif GDK_MULTIHEAD_SAFE}
+
+{$ifdef GDKGLEXT_MULTIHEAD_SUPPORT}
+function gdk_gl_config_new_for_screen(
+  screen: PGdkScreen;
+  attrib_list: PInteger): PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+{$endif GDKGLEXT_MULTIHEAD_SUPPORT}
+
+{$ifndef GDK_MULTIHEAD_SAFE}
+function gdk_gl_config_new_by_mode(
+  mode: TGdkGLConfigMode): PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+{$endif GDK_MULTIHEAD_SAFE}
+
+{$ifdef GDKGLEXT_MULTIHEAD_SUPPORT}
+function gdk_gl_config_new_by_mode_for_screen(
+  screen: PGdkScreen;
+  mode: TGdkGLConfigMode): PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+{$endif GDKGLEXT_MULTIHEAD_SUPPORT}
+
+function gdk_gl_config_get_screen(glconfig: PGdkGLConfig): PGdkScreen;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_attrib(glconfig: PGdkGLConfig;
+  attribute: Integer;
+  value: PInteger): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_colormap(glconfig: PGdkGLConfig): PGdkColormap;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_visual(glconfig: PGdkGLConfig): PGdkVisual;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_depth              (glconfig: PGdkGLConfig): gint;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_layer_plane        (glconfig: PGdkGLConfig): gint;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_n_aux_buffers      (glconfig: PGdkGLConfig): gint;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_get_n_sample_buffers   (glconfig: PGdkGLConfig): gint;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_is_rgba                (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_is_double_buffered     (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_is_stereo              (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_has_alpha              (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_has_depth_buffer       (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_has_stencil_buffer     (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_config_has_accum_buffer       (glconfig: PGdkGLConfig): gboolean;
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function GDK_TYPE_GL_CONFIG: GType;
+begin
+ GDK_TYPE_GL_CONFIG := gdk_gl_config_get_type;
+end;
+
+function GDK_GL_CONFIG(anObject: Pointer): PGdkGLConfig;
+begin
+ GDK_GL_CONFIG := PGdkGLConfig(
+   G_TYPE_CHECK_INSTANCE_CAST(anObject, GDK_TYPE_GL_CONFIG));
+end;
+
+function GDK_GL_CONFIG_CLASS(klass: Pointer): PGdkGLConfigClass;
+begin
+ GDK_GL_CONFIG_CLASS := PGdkGLConfigClass(
+   G_TYPE_CHECK_CLASS_CAST(klass, GDK_TYPE_GL_CONFIG));
+end;
+
+function GDK_IS_GL_CONFIG(anObject: Pointer): boolean;
+begin
+ GDK_IS_GL_CONFIG := G_TYPE_CHECK_INSTANCE_TYPE(anObject, GDK_TYPE_GL_CONFIG);
+end;
+
+function GDK_IS_GL_CONFIG_CLASS(klass: Pointer): boolean;
+begin
+ GDK_IS_GL_CONFIG_CLASS := G_TYPE_CHECK_CLASS_TYPE(klass, GDK_TYPE_GL_CONFIG);
+end;
+
+function GDK_GL_CONFIG_GET_CLASS(obj: Pointer): PGdkGLConfigClass;
+begin
+ GDK_GL_CONFIG_GET_CLASS := PGdkGLConfigClass(
+   G_TYPE_INSTANCE_GET_CLASS(obj, GDK_TYPE_GL_CONFIG));
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglcontext.inc

@@ -0,0 +1,100 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglcontext.h }
+
+{$ifdef read_interface_types}
+
+  { PGdkGLContext already defined in gdkgltypes.inc }
+
+  TGdkGLContext = record
+    parent_instance: TGObject;
+  end;
+
+  PGdkGLContextClass = ^TGdkGLContextClass;
+  TGdkGLContextClass = record
+    parent_class: TGObjectClass;
+  end;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+
+function GDK_TYPE_GL_CONTEXT: GType;
+function GDK_GL_CONTEXT(anObject: Pointer): PGdkGLContext;
+function GDK_GL_CONTEXT_CLASS(klass: Pointer): PGdkGLContextClass;
+function GDK_IS_GL_CONTEXT(anObject: Pointer): boolean;
+function GDK_IS_GL_CONTEXT_CLASS(klass: Pointer): boolean;
+function GDK_GL_CONTEXT_GET_CLASS(obj: Pointer): PGdkGLContextClass;
+
+function gdk_gl_context_get_type: GType; cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_new(
+  gldrawable: PGdkGLDrawable;
+  share_list: PGdkGLContext;
+  direct: gboolean;
+  render_type: LongInt): PGdkGLContext;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_context_destroy(glcontext: PGdkGLContext);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_copy(
+  glcontext: PGdkGLContext;
+  src: PGdkGLContext;
+  mask: LongWord): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_get_gl_drawable (glcontext: PGdkGLContext): PGdkGLDrawable;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_get_gl_config   (glcontext: PGdkGLContext): PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_get_share_list  (glcontext: PGdkGLContext): PGdkGLContext;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_is_direct       (glcontext: PGdkGLContext): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_get_render_type (glcontext: PGdkGLContext): LongInt;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_context_get_current     : PGdkGLContext;
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function GDK_TYPE_GL_CONTEXT: GType;
+begin
+ GDK_TYPE_GL_CONTEXT := gdk_gl_context_get_type;
+end;
+
+function GDK_GL_CONTEXT(anObject: Pointer): PGdkGLContext;
+begin
+ GDK_GL_CONTEXT := PGdkGLContext(
+   G_TYPE_CHECK_INSTANCE_CAST(anObject, GDK_TYPE_GL_CONTEXT));
+end;
+
+function GDK_GL_CONTEXT_CLASS(klass: Pointer): PGdkGLContextClass;
+begin
+ GDK_GL_CONTEXT_CLASS := PGdkGLContextClass(
+   G_TYPE_CHECK_CLASS_CAST(klass, GDK_TYPE_GL_CONTEXT));
+end;
+
+function GDK_IS_GL_CONTEXT(anObject: Pointer): boolean;
+begin
+ GDK_IS_GL_CONTEXT := G_TYPE_CHECK_INSTANCE_TYPE(anObject, GDK_TYPE_GL_CONTEXT);
+end;
+
+function GDK_IS_GL_CONTEXT_CLASS(klass: Pointer): boolean;
+begin
+ GDK_IS_GL_CONTEXT_CLASS := G_TYPE_CHECK_CLASS_TYPE(klass, GDK_TYPE_GL_CONTEXT);
+end;
+
+function GDK_GL_CONTEXT_GET_CLASS(obj: Pointer): PGdkGLContextClass;
+begin
+ GDK_GL_CONTEXT_GET_CLASS := PGdkGLContextClass(
+   G_TYPE_INSTANCE_GET_CLASS(obj, GDK_TYPE_GL_CONTEXT));
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkgldefs.inc

@@ -0,0 +1,3 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgldefs.h }
+
+{ No need to translate anything here }

packages/extra/gtk2/gtkglext/gdkgldrawable.inc

@@ -0,0 +1,154 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgldrawable.h
+
+  Michalis comments: note that GdkGLDrawable is an interface,
+  not a class, so
+  - it's GDK_GL_DRAWABLE_GET_CLASS is implemented using
+    GDK_GL_DRAWABLE_GET_INTERFACE instead of GDK_GL_DRAWABLE_GET_CLASS
+  - 1st field of class record is
+      base_iface: TGTypeInterface;
+    instead of
+      parent_class: TGObjectClass;
+  - Also (this is of course minor thing that does not affect
+    code using this unit, but still it is preserved in this translation
+    of C headers to Pascal) names of params of macros are vtable and inst.
+}
+
+{$ifdef read_interface_types}
+
+  { PGdkGLDrawable already defined in gdkgltypes.inc }
+
+  TGdkGLDrawable = record
+    parent_instance: TGObject;
+  end;
+
+  PGdkGLDrawableClass = ^TGdkGLDrawableClass;
+  TGdkGLDrawableClass = record
+    base_iface: TGTypeInterface;
+
+    create_new_context:  function(
+      gldrawable: PGdkGLDrawable;
+      share_list: PGdkGLContext;
+      direct: gboolean;
+      render_type: LongInt): PGdkGLContext; cdecl;
+
+    make_context_current: function(
+      draw: PGdkGLDrawable;
+      a_read: PGdkGLDrawable;
+      glcontext: PGdkGLContext): gboolean; cdecl;
+    is_double_buffered: function(gldrawable: PGdkGLDrawable): gboolean; cdecl;
+    swap_buffers: procedure(gldrawable: PGdkGLDrawable); cdecl;
+    wait_gl: procedure(gldrawable: PGdkGLDrawable); cdecl;
+    wait_gdk: procedure(gldrawable: PGdkGLDrawable); cdecl;
+
+    gl_begin: function(
+      draw: PGdkGLDrawable;
+      a_read: PGdkGLDrawable;
+      glcontext: PGdkGLContext): gboolean; cdecl;
+    gl_end: procedure(gldrawable: PGdkGLDrawable); cdecl;
+
+    get_gl_config: function(gldrawable: PGdkGLDrawable): PGdkGLConfig; cdecl;
+
+    get_size: procedure(
+      gldrawable: PGdkGLDrawable;
+      width, height: PGInt); cdecl;
+  end;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+
+function GDK_TYPE_GL_DRAWABLE: GType;
+function GDK_GL_DRAWABLE(inst: Pointer): PGdkGLDrawable;
+function GDK_GL_DRAWABLE_CLASS(vtable: Pointer): PGdkGLDrawableClass;
+function GDK_IS_GL_DRAWABLE(inst: Pointer): boolean;
+function GDK_IS_GL_DRAWABLE_CLASS(vtable: Pointer): boolean;
+function GDK_GL_DRAWABLE_GET_CLASS(inst: Pointer): PGdkGLDrawableClass;
+
+function gdk_gl_drawable_get_type: GType;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_drawable_make_current(
+  gldrawable: PGdkGLDrawable;
+  glcontext: PGdkGLContext)
+  : gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_drawable_is_double_buffered(
+  gldrawable: PGdkGLDrawable)
+  : gboolean;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_drawable_swap_buffers(
+  gldrawable: PGdkGLDrawable);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_drawable_wait_gl(
+  gldrawable: PGdkGLDrawable);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_drawable_wait_gdk(
+  gldrawable: PGdkGLDrawable);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_drawable_gl_begin(
+  gldrawable: PGdkGLDrawable;
+  glcontext: PGdkGLContext)
+  : gboolean;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_drawable_gl_end(
+  gldrawable: PGdkGLDrawable);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_drawable_get_gl_config(
+  gldrawable: PGdkGLDrawable)
+  : PGdkGLConfig;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_drawable_get_size(
+  gldrawable: PGdkGLDrawable;
+  width, height: PGInt);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_drawable_get_current
+  : PGdkGLDrawable;
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function GDK_TYPE_GL_DRAWABLE: GType;
+begin
+ GDK_TYPE_GL_DRAWABLE := gdk_gl_drawable_get_type;
+end;
+
+function GDK_GL_DRAWABLE(inst: Pointer): PGdkGLDrawable;
+begin
+ GDK_GL_DRAWABLE := PGdkGLDrawable(
+   G_TYPE_CHECK_INSTANCE_CAST(inst, GDK_TYPE_GL_DRAWABLE));
+end;
+
+function GDK_GL_DRAWABLE_CLASS(vtable: Pointer): PGdkGLDrawableClass;
+begin
+ GDK_GL_DRAWABLE_CLASS := PGdkGLDrawableClass(
+   G_TYPE_CHECK_CLASS_CAST(vtable, GDK_TYPE_GL_DRAWABLE));
+end;
+
+function GDK_IS_GL_DRAWABLE(inst: Pointer): boolean;
+begin
+ GDK_IS_GL_DRAWABLE := G_TYPE_CHECK_INSTANCE_TYPE(inst, GDK_TYPE_GL_DRAWABLE);
+end;
+
+function GDK_IS_GL_DRAWABLE_CLASS(vtable: Pointer): boolean;
+begin
+ GDK_IS_GL_DRAWABLE_CLASS := G_TYPE_CHECK_CLASS_TYPE(vtable, GDK_TYPE_GL_DRAWABLE);
+end;
+
+function GDK_GL_DRAWABLE_GET_CLASS(inst: Pointer): PGdkGLDrawableClass;
+begin
+ GDK_GL_DRAWABLE_GET_CLASS := PGdkGLDrawableClass(
+   G_TYPE_INSTANCE_GET_INTERFACE(inst, GDK_TYPE_GL_DRAWABLE));
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglenumtypes.inc

@@ -0,0 +1,85 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglenumtypes.h }
+
+{ Translation to Pascal:
+  used regexps
+    GType \(.*\) (void);
+  to
+    function \1: GType; cdecl; external GdkGLExtLib;
+
+    #define \(.*\) (\(.*\)())
+  to
+    function \1: GType; 
+      cdecl; external GdkGLExtLib name '\2';
+}
+
+{$ifdef read_interface_rest}
+
+{* enumerations from "gdkgltokens.h" *}
+
+function gdk_gl_config_attrib_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_CONFIG_ATTRIB: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_config_attrib_get_type';
+
+function gdk_gl_config_caveat_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_CONFIG_CAVEAT: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_config_caveat_get_type';
+
+function gdk_gl_visual_type_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_VISUAL_TYPE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_visual_type_get_type';
+
+function gdk_gl_transparent_type_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_TRANSPARENT_TYPE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_transparent_type_get_type';
+
+function gdk_gl_drawable_type_mask_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_DRAWABLE_TYPE_MASK: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_drawable_type_mask_get_type';
+
+function gdk_gl_render_type_mask_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_RENDER_TYPE_MASK: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_render_type_mask_get_type';
+
+function gdk_gl_buffer_mask_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_BUFFER_MASK: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_buffer_mask_get_type';
+
+function gdk_gl_config_error_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_CONFIG_ERROR: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_config_error_get_type';
+
+function gdk_gl_render_type_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_RENDER_TYPE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_render_type_get_type';
+
+function gdk_gl_drawable_attrib_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_DRAWABLE_ATTRIB: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_drawable_attrib_get_type';
+
+function gdk_gl_pbuffer_attrib_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_PBUFFER_ATTRIB: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_pbuffer_attrib_get_type';
+
+function gdk_gl_event_mask_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_EVENT_MASK: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_event_mask_get_type';
+
+function gdk_gl_event_type_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_EVENT_TYPE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_event_type_get_type';
+
+function gdk_gl_drawable_type_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_DRAWABLE_TYPE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_drawable_type_get_type';
+
+{* enumerations from "gdkglconfig.h" *}
+
+function gdk_gl_config_mode_get_type: GType; cdecl; external GdkGLExtLib;
+function GDK_TYPE_GL_CONFIG_MODE: GType; 
+  cdecl; external GdkGLExtLib name 'gdk_gl_config_mode_get_type';
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglext.pas

@@ -0,0 +1,52 @@
+{ GdkGLExt - OpenGL Extension to GDK
+  Copyright (C) 2002-2004  Naofumi Yasufuku
+  These Pascal bindings copyright 2005 Michalis Kamburelis
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA.
+}
+
+{ Translated from C header /usr/include/gtkglext-1.0/gdk/gdkgl.h
+  (this is probably standardized system-wide location
+  of this header). }
+
+{$mode objfpc}
+
+unit gdkglext;
+
+interface
+
+uses Glib2, Gdk2;
+
+const
+  GdkGLExtLib = 
+    {$ifdef WIN32} 'libgdkglext-win32-1.0-0.dll'
+    {$else}        'libgdkglext-x11-1.0.so'
+    {$endif};
+
+type
+  {$define read_interface_types}
+  {$I gdkglext_includes.inc}
+  {$undef read_interface_types}
+
+{$define read_interface_rest}
+{$I gdkglext_includes.inc}
+{$undef read_interface_rest}
+
+implementation
+
+{$define read_implementation}
+{$I gdkglext_includes.inc}
+
+end.

packages/extra/gtk2/gtkglext/gdkglext_includes.inc

@@ -0,0 +1,14 @@
+{$I gdkgldefs.inc}
+{$I gdkglversion.inc}
+{$I gdkgltokens.inc}
+{$I gdkgltypes.inc}
+{$I gdkglenumtypes.inc}
+{$I gdkglinit.inc}
+{$I gdkglquery.inc}
+{$I gdkglconfig.inc}
+{$I gdkglcontext.inc}
+{$I gdkgldrawable.inc}
+{$I gdkglpixmap.inc}
+{$I gdkglwindow.inc}
+{$I gdkglfont.inc}
+{$I gdkglshapes.inc}

packages/extra/gtk2/gtkglext/gdkglfont.inc

@@ -0,0 +1,22 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglfont.h }
+
+{$ifdef read_interface_rest}
+
+{$ifndef GDK_MULTIHEAD_SAFE}
+{TODO
+PangoFont *gdk_gl_font_use_pango_font             (const PangoFontDescription *font_desc,
+                                                   int                         first,
+                                                   int                         count,
+                                                   int                         list_base);}
+{$endif GDK_MULTIHEAD_SAFE}
+
+{$ifdef GDKGLEXT_MULTIHEAD_SUPPORT}
+{TODO
+PangoFont *gdk_gl_font_use_pango_font_for_display (GdkDisplay                 *display,
+                                                   const PangoFontDescription *font_desc,
+                                                   int                         first,
+                                                   int                         count,
+                                                   int                         list_base);}
+{$endif GDKGLEXT_MULTIHEAD_SUPPORT}
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gdkglinit.inc

@@ -0,0 +1,16 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglinit.h }
+
+{$ifdef read_interface_rest}
+
+{*
+ * Initialization routines.
+ *}
+
+function gdk_gl_parse_args(argc: Plongint; argv: PPPChar): gboolean;
+  cdecl; external GdkGLExtLib;
+function gdk_gl_init_check(argc: Plongint; argv: PPPChar): gboolean;
+  cdecl; external GdkGLExtLib;
+procedure gdk_gl_init(argc: Plongint; argv: PPPChar);
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gdkglpixmap.inc

@@ -0,0 +1,110 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglpixmap.h }
+
+{$ifdef read_interface_types}
+
+  { PGdkGLPixmap already defined in gdkgltypes.inc }
+  
+  TGdkGLPixmap = record
+    parent_instance: TGObject;
+    drawable: PGdkDrawable;        {* Associated GdkPixmap *}
+  end;
+
+  PGdkGLPixmapClass = ^TGdkGLPixmapClass;
+  TGdkGLPixmapClass = record
+    parent_class: TGObjectClass;
+  end;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+
+function GDK_TYPE_GL_PIXMAP: GType;
+function GDK_GL_PIXMAP(anObject: Pointer): PGdkGLPixmap;
+function GDK_GL_PIXMAP_CLASS(klass: Pointer): PGdkGLPixmapClass;
+function GDK_IS_GL_PIXMAP(anObject: Pointer): boolean;
+function GDK_IS_GL_PIXMAP_CLASS(klass: Pointer): boolean;
+function GDK_GL_PIXMAP_GET_CLASS(obj: Pointer): PGdkGLPixmapClass;
+
+function gdk_gl_pixmap_get_type: GType; cdecl; external GdkGLExtLib;
+
+{*
+ * attrib_list is currently unused. This must be set to NULL or empty
+ * (first attribute of None). See GLX 1.3 spec.
+ *}
+function gdk_gl_pixmap_new(
+  glconfig: PGdkGLConfig;
+  pixmap: PGdkPixmap;
+  attrib_list: PLongInt): PGdkGLPixmap;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_pixmap_destroy(glpixmap: PGdkGLPixmap);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_pixmap_get_pixmap(glpixmap: PGdkGLPixmap): PGdkPixmap;
+  cdecl; external GdkGLExtLib;
+
+{*
+ * OpenGL extension to GdkPixmap
+ *}
+ 
+function gdk_pixmap_set_gl_capability(
+  pixmap: PGdkPixmap;
+  glconfig: PGdkGLConfig;
+  attrib_list: PLongInt): PGdkGLPixmap;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_pixmap_unset_gl_capability(pixmap: PGdkPixmap);
+  cdecl; external GdkGLExtLib;
+
+function gdk_pixmap_is_gl_capable(pixmap: PGdkPixmap): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_pixmap_get_gl_pixmap(pixmap: PGdkPixmap): PGdkGLPixmap;
+  cdecl; external GdkGLExtLib;
+
+function gdk_pixmap_get_gl_drawable(pixmap: PGdkPixmap): PGdkGLDrawable;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function GDK_TYPE_GL_PIXMAP: GType;
+begin
+ GDK_TYPE_GL_PIXMAP := gdk_gl_pixmap_get_type;
+end;
+
+function GDK_GL_PIXMAP(anObject: Pointer): PGdkGLPixmap;
+begin
+ GDK_GL_PIXMAP := PGdkGLPixmap(
+   G_TYPE_CHECK_INSTANCE_CAST(anObject, GDK_TYPE_GL_PIXMAP));
+end;
+
+function GDK_GL_PIXMAP_CLASS(klass: Pointer): PGdkGLPixmapClass;
+begin
+ GDK_GL_PIXMAP_CLASS := PGdkGLPixmapClass(
+   G_TYPE_CHECK_CLASS_CAST(klass, GDK_TYPE_GL_PIXMAP));
+end;
+
+function GDK_IS_GL_PIXMAP(anObject: Pointer): boolean;
+begin
+ GDK_IS_GL_PIXMAP := G_TYPE_CHECK_INSTANCE_TYPE(anObject, GDK_TYPE_GL_PIXMAP);
+end;
+
+function GDK_IS_GL_PIXMAP_CLASS(klass: Pointer): boolean;
+begin
+ GDK_IS_GL_PIXMAP_CLASS := G_TYPE_CHECK_CLASS_TYPE(klass, GDK_TYPE_GL_PIXMAP);
+end;
+
+function GDK_GL_PIXMAP_GET_CLASS(obj: Pointer): PGdkGLPixmapClass;
+begin
+ GDK_GL_PIXMAP_GET_CLASS := PGdkGLPixmapClass(
+   G_TYPE_INSTANCE_GET_CLASS(obj, GDK_TYPE_GL_PIXMAP));
+end;
+
+function gdk_pixmap_get_gl_drawable(pixmap: PGdkPixmap): PGdkGLDrawable;
+begin
+ gdk_pixmap_get_gl_drawable :=
+   GDK_GL_DRAWABLE (gdk_pixmap_get_gl_pixmap (pixmap));
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglquery.inc

@@ -0,0 +1,34 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglquery.h }
+
+{$ifdef read_interface_rest}
+
+{$ifndef GDK_MULTIHEAD_SAFE}
+function gdk_gl_query_extension: gboolean;
+  cdecl; external GdkGLExtLib;
+{$endif GDK_MULTIHEAD_SAFE}
+
+{$ifdef GDKGLEXT_MULTIHEAD_SUPPORT}
+function gdk_gl_query_extension_for_display(display: PGdkDisplay): gboolean;
+  cdecl; external GdkGLExtLib;
+{$endif GDKGLEXT_MULTIHEAD_SUPPORT}
+
+{$ifndef GDK_MULTIHEAD_SAFE}
+function  gdk_gl_query_version(
+  var major, minor: LongInt): gboolean;
+  cdecl; external GdkGLExtLib;
+{$endif GDK_MULTIHEAD_SAFE}
+
+{$ifdef GDKGLEXT_MULTIHEAD_SUPPORT}
+function gdk_gl_query_version_for_display(
+  display: PGdkDisplay;
+  var major, minor: LongInt): gboolean;
+  cdecl; external GdkGLExtLib;
+{$endif GDKGLEXT_MULTIHEAD_SUPPORT}
+
+function gdk_gl_query_gl_extension(extension: PChar): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_get_proc_address(proc_name: PChar): TGdkGLProc;
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gdkglshapes.inc

@@ -0,0 +1,50 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglshapes.h }
+
+{$ifdef read_interface_rest}
+
+procedure gdk_gl_draw_cube(
+  solid: gboolean;
+  size: Double);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_sphere(
+  solid: gboolean;
+  radius: Double;
+  slices: LongInt;
+  stacks: LongInt);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_cone(
+  solid: gboolean;
+  base: Double;
+  height: Double;
+  slices: LongInt;
+  stacks: LongInt);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_torus(
+  solid: gboolean;
+  inner_radius: Double;
+  outer_radius: Double;
+  nsides: LongInt;
+  rings: LongInt);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_tetrahedron  (solid: gboolean);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_octahedron   (solid: gboolean);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_dodecahedron (solid: gboolean);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_icosahedron  (solid: gboolean);
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_draw_teapot(
+  solid: gboolean;
+  scale: Double);
+  cdecl; external GdkGLExtLib;
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gdkgltokens.inc

@@ -0,0 +1,270 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgltokens.h }
+
+{$ifdef read_interface_types}
+
+  TGdkGLConfigAttrib = LongInt;
+  TGdkGLConfigCaveat = LongInt;
+  TGdkGLVisualType = LongInt;
+  TGdkGLTransparentType = LongInt;
+  TGdkGLDrawableTypeMask = LongInt;
+  TGdkGLRenderTypeMask = LongInt;
+  TGdkGLBufferMask = LongInt;
+  TGdkGLConfigError = LongInt;
+  TGdkGLRenderType = LongInt;
+  TGdkGLDrawableAttrib = LongInt;
+  TGdkGLPbufferAttrib = LongInt;
+  TGdkGLEventMask = LongInt;
+  TGdkGLEventType = LongInt;
+  TGdkGLDrawableType = LongInt;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+
+{*
+ * Success return value
+ *}
+const
+  GDK_GL_SUCCESS =  0;  {* same as 'Success' of X11 *}
+
+{*
+ * Attribute list terminator
+ *}
+  GDK_GL_ATTRIB_LIST_NONE = 0;  {* same as 'None' of X11 *}
+
+{*
+ * This source is based on the OpenGL(R) Sample Implementation by SGI.
+ *}
+
+{*
+** License Applicability. Except to the extent portions of this file are
+** made subject to an alternative license as permitted in the SGI Free
+** Software License B, Version 1.1 (the "License"), the contents of this
+** file are subject only to the provisions of the License. You may not use
+** this file except in compliance with the License. You may obtain a copy
+** of the License at Silicon Graphics, Inc., attn: Legal Services, 1600
+** Amphitheatre Parkway, Mountain View, CA 94043-1351, or at:
+**
+** http://oss.sgi.com/projects/FreeB
+**
+** Note that, as provided in the License, the Software is distributed on an
+** "AS IS" basis, with ALL EXPRESS AND IMPLIED WARRANTIES AND CONDITIONS
+** DISCLAIMED, INCLUDING, WITHOUT LIMITATION, ANY IMPLIED WARRANTIES AND
+** CONDITIONS OF MERCHANTABILITY, SATISFACTORY QUALITY, FITNESS FOR A
+** PARTICULAR PURPOSE, AND NON-INFRINGEMENT.
+**
+** Original Code. The Original Code is: OpenGL Sample Implementation,
+** Version 1.2.1, released January 26, 2000, developed by Silicon Graphics,
+** Inc. The Original Code is Copyright (c) 1991-2000 Silicon Graphics, Inc.
+** Copyright in any portions created by third parties is as indicated
+** elsewhere herein. All Rights Reserved.
+**
+** Additional Notice Provisions: The application programming interfaces
+** established by SGI in conjunction with the Original Code are The
+** OpenGL(R) Graphics System: A Specification (Version 1.2.1), released
+** April 1, 1999; The OpenGL(R) Graphics System Utility Library (Version
+** 1.3), released November 4, 1998; and OpenGL(R) Graphics with the X
+** Window System(R) (Version 1.3), released October 19, 1998. This software
+** was created using the OpenGL(R) version 1.2.1 Sample Implementation
+** published by SGI, but has not been independently verified as being
+** compliant with the OpenGL(R) version 1.2.1 Specification.
+*}
+
+{*
+ * Visual Config Attributes.
+ *}
+
+  GDK_GL_USE_GL                     = 1;  {* support GLX rendering *}
+  GDK_GL_BUFFER_SIZE                = 2;  {* depth of the color buffer *}
+  GDK_GL_LEVEL                      = 3;  {* level in plane stacking *}
+  GDK_GL_RGBA                       = 4;  {* true if RGBA mode *}
+  GDK_GL_DOUBLEBUFFER               = 5;  {* double buffering supported *}
+  GDK_GL_STEREO                     = 6;  {* stereo buffering supported *}
+  GDK_GL_AUX_BUFFERS                = 7;  {* number of aux buffers *}
+  GDK_GL_RED_SIZE                   = 8;  {* number of red component bits *}
+  GDK_GL_GREEN_SIZE                 = 9;  {* number of green component bits *}
+  GDK_GL_BLUE_SIZE                  = 10; {* number of blue component bits *}
+  GDK_GL_ALPHA_SIZE                 = 11; {* number of alpha component bits *}
+  GDK_GL_DEPTH_SIZE                 = 12; {* number of depth bits *}
+  GDK_GL_STENCIL_SIZE               = 13; {* number of stencil bits *}
+  GDK_GL_ACCUM_RED_SIZE             = 14; {* number of red accum bits *}
+  GDK_GL_ACCUM_GREEN_SIZE           = 15; {* number of green accum bits *}
+  GDK_GL_ACCUM_BLUE_SIZE            = 16; {* number of blue accum bits *}
+  GDK_GL_ACCUM_ALPHA_SIZE           = 17; {* number of alpha accum bits *}
+
+  {*
+   * FBConfig-specific attributes.
+   * [ GLX 1.3 and later ]
+   *}
+  GDK_GL_CONFIG_CAVEAT              = $20;
+  GDK_GL_X_VISUAL_TYPE              = $22;
+  GDK_GL_TRANSPARENT_TYPE           = $23;
+  GDK_GL_TRANSPARENT_INDEX_VALUE    = $24;
+  GDK_GL_TRANSPARENT_RED_VALUE      = $25;
+  GDK_GL_TRANSPARENT_GREEN_VALUE    = $26;
+  GDK_GL_TRANSPARENT_BLUE_VALUE     = $27;
+  GDK_GL_TRANSPARENT_ALPHA_VALUE    = $28;
+  GDK_GL_DRAWABLE_TYPE              = $8010;
+  GDK_GL_RENDER_TYPE                = $8011;
+  GDK_GL_X_RENDERABLE               = $8012;
+  GDK_GL_FBCONFIG_ID                = $8013;
+  GDK_GL_MAX_PBUFFER_WIDTH          = $8016;
+  GDK_GL_MAX_PBUFFER_HEIGHT         = $8017;
+  GDK_GL_MAX_PBUFFER_PIXELS         = $8018;
+  GDK_GL_VISUAL_ID                  = $800B;
+  GDK_GL_SCREEN                     = $800C;
+
+  {*
+   * Multisampling configuration attributes.
+   * [ GLX 1.4 and later ]
+   *}
+  GDK_GL_SAMPLE_BUFFERS             = 100000;
+  GDK_GL_SAMPLES                    = 100001;
+  { Those were values for TGdkGLConfigAttrib }
+
+{*
+ * Generic "don't care" value.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_DONT_CARE = $FFFFFFFF;
+
+{*
+ * "none" value.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_NONE = $8000;
+
+{*
+ * GLX_CONFIG_CAVEAT attribute values.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_CONFIG_CAVEAT_DONT_CARE    = $FFFFFFFF; {* GDK_GL_DONT_CARE *}
+  GDK_GL_CONFIG_CAVEAT_NONE         = $8000;     {* GDK_GL_NONE *}
+  GDK_GL_SLOW_CONFIG                = $8001;
+  GDK_GL_NON_CONFORMANT_CONFIG      = $800D;
+  { Those were values for TGdkGLConfigCaveat }
+
+{*
+ * GLX_X_VISUAL_TYPE attribute values.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_VISUAL_TYPE_DONT_CARE      = $FFFFFFFF; {* GDK_GL_DONT_CARE *}
+  GDK_GL_TRUE_COLOR                 = $8002;
+  GDK_GL_DIRECT_COLOR               = $8003;
+  GDK_GL_PSEUDO_COLOR               = $8004;
+  GDK_GL_STATIC_COLOR               = $8005;
+  GDK_GL_GRAY_SCALE                 = $8006;
+  GDK_GL_STATIC_GRAY                = $8007;
+  { Those were values for TGdkGLVisualType }
+
+{*
+ * GLX_TRANSPARENT_TYPE attribute values.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_TRANSPARENT_NONE           = $8000; {* GDK_GL_NONE *}
+  GDK_GL_TRANSPARENT_RGB            = $8008;
+  GDK_GL_TRANSPARENT_INDEX          = $8009;
+  { Those were values for TGdkGLTransparentType }
+
+{*
+ * GLX_DRAWABLE_TYPE bits.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_WINDOW_BIT                 = 1 shl 0; {* $00000001 *}
+  GDK_GL_PIXMAP_BIT                 = 1 shl 1; {* $00000002 *}
+  GDK_GL_PBUFFER_BIT                = 1 shl 2; {* $00000004 *}
+  { Those were values for TGdkGLDrawableTypeMask }
+
+{*
+ * GLX_RENDER_TYPE bits.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_RGBA_BIT                   = 1 shl 0; {* $00000001 *}
+  GDK_GL_COLOR_INDEX_BIT            = 1 shl 1; {* $00000002 *}
+  { Those were values for TGdkGLRenderTypeMask }
+
+{*
+ * Buffer mask bits.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_FRONT_LEFT_BUFFER_BIT      = 1 shl 0; {* $00000001 *}
+  GDK_GL_FRONT_RIGHT_BUFFER_BIT     = 1 shl 1; {* $00000002 *}
+  GDK_GL_BACK_LEFT_BUFFER_BIT       = 1 shl 2; {* $00000004 *}
+  GDK_GL_BACK_RIGHT_BUFFER_BIT      = 1 shl 3; {* $00000008 *}
+  GDK_GL_AUX_BUFFERS_BIT            = 1 shl 4; {* $00000010 *}
+  GDK_GL_DEPTH_BUFFER_BIT           = 1 shl 5; {* $00000020 *}
+  GDK_GL_STENCIL_BUFFER_BIT         = 1 shl 6; {* $00000040 *}
+  GDK_GL_ACCUM_BUFFER_BIT           = 1 shl 7; {* $00000080 *}
+  { Those were values for TGdkGLBufferMask }
+
+{*
+ * Error return values from glXGetConfig.  Success is indicated by
+ * a value of 0.
+ *}
+  GDK_GL_BAD_SCREEN                 = 1; {* screen # is bad *}
+  GDK_GL_BAD_ATTRIBUTE              = 2; {* attribute to get is bad *}
+  GDK_GL_NO_EXTENSION               = 3; {* no glx extension on server *}
+  GDK_GL_BAD_VISUAL                 = 4; {* visual # not known by GLX *}
+  GDK_GL_BAD_CONTEXT                = 5; {* returned only by import_context EXT? *}
+  GDK_GL_BAD_VALUE                  = 6; {* returned only by glXSwapIntervalSGI? *}
+  GDK_GL_BAD_ENUM                   = 7; {* unused? *}
+  { Those were values for TGdkGLConfigError }
+
+{*
+ * glXCreateNewContext render_type attribute values.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_RGBA_TYPE                  = $8014;
+  GDK_GL_COLOR_INDEX_TYPE           = $8015;
+  { Those were values for TGdkGLRenderType }
+
+{*
+ * glXQueryDrawable attributes.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_PRESERVED_CONTENTS         = $801B;
+  GDK_GL_LARGEST_PBUFFER            = $801C;
+  GDK_GL_WIDTH                      = $801D;
+  GDK_GL_HEIGHT                     = $801E;
+  GDK_GL_EVENT_MASK                 = $801F;
+  { Those were values for TGdkGLDrawableAttrib }
+
+{*
+ * glXCreatePbuffer attributes.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_PBUFFER_PRESERVED_CONTENTS = $801B; {* GDK_GL_PRESERVED_CONTENTS *}
+  GDK_GL_PBUFFER_LARGEST_PBUFFER    = $801C; {* GDK_GL_LARGEST_PBUFFER *}
+  GDK_GL_PBUFFER_HEIGHT             = $8040;
+  GDK_GL_PBUFFER_WIDTH              = $8041;
+  { Those were values for TGdkGLPbufferAttrib }
+
+{*
+ * glXSelectEvent event mask bits.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_PBUFFER_CLOBBER_MASK       = 1 shl 27;  {* $08000000 *}
+  { Those were values for TGdkGLEventMask }
+
+{*
+ * GLXPbufferClobberEvent event_type values.
+ * [ GLX 1.3 and later ]
+ *}
+  GDK_GL_DAMAGED                    = $8020;
+  GDK_GL_SAVED                      = $8021;
+  { Those were values for TGdkGLEventType }
+
+{*
+ * GLXPbufferClobberEvent draw_type values.
+ * [ GLX 1.3 and later ]
+ *}
+  { Pascal translation comments:
+    Name GDK_GL_WINDOW conflicts (even in case-sensitve C,
+    but there macros conflicts are not errors)
+    with function GDK_GL_WINDOW in gdkglwindow.inc.
+    Renamed to GDK_GL_WINDOW_VALUE. }
+  GDK_GL_WINDOW_VALUE               = $8022;
+  GDK_GL_PBUFFER                    = $8023;
+  { Those were values for TGdkGLDrawableType }
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gdkgltypes.inc

@@ -0,0 +1,31 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgltypes.h }
+
+{$ifdef read_interface_types}
+
+{*
+ * Forward declarations of commonly used types
+ *}
+
+  { Comments for Pascal translation: TGdkGLProc is a procedure address
+    returned by gdk_gl_get_proc_address.
+
+    Actually one cannot say is it procedure or a function,
+    what parameters it takes and even it's calling convention
+    (e.g. under Win32 procedures from OpenGL32.dll
+    use stdcall calling convention, not cdecl).
+
+    That's why I didn't translate it as "procedure; cdecl;"
+    (this would be a strict translation of what is expressed in C header)
+    but I translated it as a generic Pointer. }
+  TGdkGLProc = Pointer;
+
+  PGdkGLConfig   = ^TGdkGLConfig;
+  PGdkGLContext  = ^TGdkGLContext;
+  PGdkGLDrawable = ^TGdkGLDrawable;
+  PGdkGLPixmap   = ^TGdkGLPixmap;
+  PGdkGLWindow   = ^TGdkGLWindow;
+
+{$endif read_interface_types}
+
+{$ifdef read_implementation}
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglversion.inc

@@ -0,0 +1,50 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglversion.h }
+
+{ Comments for Pascal translation of gdkglext:
+  I prefixed constants (describing header version) and
+  macro (checking versus header version) with "HEADER_",
+  since Pascal is not case sensitive.
+}
+
+{$ifdef read_interface_rest}
+
+{*
+ * Compile time version.
+ *}
+const
+  HEADER_GDKGLEXT_MAJOR_VERSION = 1;
+  HEADER_GDKGLEXT_MINOR_VERSION = 0;
+  HEADER_GDKGLEXT_MICRO_VERSION = 6;
+  HEADER_GDKGLEXT_INTERFACE_AGE = 4;
+  HEADER_GDKGLEXT_BINARY_AGE    = 6;
+
+{*
+ * Check whether a GdkGLExt version equal to or greater than
+ * major.minor.micro is present.
+ *}
+function HEADER_GDKGLEXT_CHECK_VERSION(major, minor, micro: guint): boolean;
+
+{*
+ * Library version.
+ *}
+var
+  gdkglext_major_version: guint; cvar; external;
+  gdkglext_minor_version: guint; cvar; external;
+  gdkglext_micro_version: guint; cvar; external;
+  gdkglext_interface_age: guint; cvar; external;
+  gdkglext_binary_age   : guint; cvar; external;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function HEADER_GDKGLEXT_CHECK_VERSION(major, minor, micro: guint): boolean;
+begin
+ HEADER_GDKGLEXT_CHECK_VERSION :=
+   (HEADER_GDKGLEXT_MAJOR_VERSION > major) or
+   ( (HEADER_GDKGLEXT_MAJOR_VERSION = major) and (HEADER_GDKGLEXT_MINOR_VERSION > minor) ) or
+   ( (HEADER_GDKGLEXT_MAJOR_VERSION = major) and (HEADER_GDKGLEXT_MINOR_VERSION = minor) and
+     (HEADER_GDKGLEXT_MICRO_VERSION >= micro) );
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gdkglwindow.inc

@@ -0,0 +1,110 @@
+{ Original file is /usr/include/gtkglext-1.0/gdk/gdkglwindow.h }
+
+{$ifdef read_interface_types}
+
+  { PGdkGLWindow already defined in gdkgltypes.inc }
+  
+  TGdkGLWindow = record
+    parent_instance: TGObject;
+    drawable: PGdkDrawable;        {* Associated GdkWindow *}
+  end;
+
+  PGdkGLWindowClass = ^TGdkGLWindowClass;
+  TGdkGLWindowClass = record
+    parent_class: TGObjectClass;
+  end;
+
+{$endif read_interface_types}
+
+{$ifdef read_interface_rest}
+
+function GDK_TYPE_GL_WINDOW: GType;
+function GDK_GL_WINDOW(anObject: Pointer): PGdkGLWindow;
+function GDK_GL_WINDOW_CLASS(klass: Pointer): PGdkGLWindowClass;
+function GDK_IS_GL_WINDOW(anObject: Pointer): boolean;
+function GDK_IS_GL_WINDOW_CLASS(klass: Pointer): boolean;
+function GDK_GL_WINDOW_GET_CLASS(obj: Pointer): PGdkGLWindowClass;
+
+function gdk_gl_window_get_type: GType; cdecl; external GdkGLExtLib;
+
+{*
+ * attrib_list is currently unused. This must be set to NULL or empty
+ * (first attribute of None). See GLX 1.3 spec.
+ *}
+function gdk_gl_window_new(
+  glconfig: PGdkGLConfig;
+  window: PGdkWindow;
+  attrib_list: PLongInt): PGdkGLWindow;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_gl_window_destroy(glwindow: PGdkGLWindow);
+  cdecl; external GdkGLExtLib;
+
+function gdk_gl_window_get_window(glwindow: PGdkGLWindow): PGdkWindow;
+  cdecl; external GdkGLExtLib;
+
+{*
+ * OpenGL extension to GdkWindow
+ *}
+
+function gdk_window_set_gl_capability(
+  window: PGdkWindow;
+  glconfig: PGdkGLConfig;
+  attrib_list: PLongInt): PGdkGLWindow;
+  cdecl; external GdkGLExtLib;
+
+procedure gdk_window_unset_gl_capability(window: PGdkWindow);
+  cdecl; external GdkGLExtLib;
+
+function gdk_window_is_gl_capable(window: PGdkWindow): gboolean;
+  cdecl; external GdkGLExtLib;
+
+function gdk_window_get_gl_window(window: PGdkWindow): PGdkGLWindow;
+  cdecl; external GdkGLExtLib;
+
+function gdk_window_get_gl_drawable(window: PGdkWindow): PGdkGLDrawable;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function GDK_TYPE_GL_WINDOW: GType;
+begin
+ GDK_TYPE_GL_WINDOW := gdk_gl_window_get_type;
+end;
+
+function GDK_GL_WINDOW(anObject: Pointer): PGdkGLWindow;
+begin
+ GDK_GL_WINDOW := PGdkGLWindow(
+   G_TYPE_CHECK_INSTANCE_CAST(anObject, GDK_TYPE_GL_WINDOW));
+end;
+
+function GDK_GL_WINDOW_CLASS(klass: Pointer): PGdkGLWindowClass;
+begin
+ GDK_GL_WINDOW_CLASS := PGdkGLWindowClass(
+   G_TYPE_CHECK_CLASS_CAST(klass, GDK_TYPE_GL_WINDOW));
+end;
+
+function GDK_IS_GL_WINDOW(anObject: Pointer): boolean;
+begin
+ GDK_IS_GL_WINDOW := G_TYPE_CHECK_INSTANCE_TYPE(anObject, GDK_TYPE_GL_WINDOW);
+end;
+
+function GDK_IS_GL_WINDOW_CLASS(klass: Pointer): boolean;
+begin
+ GDK_IS_GL_WINDOW_CLASS := G_TYPE_CHECK_CLASS_TYPE(klass, GDK_TYPE_GL_WINDOW);
+end;
+
+function GDK_GL_WINDOW_GET_CLASS(obj: Pointer): PGdkGLWindowClass;
+begin
+ GDK_GL_WINDOW_GET_CLASS := PGdkGLWindowClass(
+   G_TYPE_INSTANCE_GET_CLASS(obj, GDK_TYPE_GL_WINDOW));
+end;
+
+function gdk_window_get_gl_drawable(window: PGdkWindow): PGdkGLDrawable;
+begin
+ gdk_window_get_gl_drawable := 
+   GDK_GL_DRAWABLE (gdk_window_get_gl_window (window));
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gtkgldefs.inc

@@ -0,0 +1,3 @@
+{ Original file is /usr/include/gtkglext-1.0/gtk/gtkgldefs.h }
+
+{ No need to translate anything here }

packages/extra/gtk2/gtkglext/gtkglext.pas

@@ -0,0 +1,54 @@
+{ GtkGLExt - OpenGL Extension to GTK+
+  Copyright (C) 2002-2004  Naofumi Yasufuku
+  These Pascal bindings copyright 2005 Michalis Kamburelis
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2.1 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA.
+}
+
+{ Translated from C header /usr/include/gtkglext-1.0/gtk/gtkgl.h
+  (this is probably standardized system-wide location
+  of this header). }
+
+{$mode objfpc}
+
+unit gtkglext;
+
+interface
+
+uses Glib2, Gdk2, Gtk2, GdkGLExt;
+
+const
+  GtkGLExtLib = 
+    {$ifdef WIN32} 'libgtkglext-win32-1.0-0.dll'
+    {$else}        'libgtkglext-x11-1.0.so'
+    {$endif};
+
+{ gtkglext does not (for now) define any objects ("objects" in the glib sense),
+  so "read_interface_types" section is not really used now. }
+{type}
+  {$define read_interface_types}
+  {$I gtkglext_includes.inc}
+  {$undef read_interface_types}
+
+{$define read_interface_rest}
+{$I gtkglext_includes.inc}
+{$undef read_interface_rest}
+
+implementation
+
+{$define read_implementation}
+{$I gtkglext_includes.inc}
+
+end.

packages/extra/gtk2/gtkglext/gtkglext_includes.inc

@@ -0,0 +1,4 @@
+{$I gtkgldefs.inc}
+{$I gtkglversion.inc}
+{$I gtkglinit.inc}
+{$I gtkglwidget.inc}

packages/extra/gtk2/gtkglext/gtkglinit.inc

@@ -0,0 +1,16 @@
+{ Original file is /usr/include/gtkglext-1.0/gtk/gtkglinit.h }
+
+{$ifdef read_interface_rest}
+
+{*
+ * Initialization routines.
+ *}
+
+function gtk_gl_parse_args(argc: Plongint; argv: PPPChar): gboolean;
+  cdecl; external GtkGLExtLib;
+function gtk_gl_init_check(argc: Plongint; argv: PPPChar): gboolean;
+  cdecl; external GtkGLExtLib;
+procedure gtk_gl_init(argc: Plongint; argv: PPPChar);
+  cdecl; external GtkGLExtLib;
+
+{$endif read_interface_rest}

packages/extra/gtk2/gtkglext/gtkglversion.inc

@@ -0,0 +1,50 @@
+{ Original file is /usr/include/gtkglext-1.0/gtk/gtkglversion.h }
+
+{ Comments for Pascal translation of gtkglext:
+  I prefixed constants (describing header version) and
+  macro (checking versus header version) with "HEADER_",
+  since Pascal is not case sensitive.
+}
+
+{$ifdef read_interface_rest}
+
+{*
+ * Compile time version.
+ *}
+const
+  HEADER_GTKGLEXT_MAJOR_VERSION = 1;
+  HEADER_GTKGLEXT_MINOR_VERSION = 0;
+  HEADER_GTKGLEXT_MICRO_VERSION = 6;
+  HEADER_GTKGLEXT_INTERFACE_AGE = 4;
+  HEADER_GTKGLEXT_BINARY_AGE    = 6;
+
+{*
+ * Check whether a GtkGLExt version equal to or greater than
+ * major.minor.micro is present.
+ *}
+function HEADER_GTKGLEXT_CHECK_VERSION(major, minor, micro: guint): boolean;
+
+{*
+ * Library version.
+ *}
+var
+  gtkglext_major_version: guint; cvar; external;
+  gtkglext_minor_version: guint; cvar; external;
+  gtkglext_micro_version: guint; cvar; external;
+  gtkglext_interface_age: guint; cvar; external;
+  gtkglext_binary_age   : guint; cvar; external;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function HEADER_GTKGLEXT_CHECK_VERSION(major, minor, micro: guint): boolean;
+begin
+ HEADER_GTKGLEXT_CHECK_VERSION :=
+   (HEADER_GTKGLEXT_MAJOR_VERSION > major) or
+   ( (HEADER_GTKGLEXT_MAJOR_VERSION = major) and (HEADER_GTKGLEXT_MINOR_VERSION > minor) ) or
+   ( (HEADER_GTKGLEXT_MAJOR_VERSION = major) and (HEADER_GTKGLEXT_MINOR_VERSION = minor) and
+     (HEADER_GTKGLEXT_MICRO_VERSION >= micro) );
+end;
+
+{$endif read_implementation}

packages/extra/gtk2/gtkglext/gtkglwidget.inc

@@ -0,0 +1,44 @@
+{ Original file is /usr/include/gtkglext-1.0/gtk/gtkglwidget.h }
+
+{$ifdef read_interface_rest}
+
+function gtk_widget_set_gl_capability(
+  widget: PGtkWidget;
+  glconfig: PGdkGLConfig;
+  share_list: PGdkGLContext;
+  direct: gboolean;
+  render_type: Integer): gboolean;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_is_gl_capable(widget: PGtkWidget): gboolean;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_get_gl_config(widget: PGtkWidget): PGdkGLConfig;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_create_gl_context(
+  widget: PGtkWidget;
+  share_list: PGdkGLContext;
+  direct: gboolean;
+  render_type: Integer): PGdkGLContext;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_get_gl_context(widget: PGtkWidget): PGdkGLContext;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_get_gl_window(widget: PGtkWidget): PGdkGLWindow;
+  cdecl; external GtkGLExtLib;
+
+function gtk_widget_get_gl_drawable(widget: PGtkWidget): PGdkGLDrawable;
+
+{$endif read_interface_rest}
+
+{$ifdef read_implementation}
+
+function gtk_widget_get_gl_drawable(widget: PGtkWidget): PGdkGLDrawable;
+begin
+ gtk_widget_get_gl_drawable := 
+   GDK_GL_DRAWABLE (gtk_widget_get_gl_window (widget));
+end;
+
+{$endif read_implementation}