← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gdk/gdkinput.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/gtk+/gdk/gdkinput.inc
 
1
// included by gdk2.pp
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
   PGdkDevice = ^TGdkDevice;
 
5
   PGdkTimeCoord = ^TGdkTimeCoord;
 
6
   PPGdkTimeCoord = ^PGdkTimeCoord;
 
7
{$ENDIF read_forward_definitions}
 
8
 
 
9
//------------------------------------------------------------------------------
 
10
 
 
11
{$IFDEF read_interface_types}
 
12
   PGdkExtensionMode = ^TGdkExtensionMode;
 
13
   TGdkExtensionMode = (
 
14
     GDK_EXTENSION_EVENTS_NONE,
 
15
     GDK_EXTENSION_EVENTS_ALL,
 
16
     GDK_EXTENSION_EVENTS_CURSOR
 
17
   );
 
18
 
 
19
   PGdkInputSource = ^TGdkInputSource;
 
20
   TGdkInputSource = (
 
21
     GDK_SOURCE_MOUSE,
 
22
     GDK_SOURCE_PEN,
 
23
     GDK_SOURCE_ERASER,
 
24
     GDK_SOURCE_CURSOR
 
25
   );
 
26
 
 
27
   PGdkInputMode = ^TGdkInputMode;
 
28
   TGdkInputMode = (
 
29
     GDK_MODE_DISABLED,
 
30
     GDK_MODE_SCREEN,
 
31
     GDK_MODE_WINDOW
 
32
     );
 
33
 
 
34
   PGdkAxisUse = ^TGdkAxisUse;
 
35
   TGdkAxisUse = longint;
 
36
 
 
37
   PGdkDeviceKey = ^TGdkDeviceKey;
 
38
   TGdkDeviceKey = record
 
39
        keyval : guint;
 
40
        modifiers : TGdkModifierType;
 
41
     end;
 
42
 
 
43
   PGdkDeviceAxis = ^TGdkDeviceAxis;
 
44
   TGdkDeviceAxis = record
 
45
        use : TGdkAxisUse;
 
46
        min : gdouble;
 
47
        max : gdouble;
 
48
     end;
 
49
 
 
50
{ All fields are read-only  }
 
51
{ TRUE if the X pointer follows device motion  }
 
52
   TGdkDevice = record
 
53
        parent_instance : TGObject;
 
54
        name : Pgchar;
 
55
        source : TGdkInputSource;
 
56
        mode : TGdkInputMode;
 
57
        has_cursor : gboolean;
 
58
        num_axes : gint;
 
59
        axes : PGdkDeviceAxis;
 
60
        num_keys : gint;
 
61
        keys : PGdkDeviceKey;
 
62
     end;
 
63
 
 
64
{ We don't allocate each coordinate this big, but we use it to
 
65
   be ANSI compliant and avoid accessing past the defined limits.
 
66
  }
 
67
 
 
68
   TGdkTimeCoord = record
 
69
        time : guint32;
 
70
        axes : array[0..(GDK_MAX_TIMECOORD_AXES)-1] of gdouble;
 
71
     end;
 
72
 
 
73
{$ENDIF read_interface_types}
 
74
 
 
75
//------------------------------------------------------------------------------
 
76
 
 
77
{$IFDEF read_interface_rest}
 
78
const
 
79
   GDK_AXIS_IGNORE = 0;
 
80
   GDK_AXIS_X = 1;
 
81
   GDK_AXIS_Y = 2;
 
82
   GDK_AXIS_PRESSURE = 3;
 
83
   GDK_AXIS_XTILT = 4;
 
84
   GDK_AXIS_YTILT = 5;
 
85
   GDK_AXIS_WHEEL = 6;
 
86
   GDK_AXIS_LAST = 7;
 
87
 
 
88
 
 
89
function GDK_TYPE_DEVICE : GType;
 
90
function GDK_DEVICE(anObject : Pointer) : PGdkDevice;
 
91
function GDK_DEVICE_CLASS(klass : Pointer) : PGdkDeviceClass;
 
