<checkboxes-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: arrays kernel models sequences ui.gadgets
ui.gadgets.buttons ;

IN: ui-demo

:: <checkboxes-section> ( -- gadget )
    f <model> :> notify t <model> :> advanced f <model>
    :> diagnostics 3 0 10 <demo-range>
    :> retries <section> "A checkbox toggles a boolean model."
    <prose> add-gadget notify "Send notifications" <checkbox>
    add-gadget advanced "Show advanced options" <checkbox>
    add-gadget advanced 1array [
        first [
            <section> "Advanced options" <heading> add-gadget
            diagnostics "Include diagnostic details" <checkbox>
            add-gadget "Retry count" retries <range-row>
            add-gadget
        ] [ <gadget> ] if
    ] <demo-preview> add-gadget
    "Notifications:" notify <readout> <labeled-row> add-gadget
    "Advanced:" advanced <readout> <labeled-row> add-gadget
    <page> ;