basis/x11/io/unix/unix.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.backend.unix io.backend.unix.multiplexers
   4 io.files namespaces system x11 x11.xlib x11.io
   5 accessors threads sequences kernel ;
   6 IN: x11.io.unix
   7
   8 SYMBOL: dpy-fd
   9
  10 M: unix init-x-io dpy get XConnectionNumber <fd> dpy-fd set-global ;
  11
  12 M: unix wait-for-display dpy-fd get +input+ wait-for-fd ;
  13
  14 M: unix awaken-event-loop
  15     dpy-fd get [
  16         fd>> mx get-global remove-input-callbacks
  17         [ resume ] each
  18     ] when* ;