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 -- )
over XAnyEvent-type {
{ \ Expose [ expose-event ] }
{ \ ConfigureNotify [ configure-event ] }
{ \ ButtonPress [ button-down-event$ ] }
{ \ ButtonRelease [ button-up-event$ ] }
{ \ EnterNotify [ enter-event ] }
{ \ LeaveNotify [ leave-event ] }
{ \ MotionNotify [ motion-event ] }
{ \ KeyPress [ key-down-event ] }
{ \ KeyRelease [ key-up-event ] }
{ \ FocusIn [ focus-in-event ] }
{ \ FocusOut [ focus-out-event ] }
{ \ SelectionNotify [ selection-notify-event ] }
{ \ SelectionRequest [ selection-request-event ] }
{ \ ClientMessage [ client-event ] }
{ Expose [ expose-event ] }
{ ConfigureNotify [ configure-event ] }
{ ButtonPress [ button-down-event$ ] }
{ ButtonRelease [ button-up-event$ ] }
{ EnterNotify [ enter-event ] }
{ LeaveNotify [ leave-event ] }
{ MotionNotify [ motion-event ] }
{ KeyPress [ key-down-event ] }
{ KeyRelease [ key-up-event ] }
{ FocusIn [ focus-in-event ] }
{ FocusOut [ focus-out-event ] }
{ SelectionNotify [ selection-notify-event ] }
{ SelectionRequest [ selection-request-event ] }
{ ClientMessage [ client-event ] }
[ 3drop ]
} case ;