From ee25d53bbd32414b7fb1c86be01ccca48faba878 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 11 Apr 2008 12:58:50 -0500 Subject: [PATCH] fix case in x11 --- extra/x11/events/events.factor | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/extra/x11/events/events.factor b/extra/x11/events/events.factor index af49692394..e7a5645f81 100644 --- a/extra/x11/events/events.factor +++ b/extra/x11/events/events.factor @@ -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 ;