with-event-loop ( quot -- )

Vocabulary

ui.backend.gtk2.io

Inputs

quot

an object

Outputs

None

Definition

USING: alien.c-types combinators continuations glib.ffi
io.thread kernel libc ;

IN: ui.backend.gtk2.io

:: with-event-loop ( quot -- )
    stop-io-thread <funcs> &free GSource heap-size g_source_new
    &g_source_unref :> source source <poll-fd> g_source_add_poll
    source f g_source_attach drop
    [ quot ( -- ) call-effect ]
    [ source g_source_destroy start-io-thread ] finally ;