show-presentation-menu ( presentation -- )

Vocabulary

ui.gadgets.presentations

Inputs

presentation

an object

Outputs

None

Definition

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

IN: ui.gadgets.presentations

: show-presentation-menu ( presentation -- )
    setup-presentation dup
    [ ] [ object>> ] [ dup hook>> curry ] tri
    <presentation-menu> show-menu ;