<buttons-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

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

IN: ui-demo

:: <buttons-section> ( -- gadget )
    0 <model> :> clicks
    [ drop clicks [ 1 + ] change-model ] :> bump <section>
    "A button calls a quotation when clicked, passing itself on th..."
    <prose> add-gadget
    <shelf-of> "Border button" bump <border-button> add-gadget
    "Roll button" bump <roll-button> add-gadget
    "Repeat button" bump <repeat-button> add-gadget add-gadget
    "Clicks:" clicks <readout> <labeled-row> add-gadget "Reset"
    [ drop 0 clicks set-model ] <border-button>
    <pref-width> add-gadget <page> ;