gesture>operation ( gesture object -- operation/f )


Vocabulary
ui.operations

Inputs
gesturean object
objectan object


Outputs
operation/fan object


Definition
USING: kernel sequences ;

IN: ui.operations

: gesture>operation ( gesture object -- operation/f )
object-operations [ operation-gesture = ] with find nip ;