<packs-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors arrays kernel models models.range sequences
sequences.generalizations ui.gadgets ui.gadgets.buttons
ui.gadgets.packs ;

IN: ui-demo

:: <packs-section> ( -- gadget )
    400 280 560 <demo-range> :> width 8 0 24 <demo-range>
    :> gap 0 <model> :> align f <model> :> fill horizontal
    <model> :> axis <section>
    "Switch between a shelf and a pile. Alignment and fill act acr..."
    <prose> add-gadget axis
    { { { 1 0 } "Shelf" } { { 0 1 } "Pile" } } <radio-buttons>
    add-gadget width gap align fill <layout-controls> add-gadget
    width range-model gap range-model align fill axis 5 narray [
        [ first4 ] [ 4 swap nth ] bi
        :> ( w g a f? axis ) axis <pack> <three-boxes> g dup
        2array >>gap a >>align f? 1 0 ? >>fill w 170 2array
        <stage>
    ] <demo-preview> add-gadget <page> ;