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

Add flush calls in concurrent-widgets to effect immediate debug output

darcs
wayo.cavazos 2006-02-17 01:43:04 +00:00
parent 3c380f5245
commit 4e727be9d0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,32 +67,32 @@ GENERIC: handle-property-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 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 -- )
"Basic handle-configure-event called" print drop drop ; "Basic handle-configure-event called" print flush drop drop ;
M: window handle-destroy-window-event ( event obj -- ) M: window handle-destroy-window-event ( event obj -- )
"Basic handle-destroy-window-event called" print drop drop ; "Basic handle-destroy-window-event called" print flush drop drop ;
M: window handle-map-event ( event obj -- ) M: window handle-map-event ( event obj -- )
"Basic handle-map-event called" print drop drop ; "Basic handle-map-event called" print flush drop drop ;
M: window handle-expose-event ( event obj -- ) M: window handle-expose-event ( event obj -- )
"Basic handle-expose-event called" print drop drop ; "Basic handle-expose-event called" print flush drop drop ;
M: window handle-button-release-event ( event obj -- ) M: window handle-button-release-event ( event obj -- )
"Basic handle-button-release-event called" print drop drop ; "Basic handle-button-release-event called" print flush drop drop ;
M: window handle-unmap-event ( event obj -- ) M: window handle-unmap-event ( event obj -- )
"Basic handle-unmap-event called" print drop drop ; "Basic handle-unmap-event called" print flush drop drop ;
M: window handle-key-press-event ( event obj -- ) M: window handle-key-press-event ( event obj -- )
"Basic handle-key-press-event called" print drop drop ; "Basic handle-key-press-event called" print flush drop drop ;
M: window handle-key-release-event ( event obj -- ) M: window handle-key-release-event ( event obj -- )
"Basic handle-key-release-event called" print drop drop ; "Basic handle-key-release-event called" print flush drop drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! <label> ! <label>