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

fix case in x11

db4
Doug Coleman 2008-04-11 12:58:50 -05:00
parent 484f765566
commit ee25d53bbd
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/x11/events/events.factor
View File

@ -52,20 +52,20 @@ GENERIC: client-event ( event window -- )
: handle-event ( event window -- ) : handle-event ( event window -- )
over XAnyEvent-type { over XAnyEvent-type {
{ \ Expose [ expose-event ] } { Expose [ expose-event ] }
{ \ ConfigureNotify [ configure-event ] } { ConfigureNotify [ configure-event ] }
{ \ ButtonPress [ button-down-event$ ] } { ButtonPress [ button-down-event$ ] }
{ \ ButtonRelease [ button-up-event$ ] } { ButtonRelease [ button-up-event$ ] }
{ \ EnterNotify [ enter-event ] } { EnterNotify [ enter-event ] }
{ \ LeaveNotify [ leave-event ] } { LeaveNotify [ leave-event ] }
{ \ MotionNotify [ motion-event ] } { MotionNotify [ motion-event ] }
{ \ KeyPress [ key-down-event ] } { KeyPress [ key-down-event ] }
{ \ KeyRelease [ key-up-event ] } { KeyRelease [ key-up-event ] }
{ \ FocusIn [ focus-in-event ] } { FocusIn [ focus-in-event ] }
{ \ FocusOut [ focus-out-event ] } { FocusOut [ focus-out-event ] }
{ \ SelectionNotify [ selection-notify-event ] } { SelectionNotify [ selection-notify-event ] }
{ \ SelectionRequest [ selection-request-event ] } { SelectionRequest [ selection-request-event ] }
{ \ ClientMessage [ client-event ] } { ClientMessage [ client-event ] }
[ 3drop ] [ 3drop ]
} case ; } case ;