basis/x11/io/io.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.backend calendar threads kernel ;
   4 IN: x11.io
   5
   6 HOOK: init-x-io io-backend ( -- )
   7
   8 M: object init-x-io ;
   9
  10 HOOK: wait-for-display io-backend ( -- )
  11
  12 M: object wait-for-display 10 milliseconds sleep ;
  13
  14 HOOK: awaken-event-loop io-backend ( -- )
  15
  16 M: object awaken-event-loop ;