Minor formatting in concurrent-widgets.factor

diff --git a/contrib/x11/concurrent-widgets.factor b/contrib/x11/concurrent-widgets.factor
index 81fb535354d0e4a0d68678655de8713455575508..4593787067234eaa5dfa88409f5771b9982f5a0d 100644 (file)
--- a/contrib/x11/concurrent-widgets.factor
+++ b/contrib/x11/concurrent-widgets.factor
@@ -58,21 +58,21 @@ GENERIC: handle-property-event
 
 : handle-event ( event obj -- )
   over XAnyEvent-type
-  { { [ dup Expose = ]                 [ drop handle-expose-event ] }
-    { [ dup KeyPress = ]               [ drop handle-key-press-event ] }
-    { [ dup KeyRelease = ]             [ drop handle-key-release-event ] }
-    { [ dup ButtonPress = ]            [ drop handle-button-press-event ] }
-    { [ dup ButtonRelease = ]          [ drop handle-button-release-event ] }
-    { [ dup ConfigureNotify = ]                [ drop handle-configure-event ] }
-    { [ dup EnterNotify = ]            [ drop handle-enter-window-event ] }
-    { [ dup LeaveNotify = ]            [ drop handle-leave-window-event ] }
-    { [ dup DestroyNotify = ]          [ drop handle-destroy-window-event ] }
-    { [ dup MapRequest = ]             [ drop handle-map-request-event ] }
-    { [ dup MapNotify = ]              [ drop handle-map-event ] }
-    { [ dup ConfigureRequest = ]       [ drop handle-configure-request-event ] }
-    { [ dup UnmapNotify = ]            [ drop handle-unmap-event ] }
-    { [ dup PropertyNotify = ]         [ drop handle-property-event ] }
-    { [ t ]                [ "handle-event ignoring event" print flush 3drop ] } }
+  { { [ dup Expose = ]          [ drop handle-expose-event ] }
+    { [ dup KeyPress = ]        [ drop handle-key-press-event ] }
+    { [ dup KeyRelease = ]      [ drop handle-key-release-event ] }
+    { [ dup ButtonPress = ]     [ drop handle-button-press-event ] }
+    { [ dup ButtonRelease = ]   [ drop handle-button-release-event ] }
+    { [ dup ConfigureNotify = ]         [ drop handle-configure-event ] }
+    { [ dup EnterNotify = ]     [ drop handle-enter-window-event ] }
+    { [ dup LeaveNotify = ]     [ drop handle-leave-window-event ] }
+    { [ dup DestroyNotify = ]   [ drop handle-destroy-window-event ] }
+    { [ dup MapRequest = ]      [ drop handle-map-request-event ] }
+    { [ dup MapNotify = ]       [ drop handle-map-event ] }
+    { [ dup ConfigureRequest = ] [ drop handle-configure-request-event ] }
+    { [ dup UnmapNotify = ]      [ drop handle-unmap-event ] }
+    { [ dup PropertyNotify = ]   [ drop handle-property-event ] }
+    { [ t ] [ "handle-event ignoring event" print flush 3drop ] } }
   cond ;
 
 M: window handle-configure-event ( event obj -- )