steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor fixes in contrib/x11

darcs
wayo.cavazos 2006-02-23 23:28:30 +00:00
parent 6fcc4972e3
commit b0524db827
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/x11/x.factor
View File

@ -230,7 +230,8 @@ dup length 1 - [ swap 2nth draw-line ] each-with ;
: sync-dpy ( discard -- ) >r dpy get r> XSync ;
: next-event ( -- event ) dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
: next-event ( -- event )
dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
: mask-event ( mask -- event )
>r dpy get r> "XEvent" <c-object> dup >r XMaskEvent drop r> ;
@ -283,7 +284,6 @@ dup length 1 - [ swap 2nth draw-line ] each-with ;
: destroy-window+ [ destroy-window ] with-win ;
: map-window+ [ map-window ] with-win ;
: unmap-window+ [ unmap-window ] with-win ;
: valid-window?+ [ valid-window? ] with-win ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -337,6 +337,8 @@ dup length 1 - [ swap 2nth draw-line ] each-with ;
: valid-window? ( -- ? )
dpy get win get "XWindowAttributes" <c-object> XGetWindowAttributes 0 = not ;
: valid-window?+ [ valid-window? ] with-win ;
: mouse-sensor ( -- { root-x root-y } )
dpy get win get 0 <Window> 0 <Window> 0 <int> 0 <int> 2dup >r >r
0 <int> 0 <int> 0 <uint> XQueryPointer drop r> *int r> *int 2array ;

6
contrib/x11/xlib.factor
View File

@ -967,11 +967,11 @@ END-STRUCT
BEGIN-STRUCT: XErrorEvent
FIELD: int type
FIELD: Display* display
FIELD: XID resourceid
FIELD: ulong serial
FIELD: uchar error_code
FIELD: uchar request_code
FIELD: uchar minor_code
FIELD: XID resourceid
END-STRUCT
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -1091,6 +1091,10 @@ FUNCTION: int XPending ( Display* display ) ;
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
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!