1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: calendar combinators deques kernel namespaces sequences
4 threads ui ui.backend ui.gadgets ;
9 { [ graft-queue deque-empty? not ] [ t ] }
10 { [ windows get-global empty? not ] [ t ] }
14 HOOK: do-events ui-backend ( -- )
16 : event-loop ( -- ) [ event-loop? ] [ do-events ] [ ] while ;
18 : ui-wait ( -- ) 10 milliseconds sleep ;