wait-for-listener ( listener -- )


Vocabulary
ui.tools.listener

Inputs
listenera listener-gadget


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 ;