wait-for-listener ( listener -- ) (original) (raw)

wait-for-listener ( listener -- )

Vocabulary
ui.tools.listener

Inputs

Outputs
None

Word description
Wait up to five seconds for the listener to start.

Definition

USING: accessors calendar concurrency.flags ;

IN: ui.tools.listener

: wait-for-listener ( listener -- )
input>> flag>> 5 seconds wait-for-flag-timeout ;