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