diff --git a/packages/extra/gtk2/gtkgl/gdkglconfig.inc b/packages/extra/gtk2/gtkgl/gdkglconfig.inc deleted file mode 100644 index b9b616a450..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglconfig.inc +++ /dev/null @@ -1,181 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gdkglcontext.inc b/packages/extra/gtk2/gtkgl/gdkglcontext.inc deleted file mode 100644 index 64fac7ea5e..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglcontext.inc +++ /dev/null @@ -1,100 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gdkgldefs.inc b/packages/extra/gtk2/gtkgl/gdkgldefs.inc deleted file mode 100644 index 4ff17cf311..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkgldefs.inc +++ /dev/null @@ -1,3 +0,0 @@ -{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgldefs.h } - -{ No need to translate anything here } \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkgldrawable.inc b/packages/extra/gtk2/gtkgl/gdkgldrawable.inc deleted file mode 100644 index b287c6ac8f..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkgldrawable.inc +++ /dev/null @@ -1,154 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gdkglenumtypes.inc b/packages/extra/gtk2/gtkgl/gdkglenumtypes.inc deleted file mode 100644 index cae2d90df5..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglenumtypes.inc +++ /dev/null @@ -1,85 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gdkglext.pas b/packages/extra/gtk2/gtkgl/gdkglext.pas deleted file mode 100644 index e1d874c16c..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglext.pas +++ /dev/null @@ -1,52 +0,0 @@ -{ 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. \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglext_includes.inc b/packages/extra/gtk2/gtkgl/gdkglext_includes.inc deleted file mode 100644 index 5a441b3996..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglext_includes.inc +++ /dev/null @@ -1,14 +0,0 @@ -{$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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglfont.inc b/packages/extra/gtk2/gtkgl/gdkglfont.inc deleted file mode 100644 index 1af98c843e..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglfont.inc +++ /dev/null @@ -1,22 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglinit.inc b/packages/extra/gtk2/gtkgl/gdkglinit.inc deleted file mode 100644 index df5aed03e3..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglinit.inc +++ /dev/null @@ -1,16 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglpixmap.inc b/packages/extra/gtk2/gtkgl/gdkglpixmap.inc deleted file mode 100644 index 1c12e70b5b..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglpixmap.inc +++ /dev/null @@ -1,110 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gdkglquery.inc b/packages/extra/gtk2/gtkgl/gdkglquery.inc deleted file mode 100644 index cf15f42722..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglquery.inc +++ /dev/null @@ -1,34 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglshapes.inc b/packages/extra/gtk2/gtkgl/gdkglshapes.inc deleted file mode 100644 index 1769da44ad..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglshapes.inc +++ /dev/null @@ -1,50 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkgltokens.inc b/packages/extra/gtk2/gtkgl/gdkgltokens.inc deleted file mode 100644 index 0bbdd92a27..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkgltokens.inc +++ /dev/null @@ -1,270 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkgltypes.inc b/packages/extra/gtk2/gtkgl/gdkgltypes.inc deleted file mode 100644 index f9f3f8b0f6..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkgltypes.inc +++ /dev/null @@ -1,31 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglversion.inc b/packages/extra/gtk2/gtkgl/gdkglversion.inc deleted file mode 100644 index 6b3a5bdb7c..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglversion.inc +++ /dev/null @@ -1,50 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gdkglwindow.inc b/packages/extra/gtk2/gtkgl/gdkglwindow.inc deleted file mode 100644 index 68ae2220a0..0000000000 --- a/packages/extra/gtk2/gtkgl/gdkglwindow.inc +++ /dev/null @@ -1,110 +0,0 @@ -{ 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} diff --git a/packages/extra/gtk2/gtkgl/gtkgldefs.inc b/packages/extra/gtk2/gtkgl/gtkgldefs.inc deleted file mode 100644 index 2a46aa3a14..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkgldefs.inc +++ /dev/null @@ -1,3 +0,0 @@ -{ Original file is /usr/include/gtkglext-1.0/gtk/gtkgldefs.h } - -{ No need to translate anything here } diff --git a/packages/extra/gtk2/gtkgl/gtkglext.pas b/packages/extra/gtk2/gtkgl/gtkglext.pas deleted file mode 100644 index 03a65f8b95..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkglext.pas +++ /dev/null @@ -1,54 +0,0 @@ -{ 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. \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gtkglext_includes.inc b/packages/extra/gtk2/gtkgl/gtkglext_includes.inc deleted file mode 100644 index 1a74ce99d0..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkglext_includes.inc +++ /dev/null @@ -1,4 +0,0 @@ -{$I gtkgldefs.inc} -{$I gtkglversion.inc} -{$I gtkglinit.inc} -{$I gtkglwidget.inc} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gtkglinit.inc b/packages/extra/gtk2/gtkgl/gtkglinit.inc deleted file mode 100644 index 5f6c59d986..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkglinit.inc +++ /dev/null @@ -1,16 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gtkglversion.inc b/packages/extra/gtk2/gtkgl/gtkglversion.inc deleted file mode 100644 index 592b553f1b..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkglversion.inc +++ /dev/null @@ -1,50 +0,0 @@ -{ 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} \ No newline at end of file diff --git a/packages/extra/gtk2/gtkgl/gtkglwidget.inc b/packages/extra/gtk2/gtkgl/gtkglwidget.inc deleted file mode 100644 index c29ba1baee..0000000000 --- a/packages/extra/gtk2/gtkgl/gtkglwidget.inc +++ /dev/null @@ -1,44 +0,0 @@ -{ 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} \ No newline at end of file