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

darcs
wayo.cavazos 2006-02-03 08:49:40 +00:00
parent 4dddde986d
commit e151a60e95
2 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
contrib/x11/x-constants.factor
View File

@ -1,13 +1,13 @@
! Based on X.h
IN: x11
USING: alien math ;
USING: alien math ; IN: xlib
TYPEDEF: ulong Mask
TYPEDEF: ulong Atom
TYPEDEF: uchar KeyCode
! Reserved Resource and Constant Definitions
: None 0 ;
: ParentRelative 1 ;
: CopyFromParent 0 ;
: PointerWindow 0 ;
@ -23,14 +23,6 @@ TYPEDEF: uchar KeyCode
! Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,
! state in various key-, mouse-, and button-related events.
: ShiftMask 1 0 shift ;
: LockMask 1 1 shift ;
: ControlMask 1 2 shift ;
: Mod1Mask 1 3 shift ;
: Mod2Mask 1 4 shift ;
: Mod3Mask 1 5 shift ;
: Mod4Mask 1 6 shift ;
: Mod5Mask 1 7 shift ;
! modifier names. Used to build a SetModifierMapping request or
! to read a GetModifierMapping request. These correspond to the
@ -48,11 +40,6 @@ TYPEDEF: uchar KeyCode
! button masks. Used in same manner as Key masks above. Not to be confused
! with button names below.
: Button1Mask 1 8 shift ;
: Button2Mask 1 9 shift ;
: Button3Mask 1 10 shift ;
: Button4Mask 1 11 shift ;
: Button5Mask 1 12 shift ;
: AnyModifier 1 15 shift ; ! used in GrabButton, GrabKey
@ -60,12 +47,6 @@ TYPEDEF: uchar KeyCode
! and ButtonRelease events. Not to be confused with button masks above.
! Note that 0 is already defined above as "AnyButton".
: Button1 1 ;
: Button2 2 ;
: Button3 3 ;
: Button4 4 ;
: Button5 5 ;
! Notify modes
: NotifyNormal 0 ;

19
contrib/x11/xlib.factor
View File

@ -9,7 +9,7 @@
! 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 USING: kernel arrays alien math words sequences ;
USING: kernel arrays alien math words sequences ; IN: xlib
LIBRARY: xlib
@ -512,12 +512,29 @@ END-STRUCT
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 10.5 Keyboard and Pointer Events
: Button1 1 ;
: Button2 2 ;
: Button3 3 ;
: Button4 4 ;
: Button5 5 ;
: Button1Mask 1 8 shift ;
: Button2Mask 1 9 shift ;
: Button3Mask 1 10 shift ;
: Button4Mask 1 11 shift ;
: Button5Mask 1 12 shift ;
: ShiftMask 1 0 shift ;
: LockMask 1 1 shift ;
: ControlMask 1 2 shift ;
: Mod1Mask 1 3 shift ;
: Mod2Mask 1 4 shift ;
: Mod3Mask 1 5 shift ;
: Mod4Mask 1 6 shift ;
: Mod5Mask 1 7 shift ;
BEGIN-STRUCT: XButtonEvent
FIELD: int type
FIELD: ulong serial