listener-operation

Vocabulary

ui.operations

Definition

USING: accessors combinators.short-circuit ui.commands ;

IN: ui.operations

PREDICATE: listener-operation < operation
    { [ command>> listener-command? ] [ listener?>> ] } 1|| ;

Methods

USING: accessors kernel ui.commands ui.operations
ui.tools.listener ;

M: listener-operation invoke-command
    [ operation-quot ] [ nip command>> ] 2bi call-listener ;