call-listener ( quot command -- )

Vocabulary

ui.tools.listener

Inputs

quot	an object
command	an object

Outputs

None

Definition

USING: kernel listener threads ;

IN: ui.tools.listener

: call-listener ( quot command -- )
    get-ready-listener [
        dup wait-for-listener
        [ (call-listener) ] with-ctrl-break
    ] 3curry "Listener call" spawn drop ;