event-loop? ( -- ? )

Vocabulary

ui.event-loop

Inputs

None

Outputs

?

a boolean

Word description

t if there are active windows.

Definition

USING: combinators deques kernel namespaces sequences
ui.gadgets.private ui.private ;

IN: ui.event-loop

: event-loop? ( -- ? )
    {
        { [ graft-queue deque-empty? not ] [ t ] }
        { [ worlds get-global empty? not ] [ t ] }
        [ f ]
    } cond ;