<menu-item> ( target hook command -- menu-item )

Vocabulary

ui.gadgets.menus

Inputs

target	an object
hook	an object
command	an object

Outputs

menu-item

an object

Definition

IN: ui.gadgets.menus

GENERIC: <menu-item> ( target hook command -- menu-item )

Methods

USING: accessors kernel ui.gadgets ui.gadgets.menus
ui.gadgets.menus.private ui.theme ;

M: ---- <menu-item>
    3drop <gadget> { 0 5 } >>dim
    menu-border-color <separator-pen> >>interior ;


USING: kernel ui.commands ui.gadgets.buttons ui.gadgets.glass
ui.gadgets.menus ui.gadgets.menus.private ;

M:: object <menu-item> ( target hook command -- menu-item )
    command command-name [
        hook call target command command-button-quot call
        hide-glass
    ] <menu-button> ;