factor/basis/x11/xlib/xlib.factor

! Copyright (C) 2005, 2006 Eduardo Cavazos
! See http://factorcode.org/license.txt for BSD license.
!
! The most popular guides to programming the X Window System are
! the series from Oreilly. For programming with Xlib, there is
! the reference manual and the programmers guide. However, a
! lesser known manual is the free Xlib manual that comes with
! the MIT X distribution. The arrangement and order of these
! bindings follows the structure of the free Xlib manual. If you
! add to this library and are wondering what part of the file to
! modify, just find the function or data structure in the manual
! and note the section.

USING: kernel arrays alien alien.c-types alien.strings
alien.syntax math math.bitwise words sequences namespaces
continuations io io.encodings.ascii ;
IN: x11.xlib

LIBRARY: xlib

TYPEDEF: ulong XID
TYPEDEF: XID Window
TYPEDEF: XID Drawable
TYPEDEF: XID Font
TYPEDEF: XID Pixmap
TYPEDEF: XID Cursor
TYPEDEF: XID Colormap
TYPEDEF: XID GContext
TYPEDEF: XID KeySym

TYPEDEF: ulong Atom

TYPEDEF: char* XPointer
TYPEDEF: void* Screen*
TYPEDEF: void* GC
TYPEDEF: void* Visual*
TYPEDEF: void* XExtData*
TYPEDEF: void* XFontProp*
TYPEDEF: void* XComposeStatus*
TYPEDEF: void* XIM
TYPEDEF: void* XIC

TYPEDEF: int Status

TYPEDEF: int Bool

TYPEDEF: ulong VisualID
TYPEDEF: ulong Time

TYPEDEF: void* Window**
TYPEDEF: void* Atom**

ALIAS: <XID> <ulong>
ALIAS: <Window> <XID>
ALIAS: <Drawable> <XID>
ALIAS: <KeySym> <XID>
ALIAS: <Atom> <ulong>

ALIAS: *XID *ulong
ALIAS: *Window *XID
ALIAS: *Drawable *XID
ALIAS: *KeySym *XID
ALIAS: *Atom *ulong
!
! 2 - Display Functions
!

! This struct is incomplete
C-STRUCT: Display
{ "void*" "ext_data" }
{ "void*" "free_funcs" }
{ "int" "fd" } ;

FUNCTION: Display* XOpenDisplay ( void* display_name ) ;

! 2.2 Obtaining Information about the Display, Image Formats, or Screens

FUNCTION: ulong XBlackPixel ( Display* display, int screen_number ) ;
FUNCTION: ulong XWhitePixel ( Display* display, int screen_number ) ;
FUNCTION: Colormap XDefaultColormap ( Display* display, int screen_number ) ;
FUNCTION: int XDefaultDepth ( Display* display, int screen_number ) ;
FUNCTION: GC XDefaultGC ( Display* display, int screen_number ) ;
FUNCTION: int XDefaultScreen ( Display* display ) ;
FUNCTION: Window XRootWindow ( Display* display, int screen_number ) ;
FUNCTION: Window XDefaultRootWindow ( Display* display ) ;
FUNCTION: int XProtocolVersion ( Display* display ) ;
FUNCTION: int XProtocolRevision ( Display* display ) ;
FUNCTION: int XQLength ( Display* display ) ;
FUNCTION: int XScreenCount ( Display* display ) ;
FUNCTION: int XConnectionNumber ( Display* display ) ;

! 2.5 Closing the Display
FUNCTION: int XCloseDisplay ( Display* display ) ;

!
! 3 - Window Functions
!

! 3.2 - Window Attributes

: CWBackPixmap       ( -- n ) 0 2^ ; inline
: CWBackPixel        ( -- n ) 1 2^ ; inline
: CWBorderPixmap     ( -- n ) 2 2^ ; inline
: CWBorderPixel      ( -- n ) 3 2^ ; inline
: CWBitGravity       ( -- n ) 4 2^ ; inline
: CWWinGravity       ( -- n ) 5 2^ ; inline
: CWBackingStore     ( -- n ) 6 2^ ; inline
: CWBackingPlanes    ( -- n ) 7 2^ ; inline
: CWBackingPixel     ( -- n ) 8 2^ ; inline
: CWOverrideRedirect ( -- n ) 9 2^ ; inline
: CWSaveUnder        ( -- n ) 10 2^ ; inline
: CWEventMask        ( -- n ) 11 2^ ; inline
: CWDontPropagate    ( -- n ) 12 2^ ; inline
: CWColormap         ( -- n ) 13 2^ ; inline
: CWCursor           ( -- n ) 14 2^ ; inline

C-STRUCT: XSetWindowAttributes
        { "Pixmap" "background_pixmap" }
        { "ulong" "background_pixel" }
        { "Pixmap" "border_pixmap" }
        { "ulong" "border_pixel" }
        { "int" "bit_gravity" }
        { "int" "win_gravity" }
        { "int" "backing_store" }
        { "ulong" "backing_planes" }
        { "ulong" "backing_pixel" }
        { "Bool" "save_under" }
        { "long" "event_mask" }
        { "long" "do_not_propagate_mask" }
        { "Bool" "override_redirect" }
        { "Colormap" "colormap" }
        { "Cursor" "cursor" } ;

CONSTANT: UnmapGravity          0

CONSTANT: ForgetGravity         0
CONSTANT: NorthWestGravity      1
CONSTANT: NorthGravity          2
CONSTANT: NorthEastGravity      3
CONSTANT: WestGravity           4
CONSTANT: CenterGravity         5
CONSTANT: EastGravity           6
CONSTANT: SouthWestGravity      7
CONSTANT: SouthGravity          8
CONSTANT: SouthEastGravity      9
CONSTANT: StaticGravity         10

! 3.3 - Creating Windows

