Add awaken-event-loop word

diff --git a/basis/x11/unix/unix.factor b/basis/x11/unix/unix.factor
index 6084b83a9caccafaa07e7a86f293fd9f9fca59a8..88a66a6c3735b76187b9d5d86c508aaa65a1efc9 100644 (file)
--- a/basis/x11/unix/unix.factor
+++ b/basis/x11/unix/unix.factor
@@ -1,10 +1,14 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io.backend.unix namespaces system x11 x11.xlib ;
+USING: io.backend.unix io.backend.unix.multiplexers
+namespaces system x11 x11.xlib accessors threads sequences ;
 IN: x11.unix
 
 SYMBOL: dpy-fd
 
 M: unix init-x-io dpy get XConnectionNumber <fd> dpy-fd set-global ;
 
-M: unix wait-for-display dpy-fd get +input+ wait-for-fd ;
\ No newline at end of file
+M: unix wait-for-display dpy-fd get +input+ wait-for-fd ;
+
+M: unix awaken-event-loop
+    dpy-fd get fd>> mx get remove-input-callbacks [ resume ] each ;
\ No newline at end of file

diff --git a/basis/x11/x11.factor b/basis/x11/x11.factor
index e6e70c4cc10808dd92a65c17d5b40bd15a5f72a8..c546c8368fce9bfc8e89ec856cc27d2437eeb454 100644 (file)
--- a/basis/x11/x11.factor
+++ b/basis/x11/x11.factor
@@ -28,6 +28,10 @@ HOOK: wait-for-display io-backend ( -- )
 
 M: object wait-for-display 10 milliseconds sleep ;
 
+HOOK: awaken-event-loop io-backend ( -- )
+
+M: object awaken-event-loop ;
+
 : init-x ( display-string -- )
     init-locale
     dup [ ascii string>alien ] when