cgit.sxemacs.org Git - packages/blob - xemacs-packages/xlib/lisp/xlib-const.el

   1 ;;; xlib-const.el --- Constants used in Xlib for masks and the like.
   2
   3 ;; Copyright (C) 1996, 1997, 1998 Eric M. Ludlam
   4 ;; Copyright (C) 2003-2005 XWEM Org.
   5 ;;
   6 ;; Author: Eric M. Ludlam <zappo@gnu.ai.mit.edu>
   7 ;; Modified: Zajcev Evgeny <zevlg@yandex.ru>
   8 ;; Keywords: xlib, xwem
   9 ;; X-RCS: $Id: xlib-const.el,v 1.8 2005-04-04 19:55:28 lg Exp $
  10 ;;
  11 ;; This program is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15 ;;
  16 ;; This program is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20 ;;
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program; if not, you can either send email to this
  23 ;; program's author (see below) or write to:
  24 ;;
  25 ;;              The Free Software Foundation, Inc.
  26 ;;              675 Mass Ave.
  27 ;;              Cambridge, MA 02139, USA.
  28 ;;
  29 ;; Please send bug reports, etc. to zappo@gnu.ai.mit.edu.
  30 ;;
  31
  32 ;;; Commentary:
  33 ;;
  34 ;; Constants used with our X connection.
  35
  36 ;;; Code:
  37 \f
  38
  39 (require 'xlib-version)
  40
  41 (defconst X-False 0 "False")
  42 (defconst X-True 1 "True")
  43
  44 (defconst X-CopyFromParent 0 "CopyFromParent opcode.")
  45 (defconst X-InputOutput 1 "InputOutput opcode.")
  46 (defconst X-InputOnly 2 "InputOnly opcode.")
  47
  48 ;;; Gravity
  49
  50 (defconst X-ForgetGravity 0 "Forget about bit gravity.")
  51 (defconst X-NorthWestGravity 1 "NorthWest gravity.")
  52 (defconst X-NorthGravity 2 "North gravity.")
  53 (defconst X-NorthEastGravity 3 "NorthEast gravity.")
  54 (defconst X-WestGravity 4 "West gravity.")
  55 (defconst X-CenterGravity 5 "Center gravity.")
  56 (defconst X-EastGravity 6 "East gravity.")
  57 (defconst X-SouthWestGravity 7 "SouthWest gravity.")
  58 (defconst X-SouthGravity 8 "South gravity.")
  59 (defconst X-SouthEastGravity 9 "SouthEast gravity.")
  60 (defconst X-StaticGravity 10 "Static gravity.")
  61
  62 ;; Window gravity + bit gravity above
  63
  64 (defconst X-UnmapGravity 0 "Unmap gravity.")
  65
  66 ;; backing store
  67
  68 (defconst X-NotUseful 0 "NotUseful backing store.")
  69 (defconst X-WhenMapped 1 "WhenMapped backing store.")
  70 (defconst X-Always 2 "Always backing store.")
  71
  72 ;;; Event Masks
  73
  74 (defconst XM-NoEvent #x0 "No Event mask.")
  75 (defconst XM-KeyPress #x1 "KeyPress bitmask.")
  76 (defconst XM-KeyRelease #x2 "KeyRelease bitmask.")
  77 (defconst XM-ButtonPress #x4 "ButtonPress bitmask.")
  78 (defconst XM-ButtonRelease #x8 "ButtonRelease bitmask.")
  79 (defconst XM-EnterWindow #x10 "EnterWindow bitmask.")
  80 (defconst XM-LeaveWindow #x20 "LeaveWindow bitmask.")
  81 (defconst XM-PointerMotion #x40 "PointerMotion bitmask.")
  82 (defconst XM-PointerMotionHint #x80 "PointerMotionHint bitmask.")
  83 (defconst XM-Button1Motion #x100 "Button2Motion bitmask.")
  84 (defconst XM-Button2Motion #x200 "Button2Motion bitmask.")
  85 (defconst XM-Button3Motion #x400 "Button3Motion bitmask.")
  86 (defconst XM-Button4Motion #x800 "Button4Motion bitmask.")
  87 (defconst XM-Button5Motion #x1000 "Button5Motion bitmask.")
  88 (defconst XM-ButtonMotion #x2000 "Button bitmask.")
  89 (defconst XM-KeymapState #x4000 "KeymapState bitmask.")
  90 (defconst XM-Exposure #x8000 "Exposure bitmask.")
  91 (defconst XM-VisibilityChange #x10000 "VisibilityChange bitmask.")
  92 (defconst XM-StructureNotify #x20000 "StructureNotify bitmask.")
  93 (defconst XM-ResizeRedirect #x40000 "ResizeRedirect bitmask.")
  94 (defconst XM-SubstructureNotify #x80000 "SubstructureNotify bitmask.")
  95 (defconst XM-SubstructureRedirect #x100000 "SubstructureRedirect bitmask.")
  96 (defconst XM-FocusChange #x200000 "FocusChange bitmask.")
  97 (defconst XM-PropertyChange #x400000 "PropertyChange bitmask.")
  98 (defconst XM-ColormapChange #x800000 "ColormapChange bitmask.")
  99 (defconst XM-OwnerGrabButton #x1000000 "OwnerGrabButton bitmask.")
 100
 101 ;; Event OpCodes
 102
 103 (defconst X-SyntheticMask 128 "Mask the synthetic part off.")
 104 (defconst X-KeyPress 2 "KeyPress event.")
 105 (defconst X-KeyRelease 3 "KeyRelease event.")
 106 (defconst X-ButtonPress 4 "ButtonPress event.")
 107 (defconst X-ButtonRelease 5 "ButtonRelease event.")
 108 (defconst X-MotionNotify 6 "MotionNotify event.")
 109 (defconst X-EnterNotify 7 "EnterNotify event.")
 110 (defconst X-LeaveNotify 8 "LeaveNotify event.")
 111 (defconst X-FocusIn 9 "FocusIn event.")
 112 (defconst X-FocusOut 10 "FocusOut event.")
 113 (defconst X-KeymapNotify 11 "KeymapNotify event.")
 114 (defconst X-Expose 12 "Expose event.")
 115 (defconst X-GraphicsExpose 13 "GraphicsExpose event.")
 116 (defconst X-NoExpose 14 "NoExpose event.")
 117 (defconst X-VisibilityNotify 15 "VisibilityNotify event.")
 118 (defconst X-CreateNotify 16 "CreateNotify event.")
 119 (defconst X-DestroyNotify 17 "DestroyNotify event.")
 120 (defconst X-UnmapNotify 18 "UnmapNotify event.")
 121 (defconst X-MapNotify 19 "MapNotify event.")
 122 (defconst X-MapRequest 20 "MapRequest event.")
 123 (defconst X-ReparentNotify 21 "ReparentNotify event.")
 124 (defconst X-ConfigureNotify 22 "ConfigureNotify event.")
 125 (defconst X-ConfigureRequest 23 "ConfigureRequest event.")
 126 (defconst X-GravityNotify 24 "GravityNotify event.")
 127 (defconst X-ResizeRequest 25 "ResizeRequest event.")
 128 (defconst X-CirculateNotify 26 "CirculateNotify event.")
 129 (defconst X-CirculateRequest 27 "CirculateRequest event.")
 130 (defconst X-PropertyNotify 28 "PropertyNotify event.")
 131 (defconst X-SelectionClear 29 "SelectionClear event.")
 132 (defconst X-SelectionRequest 30 "SelectionRequest event.")
 133 (defconst X-SelectionNotify 31 "SelectionNotify event.")
 134 (defconst X-ColormapNotify 32 "ColormapNotify event.")
 135 (defconst X-ClientMessage 33 "ClientMessage event.")
 136 (defconst X-MappingNotify 34 "MappingNotify event.")
 137 (defconst X-MaxEvent 35 "1 greater than the largest event opcode.")
 138
 139 ;; Properties
 140 (defconst X-PropertyNewValue 0)
 141 (defconst X-PropertyDelete 1)
 142
 143 ;;; Stacking constants
 144 (defconst X-Above 0 "Stacking mode Above.")
 145 (defconst X-Below 1 "Stacking mode Below.")
 146 (defconst X-TopIf 2 "Stacking mode TopIf.")
 147 (defconst X-BottomIf 3 "Stacking mode BottomIf.")
 148 (defconst X-Opposite 4 "Stacking mode Opposite.")
 149
 150 ;;; Atom format
 151 (defconst X-format-8 8 "8 bit formatting for Atoms.")
 152 (defconst X-format-16 16 "16 bit formatting for Atoms.")
 153 (defconst X-format-32 32 "32 bit formatting for Atoms.")
 154
 155 ;;; Property Modes for atoms
 156 (defconst X-PropModeReplace 0 "Property Mode Replace")
 157 (defconst X-PropModePrepend 1 "Property Mode Prepend")
 158 (defconst X-PropModeAppend  2 "Property Mode Append")
 159
 160 ;;; KeyButtonMask
 161
 162 (defconst X-Shift #x1 "Shift bitmask.")
 163 (defconst X-Lock #x2 "Lock bitmask.")
 164 (defconst X-Control #x4 "Control bitmask.")
 165 (defconst X-Mod1 #x8 "Mod1 bitmask.")
 166 (defconst X-Mod2 #x10 "Mod2 bitmask.")
 167 (defconst X-Mod3 #x20 "Mod3 bitmask.")
 168 (defconst X-Mod4 #x40 "Mod4 bitmask.")
 169 (defconst X-Mod5 #x80 "Mod5 bitmask.")
 170 (defconst X-Button1 #x100 "Button1 bitmask.")
 171 (defconst X-Button2 #x200 "Button2 bitmask.")
 172 (defconst X-Button3 #x400 "Button3 bitmask.")
 173 (defconst X-Button4 #x800 "Button4 bitmask.")
 174 (defconst X-Button5 #x1000 "Button5 bitmask.")
 175
 176 (defconst X-XButton1 1)
 177 (defconst X-XButton2 2)
 178 (defconst X-XButton3 3)
 179 (defconst X-XButton4 4)
 180 (defconst X-XButton5 5)
 181 ;;; Graphic context stuff
 182 ;;
 183
 184 ;;; functions
 185 (defconst X-GXClear 0 "GC function type id.")
 186 (defconst X-GXAnd 1 "GC function type id.")
 187 (defconst X-GXAndReverse 2 "GC function type id.")
 188 (defconst X-GXCopy 3 "GC function type id.")
 189 (defconst X-GXAndInverted 4 "GC function type id.")
 190 (defconst X-GXNoOp 5 "GC function type id.")
 191 (defconst X-GXXor 6 "GC function type id.")
 192 (defconst X-GXOr 7 "GC function type id.")
 193 (defconst X-GXNor 8 "GC function type id.")
 194 (defconst X-GXEquiv 9 "GC function type id.")
 195 (defconst X-GXInvert 10 "GC function type id.")
 196 (defconst X-GXOrReverse 11 "GC function type id.")
 197 (defconst X-GXCopyInverted 12 "GC function type id.")
 198 (defconst X-GXOrInverted 13 "GC function type id.")
 199 (defconst X-GXNand 14 "GC function type id.")
 200 (defconst X-GXSet 15 "GC function type id.")
 201
 202 ;; line styles
 203 (defconst X-LineSolid 0 "GC line-style.")
 204 (defconst X-LineOnOffDash 1 "GC line-style.")
 205 (defconst X-LineDoubleDash 2 "GC line-style.")
 206
 207 ;; cap-styles
 208 (defconst X-CapNotLast 0 "GC cap-styles.")
 209 (defconst X-CapButt 1 "GC cap-styles.")
 210 (defconst X-CapRound 2 "GC cap-styles.")
 211 (defconst X-CapProjecting 3 "GC cap-styles.")
 212
 213 ;; join styles
 214 (defconst X-JoinMiter 0 "GC join-style.")
 215 (defconst X-JoinRound 1 "GC join-style.")
 216 (defconst X-JoinBevel 2 "GC join-style.")
 217
 218 ;; fill style
 219 (defconst X-FillSolid 0 "GC fill-style.")
 220 (defconst X-FillTiled 1 "GC fill-style.")
 221 (defconst X-FillStippled 2 "GC fill-style.")
 222 (defconst X-FillOpaqueStippled 3 "GC fill-style.")
 223
 224 ;; fill rule
 225 (defconst X-EvenOddRule 0 "GC fill-rule.")
 226 (defconst X-WindingRule 1 "GC fill-rule.")
 227
 228 ;; arc-mode
 229 (defconst X-ArcChord 0 "GC arc mode.")
 230 (defconst X-ArcPieSlice 1 "GC arc mode.")
 231
 232 ;; Subwindow mode
 233 (defconst X-ClipByChildren 0 "GC subwindow-mode.")
 234 (defconst X-IncludeInferiors 1 "GC subwindow-mode.")
 235
 236 ;; XSetClipRectangles ordering
 237 (defconst X-UnSorted 0 "Unsorted list.")
 238 (defconst X-YSorted 1 "Sorted by Y.")
 239 (defconst X-YXSorted 2 "Sorted by X and Y.")
 240 (defconst X-YXBanded 3)
 241
 242 ;; Imaging
 243 (defconst X-XYBitmap 0)                 ; depth 1, XYFormat
 244 (defconst X-XYPixmap 1)                 ; depth == drawable depth
 245 (defconst X-ZPixmap 2)                  ; depth == drawable depth
 246
 247 ;;; Some color type stuff
 248 ;;
 249 (defconst X-AllocNone 0 "No color entries writable.")
 250 (defconst X-AllocAll  1 "All color entries writable.")
 251
 252 (defconst X-DoRed 1 "Do Red mask.")
 253 (defconst X-DoGreen 2 "Do Green mask.")
 254 (defconst X-DoBlue 4 "Do blue mask.")
 255 (defconst X-DoRedGreenBlue 7 "All Color Dos ored together.")
 256
 257 ;;; Poling coordinate mode
 258 (defconst X-Origin 0 "Specifies point drawn with relation to origin.")
 259 (defconst X-Previous 1 "Specifies points draw with relation to previous point.")
 260
 261 ;;; Filling shapes
 262 (defconst X-Complex 0)
 263 (defconst X-Nonconvex 1)
 264 (defconst X-Convex 2)
 265
 266 ;; Misc
 267 (defconst X-None 0 "universal null resource or null atom")
 268
 269 (defconst X-RevertToNone 0 "for XSetInputFocus")
 270 (defconst X-RevertToPointerRoot 1 "for XSetInputFocus")
 271 (defconst X-RevertToParent 2 "for XSetInputFocus")
 272
 273 (defconst X-ParentRelative 1
 274   "Background pixmap in CreateWindow and ChangeWindowAttributes.")
 275 (defconst X-CopyFromParent 0
 276   "Border pixmap in CreateWindow and ChangeWindowAttributes special
 277   VisualID and special window class passed to CreateWindow.")
 278 (defconst X-PointerWindow 0 "destination window in SendEvent")
 279 (defconst X-InputFocus 1 "destination window in SendEvent")
 280 (defconst X-PointerRoot 1 "focus window in SetInputFocus")
 281 (defconst X-AnyPropertyType 0 "special Atom, passed to GetProperty")
 282 (defconst X-AnyKey 0 "special Key Code, passed to GrabKey")
 283 (defconst X-AnyButton 0 "special Button Code, passed to GrabButton")
 284 (defconst X-AllTemporary 0 "special Resource ID passed to KillClient")
 285 (defconst X-CurrentTime 0 "special Time")
 286 (defconst X-NoSymbol 0 "special KeySym")
 287
 288 (defconst X-GrabModeSync 0 "specific mode")
 289 (defconst X-GrabModeAsync 1 "specific mode")
 290
 291 (defconst X-AllPlanes -1 "Mask for all planes in XGetImage.")
 292
 293 ;; AllowEvents modes
 294 (defconst X-AsyncPointer 0)
 295 (defconst X-SyncPointer 1)
 296 (defconst X-ReplayPointer 2)
 297 (defconst X-AsyncKeyboard 3)
 298 (defconst X-SyncKeyboard 4)
 299 (defconst X-ReplayKeyboard 5)
 300 (defconst X-AsyncBoth 6)
 301 (defconst X-SyncBoth 7)
 302
 303 ;; For window Attributes
 304 (defconst X-CWBackPixmap #x1)
 305 (defconst X-CWBackPixel #x2)
 306 (defconst X-CWBorderPixmap #x4)
 307 (defconst X-CWBorderPixel #x8)
 308 (defconst X-CWBitGravity #x10)
 309 (defconst X-CWWinGravity #x20)
 310 (defconst X-CWBackingStore #x40)
 311 (defconst X-CWBackingPlanes #x80)
 312 (defconst X-CWBackingPixel #x100)
 313 (defconst X-CWOverrideRedirect #x200)
 314 (defconst X-CWSaveUnder #x400)
 315 (defconst X-CWEventMask #x800)
 316 (defconst X-CWDontPropagate #x1000)
 317 (defconst X-CWColormap #x2000)
 318 (defconst X-CWCursor #x4000)
 319
 320 ;; used in ChangeSaveSet
 321 (defconst X-SetModeInsert 0)
 322 (defconst X-SetModeDelete 1)
 323
 324 ;; used in ConfigureWindow
 325 (defconst X-CWX #x1)
 326 (defconst X-CWY #x2)
 327 (defconst X-CWWidth #x4)
 328 (defconst X-CWHeight #x8)
 329 (defconst X-CWBorderWidth #x10)
 330 (defconst X-CWSibling #x20)
 331 (defconst X-CWStackMode #x40)
 332
 333 ;;; Cursors
 334 (defconst X-XC-num_glyphs 154)
 335 (defconst X-XC-X_cursor 0)
 336 (defconst X-XC-arrow 2)
 337 (defconst X-XC-based_arrow_down 4)
 338 (defconst X-XC-based_arrow_up 6)
 339 (defconst X-XC-boat 8)
 340 (defconst X-XC-bogosity 10)
 341 (defconst X-XC-bottom_left_corner 12)
 342 (defconst X-XC-bottom_right_corner 14)
 343 (defconst X-XC-bottom_side 16)
 344 (defconst X-XC-bottom_tee 18)
 345 (defconst X-XC-box_spiral 20)
 346 (defconst X-XC-center_ptr 22)
 347 (defconst X-XC-circle 24)
 348 (defconst X-XC-clock 26)
 349 (defconst X-XC-coffee_mug 28)
 350 (defconst X-XC-cross 30)
 351 (defconst X-XC-cross_reverse 32)
 352 (defconst X-XC-crosshair 34)
 353 (defconst X-XC-diamond_cross 36)
 354 (defconst X-XC-dot 38)
 355 (defconst X-XC-dotbox 40)
 356 (defconst X-XC-double_arrow 42)
 357 (defconst X-XC-draft_large 44)
 358 (defconst X-XC-draft_small 46)
 359 (defconst X-XC-draped_box 48)
 360 (defconst X-XC-exchange 50)
 361 (defconst X-XC-fleur 52)
 362 (defconst X-XC-gobbler 54)
 363 (defconst X-XC-gumby 56)
 364 (defconst X-XC-hand1 58)
 365 (defconst X-XC-hand2 60)
 366 (defconst X-XC-heart 62)
 367 (defconst X-XC-icon 64)
 368 (defconst X-XC-iron_cross 66)
 369 (defconst X-XC-left_ptr 68)
 370 (defconst X-XC-left_side 70)
 371 (defconst X-XC-left_tee 72)
 372 (defconst X-XC-leftbutton 74)
 373 (defconst X-XC-ll_angle 76)
 374 (defconst X-XC-lr_angle 78)
 375 (defconst X-XC-man 80)
 376 (defconst X-XC-middlebutton 82)
 377 (defconst X-XC-mouse 84)
 378 (defconst X-XC-pencil 86)
 379 (defconst X-XC-pirate 88)
 380 (defconst X-XC-plus 90)
 381 (defconst X-XC-question_arrow 92)
 382 (defconst X-XC-right_ptr 94)
 383 (defconst X-XC-right_side 96)
 384 (defconst X-XC-right_tee 98)
 385 (defconst X-XC-rightbutton 100)
 386 (defconst X-XC-rtl_logo 102)
 387 (defconst X-XC-sailboat 104)
 388 (defconst X-XC-sb_down_arrow 106)
 389 (defconst X-XC-sb_h_double_arrow 108)
 390 (defconst X-XC-sb_left_arrow 110)
 391 (defconst X-XC-sb_right_arrow 112)
 392 (defconst X-XC-sb_up_arrow 114)
 393 (defconst X-XC-sb_v_double_arrow 116)
 394 (defconst X-XC-shuttle 118)
 395 (defconst X-XC-sizing 120)
 396 (defconst X-XC-spider 122)
 397 (defconst X-XC-spraycan 124)
 398 (defconst X-XC-star 126)
 399 (defconst X-XC-target 128)
 400 (defconst X-XC-tcross 130)
 401 (defconst X-XC-top_left_arrow 132)
 402 (defconst X-XC-top_left_corner 134)
 403 (defconst X-XC-top_right_corner 136)
 404 (defconst X-XC-top_side 138)
 405 (defconst X-XC-top_tee 140)
 406 (defconst X-XC-trek 142)
 407 (defconst X-XC-ul_angle 144)
 408 (defconst X-XC-umbrella 146)
 409 (defconst X-XC-ur_angle 148)
 410 (defconst X-XC-watch 150)
 411 (defconst X-XC-xterm 152)
 412
 413 ;; Some keys
 414 (defconst XK-Shift-L 65505)
 415 (defconst XK-Shift-R 65506)
 416 (defconst XK-Control-L 65507)
 417 (defconst XK-Control-R 65508)
 418 (defconst XK-Caps-Lock 65509)
 419 (defconst XK-Shift-Lock 65510)
 420
 421 (defconst XK-Meta-L 65511)
 422 (defconst XK-Meta-R 65512)
 423 (defconst XK-Alt-L 65513)
 424 (defconst XK-Alt-R 65514)
 425 (defconst XK-Super-L 65515)
 426 (defconst XK-Super-R 65516)
 427 (defconst XK-Hyper-L 65517)
 428 (defconst XK-Hyper-R 65518)
 429
 430 (defconst XK-BackSpace 65288)
 431 (defconst XK-Tab 65289)
 432 (defconst XK-Linefeed 65290)
 433 (defconst XK-Clear 65291)
 434 (defconst XK-Return 65293)
 435 (defconst XK-Pause 65299)
 436 (defconst XK-Scroll-Lock 65300)
 437 (defconst XK-Sys-Req 65301)
 438 (defconst XK-Escape 65307)
 439 (defconst XK-Delete 65535)
 440
 441 (defconst XK-Select #xFF60 "Select, mark")
 442 (defconst XK-Print #xFF61)
 443 (defconst XK-Execute #xFF62 "Execute, run, do")
 444 (defconst XK-Insert #xFF63 "Insert, insert here")
 445 (defconst XK-Undo #xFF65 "Undo, oops")
 446 (defconst XK-Redo #xFF66 "redo, again")
 447 (defconst XK-Menu #xFF67)
 448 (defconst XK-Find #xFF68 "Find, search")
 449 (defconst XK-Cancel #xFF69 "Cancel, stop, abort, exit")
 450 (defconst XK-Help #xFF6A "Help")
 451 (defconst XK-Break #xFF6B)
 452 (defconst XK-ModeSwitch #xFF7E "Character set switch")
 453 (defconst XK-ScriptSwitch #xFF7E "Alias for mode_switch")
 454 (defconst XK-NumLock #xFF7F)
 455
 456 (defconst XK-F1                 #xFFBE)
 457 (defconst XK-F2                 #xFFBF)
 458 (defconst XK-F3                 #xFFC0)
 459 (defconst XK-F4                 #xFFC1)
 460 (defconst XK-F5                 #xFFC2)
 461 (defconst XK-F6                 #xFFC3)
 462 (defconst XK-F7                 #xFFC4)
 463 (defconst XK-F8                 #xFFC5)
 464 (defconst XK-F9                 #xFFC6)
 465 (defconst XK-F10                #xFFC7)
 466 (defconst XK-F11                #xFFC8)
 467 (defconst XK-L1                 #xFFC8)
 468 (defconst XK-F12                #xFFC9)
 469 (defconst XK-L2                 #xFFC9)
 470 (defconst XK-F13                #xFFCA)
 471 (defconst XK-L3                 #xFFCA)
 472 (defconst XK-F14                #xFFCB)
 473 (defconst XK-L4                 #xFFCB)
 474 (defconst XK-F15                #xFFCC)
 475 (defconst XK-L5                 #xFFCC)
 476 (defconst XK-F16                #xFFCD)
 477 (defconst XK-L6                 #xFFCD)
 478 (defconst XK-F17                #xFFCE)
 479 (defconst XK-L7                 #xFFCE)
 480 (defconst XK-F18                #xFFCF)
 481 (defconst XK-L8                 #xFFCF)
 482 (defconst XK-F19                #xFFD0)
 483 (defconst XK-L9                 #xFFD0)
 484 (defconst XK-F20                #xFFD1)
 485 (defconst XK-L10                #xFFD1)
 486 (defconst XK-F21                #xFFD2)
 487 (defconst XK-R1                 #xFFD2)
 488 (defconst XK-F22                #xFFD3)
 489 (defconst XK-R2                 #xFFD3)
 490 (defconst XK-F23                #xFFD4)
 491 (defconst XK-R3                 #xFFD4)
 492 (defconst XK-F24                #xFFD5)
 493 (defconst XK-R4                 #xFFD5)
 494 (defconst XK-F25                #xFFD6)
 495 (defconst XK-R5                 #xFFD6)
 496 (defconst XK-F26                #xFFD7)
 497 (defconst XK-R6                 #xFFD7)
 498 (defconst XK-F27                #xFFD8)
 499 (defconst XK-R7                 #xFFD8)
 500 (defconst XK-F28                #xFFD9)
 501 (defconst XK-R8                 #xFFD9)
 502 (defconst XK-F29                #xFFDA)
 503 (defconst XK-R9                 #xFFDA)
 504 (defconst XK-F30                #xFFDB)
 505 (defconst XK-R10                #xFFDB)
 506 (defconst XK-F31                #xFFDC)
 507 (defconst XK-R11                #xFFDC)
 508 (defconst XK-F32                #xFFDD)
 509 (defconst XK-R12                #xFFDD)
 510 (defconst XK-F33                #xFFDE)
 511 (defconst XK-R13                #xFFDE)
 512 (defconst XK-F34                #xFFDF)
 513 (defconst XK-R14                #xFFDF)
 514 (defconst XK-F35                #xFFE0)
 515 (defconst XK-R15                #xFFE0)
 516
 517 (defconst XK-Space              #x0020)
 518
 519 ;; Cursors
 520 (defconst XK-Home               #xFF50)
 521 (defconst XK-Left               #xFF51) ; Move left, left arrow
 522 (defconst XK-Up                 #xFF52) ; Move up, up arrow
 523 (defconst XK-Right              #xFF53) ; Move right, right arrow
 524 (defconst XK-Down               #xFF54) ; Move down, down arrow
 525 (defconst XK-Prior              #xFF55) ; Prior, previous
 526 (defconst XK-PageUp             #xFF55)
 527 (defconst XK-Next               #xFF56) ; Next
 528 (defconst XK-PageDown           #xFF56) ;
 529 (defconst XK-End                #xFF57) ; EOL
 530 (defconst XK-Begin              #xFF58) ; BOL
 531
 532 ;; Window states
 533 (defconst X-WithdrawnState 0.0)
 534 (defconst X-NormalState 1.0)
 535 (defconst X-IconicState 3.0)
 536
 537 ;; Notify mode
 538 (defconst X-NotifyNormal 0)
 539 (defconst X-NotifyGrab 1)
 540 (defconst X-NotifyUngrab 2)
 541 (defconst X-NotifyWhileGrabbed 3)
 542
 543 (defconst X-NotifyHint 1)               ; for MotionNotify
 544
 545 ;; Notify detail
 546 (defconst X-NotifyAncestor 0)
 547 (defconst X-NotifyVirtual 1)
 548 (defconst X-NotifyInferior 2)
 549 (defconst X-NotifyNonlinear 3)
 550 (defconst X-NotifyNonlinearVirtual 4)
 551 (defconst X-NotifyPointer 5)
 552 (defconst X-NotifyPointerRoot 6)
 553 (defconst X-NotifyDetailNone 7)
 554
 555 ;; Used in GetWindowAttributes reply
 556 (defconst X-Unmapped 0)
 557 (defconst X-Unviewable 1)
 558 (defconst X-Viewable 2)
 559
 560 ;; Visibility notify
 561 (defconst X-VisibilityUnobscured 0)
 562 (defconst X-VisibilityPartiallyObscured 1)
 563 (defconst X-VisibilityFullyObscured 2)
 564
 565 ;; Circulation request
 566 (defconst X-PlaceOnTop 0)
 567 (defconst X-PlaceOnBottom 1)
 568
 569 ;; Protocol families
 570 (defconst X-FamilyInternet 0)
 571 (defconst X-FamilyDECnet 1)
 572 (defconst X-FamilyChaos 2)
 573
 574 ;; Byte order
 575 (defconst X-LSBFirst 0)
 576 (defconst X-MSBFirst 1)
 577
 578 ;; X errors
 579 (defconst X-BadRequest 1)
 580 (defconst X-BadValue 2)
 581 (defconst X-BadWindow 3)
 582 (defconst X-BadPixmap 4)
 583 (defconst X-BadAtom 5)
 584 (defconst X-BadCursor 6)
 585 (defconst X-BadFont 7)
 586 (defconst X-BadMatch 8)
 587 (defconst X-BadDrawable 9)
 588 (defconst X-BadAccess 10)
 589 (defconst X-BadAlloc 11)
 590 (defconst X-BadColor 12)
 591 (defconst X-BadGC 13)
 592 (defconst X-BadIDChoice 14)
 593 (defconst X-BadName 15)
 594 (defconst X-BadLength 16)
 595 (defconst X-BadImplementation 17)
 596 (defconst X-BadFirstExtension 128)
 597 (defconst X-BadLastExtension 255)
 598
 599 \f
 600 (provide 'xlib-const)
 601
 602 ;;; xlib-const.el ends here