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

Vocabulary

ui.gadgets.presentations

Inputs

presentation	an object
target	an object
hook	an object

Outputs

menu

an object

Definition

USING: accessors kernel ui.gadgets.borders ui.gadgets.menus ;

IN: ui.gadgets.presentations

: <presentation-menu> ( presentation target hook -- menu )
    <operations-menu> presentation-menu new-border
    swap >>presentation { 0 0 } >>size ;