92
function GDK_IS_DEVICE(anObject : Pointer) : boolean;
 
93
function GDK_IS_DEVICE_CLASS(klass : Pointer) : boolean;
 
94
function GDK_DEVICE_GET_CLASS(obj : Pointer) : PGdkDeviceClass;
 
95
 
 
96
 
 
97
function gdk_device_get_type:GType; cdecl; external gdklib;
 
98
 
 
99
{$ifndef GDK_MULTIHEAD_SAFE}
 
100
{ Returns a list of GdkDevice    }
 
101
function gdk_devices_list:PGList; cdecl; external gdklib;
 
102
{$endif}
 
103
{ GDK_MULTIHEAD_SAFE  }
 
104
 
 
105
 
 
106
{ Functions to configure a device  }
 
107
 
 
108
procedure gdk_device_set_source(device:PGdkDevice; source:TGdkInputSource); cdecl; external gdklib;
 
109
function gdk_device_set_mode(device:PGdkDevice; mode:TGdkInputMode):gboolean; cdecl; external gdklib;
 
110
procedure gdk_device_set_key(device:PGdkDevice; index:guint; keyval:guint; modifiers:TGdkModifierType); cdecl; external gdklib;
 
111
procedure gdk_device_set_axis_use(device:PGdkDevice; index:guint; use:TGdkAxisUse); cdecl; external gdklib;
 
112
procedure gdk_device_get_state(device:PGdkDevice; window:PGdkWindow; axes:Pgdouble; mask:PGdkModifierType); cdecl; external gdklib;
 
113
function gdk_device_get_history(device:PGdkDevice; window:PGdkWindow; start:guint32; stop:guint32; var events:PPGdkTimeCoord;
 
114
           n_events:Pgint):gboolean; cdecl; external gdklib;
 
115
procedure gdk_device_free_history(events:PPGdkTimeCoord; n_events:gint); cdecl; external gdklib;
 
116
function gdk_device_get_axis(device:PGdkDevice; axes:Pgdouble; use:TGdkAxisUse; value:Pgdouble):gboolean; cdecl; external gdklib;
 
117
procedure gdk_input_set_extension_events(window:PGdkWindow; mask:gint; mode:TGdkExtensionMode); cdecl; external gdklib;
 
118
function gdk_device_get_core_pointer:PGdkDevice; cdecl; external gdklib;
 
119
{$endif read_interface_rest}
 
120
 
 
121
//------------------------------------------------------------------------------
 
122
 
 
123
{$IFDEF read_implementation}
 
124
function GDK_TYPE_DEVICE : GType;
 
125
begin
 
126
  GDK_TYPE_DEVICE:=gdk_device_get_type;
 
127
end;
 
128
 
 
129
function GDK_DEVICE(anObject : Pointer) : PGdkDevice;
 
130
begin
 
131
  GDK_DEVICE:=PGdkDevice(G_TYPE_CHECK_INSTANCE_CAST(anObject,GDK_TYPE_DEVICE));
 
132
end;
 
133
 
 
134
function GDK_DEVICE_CLASS(klass : Pointer) : PGdkDeviceClass;
 
135
begin
 
136
  GDK_DEVICE_CLASS:=PGdkDeviceClass(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_DEVICE));
 
137
end;
 
138
 
 
139
function GDK_IS_DEVICE(anObject : Pointer) : boolean;
 
140
begin
 
141
  GDK_IS_DEVICE:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,GDK_TYPE_DEVICE);
 
142
end;
 
143
 
 
144
function GDK_IS_DEVICE_CLASS(klass : Pointer) : boolean;
 
145
begin
 
146
  GDK_IS_DEVICE_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_DEVICE);
 
147
end;
 
148
 
 
149
function GDK_DEVICE_GET_CLASS(obj : Pointer) : PGdkDeviceClass;
 
150
begin
 
151
  GDK_DEVICE_GET_CLASS:=PGdkDeviceClass(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_DEVICE));
 
152
end;
 
153
{$ENDIF}
 
154