interactor-operation ( gesture interactor -- ? )


Vocabulary
ui.tools.listener

Inputs
gesturean object
interactoran object


Outputs
?an object


Definition
USING: accessors kernel ui.commands ui.operations ;

IN: ui.tools.listener

: interactor-operation ( gesture interactor -- ? )
[ token-model>> value>> ] keep word-at-caret
[ nip ] [ gesture>operation ] 2bi
[ invoke-command f ] [ drop t ] if* ;