1unit x;
2interface
3uses
4  ctypes;
5
6{$ifndef os2}
7  {$LinkLib c}
8  {$LinkLib X11}
9{$endif}
10
11{
12  Automatically converted by H2Pas 0.99.15 from x.h
13  The following command line parameters were used:
14    -p
15    -T
16    -S
17    -d
18    -c
19    x.h
20}
21
22{$PACKRECORDS C}
23
24const
25   X_PROTOCOL = 11;
26   X_PROTOCOL_REVISION = 0;
27type
28
29   PXID = ^TXID;
30   TXID = culong;
31
32   PMask = ^TMask;
33   TMask = culong;
34
35   PPAtom = ^PAtom;
36   PAtom = ^TAtom;
37   TAtom = culong;
38
39   PVisualID = ^TVisualID;
40   TVisualID = culong;
41
42   TTime = culong;
43   PTime = ^TTime;
44
45   PPWindow = ^PWindow;
46   PWindow = ^TWindow;
47   TWindow = TXID;
48
49   PDrawable = ^TDrawable;
50   TDrawable = TXID;
51
52   PFont = ^TFont;
53   TFont = TXID;
54
55   PPixmap = ^TPixmap;
56   TPixmap = TXID;
57
58   PCursor = ^TCursor;
59   TCursor = TXID;
60
61   PColormap = ^TColormap;
62   TColormap = TXID;
63
64   PGContext = ^TGContext;
65   TGContext = TXID;
66
67   PKeySym = ^TKeySym;
68   TKeySym = TXID;
69
70   PKeyCode = ^TKeyCode;
71   TKeyCode = cuchar;
72
73const
74   None = 0;
75   ParentRelative = 1;
76   CopyFromParent = 0;
77   PointerWindow = 0;
78   InputFocus = 1;
79   PointerRoot = 1;
80   AnyPropertyType = 0;
81   AnyKey = 0;
82   AnyButton = 0;
83   AllTemporary = 0;
84   CurrentTime = 0;
85   NoSymbol = 0;
86   NoEventMask = 0;
87   KeyPressMask = 1 shl 0;
88   KeyReleaseMask = 1 shl 1;
89   ButtonPressMask = 1 shl 2;
90   ButtonReleaseMask = 1 shl 3;
91   EnterWindowMask = 1 shl 4;
92   LeaveWindowMask = 1 shl 5;
93   PointerMotionMask = 1 shl 6;
94   PointerMotionHintMask = 1 shl 7;
95   Button1MotionMask = 1 shl 8;
96   Button2MotionMask = 1 shl 9;
97   Button3MotionMask = 1 shl 10;
98   Button4MotionMask = 1 shl 11;
99   Button5MotionMask = 1 shl 12;
100   ButtonMotionMask = 1 shl 13;
101   KeymapStateMask = 1 shl 14;
102   ExposureMask = 1 shl 15;
103   VisibilityChangeMask = 1 shl 16;
104   StructureNotifyMask = 1 shl 17;
105   ResizeRedirectMask = 1 shl 18;
106   SubstructureNotifyMask = 1 shl 19;
107   SubstructureRedirectMask = 1 shl 20;
108   FocusChangeMask = 1 shl 21;
109   PropertyChangeMask = 1 shl 22;
110   ColormapChangeMask = 1 shl 23;
111   OwnerGrabButtonMask = 1 shl 24;
112   KeyPress = 2;
113   KeyRelease = 3;
114   ButtonPress = 4;
115   ButtonRelease = 5;
116   MotionNotify = 6;
117   EnterNotify = 7;
118   LeaveNotify = 8;
119   FocusIn = 9;
120   FocusOut = 10;
121   KeymapNotify = 11;
122   Expose = 12;
123   GraphicsExpose = 13;
124   NoExpose = 14;
125   VisibilityNotify = 15;
126   CreateNotify = 16;
127   DestroyNotify = 17;
128   UnmapNotify = 18;
129   MapNotify = 19;
130   MapRequest = 20;
131   ReparentNotify = 21;
132   ConfigureNotify = 22;
133   ConfigureRequest = 23;
134   GravityNotify = 24;
135   ResizeRequest = 25;
136   CirculateNotify = 26;
137   CirculateRequest = 27;
138   PropertyNotify = 28;
139   SelectionClear = 29;
140   SelectionRequest = 30;
141   SelectionNotify = 31;
142   ColormapNotify = 32;
143   ClientMessage = 33;
144   MappingNotify = 34;
145   GenericEvent = 35;
146   LASTEvent = 36;
147   ShiftMask = 1 shl 0;
148   LockMask = 1 shl 1;
149   ControlMask = 1 shl 2;
150   Mod1Mask = 1 shl 3;
151   Mod2Mask = 1 shl 4;
152   Mod3Mask = 1 shl 5;
153   Mod4Mask = 1 shl 6;
154   Mod5Mask = 1 shl 7;
155   ShiftMapIndex = 0;
156   LockMapIndex = 1;
157   ControlMapIndex = 2;
158   Mod1MapIndex = 3;
159   Mod2MapIndex = 4;
160   Mod3MapIndex = 5;
161   Mod4MapIndex = 6;
162   Mod5MapIndex = 7;
163   Button1Mask = 1 shl 8;
164   Button2Mask = 1 shl 9;
165   Button3Mask = 1 shl 10;
166   Button4Mask = 1 shl 11;
167   Button5Mask = 1 shl 12;
168   AnyModifier = 1 shl 15;
169   Button1 = 1;
170   Button2 = 2;
171   Button3 = 3;
172   Button4 = 4;
173   Button5 = 5;
174   NotifyNormal = 0;
175   NotifyGrab = 1;
176   NotifyUngrab = 2;
177   NotifyWhileGrabbed = 3;
178   NotifyHint = 1;
179   NotifyAncestor = 0;
180   NotifyVirtual = 1;
181   NotifyInferior = 2;
182   NotifyNonlinear = 3;
183   NotifyNonlinearVirtual = 4;
184   NotifyPointer = 5;
185   NotifyPointerRoot = 6;
186   NotifyDetailNone = 7;
187   VisibilityUnobscured = 0;
188   VisibilityPartiallyObscured = 1;
189   VisibilityFullyObscured = 2;
190   PlaceOnTop = 0;
191   PlaceOnBottom = 1;
192   FamilyInternet = 0;
193   FamilyDECnet = 1;
194   FamilyChaos = 2;
195   FamilyInternet6 = 6;
196   FamilyServerInterpreted = 5;
197   PropertyNewValue = 0;
198   PropertyDelete = 1;
199   ColormapUninstalled = 0;
200   ColormapInstalled = 1;
201   GrabModeSync = 0;
202   GrabModeAsync = 1;
203   GrabSuccess = 0;
204   AlreadyGrabbed = 1;
205   GrabInvalidTime = 2;
206   GrabNotViewable = 3;
207   GrabFrozen = 4;
208   AsyncPointer = 0;
209   SyncPointer = 1;
210   ReplayPointer = 2;
211   AsyncKeyboard = 3;
212   SyncKeyboard = 4;
213   ReplayKeyboard = 5;
214   AsyncBoth = 6;
215   SyncBoth = 7;
216   RevertToNone = None;
217   RevertToPointerRoot = PointerRoot;
218   RevertToParent = 2;
219   Success = 0;
220   BadRequest = 1;
221   BadValue = 2;
222   BadWindow = 3;
223   BadPixmap = 4;
224   BadAtom = 5;
225   BadCursor = 6;
226   BadFont = 7;
227   BadMatch = 8;
228   BadDrawable = 9;
229   BadAccess = 10;
230   BadAlloc = 11;
231   BadColor = 12;
232   BadGC = 13;
233   BadIDChoice = 14;
234   BadName = 15;
235   BadLength = 16;
236   BadImplementation = 17;
237   FirstExtensionError = 128;
238   LastExtensionError = 255;
239   InputOutput = 1;
240   InputOnly = 2;
241   CWBackPixmap = 1 shl 0;
242   CWBackPixel = 1 shl 1;
243   CWBorderPixmap = 1 shl 2;
244   CWBorderPixel = 1 shl 3;
245   CWBitGravity = 1 shl 4;
246   CWWinGravity = 1 shl 5;
247   CWBackingStore = 1 shl 6;
248   CWBackingPlanes = 1 shl 7;
249   CWBackingPixel = 1 shl 8;
250   CWOverrideRedirect = 1 shl 9;
251   CWSaveUnder = 1 shl 10;
252   CWEventMask = 1 shl 11;
253   CWDontPropagate = 1 shl 12;
254   CWColormap = 1 shl 13;
255   CWCursor = 1 shl 14;
256   CWX = 1 shl 0;
257   CWY = 1 shl 1;
258   CWWidth = 1 shl 2;
259   CWHeight = 1 shl 3;
260   CWBorderWidth = 1 shl 4;
261   CWSibling = 1 shl 5;
262   CWStackMode = 1 shl 6;
263   ForgetGravity = 0;
264   NorthWestGravity = 1;
265   NorthGravity = 2;
266   NorthEastGravity = 3;
267   WestGravity = 4;
268   CenterGravity = 5;
269   EastGravity = 6;
270   SouthWestGravity = 7;
271   SouthGravity = 8;
272   SouthEastGravity = 9;
273   StaticGravity = 10;
274   UnmapGravity = 0;
275   NotUseful = 0;
276   WhenMapped = 1;
277   Always = 2;
278   IsUnmapped = 0;
279   IsUnviewable = 1;
280   IsViewable = 2;
281   SetModeInsert = 0;
282   SetModeDelete = 1;
283   DestroyAll = 0;
284   RetainPermanent = 1;
285   RetainTemporary = 2;
286   Above = 0;
287   Below = 1;
288   TopIf = 2;
289   BottomIf = 3;
290   Opposite = 4;
291   RaiseLowest = 0;
292   LowerHighest = 1;
293   PropModeReplace = 0;
294   PropModePrepend = 1;
295   PropModeAppend = 2;
296   GXclear = $0;
297   GXand = $1;
298   GXandReverse = $2;
299   GXcopy = $3;
300   GXandInverted = $4;
301   GXnoop = $5;
302   GXxor = $6;
303   GXor = $7;
304   GXnor = $8;
305   GXequiv = $9;
306   GXinvert = $a;
307   GXorReverse = $b;
308   GXcopyInverted = $c;
309   GXorInverted = $d;
310   GXnand = $e;
311   GXset = $f;
312   LineSolid = 0;
313   LineOnOffDash = 1;
314   LineDoubleDash = 2;
315   CapNotLast = 0;
316   CapButt = 1;
317   CapRound = 2;
318   CapProjecting = 3;
319   JoinMiter = 0;
320   JoinRound = 1;
321   JoinBevel = 2;
322   FillSolid = 0;
323   FillTiled = 1;
324   FillStippled = 2;
325   FillOpaqueStippled = 3;
326   EvenOddRule = 0;
327   WindingRule = 1;
328   ClipByChildren = 0;
329   IncludeInferiors = 1;
330   Unsorted = 0;
331   YSorted = 1;
332   YXSorted = 2;
333   YXBanded = 3;
334   CoordModeOrigin = 0;
335   CoordModePrevious = 1;
336   Complex = 0;
337   Nonconvex = 1;
338   Convex = 2;
339   ArcChord = 0;
340   ArcPieSlice = 1;
341   GCFunction = 1 shl 0;
342   GCPlaneMask = 1 shl 1;
343   GCForeground = 1 shl 2;
344   GCBackground = 1 shl 3;
345   GCLineWidth = 1 shl 4;
346   GCLineStyle = 1 shl 5;
347   GCCapStyle = 1 shl 6;
348   GCJoinStyle = 1 shl 7;
349   GCFillStyle = 1 shl 8;
350   GCFillRule = 1 shl 9;
351   GCTile = 1 shl 10;
352   GCStipple = 1 shl 11;
353   GCTileStipXOrigin = 1 shl 12;
354   GCTileStipYOrigin = 1 shl 13;
355   GCFont = 1 shl 14;
356   GCSubwindowMode = 1 shl 15;
357   GCGraphicsExposures = 1 shl 16;
358   GCClipXOrigin = 1 shl 17;
359   GCClipYOrigin = 1 shl 18;
360   GCClipMask = 1 shl 19;
361   GCDashOffset = 1 shl 20;
362   GCDashList = 1 shl 21;
363   GCArcMode = 1 shl 22;
364   GCLastBit = 22;
365   FontLeftToRight = 0;
366   FontRightToLeft = 1;
367   FontChange = 255;
368   XYBitmap = 0;
369   XYPixmap = 1;
370   ZPixmap = 2;
371   AllocNone = 0;
372   AllocAll = 1;
373   DoRed = 1 shl 0;
374   DoGreen = 1 shl 1;
375   DoBlue = 1 shl 2;
376   CursorShape = 0;
377   TileShape = 1;
378   StippleShape = 2;
379   AutoRepeatModeOff = 0;
380   AutoRepeatModeOn = 1;
381   AutoRepeatModeDefault = 2;
382   LedModeOff = 0;
383   LedModeOn = 1;
384   KBKeyClickPercent = 1 shl 0;
385   KBBellPercent = 1 shl 1;
386   KBBellPitch = 1 shl 2;
387   KBBellDuration = 1 shl 3;
388   KBLed = 1 shl 4;
389   KBLedMode = 1 shl 5;
390   KBKey = 1 shl 6;
391   KBAutoRepeatMode = 1 shl 7;
392   MappingSuccess = 0;
393   MappingBusy = 1;
394   MappingFailed = 2;
395   MappingModifier = 0;
396   MappingKeyboard = 1;
397   MappingPointer = 2;
398   DontPreferBlanking = 0;
399   PreferBlanking = 1;
400   DefaultBlanking = 2;
401   DisableScreenSaver = 0;
402   DisableScreenInterval = 0;
403   DontAllowExposures = 0;
404   AllowExposures = 1;
405   DefaultExposures = 2;
406   ScreenSaverReset = 0;
407   ScreenSaverActive = 1;
408   HostInsert = 0;
409   HostDelete = 1;
410   EnableAccess = 1;
411   DisableAccess = 0;
412   StaticGray = 0;
413   GrayScale = 1;
414   StaticColor = 2;
415   PseudoColor = 3;
416   TrueColor = 4;
417   DirectColor = 5;
418   LSBFirst = 0;
419   MSBFirst = 1;
420
421implementation
422end.
423