<menu> ( gadgets -- menu )

Vocabulary

ui.gadgets.menus

Inputs

gadgets

an object

Outputs

menu

an object

Definition

USING: accessors kernel ui.gadgets.borders
ui.gadgets.menus.private ui.gadgets.wrappers ui.pens.solid
ui.theme ;

IN: ui.gadgets.menus

: <menu> ( gadgets -- menu )
    <menu-items> [
        { 0 3 } >>gap { 5 5 } <filled-border>
        menu-border-color <solid> >>boundary
        menu-background <solid> >>interior menu new-wrapper
    ] [ dupd prepare-menu ] bi ;