listener-operation-command ( target operation -- command )

Vocabulary

ui.tools.listener.private

Inputs

target	an object
operation	an object

Outputs

command

an object

Definition

USING: accessors io.styles kernel ui.gadgets.editors
ui.tools.listener ;

IN: ui.tools.listener.private

: listener-operation-command ( target operation -- command )
    command>> over interactor?
    [ [ editor-string <input> ] dip listener-input-command boa ]
    [ nip ] if ;