with-timer ( quot -- )

Vocabulary

ui.backend.gtk2

Inputs

quot

an object

Outputs

None

Definition

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

IN: ui.backend.gtk2

:: with-timer ( quot -- )
    <timer-funcs> &free GSource heap-size g_source_new
    &g_source_unref :> source source G_PRIORITY_DEFAULT_IDLE
    g_source_set_priority source f g_source_attach drop
    [ quot ( -- ) call-effect ] [ source g_source_destroy ]
    finally ;