operations>commands ( object translator -- pairs )


Vocabulary
ui.operations

Inputs
objectan object
translatoran object


Outputs
pairsan object


Definition
USING: assocs kernel ;

IN: ui.operations

: operations>commands ( object translator -- pairs )
[ object-operations ] dip modify-operations
[ [ operation-gesture ] keep ] { } map>assoc ;