      0 mx get wait-for-events
      yield t ;
 
-: timeout-func ( -- func )
-    [ drop yield t ] GSourceFunc ;
-
-: init-timeout ( interval -- )
-    G_PRIORITY_DEFAULT swap timeout-func f f
-    g_timeout_add_full drop ;
-
 CONSTANT: poll-fd-events
     {
         G_IO_IN

    GSource heap-size g_source_new &g_source_unref
    [ create-poll-fd g_source_add_poll ]
    [ f g_source_attach drop ] bi ;

M: gtk-ui-backend (with-ui)
    [

! Copyright (C) 2010 Anton Gorenko.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.accessors alien.c-types alien.data
alien.enums alien.strings arrays ascii assocs classes.struct
combinators.short-circuit command-line destructors
io.backend.unix.multiplexers io.encodings.utf8 io.thread kernel
libc literals locals math math.bitwise math.order namespaces
sequences strings system threads ui ui.backend ui.clipboards
ui.event-loop ui.gadgets ui.gadgets.private ui.gadgets.worlds
ui.gestures ui.pixel-formats ui.pixel-formats.private ui.private
glib.ffi gobject.ffi gtk.ffi gdk.ffi gdk.gl.ffi gtk.gl.ffi ;
IN: ui.backend.gtk

