--- /dev/null
+! Eduardo Cavazos - wayo.cavazos@gmail.com
+!
+! 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.
+
+IN: xlib
+USE: alien
+USE: math
+LIBRARY: xlib
+
+! "X11" "libX11.so" "cdecl" add-library
+
+"xlib" "libX11.so" "cdecl" add-library
+
+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: void* Display*
+TYPEDEF: void* Screen*
+TYPEDEF: void* GC
+TYPEDEF: void* Visual*
+TYPEDEF: void* XExtData*
+TYPEDEF: void* XFontProp*
+
+TYPEDEF: int Status
+
+TYPEDEF: int Bool
+
+TYPEDEF: ulong Time
+
+!
+! 2 - Display Functions
+!
+
+FUNCTION: Display* XOpenDisplay ( char* 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 ) ;
+
+!
+! 3 - Window Functions
+!
+
+! 3.2 - Window Attributes
+
+: CWBackPixmap 1 0 shift ;
+: CWBackPixel 1 1 shift ;
+: CWBorderPixmap 1 2 shift ;
+: CWBorderPixel 1 3 shift ;
+: CWBitGravity 1 4 shift ;
+: CWWinGravity 1 5 shift ;
+: CWBackingStore 1 6 shift ;
+: CWBackingPlanes 1 7 shift ;
+: CWBackingPixel 1 8 shift ;
+: CWOverrideRedirect 1 9 shift ;
+: CWSaveUnder 1 10 shift ;
+: CWEventMask 1 11 shift ;
+: CWDontPropagate 1 12 shift ;
+: CWColormap 1 13 shift ;
+: CWCursor 1 14 shift ;
+
+BEGIN-STRUCT: XSetWindowAttributes
+ FIELD: Pixmap background_pixmap
+ FIELD: ulong background_pixel
+ FIELD: Pixmap border_pixmap
+ FIELD: ulong border_pixel
+ FIELD: int bit_gravity
+ FIELD: int win_gravity
+ FIELD: int backing_store
+ FIELD: ulong backing_planes
+ FIELD: ulong backing_pixel
+ FIELD: Bool save_under
+ FIELD: long event_mask
+ FIELD: long do_not_propagate_mask
+ FIELD: Bool override_redirect
+ FIELD: Colormap colormap
+ FIELD: Cursor cursor
+END-STRUCT
+
+: UnmapGravity 0 ;
+
+: ForgetGravity 0 ;
+: NorthWestGravity 1 ;
+: NorthGravity 2 ;
+: NorthEastGravity 3 ;
+: WestGravity 4 ;
+: CenterGravity 5 ;
+: EastGravity 6 ;
+: SouthWestGravity 7 ;
+: SouthGravity 8 ;
+: SouthEastGravity 9 ;
+: StaticGravity 10 ;
+
+! 3.3 - Creating Windows
+
+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.7 - Configuring Windows
+
+: CWX 1 0 shift ;
+: CWY 1 1 shift ;
+: CWWidth 1 2 shift ;
+: CWHeight 1 3 shift ;
+: CWBorderWidth 1 4 shift ;
+: CWSibling 1 5 shift ;
+: CWStackMode 1 6 shift ;
+
+BEGIN-STRUCT: XWindowChanges
+ FIELD: int x
+ FIELD: int y
+ FIELD: int width
+ FIELD: int height
+ FIELD: int border_width
+ FIELD: Window sibling
+ FIELD: int stack_mode
+END-STRUCT
+
+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
+!
+
+FUNCTION: Status XQueryTree ( Display* display, Window w, Window* root_return, Window* parent_return, Window** children_return, uint* nchildren_return ) ;
+
+BEGIN-STRUCT: XWindowAttributes
+ FIELD: int x
+ FIELD: int y
+ FIELD: int width
+ FIELD: int height
+ FIELD: int border_width
+ FIELD: int depth
+ FIELD: Visual* visual
+ FIELD: Window root
+ FIELD: int class
+ FIELD: int bit_gravity
+ FIELD: int win_gravity
+ FIELD: int backing_store
+ FIELD: ulong backing_planes
+ FIELD: ulong backing_pixel
+ FIELD: Bool save_under
+ FIELD: Colormap colormap
+ FIELD: Bool map_installed
+ FIELD: int map_state
+ FIELD: long all_event_masks
+ FIELD: long your_event_mask
+ FIELD: long do_not_propagate_mask
+ FIELD: Bool override_redirect
+ FIELD: Screen* screen
+END-STRUCT
+
+FUNCTION: Status XGetWindowAttributes ( Display* display, Window w, XWindowAttributes* attr ) ;
+
+: IsUnmapped 0 ;
+: IsUnviewable 1 ;
+: IsViewable 2 ;
+
+FUNCTION: boolean 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 ) ;
+
+!
+! 6 - Color Management Functions
+!
+
+BEGIN-STRUCT: XColor
+ FIELD: ulong pixel
+ FIELD: ushort red
+ FIELD: ushort green
+ FIELD: ushort blue
+ FIELD: char flags
+ FIELD: char pad
+END-STRUCT
+
+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 ) ;
+
+!
+! 7 - Graphics Context Functions
+!
+
+: GCFunction 1 0 shift ;
+: GCPlaneMask 1 1 shift ;
+: GCForeground 1 2 shift ;
+: GCBackground 1 3 shift ;
+: GCLineWidth 1 4 shift ;
+: GCLineStyle 1 5 shift ;
+: GCCapStyle 1 6 shift ;
+: GCJoinStyle 1 7 shift ;
+: GCFillStyle 1 8 shift ;
+: GCFillRule 1 9 shift ;
+: GCTile 1 10 shift ;
+: GCStipple 1 11 shift ;
+: GCTileStipXOrigin 1 12 shift ;
+: GCTileStipYOrigin 1 13 shift ;
+: GCFont 1 14 shift ;
+: GCSubwindowMode 1 15 shift ;
+: GCGraphicsExposures 1 16 shift ;
+: GCClipXOrigin 1 17 shift ;
+: GCClipYOrigin 1 18 shift ;
+: GCClipMask 1 19 shift ;
+: GCDashOffset 1 20 shift ;
+: GCDashList 1 21 shift ;
+: GCArcMode 1 22 shift ;
+
+: GXclear HEX: 0 ;
+: GXand HEX: 1 ;
+: GXandReverse HEX: 2 ;
+: GXcopy HEX: 3 ;
+: GXandInverted HEX: 4 ;
+: GXnoop HEX: 5 ;
+: GXxor HEX: 6 ;
+: GXor HEX: 7 ;
+: GXnor HEX: 8 ;
+: GXequiv HEX: 9 ;
+: GXinvert HEX: a ;
+: GXorReverse HEX: b ;
+: GXcopyInverted HEX: c ;
+: GXorInverted HEX: d ;
+: GXnand HEX: e ;
+: GXset HEX: f ;
+
+BEGIN-STRUCT: XGCValues
+ FIELD: int function
+ FIELD: ulong plane_mask
+ FIELD: ulong foreground
+ FIELD: ulong background
+ FIELD: int line_width
+ FIELD: int line_style
+ FIELD: int cap_style
+ FIELD: int join_style
+ FIELD: int fill_style
+ FIELD: int fill_rule
+ FIELD: int arc_mode
+ FIELD: Pixmap tile
+ FIELD: Pixmap stipple
+ FIELD: int ts_x_origin
+ FIELD: int ts_y_origin
+ FIELD: Font font
+ FIELD: int subwindow_mode
+ FIELD: Bool graphics_exposures
+ FIELD: int clip_x_origin
+ FIELD: int clip_y_origin
+ FIELD: Pixmap clip_mask
+ FIELD: int dash_offset
+ FIELD: char dashes
+END-STRUCT
+
+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 ) ;
+
+: ClipByChildren 0 ;
+: IncludeInferiors 1 ;
+
+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
+
+BEGIN-STRUCT: XCharStruct
+ FIELD: short lbearing;
+ FIELD: short rbearing;
+ FIELD: short width;
+ FIELD: short ascent;
+ FIELD: short descent;
+ FIELD: ushort attributes;
+END-STRUCT
+
+FUNCTION: Font XLoadFont ( Display* display, char* name ) ;
+FUNCTION: XFontStruct* XLoadQueryFont ( Display* display, char* name ) ;
+
+BEGIN-STRUCT: XFontStruct
+ FIELD: XExtData* ext_data
+ FIELD: Font fid
+ FIELD: uint direction
+ FIELD: uint min_char_or_byte2
+ FIELD: uint max_char_or_byte2
+ FIELD: uint min_byte1
+ FIELD: uint max_byte1
+ FIELD: Bool all_chars_exist
+ FIELD: uint default_char
+ FIELD: int n_properties
+ FIELD: XFontProp* properties
+ FIELD: XCharStruct min_bounds
+ FIELD: XCharStruct max_bounds
+ FIELD: XCharStruct* per_char
+ FIELD: int ascent
+ FIELD: int descent
+END-STRUCT
+
+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 ) ;
+
+!
+! 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 0 ;
+: KeyPressMask 1 0 shift ;
+: KeyReleaseMask 1 1 shift ;
+: ButtonPressMask 1 2 shift ;
+: ButtonReleaseMask 1 3 shift ;
+: EnterWindowMask 1 4 shift ;
+: LeaveWindowMask 1 5 shift ;
+: PointerMotionMask 1 6 shift ;
+: PointerMotionHintMask 1 7 shift ;
+: Button1MotionMask 1 8 shift ;
+: Button2MotionMask 1 9 shift ;
+: Button3MotionMask 1 10 shift ;
+: Button4MotionMask 1 11 shift ;
+: Button5MotionMask 1 12 shift ;
+: ButtonMotionMask 1 13 shift ;
+: KeymapStateMask 1 14 shift ;
+: ExposureMask 1 15 shift ;
+: VisibilityChangeMask 1 16 shift ;
+: StructureNotifyMask 1 17 shift ;
+: ResizeRedirectMask 1 18 shift ;
+: SubstructureNotifyMask 1 19 shift ;
+: SubstructureRedirectMask 1 20 shift ;
+: FocusChangeMask 1 21 shift ;
+: PropertyChangeMask 1 22 shift ;
+: ColormapChangeMask 1 23 shift ;
+: OwnerGrabButtonMask 1 24 shift ;
+
+: KeyPress 2 ;
+: KeyRelease 3 ;
+: ButtonPress 4 ;
+: ButtonRelease 5 ;
+: MotionNotify 6 ;
+: EnterNotify 7 ;
+: LeaveNotify 8 ;
+: FocusIn 9 ;
+: FocusOut 10 ;
+: KeymapNotify 11 ;
+: Expose 12 ;
+: GraphicsExpose 13 ;
+: NoExpose 14 ;
+: VisibilityNotify 15 ;
+: CreateNotify 16 ;
+: DestroyNotify 17 ;
+: UnmapNotify 18 ;
+: MapNotify 19 ;
+: MapRequest 20 ;
+: ReparentNotify 21 ;
+: ConfigureNotify 22 ;
+: ConfigureRequest 23 ;
+: GravityNotify 24 ;
+: ResizeRequest 25 ;
+: CirculateNotify 26 ;
+: CirculateRequest 27 ;
+: PropertyNotify 28 ;
+: SelectionClear 29 ;
+: SelectionRequest 30 ;
+: SelectionNotify 31 ;
+: ColormapNotify 32 ;
+: ClientMessage 33 ;
+: MappingNotify 34 ;
+: LASTEvent 35 ;
+
+
+
+BEGIN-STRUCT: XAnyEvent
+ FIELD: int type
+ FIELD: ulong serial
+ FIELD: Bool send_event
+ FIELD: Display* display
+ FIELD: Window window
+END-STRUCT
+
+BEGIN-STRUCT: XButtonEvent
+ FIELD: int type
+ FIELD: ulong serial
+ FIELD: Bool send_event
+ FIELD: Display* display
+ FIELD: Window window
+ FIELD: Window root
+ FIELD: Window subwindow
+ FIELD: Time time
+ FIELD: int x
+ FIELD: int y
+ FIELD: int x_root
+ FIELD: int y_root
+ FIELD: uint state
+ FIELD: uint button
+ FIELD: Bool same_screen
+END-STRUCT
+
+TYPEDEF: XButtonEvent XButtonPressedEvent
+TYPEDEF: XButtonEvent XButtonReleasedEvent
+
+! BEGIN-UNION: XEvent
+! int type;
+! XAnyEvent xany;
+! XKeyEvent xkey;
+! XButtonEvent xbutton;
+! XMotionEvent xmotion;
+! XCrossingEvent xcrossing;
+! XFocusChangeEvent xfocus;
+! XExposeEvent xexpose;
+! XGraphicsExposeEvent xgraphicsexpose;
+! XNoExposeEvent xnoexpose;
+! XVisibilityEvent xvisibility;
+! XCreateWindowEvent xcreatewindow;
+! XDestroyWindowEvent xdestroywindow;
+! XUnmapEvent xunmap;
+! XMapEvent xmap;
+! XMapRequestEvent xmaprequest;
+! XReparentEvent xreparent;
+! XConfigureEvent xconfigure;
+! XGravityEvent xgravity;
+! XResizeRequestEvent xresizerequest;
+! XConfigureRequestEvent xconfigurerequest;
+! XCirculateEvent xcirculate;
+! XCirculateRequestEvent xcirculaterequest;
+! XPropertyEvent xproperty;
+! XSelectionClearEvent xselectionclear;
+! XSelectionRequestEvent xselectionrequest;
+! XSelectionEvent xselection;
+! XColormapEvent xcolormap;
+! XClientMessageEvent xclient;
+! XMappingEvent xmapping;
+! XErrorEvent xerror;
+! XKeymapEvent xkeymap;
+! long pad[24];
+! END-UNION
+
+BEGIN-UNION: XEvent
+ MEMBER: int
+ MEMBER: XAnyEvent
+! MEMBER: XKeyEvent
+ MEMBER: XButtonEvent
+! MEMBER: XMotionEvent
+! MEMBER: XCrossingEvent
+! MEMBER: XFocusChangeEvent
+! MEMBER: XExposeEvent
+! MEMBER: XGraphicsExposeEvent
+! MEMBER: XNoExposeEvent
+! MEMBER: XVisibilityEvent
+! MEMBER: XCreateWindowEvent
+! MEMBER: XDestroyWindowEvent
+! MEMBER: XUnmapEvent
+! MEMBER: XMapEvent
+! MEMBER: XMapRequestEvent
+! MEMBER: XReparentEvent
+! MEMBER: XConfigureEvent
+! MEMBER: XGravityEvent
+! MEMBER: XResizeRequestEvent
+! MEMBER: XConfigureRequestEvent
+! MEMBER: XCirculateEvent
+! MEMBER: XCirculateRequestEvent
+! MEMBER: XPropertyEvent
+! MEMBER: XSelectionClearEvent
+! MEMBER: XSelectionRequestEvent
+! MEMBER: XSelectionEvent
+! MEMBER: XColormapEvent
+! MEMBER: XClientMessageEvent
+! MEMBER: XMappingEvent
+! MEMBER: XErrorEvent
+! MEMBER: XKeymapEvent
+! long pad[24];
+END-UNION
+
+!
+! 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: int XPending ( Display* display ) ;
+FUNCTION: Status XNextEvent ( Display* display, XEvent* event ) ;
+FUNCTION: Status XMaskEvent ( Display* display, long event_mask, XEvent* event_return ) ;
+
+!
+! 12 - Input Device Functions
+!
+
+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 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
+!
+
+FUNCTION: Status XFetchName ( Display* display, Window w, char** window_name_return ) ;
+FUNCTION: Status XGetTransientForHint ( Display* display, Window w, Window* prop_window_return ) ;
+
+!
+! 16 - Application Utility Functions
+!
+
+FUNCTION: int XLookupString ( XKeyEvent* event_struct, char* buffer_return, int bytes_buffer, KeySym* keysym_return, XComposeStatus* status_in_out ) ;
--- /dev/null
+
+IN: xobj
+USING: kernel namespaces lists sequences xlib ;
+
+SYMBOL: dpy
+SYMBOL: scr
+SYMBOL: root
+
+TUPLE: window display id ;
+
+: raw-window ( <window> -- display id )
+dup window-display swap window-id ;
+
+: open-display ( string-or-f -- )
+XOpenDisplay dpy set ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! 3.3 - Creating Windows
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! : create-window* ( -- <window> )
+! dpy get root get 0 0 100 100 10 "black" get "white" get XCreateSimpleWindow
+! dpy get swap <window> ;
+
+: create-window ( dpy parent -- <window> )
+swap dup rot
+0 0 100 100 10 "black" get "white" get XCreateSimpleWindow
+<window> ;
+
+: create-window* ( -- win )
+dpy get root get 0 0 100 100 10 "black" get "white" get XCreateSimpleWindow ;
+
+: destroy-window ( <window> -- )
+raw-window XDestroyWindow drop ;
+
+: map-window ( <window> -- )
+raw-window XMapWindow drop ;
+
+: map-window* ( -- )
+dpy get win get XMapWindow drop ;
+
+: map-subwindows ( <window> -- )
+raw-window XMapSubwindows drop ;
+
+: unmap-window ( <window> -- )
+raw-window XUnmapWindow drop ;
+
+: flush-window ( <window> -- )
+window-display XFlush drop ;
+
+: flush-dpy ( -- )
+dpy get XFlush drop ;
+
+: reparent ( window parent -- )
+swap raw-window rot window-id 0 0 XReparentWindow ;
+
+: lookup-color ( name -- pixel ) ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! 3.7 - Configuring Windows
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: move-window ( <window> x y -- )
+>r >r raw-window r> r> XMoveWindow drop ;
+
+: resize-window ( <window> width height -- )
+>r >r raw-window r> r> XResizeWindow drop ;
+
+: resize-window* ( width height -- )
+>r >r dpy get win get r> r> XResizeWindow drop ;
+
+: set-border-width ( <window> width -- )
+swap raw-window rot XSetWindowBorderWidth drop ;
+
+! 3.8 Changing Window Stacking Order
+
+: raise-window ( <window> -- ) raw-window XRaiseWindow drop ;
+: lower-window ( <window> -- ) raw-window XLowerWindow drop ;
+
+! 3.9 - Changing Window Attributes
+
+: sattr-background-pixel ( val -- sattr )
+<XSetWindowAttributes> dup -rot set-XSetWindowAttributes-background_pixel ;
+
+: set-window-background-pixel ( <window> pixel -- )
+swap raw-window rot CWBackPixel swap sattr-background-pixel
+XChangeWindowAttributes drop ;
+
+! 4 - Window Information Functions
+
+: XGetWindowAttributes* ( <window> -- attr )
+raw-window <XWindowAttributes> dup >r XGetWindowAttributes drop r> ;
+
+: window-x XGetWindowAttributes* XWindowAttributes-x ;
+: window-y XGetWindowAttributes* XWindowAttributes-y ;
+: window-width XGetWindowAttributes* XWindowAttributes-width ;
+: window-height XGetWindowAttributes* XWindowAttributes-height ;
+
+! 8 - Graphics Functions
+
+SYMBOL: win
+SYMBOL: gcontext
+
+: clear-window ( <window> -- )
+raw-window XClearWindow ;
+
+: clear-window* ( -- )
+dpy get win get XClearWindow drop ;
+
+
+: draw-point ( <window> gc x y -- )
+>r >r >r raw-window r> r> r> XDrawPoint drop ;
+
+: draw-point* ( { x y } -- )
+>r dpy get win get gcontext get r> [ ] each XDrawPoint drop ;
+
+: draw-line ( <window> gc x1 y1 x2 y2 -- )
+>r >r >r >r >r raw-window r> r> r> r> r> XDrawLine drop ;
+
+! 8.6 - Drawing Text
+
+: draw-string ( <window> gc x y string -- )
+>r >r >r >r raw-window r> r> r> r> dup length XDrawString drop ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! 9 - Window and Session Manager Functions
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: reparent-window ( window parent -- )
+>r raw-window r> window-id 0 0 XReparentWindow drop ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! 11 - Event Handling Functions
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: select-input ( <window> mask -- )
+>r raw-window r> XSelectInput drop ;
+
+: flush-window ( <window> -- )
+window-display XFlush drop ;
+
+! : next-event ( dpy -- event )
+! <XEvent> dup >r XNextEvent drop r> ;
+
+: next-event ( -- event )
+dpy get <XEvent> dup >r XNextEvent drop r> ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Not Categorized Yet
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: with-window ( window quot -- ) [ swap window set call ] with-scope ; inline
+
+: initialize-x ( display-string -- )
+ XOpenDisplay dpy set
+ dpy get XDefaultScreen scr set
+ dpy get scr get XRootWindow root set
+ dpy get scr get XBlackPixel "black" set
+ dpy get scr get XWhitePixel "white" set
+ dpy get scr get XDefaultGC gcontext set ;
\ No newline at end of file
projects / factor.git / commitdiff