blob: 59f8904a55bb878f28749be4b159ffc92970f123 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
{%MainUnit ../gdk2x.pas}
{$IFDEF read_forward_definitions}
PPPGdkTimeCoord = ^PPGdkTimeCoord;
{$ENDIF read_forward_definitions}
{$IFDEF read_interface_rest}
type
{ information about a device axis }
{ reported x resolution }
{ reported x minimum/maximum values }
{ calibrated resolution (for aspect ration) - only relative values
between axes used }
{ calibrated minimum/maximum values }
PGdkAxisInfo = ^TGdkAxisInfo;
TGdkAxisInfo = record
xresolution : gint;
xmin_value : gint;
xmax_value : gint;
resolution : gint;
min_value : gint;
max_value : gint;
end;
const
GDK_INPUT_NUM_EVENTC = 6;
{$ifndef XINPUT_NONE}
{ information about the axes }
{ Information about XInput device }
{ minimum key code for device }
{ true if we need to select a different set of events, but
can't because this is the core pointer }
{ Mask of buttons (used for button grabs) }
{ true if we've claimed the device as active. (used only for XINPUT_GXI) }
{$endif}
{ !XINPUT_NONE }
type
PGdkDevicePrivate = ^TGdkDevicePrivate;
TGdkDevicePrivate = record
info : TGdkDevice;
deviceid : guint32;
display : PGdkDisplay;
axes : PGdkAxisInfo;
xdevice : Pointer; // PXDevice;
min_keycode : gint;
buttonpress_type : longint;
buttonrelease_type : longint;
keypress_type : longint;
keyrelease_type : longint;
motionnotify_type : longint;
proximityin_type : longint;
proximityout_type : longint;
changenotify_type : longint;
needs_update : gint;
button_state : gint;
claimed : gint;
end;
P_GdkDeviceClass = ^T_GdkDeviceClass;
T_GdkDeviceClass = record
parent_class : TGObjectClass;
end;
{ gdk window }
{ Extension mode (GDK_EXTENSION_EVENTS_ALL/CURSOR) }
{ position relative to root window }
{ rectangles relative to window of windows obscuring this one }
{ Is there a pointer grab for this window ? }
PGdkInputWindow = ^TGdkInputWindow;
TGdkInputWindow = record
window : PGdkWindow;
mode : TGdkExtensionMode;
root_x : gint;
root_y : gint;
obscuring : PGdkRectangle;
num_obscuring : gint;
grabbed : gint;
end;
{ Global data }
// Private function GDK_IS_CORE(d : pointer) : boolean;
{ Function declarations }
function gdk_input_window_find(window:PGdkWindow):PGdkInputWindow;cdecl;external;
procedure gdk_input_window_destroy(window:PGdkWindow);cdecl;external;
function _gdk_device_allocate_history(device:PGdkDevice; n_events:gint):PPGdkTimeCoord;cdecl;external;
procedure _gdk_init_input_core;cdecl;external;
{ The following functions are provided by each implementation
(xfree, gxi, and none)
}
function _gdk_input_enable_window(window:PGdkWindow; gdkdev:PGdkDevicePrivate):gint;cdecl;external;
function _gdk_input_disable_window(window:PGdkWindow; gdkdev:PGdkDevicePrivate):gint;cdecl;external;
function _gdk_input_window_none_event(event:PGdkEvent; xevent:PXEvent):gint;cdecl;external;
procedure _gdk_input_configure_event(xevent:PXConfigureEvent; window:PGdkWindow);cdecl;external;
procedure _gdk_input_enter_event(xevent:PXCrossingEvent; window:PGdkWindow);cdecl;external;
function _gdk_input_other_event(event:PGdkEvent; xevent:PXEvent; window:PGdkWindow):gint;cdecl;external;
function _gdk_input_grab_pointer(window:PGdkWindow; owner_events:gint; event_mask:TGdkEventMask; confine_to:PGdkWindow; time:guint32):gint;cdecl;external;
procedure _gdk_input_ungrab_pointer(display:PGdkDisplay; time:guint32);cdecl;external;
function _gdk_device_get_history(device:PGdkDevice; window:PGdkWindow; start:guint32; stop:guint32; events:PPPGdkTimeCoord;
n_events:Pgint):gboolean;cdecl;external;
{$ifndef XINPUT_NONE}
const
GDK_MAX_DEVICE_CLASSES = 13;
function gdk_input_common_init(display:PGdkDisplay; include_core:gint):gint;cdecl;external;
function gdk_input_find_device(display:PGdkDisplay; id:guint32):PGdkDevicePrivate;cdecl;external;
procedure gdk_input_get_root_relative_geometry(display:PDisplay; w:TWindow; x_ret:Plongint; y_ret:Plongint; width_ret:Plongint;
height_ret:Plongint);cdecl;external;
procedure gdk_input_common_find_events(window:PGdkWindow; gdkdev:PGdkDevicePrivate; mask:gint; classes:Pointer {PXEventClass}; num_classes:Plongint);cdecl;external;
procedure gdk_input_common_select_events(window:PGdkWindow; gdkdev:PGdkDevicePrivate);cdecl;external;
function gdk_input_common_other_event(event:PGdkEvent; xevent:PXEvent; input_window:PGdkInputWindow; gdkdev:PGdkDevicePrivate):gint;cdecl;external;
{$endif}
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
{ Private
function GDK_IS_CORE(d : pointer) : boolean;
begin
GDK_IS_CORE:= (PGdkDevice(d)) = _gdk_core_pointer;
end;}
{$ENDIF read_implementation}
|
