14 lines
457 B
Factor
14 lines
457 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
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 ;
|
|
|
|
M: unix awaken-event-loop
|
|
dpy-fd get fd>> mx get remove-input-callbacks [ resume ] each ; |