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

View File

@ -30,9 +30,6 @@ GENERIC: client-event ( event window -- )
: 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 )
QueuedAfterFlush events-queued 0 >
[ next-event ] [ ui-step wait-event ] if ;