ui.backend.gtk.io.unix: switch to "mx get-global".
parent
1b32690d22
commit
a056a81307
|
@ -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 -- )
|
||||
|
|
|
@ -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* ;
|
||||
|
|
Loading…
Reference in New Issue