← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtkglext/gdkgldrawable.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtkglext/gdkgldrawable.inc
 
1
{ Original file is /usr/include/gtkglext-1.0/gdk/gdkgldrawable.h
 
2
 
 
3
  Michalis comments: note that GdkGLDrawable is an interface,
 
4
  not a class, so
 
5
  - it's GDK_GL_DRAWABLE_GET_CLASS is implemented using
 
6
    GDK_GL_DRAWABLE_GET_INTERFACE instead of GDK_GL_DRAWABLE_GET_CLASS
 
7
  - 1st field of class record is
 
8
      base_iface: TGTypeInterface;
 
9
    instead of
 
10
      parent_class: TGObjectClass;
 
11
  - Also (this is of course minor thing that does not affect
 
12
    code using this unit, but still it is preserved in this translation
 
13
    of C headers to Pascal) names of params of macros are vtable and inst.
 
14
}
 
15
 
 
16
{$ifdef read_interface_types}
 
17
 
 
18
  { PGdkGLDrawable already defined in gdkgltypes.inc }
 
19
 
 
20
  TGdkGLDrawable = record
 
21
    parent_instance: TGObject;
 
22
  end;
 
23
 
 
24
  PGdkGLDrawableClass = ^TGdkGLDrawableClass;
 
25
  TGdkGLDrawableClass = record
 
26
    base_iface: TGTypeInterface;
 
27
 
 
28
    create_new_context:  function(
 
29
      gldrawable: PGdkGLDrawable;
 
30
      share_list: PGdkGLContext;
 
31
      direct: gboolean;
 
32
      render_type: LongInt): PGdkGLContext; cdecl;
 
33
 
 
34
    make_context_current: function(
 
35
      draw: PGdkGLDrawable;
 
36
      a_read: PGdkGLDrawable;
 
37
      glcontext: PGdkGLContext): gboolean; cdecl;
 
38
    is_double_buffered: function(gldrawable: PGdkGLDrawable): gboolean; cdecl;
 
39
    swap_buffers: procedure(gldrawable: PGdkGLDrawable); cdecl;
 
40
    wait_gl: procedure(gldrawable: PGdkGLDrawable); cdecl;
 
41
    wait_gdk: procedure(gldrawable: PGdkGLDrawable); cdecl;
 
42
 
 
43
    gl_begin: function(
 
44
      draw: PGdkGLDrawable;
 
45
      a_read: PGdkGLDrawable;
 
46
      glcontext: PGdkGLContext): gboolean; cdecl;
 
47
    gl_end: procedure(gldrawable: PGdkGLDrawable); cdecl;
 
48
 
 
49
    get_gl_config: function(gldrawable: PGdkGLDrawable): PGdkGLConfig; cdecl;
 
50
 
 
51
    get_size: procedure(
 
52
      gldrawable: PGdkGLDrawable;
 
53
      width, height: PGInt); cdecl;
 
54
  end;
 
55
 
 
56
{$endif read_interface_types}
 
57
 
 
58
{$ifdef read_interface_rest}
 
59
 
 
60
function GDK_TYPE_GL_DRAWABLE: GType;
 
61
function GDK_GL_DRAWABLE(inst: Pointer): PGdkGLDrawable;
 
62
function GDK_GL_DRAWABLE_CLASS(vtable: Pointer): PGdkGLDrawableClass;
 
63
function GDK_IS_GL_DRAWABLE(inst: Pointer): boolean;
 
64
function GDK_IS_GL_DRAWABLE_CLASS(vtable: Pointer): boolean;
 
65
function GDK_GL_DRAWABLE_GET_CLASS(inst: Pointer): PGdkGLDrawableClass;
 
66
 
 
67
function gdk_gl_drawable_get_type: GType;
 
68
  cdecl; external GdkGLExtLib;
 
69
 
 
70
function gdk_gl_drawable_make_current(
 
71
  gldrawable: PGdkGLDrawable;
 
72
  glcontext: PGdkGLContext)
 
73
  : gboolean;
 
74
  cdecl; external GdkGLExtLib;
 