FUNCTION: Window XCreateWindow ( Display* display, Window parent, int x, int y, uint width, uint height, uint border_width, int depth, uint class, Visual* visual, ulong valuemask, XSetWindowAttributes* attributes ) ;
FUNCTION: Window XCreateSimpleWindow ( Display* display, Window parent, int x, int y, uint width, uint height, uint border_width, ulong border, ulong background ) ;
FUNCTION: Status XDestroyWindow ( Display* display, Window w ) ;
FUNCTION: Status XMapWindow ( Display* display, Window window ) ;
FUNCTION: Status XMapSubwindows ( Display* display, Window window ) ;
FUNCTION: Status XUnmapWindow ( Display* display, Window w ) ;
FUNCTION: Status XUnmapSubwindows ( Display* display, Window w ) ;

! 3.5 Mapping Windows

FUNCTION: int XMapRaised ( Display* display, Window w ) ;

! 3.7 - Configuring Windows

: CWX           ( -- n ) 0 2^ ; inline
: CWY           ( -- n ) 1 2^ ; inline
: CWWidth       ( -- n ) 2 2^ ; inline
: CWHeight      ( -- n ) 3 2^ ; inline
: CWBorderWidth ( -- n ) 4 2^ ; inline
: CWSibling     ( -- n ) 5 2^ ; inline
: CWStackMode   ( -- n ) 6 2^ ; inline

C-STRUCT: XWindowChanges
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "border_width" }
        { "Window" "sibling" }
        { "int" "stack_mode" } ;

FUNCTION: Status XConfigureWindow ( Display* display, Window w, uint value_mask, XWindowChanges* values ) ;
FUNCTION: Status XMoveWindow ( Display* display, Window w, int x, int y ) ;
FUNCTION: Status XResizeWindow ( Display* display, Window w, uint width, uint height ) ;
FUNCTION: Status XSetWindowBorderWidth ( Display* display, ulong w, uint width ) ;


! 3.8 Changing Window Stacking Order

FUNCTION: Status XRaiseWindow ( Display* display, Window w ) ;
FUNCTION: Status XLowerWindow ( Display* display, Window w ) ;

! 3.9 - Changing Window Attributes

FUNCTION: Status XChangeWindowAttributes (
  Display* display, Window w, ulong valuemask, XSetWindowAttributes* attr ) ;
FUNCTION: Status XSetWindowBackground (
  Display* display, Window w, ulong background_pixel ) ;
