prepare-menu ( menu items -- )

Vocabulary

ui.gadgets.menus.private

Inputs

menu	an object
items	an object

Outputs

None

Definition

USING: accessors kernel models sequences ;

IN: ui.gadgets.menus.private

:: prepare-menu ( menu items -- )
    f <model> :> model items menu-buttons :> buttons buttons
    [ model add-connection ] each menu model >>model
    buttons >>items drop ;