diff --git a/basis/ui/backend/gtk/io/unix/unix.factor b/basis/ui/backend/gtk/io/unix/unix.factor index 56a38d5bf1..48790c6c74 100644 --- a/basis/ui/backend/gtk/io/unix/unix.factor +++ b/basis/ui/backend/gtk/io/unix/unix.factor @@ -14,7 +14,7 @@ IN: ui.backend.gtk.io.unix : dispatch ( source callback user-data -- ? ) 3drop - 0 mx get wait-for-events + 0 mx get-global wait-for-events yield t ; : ( -- funcs ) @@ -35,7 +35,7 @@ CONSTANT: poll-fd-events : ( -- poll-fd ) GPollFD malloc-struct &free - mx get fd>> >>fd + mx get-global fd>> >>fd poll-fd-events >>events ; M:: unix with-event-loop ( quot -- ) diff --git a/basis/x11/io/unix/unix.factor b/basis/x11/io/unix/unix.factor index 821beb91a5..effcd2c25b 100644 --- a/basis/x11/io/unix/unix.factor +++ b/basis/x11/io/unix/unix.factor @@ -12,4 +12,7 @@ M: unix init-x-io dpy get XConnectionNumber dpy-fd set-global ; 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 ] when* ; \ No newline at end of file + dpy-fd get [ + fd>> mx get-global remove-input-callbacks + [ resume ] each + ] when* ;