interactor-operation ( gesture interactor -- ? )

Vocabulary

ui.tools.listener

Inputs

gesture	an object
interactor	an 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* ;