update-ui-loop ( -- )

Vocabulary

ui.private

Inputs

None

Outputs

None

Definition

USING: combinators.short-circuit concurrency.flags continuations
kernel namespaces threads ui ui.backend ui.gadgets.private
ui.gadgets.worlds ;

IN: ui.private

: update-ui-loop ( -- )
    [
        { [ ui-running? ] [ ui-thread get-global self eq? ] }
        0&&
    ] [
        ui-notify-flag get lower-flag
        [ update-ui ] [
            [ ui-error update-ui ]
            [ stop-event-loop nip rethrow ] recover
        ] recover
    ] while ;