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

Vocabulary

ui.gadgets.menus

Inputs

target	an object
hook	an object

Outputs

menu

an 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-with ] bi* { ---- } glue
    <commands-menu> ;