walker-command ( walker msg -- )

Vocabulary

ui.tools.walker

Inputs

walker	an object
msg	an object

Outputs

None

Definition

USING: accessors concurrency.messaging kernel threads ;

IN: ui.tools.walker

: walker-command ( walker msg -- )
    swap dup thread>> thread-registered?
    [ thread>> send-synchronous drop ] [ 2drop ] if ;