FUNCTION: Status XDefineCursor ( Display* display, Window w, Cursor cursor ) ;
FUNCTION: Status XUndefineCursor ( Display* display, Window w ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 4 - Window Information Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 4.1 - Obtaining Window Information

FUNCTION: Status XQueryTree (
  Display* display,
  Window w,
  Window* root_return,
  Window* parent_return,
  Window** children_return, uint* nchildren_return ) ;

C-STRUCT: XWindowAttributes
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" " height" }
        { "int" "border_width" }
        { "int" "depth" }
        { "Visual*" "visual" }
        { "Window" "root" }
        { "int" "class" }
        { "int" "bit_gravity" }
        { "int" "win_gravity" }
        { "int" "backing_store" }
        { "ulong" "backing_planes" }
        { "ulong" "backing_pixel" }
        { "Bool" "save_under" }
        { "Colormap" "colormap" }
        { "Bool" "map_installed" }
        { "int" "map_state" }
        { "long" "all_event_masks" }
        { "long" "your_event_mask" }
        { "long" "do_not_propagate_mask" }
        { "Bool" "override_redirect" }
        { "Screen*" "screen" } ;

FUNCTION: Status XGetWindowAttributes ( Display* display, Window w, XWindowAttributes* attr ) ;

CONSTANT: IsUnmapped            0
CONSTANT: IsUnviewable          1
CONSTANT: IsViewable            2

FUNCTION: Status XGetGeometry (
  Display* display,
  Drawable d,
  Window* root_return,
  int* x_return,
  int* y_return,
  uint* width_return,
  uint* height_return,
  uint* border_width_return,
  uint* depth_return ) ;

! 4.2 - Translating Screen Coordinates

FUNCTION: Bool XQueryPointer ( Display* display, Window w, Window* root_return, Window* child_return, int* root_x_return, int* root_y_return, int* win_x_return, int* win_y_return, uint* mask_return ) ;

! 4.3 - Properties and Atoms

FUNCTION: Atom XInternAtom ( Display* display, char* atom_name, Bool only_if_exists ) ;

FUNCTION: char* XGetAtomName ( Display* display, Atom atom ) ;

! 4.4 - Obtaining and Changing Window Properties

FUNCTION: int XGetWindowProperty ( Display* display, Window w, Atom property, long long_offset, long long_length, Bool delete, Atom req_type, Atom* actual_type_return, int* actual_format_return, ulong* nitems_return, ulong* bytes_after_return, char** prop_return ) ;

FUNCTION: int XChangeProperty ( Display* display, Window w, Atom property, Atom type, int format, int mode, void* data, int nelements ) ;

! 4.5 Selections

FUNCTION: int XSetSelectionOwner ( Display* display, Atom selection, Window owner, Time time ) ;

FUNCTION: Window XGetSelectionOwner ( Display* display, Atom selection ) ;

FUNCTION: int XConvertSelection ( Display* display, Atom selection, Atom target, Atom property, Window requestor, Time time ) ;


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 5 - Pixmap and Cursor Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 5.1 - Creating and Freeing Pixmaps

FUNCTION: Pixmap XCreatePixmap ( Display* display, Drawable d, uint width, uint height, uint depth ) ;
FUNCTION: int XFreePixmap ( Display* display, Pixmap pixmap ) ;


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 6 - Color Management Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XColor
        { "ulong" "pixel" }
        { "ushort" "red" }
        { "ushort" "green" }
        { "ushort" "blue" }
        { "char" "flags" }
        { "char" "pad" } ;

FUNCTION: Status XLookupColor ( Display* display, Colormap colormap, char* color_name, XColor* exact_def_return, XColor* screen_def_return ) ;
FUNCTION: Status XAllocColor ( Display* display, Colormap colormap, XColor* screen_in_out ) ;
FUNCTION: Status XQueryColor ( Display* display, Colormap colormap, XColor* def_in_out ) ;

! 6.4 Creating, Copying, and Destroying Colormaps

FUNCTION: Colormap XCreateColormap ( Display* display, Window w, Visual* visual, int alloc ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 7 - Graphics Context Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: GCFunction          ( -- n ) 0 2^ ; inline
: GCPlaneMask         ( -- n ) 1 2^ ; inline
: GCForeground        ( -- n ) 2 2^ ; inline
: GCBackground        ( -- n ) 3 2^ ; inline
: GCLineWidth         ( -- n ) 4 2^ ; inline
: GCLineStyle         ( -- n ) 5 2^ ; inline
: GCCapStyle          ( -- n ) 6 2^ ; inline
: GCJoinStyle         ( -- n ) 7 2^ ; inline
: GCFillStyle         ( -- n ) 8 2^ ; inline
: GCFillRule          ( -- n ) 9 2^ ; inline
: GCTile              ( -- n ) 10 2^ ; inline
: GCStipple           ( -- n ) 11 2^ ; inline
: GCTileStipXOrigin   ( -- n ) 12 2^ ; inline
: GCTileStipYOrigin   ( -- n ) 13 2^ ; inline
: GCFont              ( -- n ) 14 2^ ; inline
: GCSubwindowMode     ( -- n ) 15 2^ ; inline
: GCGraphicsExposures ( -- n ) 16 2^ ; inline
: GCClipXOrigin       ( -- n ) 17 2^ ; inline
: GCClipYOrigin       ( -- n ) 18 2^ ; inline
: GCClipMask          ( -- n ) 19 2^ ; inline
: GCDashOffset        ( -- n ) 20 2^ ; inline
: GCDashList          ( -- n ) 21 2^ ; inline
: GCArcMode           ( -- n ) 22 2^ ; inline

CONSTANT: GXclear               HEX: 0
CONSTANT: GXand                 HEX: 1
CONSTANT: GXandReverse          HEX: 2
CONSTANT: GXcopy                HEX: 3
CONSTANT: GXandInverted         HEX: 4
CONSTANT: GXnoop                HEX: 5
CONSTANT: GXxor                 HEX: 6
CONSTANT: GXor                  HEX: 7
CONSTANT: GXnor                 HEX: 8
CONSTANT: GXequiv               HEX: 9
CONSTANT: GXinvert              HEX: a
CONSTANT: GXorReverse           HEX: b
CONSTANT: GXcopyInverted        HEX: c
CONSTANT: GXorInverted          HEX: d
CONSTANT: GXnand                HEX: e
CONSTANT: GXset                 HEX: f

C-STRUCT: XGCValues
        { "int" "function" }
        { "ulong" "plane_mask" }
        { "ulong" "foreground" }
        { "ulong" "background" }
        { "int" "line_width" }
        { "int" "line_style" }
        { "int" "cap_style" }
        { "int" "join_style" }
        { "int" "fill_style" }
        { "int" "fill_rule" }
        { "int" "arc_mode" }
        { "Pixmap" "tile" }
        { "Pixmap" "stipple" }
        { "int" "ts_x_origin" }
        { "int" "ts_y_origin" }
        { "Font" "font" }
        { "int" "subwindow_mode" }
        { "Bool" "graphics_exposures" }
        { "int" "clip_x_origin" }
        { "int" "clip_y_origin" }
        { "Pixmap" "clip_mask" }
        { "int" "dash_offset" }
        { "char" "dashes" } ;

FUNCTION: GC XCreateGC ( Display* display, Window d, ulong valuemask, XGCValues* values ) ;
FUNCTION: int XChangeGC ( Display* display, GC gc, ulong valuemask, XGCValues* values ) ;
FUNCTION: Status XGetGCValues ( Display* display, GC gc, ulong valuemask, XGCValues* values_return ) ;
FUNCTION: Status XSetForeground ( Display* display, GC gc, ulong foreground ) ;
FUNCTION: Status XSetBackground ( Display* display, GC gc, ulong background ) ;
FUNCTION: Status XSetFunction ( Display* display, GC gc, int function ) ;
FUNCTION: Status XSetSubwindowMode ( Display* display, GC gc, int subwindow_mode ) ;

FUNCTION: GContext XGContextFromGC ( GC gc ) ;

FUNCTION: Status XSetFont ( Display* display, GC gc, Font font ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 8 - Graphics Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

FUNCTION: Status XClearWindow ( Display* display, Window w ) ;
FUNCTION: Status XDrawPoint ( Display* display, Drawable d, GC gc, int x, int y ) ;
FUNCTION: Status XDrawLine ( Display* display, Drawable d, GC gc, int x1, int y1, int x2, int y2 ) ;
FUNCTION: Status XDrawArc ( Display* display, Drawable d, GC gc, int x, int y, uint width, uint height, int angle1, int angle2 ) ;
FUNCTION: Status XFillArc ( Display* display, Drawable d, GC gc, int x, int y, uint width, uint height, int angle1, int angle2 ) ;

! 8.5 - Font Metrics

C-STRUCT: XCharStruct
        { "short" "lbearing" }
        { "short" "rbearing" }
        { "short" "width" }
        { "short" "ascent" }
        { "short" "descent" }
        { "ushort" "attributes" } ;

FUNCTION: Font XLoadFont ( Display* display, char* name ) ;
FUNCTION: XFontStruct* XQueryFont ( Display* display, XID font_ID ) ;
FUNCTION: XFontStruct* XLoadQueryFont ( Display* display, char* name ) ;

C-STRUCT: XFontStruct
        { "XExtData*" "ext_data" }
        { "Font" "fid" }
        { "uint" "direction" }
        { "uint" "min_char_or_byte2" }
        { "uint" "max_char_or_byte2" }
        { "uint" "min_byte1" }
        { "uint" "max_byte1" }
        { "Bool" "all_chars_exist" }
        { "uint" "default_char" }
        { "int" "n_properties" }
        { "XFontProp*" "properties" }
        { "XCharStruct" "min_bounds" }
        { "XCharStruct" "max_bounds" }
        { "XCharStruct*" "per_char" }
        { "int" "ascent" }
        { "int" "descent" } ;

FUNCTION: int XTextWidth ( XFontStruct* font_struct, char* string, int count ) ;

! 8.6 - Drawing Text

FUNCTION: Status XDrawString (
        Display* display,
        Drawable d,
        GC gc,
        int x,
        int y,
        char* string,
        int length ) ;

! 8.7 - Transferring Images between Client and Server

: XYBitmap 0 ; inline
: XYPixmap 1 ; inline
: ZPixmap  2 ; inline
: AllPlanes -1 ; inline

C-STRUCT: XImage-funcs
    { "void*" "create_image" }
    { "void*" "destroy_image" }
    { "void*" "get_pixel" }
    { "void*" "put_pixel" }
    { "void*" "sub_image" }
    { "void*" "add_pixel" } ;

C-STRUCT: XImage
    { "int"          "width" }
    { "int"          "height" }
    { "int"          "xoffset" }
    { "int"          "format" }
    { "char*"        "data" }
    { "int"          "byte_order" }
    { "int"          "bitmap_unit" }
    { "int"          "bitmap_bit_order" }
    { "int"          "bitmap_pad" }
    { "int"          "depth" }
    { "int"          "bytes_per_line" }
    { "int"          "bits_per_pixel" }
    { "ulong"        "red_mask" }
    { "ulong"        "green_mask" }
    { "ulong"        "blue_mask" }
    { "XPointer"     "obdata" }
    { "XImage-funcs" "f" } ;

FUNCTION: XImage* XGetImage ( Display* display, Drawable d, int x, int y, uint width, uint height, ulong plane_mask, int format ) ;
FUNCTION: int XDestroyImage ( XImage *ximage ) ;

: XImage-size ( ximage -- size )
    [ XImage-height ] [ XImage-bytes_per_line ] bi * ;

: XImage-pixels ( ximage -- byte-array )
    [ XImage-data ] [ XImage-size ] bi memory>byte-array ;

!
! 9 - Window and Session Manager Functions
!

FUNCTION: Status XReparentWindow ( Display* display, Window w, Window parent, int x, int y ) ;
FUNCTION: Status XAddToSaveSet ( Display* display, Window w ) ;
FUNCTION: Status XRemoveFromSaveSet ( Display* display, Window w ) ;
FUNCTION: Status XGrabServer ( Display* display ) ;
FUNCTION: Status XUngrabServer ( Display* display ) ;
FUNCTION: Status XKillClient ( Display* display, XID resource ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 10 - Events
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 10.3 - Event Masks

: NoEventMask              ( -- n ) 0 ; inline
: KeyPressMask             ( -- n ) 0 2^ ; inline
: KeyReleaseMask           ( -- n ) 1 2^ ; inline
: ButtonPressMask          ( -- n ) 2 2^ ; inline
: ButtonReleaseMask        ( -- n ) 3 2^ ; inline
: EnterWindowMask          ( -- n ) 4 2^ ; inline
: LeaveWindowMask          ( -- n ) 5 2^ ; inline
: PointerMotionMask        ( -- n ) 6 2^ ; inline
: PointerMotionHintMask    ( -- n ) 7 2^ ; inline
: Button1MotionMask        ( -- n ) 8 2^ ; inline
: Button2MotionMask        ( -- n ) 9 2^ ; inline
: Button3MotionMask        ( -- n ) 10 2^ ; inline
: Button4MotionMask        ( -- n ) 11 2^ ; inline
: Button5MotionMask        ( -- n ) 12 2^ ; inline
: ButtonMotionMask         ( -- n ) 13 2^ ; inline
: KeymapStateMask          ( -- n ) 14 2^ ; inline
: ExposureMask             ( -- n ) 15 2^ ; inline
: VisibilityChangeMask     ( -- n ) 16 2^ ; inline
: StructureNotifyMask      ( -- n ) 17 2^ ; inline
: ResizeRedirectMask       ( -- n ) 18 2^ ; inline
: SubstructureNotifyMask   ( -- n ) 19 2^ ; inline
: SubstructureRedirectMask ( -- n ) 20 2^ ; inline
: FocusChangeMask          ( -- n ) 21 2^ ; inline
: PropertyChangeMask       ( -- n ) 22 2^ ; inline
: ColormapChangeMask       ( -- n ) 23 2^ ; inline
: OwnerGrabButtonMask      ( -- n ) 24 2^ ; inline

CONSTANT: KeyPress              2
CONSTANT: KeyRelease            3
CONSTANT: ButtonPress           4
CONSTANT: ButtonRelease         5
CONSTANT: MotionNotify          6
CONSTANT: EnterNotify           7
CONSTANT: LeaveNotify           8
CONSTANT: FocusIn                       9
CONSTANT: FocusOut              10
CONSTANT: KeymapNotify          11
CONSTANT: Expose                        12
CONSTANT: GraphicsExpose                13
CONSTANT: NoExpose              14
CONSTANT: VisibilityNotify      15
CONSTANT: CreateNotify          16
CONSTANT: DestroyNotify         17
CONSTANT: UnmapNotify           18
CONSTANT: MapNotify             19
CONSTANT: MapRequest            20
CONSTANT: ReparentNotify                21
CONSTANT: ConfigureNotify               22
CONSTANT: ConfigureRequest      23
CONSTANT: GravityNotify         24
CONSTANT: ResizeRequest         25
CONSTANT: CirculateNotify               26
CONSTANT: CirculateRequest      27
CONSTANT: PropertyNotify                28
CONSTANT: SelectionClear                29
CONSTANT: SelectionRequest      30
CONSTANT: SelectionNotify               31
CONSTANT: ColormapNotify                32
CONSTANT: ClientMessage         33
CONSTANT: MappingNotify         34
CONSTANT: LASTEvent             35

C-STRUCT: XAnyEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 10.5 Keyboard and Pointer Events

CONSTANT: Button1 1
CONSTANT: Button2 2
CONSTANT: Button3 3
CONSTANT: Button4 4
CONSTANT: Button5 5

: Button1Mask ( -- n ) 1 8  shift ; inline
: Button2Mask ( -- n ) 1 9  shift ; inline
: Button3Mask ( -- n ) 1 10 shift ; inline
: Button4Mask ( -- n ) 1 11 shift ; inline
: Button5Mask ( -- n ) 1 12 shift ; inline

: ShiftMask   ( -- n ) 1 0 shift ; inline
: LockMask    ( -- n ) 1 1 shift ; inline
: ControlMask ( -- n ) 1 2 shift ; inline
: Mod1Mask    ( -- n ) 1 3 shift ; inline
: Mod2Mask    ( -- n ) 1 4 shift ; inline
: Mod3Mask    ( -- n ) 1 5 shift ; inline
: Mod4Mask    ( -- n ) 1 6 shift ; inline
: Mod5Mask    ( -- n ) 1 7 shift ; inline

C-STRUCT: XButtonEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Window" "root" }
        { "Window" "subwindow" }
        { "Time" "time" }
        { "int" "x" }
        { "int" "y" }
        { "int" "x_root" }
        { "int" "y_root" }
        { "uint" "state" }
        { "uint" "button" }
        { "Bool" "same_screen" } ;

TYPEDEF: XButtonEvent XButtonPressedEvent
TYPEDEF: XButtonEvent XButtonReleasedEvent


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XKeyEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Window" "root" }
        { "Window" "subwindow" }
        { "Time" "time" }
        { "int" "x" }
        { "int" "y" }
        { "int" "x_root" }
        { "int" "y_root" }
        { "uint" "state" }
        { "uint" "keycode" }
        { "Bool" "same_screen" } ;

TYPEDEF: XKeyEvent XKeyPressedEvent
TYPEDEF: XKeyEvent XKeyReleasedEvent

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XMotionEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Window" "root" }
        { "Window" "subwindow" }
        { "Time" "time" }
        { "int" "x" }
        { "int" "y" }
        { "int" "x_root" }
        { "int" "y_root" }
        { "uint" "state" }
        { "char" "is_hint" }
        { "Bool" "same_screen" } ;

TYPEDEF: XMotionEvent XPointerMovedEvent

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XCrossingEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Window" "root" }
        { "Window" "subwindow" }
        { "Time" "time" }
        { "int" "x" }
        { "int" "y" }
        { "int" "x_root" }
        { "int" "y_root" }
        { "int" "mode" }
        { "int" "detail" }
        { "Bool" "same_screen" }
        { "Bool" "focus" }
        { "uint" "state" } ;

TYPEDEF: XCrossingEvent XEnterWindowEvent
TYPEDEF: XCrossingEvent XLeaveWindowEvent

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XFocusChangeEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "int" "mode" }
        { "int" "detail" } ;

TYPEDEF: XFocusChangeEvent XFocusInEvent
TYPEDEF: XFocusChangeEvent XFocusOutEvent

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XExposeEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "count" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XGraphicsExposeEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Drawable" "drawable" }
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "count" }
        { "int" "major_code" }
        { "int" "minor_code" } ;

C-STRUCT: XNoExposeEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Drawable" "drawable" }
        { "int" "major_code" }
        { "int" "minor_code" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XVisibilityEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "int" "state" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XCreateWindowEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "parent" }
        { "Window" "window" }
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "border_width" }
        { "Bool" "override_redirect" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XDestroyWindowEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XUnmapEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "Bool" "from_configure" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XMapEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "Bool" "override_redirect" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XMapRequestEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "parent" }
        { "Window" "window" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XReparentEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "Window" "parent" }
        { "int" "x" }
        { "int" "y" }
        { "Bool" "override_redirect" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XConfigureEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "border_width" }
        { "Window" "above" }
        { "Bool" "override_redirect" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XGravityEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "int" "x" }
        { "int" "y" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XResizeRequestEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "int" "width" }
        { "int" "height" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XConfigureRequestEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "parent" }
        { "Window" "window" }
        { "int" "x" }
        { "int" "y" }
        { "int" "width" }
        { "int" "height" }
        { "int" "border_width" }
        { "Window" "above" }
        { "int" "detail" }
        { "ulong" "value_mask" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XCirculateEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "event" }
        { "Window" "window" }
        { "int" "place" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XCirculateRequestEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "parent" }
        { "Window" "window" }
        { "int" "place" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XPropertyEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Atom" "atom" }
        { "Time" "time" }
        { "int" "state" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XSelectionClearEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Atom" "selection" }
        { "Time" "time" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XSelectionRequestEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "owner" }
        { "Window" "requestor" }
        { "Atom" "selection" }
        { "Atom" "target" }
        { "Atom" "property" }
        { "Time" "time" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XSelectionEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "requestor" }
        { "Atom" "selection" }
        { "Atom" "target" }
        { "Atom" "property" }
        { "Time" "time" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XColormapEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Colormap" "colormap" }
        { "Bool" "new" }
        { "int" "state" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XClientMessageEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "Atom" "message_type" }
        { "int" "format" }
        { "long" "data0" }
        { "long" "data1" }
        { "long" "data2" }
        { "long" "data3" }
        { "long" "data4" }
!       union {
!               char  b[20];
!               short s[10];
!               long  l[5];
!       } data;
;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XMappingEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        { "int" "request" }
        { "int" "first_keycode" }
        { "int" "count" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XErrorEvent
        { "int" "type" }
        { "Display*" "display" }
        { "XID" "resourceid" }
        { "ulong" "serial" }
        { "uchar" "error_code" }
        { "uchar" "request_code" }
        { "uchar" "minor_code" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C-STRUCT: XKeymapEvent
        { "int" "type" }
        { "ulong" "serial" }
        { "Bool" "send_event" }
        { "Display*" "display" }
        { "Window" "window" }
        ! char key_vector[32];
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" }
        { "int" "pad" } ;

C-UNION: XEvent
        "int"
        "XAnyEvent"
        "XKeyEvent"
        "XButtonEvent"
        "XMotionEvent"
        "XCrossingEvent"
        "XFocusChangeEvent"
        "XExposeEvent"
        "XGraphicsExposeEvent"
        "XNoExposeEvent"
        "XVisibilityEvent"
        "XCreateWindowEvent"
        "XDestroyWindowEvent"
        "XUnmapEvent"
        "XMapEvent"
        "XMapRequestEvent"
        "XReparentEvent"
        "XConfigureEvent"
        "XGravityEvent"
        "XResizeRequestEvent"
        "XConfigureRequestEvent"
        "XCirculateEvent"
        "XCirculateRequestEvent"
        "XPropertyEvent"
        "XSelectionClearEvent"
        "XSelectionRequestEvent"
        "XSelectionEvent"
        "XColormapEvent"
        "XClientMessageEvent"
        "XMappingEvent"
        "XErrorEvent"
        "XKeymapEvent"
        { "long" 24 } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 11 - Event Handling Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

FUNCTION: Status XSelectInput ( Display* display, Window w, long event_mask ) ;
FUNCTION: Status XFlush ( Display* display ) ;
FUNCTION: Status XSync ( Display* display, int discard ) ;
FUNCTION: Status XNextEvent ( Display* display, XEvent* event ) ;
FUNCTION: Status XMaskEvent ( Display* display, long event_mask, XEvent* event_return ) ;

! 11.3 - Event Queue Management

: QueuedAlready 0 ; inline
: QueuedAfterReading 1 ; inline
: QueuedAfterFlush 2 ; inline

FUNCTION: int XEventsQueued ( Display* display, int mode ) ;
FUNCTION: int XPending ( Display* display ) ;

! 11.6 - Sending Events to Other Applications

FUNCTION: Status XSendEvent ( Display* display, Window w, Bool propagate, long event_mask, XEvent* event_send ) ;

! 11.8 - Handling Protocol Errors

FUNCTION: int XSetErrorHandler ( void* handler ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 12 - Input Device Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: None 0 ; inline

FUNCTION: int XGrabPointer (
  Display* display,
  Window grab_window,
  Bool owner_events,
  uint event_mask,
  int pointer_mode,
  int keyboard_mode,
  Window confine_to,
  Cursor cursor,
  Time time ) ;

FUNCTION: Status XUngrabPointer ( Display* display, Time time ) ;
FUNCTION: Status XChangeActivePointerGrab ( Display* display, uint event_mask, Cursor cursor, Time time ) ;
FUNCTION: Status XGrabKey ( Display* display, int keycode, uint modifiers, Window grab_window, Bool owner_events, int pointer_mode, int keyboard_mode ) ;
FUNCTION: Status XSetInputFocus ( Display* display, Window focus, int revert_to, Time time ) ;

FUNCTION: Status XGetInputFocus ( Display* display,
                                  Window*  focus_return,
                                  int*     revert_to_return ) ;

FUNCTION: Status XWarpPointer ( Display* display, Window src_w, Window dest_w, int src_x, int src_y, uint src_width, uint src_height, int dest_x, int dest_y ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 14 - Inter-Client Communication Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 14.1 Client to Window Manager Communication

FUNCTION: Status XFetchName ( Display* display, Window w, char** window_name_return ) ;
FUNCTION: Status XGetTransientForHint ( Display* display, Window w, Window* prop_window_return ) ;

! 14.1.1.  Manipulating Top-Level Windows

FUNCTION: Status XIconifyWindow (
        Display* display, Window w, int screen_number ) ;

FUNCTION: Status XWithdrawWindow (
        Display* display, Window w, int screen_number ) ;

! 14.1.6 - Setting and Reading the WM_HINTS Property

! 17.1.7 - Setting and Reading the WM_NORMAL_HINTS Property

: USPosition   ( -- n ) 0 2^ ; inline
: USSize       ( -- n ) 1 2^ ; inline
: PPosition    ( -- n ) 2 2^ ; inline
: PSize        ( -- n ) 3 2^ ; inline
: PMinSize     ( -- n ) 4 2^ ; inline
: PMaxSize     ( -- n ) 5 2^ ; inline
: PResizeInc   ( -- n ) 6 2^ ; inline
: PAspect      ( -- n ) 7 2^ ; inline
: PBaseSize    ( -- n ) 8 2^ ; inline
: PWinGravity  ( -- n ) 9 2^ ; inline
: PAllHints    ( -- n )
    { PPosition PSize PMinSize PMaxSize PResizeInc PAspect } flags ; foldable

C-STRUCT: XSizeHints
    { "long" "flags" }
    { "int" "x" }
    { "int" "y" }
    { "int" "width" }
    { "int" "height" }
    { "int" "min_width" }
    { "int" "min_height" }
    { "int" "max_width" }
    { "int" "max_height" }
    { "int" "width_inc" }
    { "int" "height_inc" }
    { "int" "min_aspect_x" }
    { "int" "min_aspect_y" }
    { "int" "max_aspect_x" }
    { "int" "max_aspect_y" }
    { "int" "base_width" }
    { "int" "base_height" }
    { "int" "win_gravity" } ;

! 14.1.10.  Setting and Reading the WM_PROTOCOLS Property

FUNCTION: Status XSetWMProtocols (
        Display* display, Window w, Atom* protocols, int count ) ;

FUNCTION: Status XGetWMProtocols (
        Display* display,
        Window w,
        Atom** protocols_return,
        int* count_return ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 16 - Application Utility Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! 16.1 Keyboard Utility Functions

FUNCTION: KeySym XLookupKeysym ( XKeyEvent* key_event, int index ) ;

FUNCTION: int XLookupString (
        XKeyEvent* event_struct,
        void* buffer_return,
        int bytes_buffer,
        KeySym* keysym_return,
        XComposeStatus* status_in_out ) ;

! 16.7 Determining the Appropriate Visual Type

CONSTANT: VisualNoMask                  HEX: 0
CONSTANT: VisualIDMask                  HEX: 1
CONSTANT: VisualScreenMask              HEX: 2
CONSTANT: VisualDepthMask               HEX: 4
CONSTANT: VisualClassMask               HEX: 8
CONSTANT: VisualRedMaskMask             HEX: 10
CONSTANT: VisualGreenMaskMask           HEX: 20
CONSTANT: VisualBlueMaskMask            HEX: 40
CONSTANT: VisualColormapSizeMask        HEX: 80
CONSTANT: VisualBitsPerRGBMask          HEX: 100
CONSTANT: VisualAllMask                 HEX: 1FF

C-STRUCT: XVisualInfo
        { "Visual*" "visual" }
        { "VisualID" "visualid" }
        { "int" "screen" }
        { "uint" "depth" }
        { "int" "class" }
        { "ulong" "red_mask" }
        { "ulong" "green_mask" }
        { "ulong" "blue_mask" }
        { "int" "colormap_size" }
        { "int" "bits_per_rgb" } ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Appendix D - Compatibility Functions
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

FUNCTION: Status XSetStandardProperties (
        Display* display,
        Window w,
        char* window_name,
        char* icon_name,
        Pixmap icon_pixmap,
        char** argv,
        int argc,
        XSizeHints* hints ) ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

CONSTANT: XA_PRIMARY  1
CONSTANT: XA_SECONDARY 2
CONSTANT: XA_ARC 3
CONSTANT: XA_ATOM 4
CONSTANT: XA_BITMAP 5
CONSTANT: XA_CARDINAL 6
CONSTANT: XA_COLORMAP 7
CONSTANT: XA_CURSOR 8
CONSTANT: XA_CUT_BUFFER0 9
CONSTANT: XA_CUT_BUFFER1 10
CONSTANT: XA_CUT_BUFFER2 11
CONSTANT: XA_CUT_BUFFER3 12
CONSTANT: XA_CUT_BUFFER4 13
CONSTANT: XA_CUT_BUFFER5 14
CONSTANT: XA_CUT_BUFFER6 15
CONSTANT: XA_CUT_BUFFER7 16
CONSTANT: XA_DRAWABLE 17
CONSTANT: XA_FONT 18
CONSTANT: XA_INTEGER 19
CONSTANT: XA_PIXMAP 20
CONSTANT: XA_POINT 21
CONSTANT: XA_RECTANGLE 22
CONSTANT: XA_RESOURCE_MANAGER 23
CONSTANT: XA_RGB_COLOR_MAP 24
CONSTANT: XA_RGB_BEST_MAP 25
CONSTANT: XA_RGB_BLUE_MAP 26
CONSTANT: XA_RGB_DEFAULT_MAP 27
CONSTANT: XA_RGB_GRAY_MAP 28
CONSTANT: XA_RGB_GREEN_MAP 29
CONSTANT: XA_RGB_RED_MAP 30
CONSTANT: XA_STRING 31
CONSTANT: XA_VISUALID 32
CONSTANT: XA_WINDOW 33
CONSTANT: XA_WM_COMMAND 34
CONSTANT: XA_WM_HINTS 35
CONSTANT: XA_WM_CLIENT_MACHINE 36
CONSTANT: XA_WM_ICON_NAME 37
CONSTANT: XA_WM_ICON_SIZE 38
CONSTANT: XA_WM_NAME 39
CONSTANT: XA_WM_NORMAL_HINTS 40
CONSTANT: XA_WM_SIZE_HINTS 41
CONSTANT: XA_WM_ZOOM_HINTS 42
CONSTANT: XA_MIN_SPACE 43
CONSTANT: XA_NORM_SPACE 44
CONSTANT: XA_MAX_SPACE 45
CONSTANT: XA_END_SPACE 46
CONSTANT: XA_SUPERSCRIPT_X 47
CONSTANT: XA_SUPERSCRIPT_Y 48
CONSTANT: XA_SUBSCRIPT_X 49
CONSTANT: XA_SUBSCRIPT_Y 50
CONSTANT: XA_UNDERLINE_POSITION 51
CONSTANT: XA_UNDERLINE_THICKNESS 52
CONSTANT: XA_STRIKEOUT_ASCENT 53
CONSTANT: XA_STRIKEOUT_DESCENT 54
CONSTANT: XA_ITALIC_ANGLE 55
CONSTANT: XA_X_HEIGHT 56
CONSTANT: XA_QUAD_WIDTH 57
CONSTANT: XA_WEIGHT 58
CONSTANT: XA_POINT_SIZE 59
CONSTANT: XA_RESOLUTION 60
CONSTANT: XA_COPYRIGHT 61
CONSTANT: XA_NOTICE 62
CONSTANT: XA_FONT_NAME 63
CONSTANT: XA_FAMILY_NAME 64
CONSTANT: XA_FULL_NAME 65
CONSTANT: XA_CAP_HEIGHT 66
CONSTANT: XA_WM_CLASS 67
CONSTANT: XA_WM_TRANSIENT_FOR 68

CONSTANT: XA_LAST_PREDEFINED 68
    
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! The rest of the stuff is not from the book.
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

FUNCTION: void XFree ( void* data ) ;
FUNCTION: int XStoreName ( Display* display, Window w, char* window_name ) ;
FUNCTION: void XSetWMNormalHints ( Display* display, Window w, XSizeHints* hints ) ;
FUNCTION: int XBell ( Display* display, int percent ) ;

! !!! INPUT METHODS

CONSTANT: XIMPreeditArea      HEX: 0001
CONSTANT: XIMPreeditCallbacks HEX: 0002
CONSTANT: XIMPreeditPosition  HEX: 0004
CONSTANT: XIMPreeditNothing   HEX: 0008
CONSTANT: XIMPreeditNone      HEX: 0010
CONSTANT: XIMStatusArea       HEX: 0100
CONSTANT: XIMStatusCallbacks  HEX: 0200
CONSTANT: XIMStatusNothing    HEX: 0400
CONSTANT: XIMStatusNone       HEX: 0800

CONSTANT: XNVaNestedList "XNVaNestedList"
CONSTANT: XNQueryInputStyle "queryInputStyle"
CONSTANT: XNClientWindow "clientWindow"
CONSTANT: XNInputStyle "inputStyle"
CONSTANT: XNFocusWindow "focusWindow"
CONSTANT: XNResourceName "resourceName"
CONSTANT: XNResourceClass "resourceClass"
CONSTANT: XNGeometryCallback "geometryCallback"
CONSTANT: XNDestroyCallback "destroyCallback"
CONSTANT: XNFilterEvents "filterEvents"
CONSTANT: XNPreeditStartCallback "preeditStartCallback"
CONSTANT: XNPreeditDoneCallback "preeditDoneCallback"
CONSTANT: XNPreeditDrawCallback "preeditDrawCallback"
CONSTANT: XNPreeditCaretCallback "preeditCaretCallback"
CONSTANT: XNPreeditStateNotifyCallback "preeditStateNotifyCallback"
CONSTANT: XNPreeditAttributes "preeditAttributes"
CONSTANT: XNStatusStartCallback "statusStartCallback"
CONSTANT: XNStatusDoneCallback "statusDoneCallback"
CONSTANT: XNStatusDrawCallback "statusDrawCallback"
CONSTANT: XNStatusAttributes "statusAttributes"
CONSTANT: XNArea "area"
CONSTANT: XNAreaNeeded "areaNeeded"
CONSTANT: XNSpotLocation "spotLocation"
CONSTANT: XNColormap "colorMap"
CONSTANT: XNStdColormap "stdColorMap"
CONSTANT: XNForeground "foreground"
CONSTANT: XNBackground "background"
CONSTANT: XNBackgroundPixmap "backgroundPixmap"
CONSTANT: XNFontSet "fontSet"
CONSTANT: XNLineSpace "lineSpace"
CONSTANT: XNCursor "cursor"

CONSTANT: XNQueryIMValuesList "queryIMValuesList"
CONSTANT: XNQueryICValuesList "queryICValuesList"
CONSTANT: XNVisiblePosition "visiblePosition"
CONSTANT: XNR6PreeditCallback "r6PreeditCallback"
CONSTANT: XNStringConversionCallback "stringConversionCallback"
CONSTANT: XNStringConversion "stringConversion"
CONSTANT: XNResetState "resetState"
CONSTANT: XNHotKey "hotKey"
CONSTANT: XNHotKeyState "hotKeyState"
CONSTANT: XNPreeditState "preeditState"
CONSTANT: XNSeparatorofNestedList "separatorofNestedList"

CONSTANT: XBufferOverflow -1
CONSTANT: XLookupNone      1
CONSTANT: XLookupChars     2
CONSTANT: XLookupKeySym    3
CONSTANT: XLookupBoth      4

FUNCTION: Bool XFilterEvent ( XEvent* event, Window w ) ;

FUNCTION: XIM XOpenIM ( Display* dpy, void* rdb, char* res_name, char* res_class ) ;

FUNCTION: Status XCloseIM ( XIM im ) ;

FUNCTION: XIC XCreateIC ( XIM im, char* key1, Window value1, char* key2, Window value2, char* key3, int value3, char* key4, char* value4, char* key5, char* value5, int key6 ) ;

FUNCTION: void XDestroyIC ( XIC ic ) ;

FUNCTION: void XSetICFocus ( XIC ic ) ;
        
FUNCTION: void XUnsetICFocus ( XIC ic ) ;

FUNCTION: int XwcLookupString ( XIC ic, XKeyPressedEvent* event, ulong* buffer_return, int bytes_buffer, KeySym* keysym_return, Status* status_return ) ;

FUNCTION: int Xutf8LookupString ( XIC ic, XKeyPressedEvent* event, char* buffer_return, int bytes_buffer, KeySym* keysym_return, Status* status_return ) ;

! !!! category of setlocale
CONSTANT: LC_ALL      0
CONSTANT: LC_COLLATE  1
CONSTANT: LC_CTYPE    2
CONSTANT: LC_MONETARY 3
CONSTANT: LC_NUMERIC  4
CONSTANT: LC_TIME     5

FUNCTION: char* setlocale ( int category, char* name ) ;

FUNCTION: Bool XSupportsLocale ( ) ;

FUNCTION: char* XSetLocaleModifiers ( char* modifier_list ) ;

SYMBOL: dpy
SYMBOL: scr
SYMBOL: root

: init-locale ( -- )
   LC_ALL "" setlocale [ "setlocale() failed" print flush ] unless
   XSupportsLocale [ "XSupportsLocale() failed" print flush ] unless ;

: flush-dpy ( -- ) dpy get XFlush drop ;

: x-atom ( string -- atom ) dpy get swap 0 XInternAtom ;

: check-display ( alien -- alien' )
    [
        "Cannot connect to X server - check $DISPLAY" throw
    ] unless* ;

: initialize-x ( display-string -- )
    init-locale
    dup [ ascii string>alien ] when
    XOpenDisplay check-display dpy set-global
    dpy get XDefaultScreen scr set-global
    dpy get scr get XRootWindow root set-global ;

: close-x ( -- ) dpy get XCloseDisplay drop ;

: with-x ( display-string quot -- )
    [ initialize-x ] dip [ close-x ] [ ] cleanup ;