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

Remove duplicate of next-event word

release
wayo.cavazos 2006-03-31 01:01:26 +00:00
parent d28fd90d4c
commit 8eb75c89e4
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/x11/events.factor
View File

@ -30,9 +30,6 @@ GENERIC: client-event ( event window -- )
: events-queued ( mode -- n ) >r dpy get r> XEventsQueued ; : events-queued ( mode -- n ) >r dpy get r> XEventsQueued ;
: next-event ( -- event )
dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
: wait-event ( -- event ) : wait-event ( -- event )
QueuedAfterFlush events-queued 0 > QueuedAfterFlush events-queued 0 >
[ next-event ] [ ui-step wait-event ] if ; [ next-event ] [ ui-step wait-event ] if ;