<popups-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: kernel models ui.gadgets ui.gadgets.buttons
ui.gadgets.menus ;

IN: ui-demo

:: <popups-section> ( -- gadget )
    <counter> :> counter "No choice yet" <model> :> result
    <section>
    "Glass layers float above the rest of the window and go away w..."
    <prose> add-gadget <shelf-of> "Dialog"
    [ result <confirm-dialog> popup-below ] <border-button>
    add-gadget "Menu" [
        drop counter
        { com-increment com-decrement ---- com-reset }
        show-commands-menu
    ] <border-button> add-gadget add-gadget
    "Last dialog choice:" result <readout> <labeled-row>
    add-gadget
    "The menu drives the counter below, using the command map from..."
    <prose> add-gadget counter add-gadget <page> ;