<sliders-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: models.range ui.gadgets ;

IN: ui-demo

:: <sliders-section> ( -- gadget )
    50 10 0 100 1 <range> :> across 25 10 0 100 5 <range>
    :> down <section>
    "A slider edits a range model, which holds a value, a page siz..."
    <prose> add-gadget
    "Horizontal, step 1:" <heading> add-gadget across horizontal
    { 320 0 } <slider-box> add-gadget
    "Value:" across range-model <readout> <labeled-row>
    add-gadget "Vertical, step 5:" <heading> add-gadget
    down vertical { 0 140 } <slider-box> add-gadget
    "Value:" down range-model <readout> <labeled-row> add-gadget
    <page> ;