ui.backend.gtk.io.unix: switch to "mx get-global".

db4
John Benediktsson 2012-08-01 16:22:23 -07:00
parent 1b32690d22
commit a056a81307
2 changed files with 6 additions and 3 deletions

View File

@ -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> ( -- funcs )
@ -35,7 +35,7 @@ CONSTANT: poll-fd-events
: <poll-fd> ( -- 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 -- )

View File

@ -12,4 +12,7 @@ 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 ;
M: unix awaken-event-loop
dpy-fd get [ fd>> mx get remove-input-callbacks [ resume ] each ] when* ;
dpy-fd get [
fd>> mx get-global remove-input-callbacks
[ resume ] each
] when* ;