75
 
 
76
function gdk_gl_drawable_is_double_buffered(
 
77
  gldrawable: PGdkGLDrawable)
 
78
  : gboolean;
 
79
  cdecl; external GdkGLExtLib;
 
80
 
 
81
procedure gdk_gl_drawable_swap_buffers(
 
82
  gldrawable: PGdkGLDrawable);
 
83
  cdecl; external GdkGLExtLib;
 
84
 
 
85
procedure gdk_gl_drawable_wait_gl(
 
86
  gldrawable: PGdkGLDrawable);
 
87
  cdecl; external GdkGLExtLib;
 
88
 
 
89
procedure gdk_gl_drawable_wait_gdk(
 
90
  gldrawable: PGdkGLDrawable);
 
91
  cdecl; external GdkGLExtLib;
 
92
 
 
93
function gdk_gl_drawable_gl_begin(
 
94
  gldrawable: PGdkGLDrawable;
 
95
  glcontext: PGdkGLContext)
 
96
  : gboolean;
 
97
  cdecl; external GdkGLExtLib;
 
98
 
 
99
procedure gdk_gl_drawable_gl_end(
 
100
  gldrawable: PGdkGLDrawable);
 
101
  cdecl; external GdkGLExtLib;
 
102
 
 
103
function gdk_gl_drawable_get_gl_config(
 
104
  gldrawable: PGdkGLDrawable)
 
105
  : PGdkGLConfig;
 
106
  cdecl; external GdkGLExtLib;
 
107
 
 
108
procedure gdk_gl_drawable_get_size(
 
109
  gldrawable: PGdkGLDrawable;
 
110
  width, height: PGInt);
 
111
  cdecl; external GdkGLExtLib;
 
112
 
 
113
function gdk_gl_drawable_get_current
 
114
  : PGdkGLDrawable;
 
115
  cdecl; external GdkGLExtLib;
 
116
 
 
117
{$endif read_interface_rest}
 
118
 
 
119
{$ifdef read_implementation}
 
120
 
 
121
function GDK_TYPE_GL_DRAWABLE: GType;
 
122
begin
 
123
 GDK_TYPE_GL_DRAWABLE := gdk_gl_drawable_get_type;
 
124
end;
 
125
 
 
126
function GDK_GL_DRAWABLE(inst: Pointer): PGdkGLDrawable;
 
127
begin
 
128
 GDK_GL_DRAWABLE := PGdkGLDrawable(
 
129
   G_TYPE_CHECK_INSTANCE_CAST(inst, GDK_TYPE_GL_DRAWABLE));
 
130
end;
 
131
 
 
132
function GDK_GL_DRAWABLE_CLASS(vtable: Pointer): PGdkGLDrawableClass;
 
133
begin
 
134
 GDK_GL_DRAWABLE_CLASS := PGdkGLDrawableClass(
 
135
   G_TYPE_CHECK_CLASS_CAST(vtable, GDK_TYPE_GL_DRAWABLE));
 
136
end;
 
137
 
 
138
function GDK_IS_GL_DRAWABLE(inst: Pointer): boolean;
 
139
begin
 
140
 GDK_IS_GL_DRAWABLE := G_TYPE_CHECK_INSTANCE_TYPE(inst, GDK_TYPE_GL_DRAWABLE);
 
141
end;
 
142
 
 
143
function GDK_IS_GL_DRAWABLE_CLASS(vtable: Pointer): boolean;
 
144
begin
 
145
 GDK_IS_GL_DRAWABLE_CLASS := G_TYPE_CHECK_CLASS_TYPE(vtable, GDK_TYPE_GL_DRAWABLE);
 
146
end;
 
147
 
 
148
function GDK_GL_DRAWABLE_GET_CLASS(inst: Pointer): PGdkGLDrawableClass;
 
149
begin
 
150
 GDK_GL_DRAWABLE_GET_CLASS := PGdkGLDrawableClass(
 
151
   G_TYPE_INSTANCE_GET_INTERFACE(inst, GDK_TYPE_GL_DRAWABLE));
 
152
end;
 
153
 
 
154
{$endif read_implementation}