<operations-menu> ( target hook -- menu )


Vocabulary
ui.gadgets.menus

Inputs
targetan object
hookan object


Outputs
menuan object


Definition
USING: kernel sequences sorting ui.commands ui.operations ;

IN: ui.gadgets.menus

: <operations-menu> ( target hook -- menu )
over object-operations [ primary-operation? ] partition
[ reverse ] [ [ command-name ] sort-by ] bi* { ---- } glue
<commands-menu> ;