|
1191
|
1
|
|
|
2 import
|
|
|
3 x, xlib, keysym
|
|
|
4
|
|
|
5 #const
|
|
|
6 # libX11* = "libX11.so"
|
|
|
7
|
|
|
8 #
|
|
|
9 # Automatically converted by H2Pas 0.99.15 from xutil.h
|
|
|
10 # The following command line parameters were used:
|
|
|
11 # -p
|
|
|
12 # -T
|
|
|
13 # -S
|
|
|
14 # -d
|
|
|
15 # -c
|
|
|
16 # xutil.h
|
|
|
17 #
|
|
|
18
|
|
|
19 const
|
|
|
20 NoValue* = 0x00000000
|
|
|
21 XValue* = 0x00000001
|
|
|
22 YValue* = 0x00000002
|
|
|
23 WidthValue* = 0x00000004
|
|
|
24 HeightValue* = 0x00000008
|
|
|
25 AllValues* = 0x0000000F
|
|
|
26 XNegative* = 0x00000010
|
|
|
27 YNegative* = 0x00000020
|
|
|
28
|
|
|
29 type
|
|
|
30 CPoint*{.final.} = object
|
|
|
31 x*: cint
|
|
|
32 y*: cint
|
|
|
33
|
|
|
34 PXSizeHints* = ptr XSizeHints
|
|
|
35 XSizeHints*{.final.} = object
|
|
|
36 flags*: clong
|
|
|
37 x*, y*: cint
|
|
|
38 width*, height*: cint
|
|
|
39 min_width*, min_height*: cint
|
|
|
40 max_width*, max_height*: cint
|
|
|
41 width_inc*, height_inc*: cint
|
|
|
42 min_aspect*, max_aspect*: CPoint
|
|
|
43 base_width*, base_height*: cint
|
|
|
44 win_gravity*: cint
|
|
|
45
|
|
|
46 const
|
|
|
47 USPosition* = 1 shl 0
|
|
|
48 USSize* = 1 shl 1
|
|
|
49 PPosition* = 1 shl 2
|
|
|
50 PSize* = 1 shl 3
|
|
|
51 PMinSize* = 1 shl 4
|
|
|
52 PMaxSize* = 1 shl 5
|
|
|
53 PResizeInc* = 1 shl 6
|
|
|
54 PAspect* = 1 shl 7
|
|
|
55 PBaseSize* = 1 shl 8
|
|
|
56 PWinGravity* = 1 shl 9
|
|
|
57 PAllHints* = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or
|
|
|
58 PAspect
|
|
|
59
|
|
|
60 type
|
|
|
61 PXWMHints* = ptr XWMHints
|
|
|
62 XWMHints*{.final.} = object
|
|
|
63 flags*: clong
|
|
|
64 input*: XBool
|
|
|
65 initial_state*: cint
|
|
|
66 icon_pixmap*: Pixmap
|
|
|
67 icon_window*: Window
|
|
|
68 icon_x*, icon_y*: cint
|
|
|
69 icon_mask*: Pixmap
|
|
|
70 window_group*: XID
|
|
|
71
|
|
|
72
|
|
|
73 const
|
|
|
74 InputHint* = 1 shl 0
|
|
|
75 StateHint* = 1 shl 1
|
|
|
76 IconPixmapHint* = 1 shl 2
|
|
|
77 IconWindowHint* = 1 shl 3
|
|
|
78 IconPositionHint* = 1 shl 4
|
|
|
79 IconMaskHint* = 1 shl 5
|
|
|
80 WindowGroupHint* = 1 shl 6
|
|
|
81 AllHints* = InputHint or StateHint or IconPixmapHint or IconWindowHint or
|
|
|
82 IconPositionHint or IconMaskHint or WindowGroupHint
|
|
|
83 XUrgencyHint* = 1 shl 8
|
|
|
84 WithdrawnState* = 0
|
|
|
85 NormalState* = 1
|
|
|
86 IconicState* = 3
|
|
|
87 DontCareState* = 0
|
|
|
88 ZoomState* = 2
|
|
|
89 InactiveState* = 4
|
|
|
90
|
|
|
91 type
|
|
|
92 PXTextProperty* = ptr XTextProperty
|
|
|
93 XTextProperty*{.final.} = object
|
|
|
94 value*: Pcuchar
|
|
|
95 encoding*: Atom
|
|
|
96 format*: cint
|
|
|
97 nitems*: culong
|
|
|
98
|
|
|
99
|
|
|
100 const
|
|
|
101 XNoMemory* = - 1
|
|
|
102 XLocaleNotSupported* = - 2
|
|
|
103 XConverterNotFound* = - 3
|
|
|
104
|
|
|
105 type
|
|
|
106 PXICCEncodingStyle* = ptr XICCEncodingStyle
|
|
|
107 XICCEncodingStyle* = enum
|
|
|
108 XStringStyle, XCompoundTextStyle, XTextStyle, XStdICCTextStyle,
|
|
|
109 XUTF8StringStyle
|
|
|
110
|
|
|
111 PPXIconSize* = ptr PXIconSize
|
|
|
112 PXIconSize* = ptr XIconSize
|
|
|
113 XIconSize*{.final.} = object
|
|
|
114 min_width*, min_height*: cint
|
|
|
115 max_width*, max_height*: cint
|
|
|
116 width_inc*, height_inc*: cint
|
|
|
117
|
|
|
118 PXClassHint* = ptr XClassHint
|
|
|
119 XClassHint*{.final.} = object
|
|
|
120 res_name*: cstring
|
|
|
121 res_class*: cstring
|
|
|
122
|
|
|
123
|
|
|
124 type
|
|
|
125 PXComposeStatus* = ptr XComposeStatus
|
|
|
126 XComposeStatus*{.final.} = object
|
|
|
127 compose_ptr*: XPointer
|
|
|
128 chars_matched*: cint
|
|
|
129
|
|
|
130
|
|
|
131 type
|
|
|
132 PXRegion* = ptr XRegion
|
|
|
133 XRegion*{.final.} = object
|
|
|
134
|
|
|
135 PRegion* = ptr Region
|
|
|
136 Region* = PXRegion
|
|
|
137
|
|
|
138 const
|
|
|
139 RectangleOut* = 0
|
|
|
140 RectangleIn* = 1
|
|
|
141 RectanglePart* = 2
|
|
|
142
|
|
|
143 type
|
|
|
144 PXVisualInfo* = ptr XVisualInfo
|
|
|
145 XVisualInfo*{.final.} = object
|
|
|
146 visual*: PVisual
|
|
|
147 visualid*: VisualID
|
|
|
148 screen*: cint
|
|
|
149 depth*: cint
|
|
|
150 class*: cint
|
|
|
151 red_mask*: culong
|
|
|
152 green_mask*: culong
|
|
|
153 blue_mask*: culong
|
|
|
154 colormap_size*: cint
|
|
|
155 bits_per_rgb*: cint
|
|
|
156
|
|
|
157
|
|
|
158 const
|
|
|
159 VisualNoMask* = 0x00000000
|
|
|
160 VisualIDMask* = 0x00000001
|
|
|
161 VisualScreenMask* = 0x00000002
|
|
|
162 VisualDepthMask* = 0x00000004
|
|
|
163 VisualClassMask* = 0x00000008
|
|
|
164 VisualRedMaskMask* = 0x00000010
|
|
|
165 VisualGreenMaskMask* = 0x00000020
|
|
|
166 VisualBlueMaskMask* = 0x00000040
|
|
|
167 VisualColormapSizeMask* = 0x00000080
|
|
|
168 VisualBitsPerRGBMask* = 0x00000100
|
|
|
169 VisualAllMask* = 0x000001FF
|
|
|
170
|
|
|
171 type
|
|
|
172 PPXStandardColormap* = ptr PXStandardColormap
|
|
|
173 PXStandardColormap* = ptr XStandardColormap
|
|
|
174 XStandardColormap*{.final.} = object
|
|
|
175 colormap*: Colormap
|
|
|
176 red_max*: culong
|
|
|
177 red_mult*: culong
|
|
|
178 green_max*: culong
|
|
|
179 green_mult*: culong
|
|
|
180 blue_max*: culong
|
|
|
181 blue_mult*: culong
|
|
|
182 base_pixel*: culong
|
|
|
183 visualid*: VisualID
|
|
|
184 killid*: XID
|
|
|
185
|
|
|
186
|
|
|
187 const
|
|
|
188 BitmapSuccess* = 0
|
|
|
189 BitmapOpenFailed* = 1
|
|
|
190 BitmapFileInvalid* = 2
|
|
|
191 BitmapNoMemory* = 3
|
|
|
192 XCSUCCESS* = 0
|
|
|
193 XCNOMEM* = 1
|
|
|
194 XCNOENT* = 2
|
|
|
195 ReleaseByFreeingColormap*: XID = XID(1)
|
|
|
196
|
|
|
197 type
|
|
|
198 PXContext* = ptr XContext
|
|
|
199 XContext* = cint
|
|
|
200
|
|
|
201 proc XAllocClassHint*(): PXClassHint{.cdecl, dynlib: libX11, importc.}
|
|
|
202 proc XAllocIconSize*(): PXIconSize{.cdecl, dynlib: libX11, importc.}
|
|
|
203 proc XAllocSizeHints*(): PXSizeHints{.cdecl, dynlib: libX11, importc.}
|
|
|
204 proc XAllocStandardColormap*(): PXStandardColormap{.cdecl, dynlib: libX11,
|
|
|
205 importc.}
|
|
|
206 proc XAllocWMHints*(): PXWMHints{.cdecl, dynlib: libX11, importc.}
|
|
|
207 proc XClipBox*(para1: Region, para2: PXRectangle): cint{.cdecl, dynlib: libX11,
|
|
|
208 importc.}
|
|
|
209 proc XCreateRegion*(): Region{.cdecl, dynlib: libX11, importc.}
|
|
|
210 proc XDefaultString*(): cstring{.cdecl, dynlib: libX11, importc.}
|
|
|
211 proc XDeleteContext*(para1: PDisplay, para2: XID, para3: XContext): cint{.
|
|
|
212 cdecl, dynlib: libX11, importc.}
|
|
|
213 proc XDestroyRegion*(para1: Region): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
214 proc XEmptyRegion*(para1: Region): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
215 proc XEqualRegion*(para1: Region, para2: Region): cint{.cdecl, dynlib: libX11,
|
|
|
216 importc.}
|
|
|
217 proc XFindContext*(para1: PDisplay, para2: XID, para3: XContext,
|
|
|
218 para4: PXPointer): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
219 proc XGetClassHint*(para1: PDisplay, para2: Window, para3: PXClassHint): Status{.
|
|
|
220 cdecl, dynlib: libX11, importc.}
|
|
|
221 proc XGetIconSizes*(para1: PDisplay, para2: Window, para3: PPXIconSize,
|
|
|
222 para4: Pcint): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
223 proc XGetNormalHints*(para1: PDisplay, para2: Window, para3: PXSizeHints): Status{.
|
|
|
224 cdecl, dynlib: libX11, importc.}
|
|
|
225 proc XGetRGBColormaps*(para1: PDisplay, para2: Window,
|
|
|
226 para3: PPXStandardColormap, para4: Pcint, para5: Atom): Status{.
|
|
|
227 cdecl, dynlib: libX11, importc.}
|
|
|
228 proc XGetSizeHints*(para1: PDisplay, para2: Window, para3: PXSizeHints,
|
|
|
229 para4: Atom): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
230 proc XGetStandardColormap*(para1: PDisplay, para2: Window,
|
|
|
231 para3: PXStandardColormap, para4: Atom): Status{.
|
|
|
232 cdecl, dynlib: libX11, importc.}
|
|
|
233 proc XGetTextProperty*(para1: PDisplay, para2: Window, para3: PXTextProperty,
|
|
|
234 para4: Atom): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
235 proc XGetVisualInfo*(para1: PDisplay, para2: clong, para3: PXVisualInfo,
|
|
|
236 para4: Pcint): PXVisualInfo{.cdecl, dynlib: libX11, importc.}
|
|
|
237 proc XGetWMClientMachine*(para1: PDisplay, para2: Window, para3: PXTextProperty): Status{.
|
|
|
238 cdecl, dynlib: libX11, importc.}
|
|
|
239 proc XGetWMHints*(para1: PDisplay, para2: Window): PXWMHints{.cdecl,
|
|
|
240 dynlib: libX11, importc.}
|
|
|
241 proc XGetWMIconName*(para1: PDisplay, para2: Window, para3: PXTextProperty): Status{.
|
|
|
242 cdecl, dynlib: libX11, importc.}
|
|
|
243 proc XGetWMName*(para1: PDisplay, para2: Window, para3: PXTextProperty): Status{.
|
|
|
244 cdecl, dynlib: libX11, importc.}
|
|
|
245 proc XGetWMNormalHints*(para1: PDisplay, para2: Window, para3: PXSizeHints,
|
|
|
246 para4: ptr int): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
247 proc XGetWMSizeHints*(para1: PDisplay, para2: Window, para3: PXSizeHints,
|
|
|
248 para4: ptr int, para5: Atom): Status{.cdecl,
|
|
|
249 dynlib: libX11, importc.}
|
|
|
250 proc XGetZoomHints*(para1: PDisplay, para2: Window, para3: PXSizeHints): Status{.
|
|
|
251 cdecl, dynlib: libX11, importc.}
|
|
|
252 proc XIntersectRegion*(para1: Region, para2: Region, para3: Region): cint{.
|
|
|
253 cdecl, dynlib: libX11, importc.}
|
|
|
254 proc XConvertCase*(para1: KeySym, para2: PKeySym, para3: PKeySym){.cdecl,
|
|
|
255 dynlib: libX11, importc.}
|
|
|
256 proc XLookupString*(para1: PXKeyEvent, para2: cstring, para3: cint,
|
|
|
257 para4: PKeySym, para5: PXComposeStatus): cint{.cdecl,
|
|
|
258 dynlib: libX11, importc.}
|
|
|
259 proc XMatchVisualInfo*(para1: PDisplay, para2: cint, para3: cint, para4: cint,
|
|
|
260 para5: PXVisualInfo): Status{.cdecl, dynlib: libX11,
|
|
|
261 importc.}
|
|
|
262 proc XOffsetRegion*(para1: Region, para2: cint, para3: cint): cint{.cdecl,
|
|
|
263 dynlib: libX11, importc.}
|
|
|
264 proc XPointInRegion*(para1: Region, para2: cint, para3: cint): XBool{.cdecl,
|
|
|
265 dynlib: libX11, importc.}
|
|
|
266 proc XPolygonRegion*(para1: PXPoint, para2: cint, para3: cint): Region{.cdecl,
|
|
|
267 dynlib: libX11, importc.}
|
|
|
268 proc XRectInRegion*(para1: Region, para2: cint, para3: cint, para4: cuint,
|
|
|
269 para5: cuint): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
270 proc XSaveContext*(para1: PDisplay, para2: XID, para3: XContext,
|
|
|
271 para4: cstring): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
272 proc XSetClassHint*(para1: PDisplay, para2: Window, para3: PXClassHint): cint{.
|
|
|
273 cdecl, dynlib: libX11, importc.}
|
|
|
274 proc XSetIconSizes*(para1: PDisplay, para2: Window, para3: PXIconSize,
|
|
|
275 para4: cint): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
276 proc XSetNormalHints*(para1: PDisplay, para2: Window, para3: PXSizeHints): cint{.
|
|
|
277 cdecl, dynlib: libX11, importc.}
|
|
|
278 proc XSetRGBColormaps*(para1: PDisplay, para2: Window,
|
|
|
279 para3: PXStandardColormap, para4: cint, para5: Atom){.
|
|
|
280 cdecl, dynlib: libX11, importc.}
|
|
|
281 proc XSetSizeHints*(para1: PDisplay, para2: Window, para3: PXSizeHints,
|
|
|
282 para4: Atom): cint{.cdecl, dynlib: libX11, importc.}
|
|
|
283 proc XSetStandardProperties*(para1: PDisplay, para2: Window, para3: cstring,
|
|
|
284 para4: cstring, para5: Pixmap, para6: PPchar,
|
|
|
285 para7: cint, para8: PXSizeHints): cint{.cdecl,
|
|
|
286 dynlib: libX11, importc.}
|
|
|
287 proc XSetTextProperty*(para1: PDisplay, para2: Window, para3: PXTextProperty,
|
|
|
288 para4: Atom){.cdecl, dynlib: libX11, importc.}
|
|
|
289 proc XSetWMClientMachine*(para1: PDisplay, para2: Window, para3: PXTextProperty){.
|
|
|
290 cdecl, dynlib: libX11, importc.}
|
|
|
291 proc XSetWMHints*(para1: PDisplay, para2: Window, para3: PXWMHints): cint{.
|
|
|
292 cdecl, dynlib: libX11, importc.}
|
|
|
293 proc XSetWMIconName*(para1: PDisplay, para2: Window, para3: PXTextProperty){.
|
|
|
294 cdecl, dynlib: libX11, importc.}
|
|
|
295 proc XSetWMName*(para1: PDisplay, para2: Window, para3: PXTextProperty){.cdecl,
|
|
|
296 dynlib: libX11, importc.}
|
|
|
297 proc XSetWMNormalHints*(para1: PDisplay, para2: Window, para3: PXSizeHints){.
|
|
|
298 cdecl, dynlib: libX11, importc.}
|
|
|
299 proc XSetWMProperties*(para1: PDisplay, para2: Window, para3: PXTextProperty,
|
|
|
300 para4: PXTextProperty, para5: PPchar, para6: cint,
|
|
|
301 para7: PXSizeHints, para8: PXWMHints, para9: PXClassHint){.
|
|
|
302 cdecl, dynlib: libX11, importc.}
|
|
|
303 proc XmbSetWMProperties*(para1: PDisplay, para2: Window, para3: cstring,
|
|
|
304 para4: cstring, para5: PPchar, para6: cint,
|
|
|
305 para7: PXSizeHints, para8: PXWMHints,
|
|
|
306 para9: PXClassHint){.cdecl, dynlib: libX11, importc.}
|
|
|
307 proc Xutf8SetWMProperties*(para1: PDisplay, para2: Window, para3: cstring,
|
|
|
308 para4: cstring, para5: PPchar, para6: cint,
|
|
|
309 para7: PXSizeHints, para8: PXWMHints,
|
|
|
310 para9: PXClassHint){.cdecl, dynlib: libX11, importc.}
|
|
|
311 proc XSetWMSizeHints*(para1: PDisplay, para2: Window, para3: PXSizeHints,
|
|
|
312 para4: Atom){.cdecl, dynlib: libX11, importc.}
|
|
|
313 proc XSetRegion*(para1: PDisplay, para2: GC, para3: Region): cint{.cdecl,
|
|
|
314 dynlib: libX11, importc.}
|
|
|
315 proc XSetStandardColormap*(para1: PDisplay, para2: Window,
|
|
|
316 para3: PXStandardColormap, para4: Atom){.cdecl,
|
|
|
317 dynlib: libX11, importc.}
|
|
|
318 proc XSetZoomHints*(para1: PDisplay, para2: Window, para3: PXSizeHints): cint{.
|
|
|
319 cdecl, dynlib: libX11, importc.}
|
|
|
320 proc XShrinkRegion*(para1: Region, para2: cint, para3: cint): cint{.cdecl,
|
|
|
321 dynlib: libX11, importc.}
|
|
|
322 proc XStringListToTextProperty*(para1: PPchar, para2: cint,
|
|
|
323 para3: PXTextProperty): Status{.cdecl,
|
|
|
324 dynlib: libX11, importc.}
|
|
|
325 proc XSubtractRegion*(para1: Region, para2: Region, para3: Region): cint{.
|
|
|
326 cdecl, dynlib: libX11, importc.}
|
|
|
327 proc XmbTextListToTextProperty*(para1: PDisplay, para2: PPchar, para3: cint,
|
|
|
328 para4: XICCEncodingStyle, para5: PXTextProperty): cint{.
|
|
|
329 cdecl, dynlib: libX11, importc.}
|
|
|
330 proc XwcTextListToTextProperty*(para1: PDisplay, para2: ptr ptr int16, para3: cint,
|
|
|
331 para4: XICCEncodingStyle, para5: PXTextProperty): cint{.
|
|
|
332 cdecl, dynlib: libX11, importc.}
|
|
|
333 proc Xutf8TextListToTextProperty*(para1: PDisplay, para2: PPchar, para3: cint,
|
|
|
334 para4: XICCEncodingStyle,
|
|
|
335 para5: PXTextProperty): cint{.cdecl,
|
|
|
336 dynlib: libX11, importc.}
|
|
|
337 proc XwcFreeStringList*(para1: ptr ptr int16){.cdecl, dynlib: libX11, importc.}
|
|
|
338 proc XTextPropertyToStringList*(para1: PXTextProperty, para2: PPPchar,
|
|
|
339 para3: Pcint): Status{.cdecl, dynlib: libX11,
|
|
|
340 importc.}
|
|
|
341 proc XmbTextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
|
|
342 para3: PPPchar, para4: Pcint): cint{.cdecl,
|
|
|
343 dynlib: libX11, importc.}
|
|
|
344 proc XwcTextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
|
|
345 para3: ptr ptr ptr int16, para4: Pcint): cint{.cdecl,
|
|
|
346 dynlib: libX11, importc.}
|
|
|
347 proc Xutf8TextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
|
|
348 para3: PPPchar, para4: Pcint): cint{.cdecl,
|
|
|
349 dynlib: libX11, importc.}
|
|
|
350 proc XUnionRectWithRegion*(para1: PXRectangle, para2: Region, para3: Region): cint{.
|
|
|
351 cdecl, dynlib: libX11, importc.}
|
|
|
352 proc XUnionRegion*(para1: Region, para2: Region, para3: Region): cint{.cdecl,
|
|
|
353 dynlib: libX11, importc.}
|
|
|
354 proc XWMGeometry*(para1: PDisplay, para2: cint, para3: cstring, para4: cstring,
|
|
|
355 para5: cuint, para6: PXSizeHints, para7: Pcint, para8: Pcint,
|
|
|
356 para9: Pcint, para10: Pcint, para11: Pcint): cint{.cdecl,
|
|
|
357 dynlib: libX11, importc.}
|
|
|
358 proc XXorRegion*(para1: Region, para2: Region, para3: Region): cint{.cdecl,
|
|
|
359 dynlib: libX11, importc.}
|
|
|
360 #when defined(MACROS):
|
|
|
361 proc XDestroyImage*(ximage: PXImage): cint
|
|
|
362 proc XGetPixel*(ximage: PXImage, x, y: cint): culong
|
|
|
363 proc XPutPixel*(ximage: PXImage, x, y: cint, pixel: culong): cint
|
|
|
364 proc XSubImage*(ximage: PXImage, x, y: cint, width, height: cuint): PXImage
|
|
|
365 proc XAddPixel*(ximage: PXImage, value: clong): cint
|
|
|
366 proc IsKeypadKey*(keysym: KeySym): bool
|
|
|
367 proc IsPrivateKeypadKey*(keysym: KeySym): bool
|
|
|
368 proc IsCursorKey*(keysym: KeySym): bool
|
|
|
369 proc IsPFKey*(keysym: KeySym): bool
|
|
|
370 proc IsFunctionKey*(keysym: KeySym): bool
|
|
|
371 proc IsMiscFunctionKey*(keysym: KeySym): bool
|
|
|
372 proc IsModifierKey*(keysym: KeySym): bool
|
|
|
373 #function XUniqueContext : XContext;
|
|
|
374 #function XStringToContext(_string : Pchar) : XContext;
|
|
|
375 # implementation
|
|
|
376
|
|
|
377 #when defined(MACROS):
|
|
|
378 proc XDestroyImage(ximage: PXImage): cint =
|
|
|
379 ximage.f.destroy_image(ximage)
|
|
|
380
|
|
|
381 proc XGetPixel(ximage: PXImage, x, y: cint): culong =
|
|
|
382 ximage.f.get_pixel(ximage, x, y)
|
|
|
383
|
|
|
384 proc XPutPixel(ximage: PXImage, x, y: cint, pixel: culong): cint =
|
|
|
385 ximage.f.put_pixel(ximage, x, y, pixel)
|
|
|
386
|
|
|
387 proc XSubImage(ximage: PXImage, x, y: cint, width, height: cuint): PXImage =
|
|
|
388 ximage.f.sub_image(ximage, x, y, width, height)
|
|
|
389
|
|
|
390 proc XAddPixel(ximage: PXImage, value: clong): cint =
|
|
|
391 ximage.f.add_pixel(ximage, value)
|
|
|
392
|
|
|
393 proc IsKeypadKey(keysym: KeySym): bool =
|
|
|
394 (keysym >= XK_KP_Space) and (keysym <= XK_KP_Equal)
|
|
|
395
|
|
|
396 proc IsPrivateKeypadKey(keysym: KeySym): bool =
|
|
|
397 (keysym >= 0x11000000.KeySym) and (keysym <= 0x1100FFFF.KeySym)
|
|
|
398
|
|
|
399 proc IsCursorKey(keysym: KeySym): bool =
|
|
|
400 (keysym >= XK_Home) and (keysym < XK_Select)
|
|
|
401
|
|
|
402 proc IsPFKey(keysym: KeySym): bool =
|
|
|
403 (keysym >= XK_KP_F1) and (keysym <= XK_KP_F4)
|
|
|
404
|
|
|
405 proc IsFunctionKey(keysym: KeySym): bool =
|
|
|
406 (keysym >= XK_F1) and (keysym <= XK_F35)
|
|
|
407
|
|
|
408 proc IsMiscFunctionKey(keysym: KeySym): bool =
|
|
|
409 (keysym >= XK_Select) and (keysym <= XK_Break)
|
|
|
410
|
|
|
411 proc IsModifierKey(keysym: KeySym): bool =
|
|
|
412 ((keysym >= XK_Shift_L) and (keysym <= XK_Hyper_R)) or
|
|
|
413 (keysym == XK_Mode_switch) or (keysym == XK_Num_Lock)
|
