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

Minor formatting in concurrent-widgets.factor

darcs
wayo.cavazos 2006-03-16 07:49:39 +00:00
parent f8b688220d
commit bef109fda5
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
contrib/x11/concurrent-widgets.factor
View File

@ -58,21 +58,21 @@ GENERIC: handle-property-event
: handle-event ( event obj -- ) : handle-event ( event obj -- )
over XAnyEvent-type over XAnyEvent-type
{ { [ dup Expose = ] [ drop handle-expose-event ] } { { [ dup Expose = ] [ drop handle-expose-event ] }
{ [ dup KeyPress = ] [ drop handle-key-press-event ] } { [ dup KeyPress = ] [ drop handle-key-press-event ] }
{ [ dup KeyRelease = ] [ drop handle-key-release-event ] } { [ dup KeyRelease = ] [ drop handle-key-release-event ] }
{ [ dup ButtonPress = ] [ drop handle-button-press-event ] } { [ dup ButtonPress = ] [ drop handle-button-press-event ] }
{ [ dup ButtonRelease = ] [ drop handle-button-release-event ] } { [ dup ButtonRelease = ] [ drop handle-button-release-event ] }
{ [ dup ConfigureNotify = ] [ drop handle-configure-event ] } { [ dup ConfigureNotify = ] [ drop handle-configure-event ] }
{ [ dup EnterNotify = ] [ drop handle-enter-window-event ] } { [ dup EnterNotify = ] [ drop handle-enter-window-event ] }
{ [ dup LeaveNotify = ] [ drop handle-leave-window-event ] } { [ dup LeaveNotify = ] [ drop handle-leave-window-event ] }
{ [ dup DestroyNotify = ] [ drop handle-destroy-window-event ] } { [ dup DestroyNotify = ] [ drop handle-destroy-window-event ] }
{ [ dup MapRequest = ] [ drop handle-map-request-event ] } { [ dup MapRequest = ] [ drop handle-map-request-event ] }
{ [ dup MapNotify = ] [ drop handle-map-event ] } { [ dup MapNotify = ] [ drop handle-map-event ] }
{ [ dup ConfigureRequest = ] [ drop handle-configure-request-event ] } { [ dup ConfigureRequest = ] [ drop handle-configure-request-event ] }
{ [ dup UnmapNotify = ] [ drop handle-unmap-event ] } { [ dup UnmapNotify = ] [ drop handle-unmap-event ] }
{ [ dup PropertyNotify = ] [ drop handle-property-event ] } { [ dup PropertyNotify = ] [ drop handle-property-event ] }
{ [ t ] [ "handle-event ignoring event" print flush 3drop ] } } { [ t ] [ "handle-event ignoring event" print flush 3drop ] } }
cond ; cond ;
M: window handle-configure-event ( event obj -- ) M: window handle-configure-event ( event obj -- )