<tracks-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors arrays colors kernel models models.range
sequences sequences.generalizations ui.gadgets ui.gadgets.tracks
;

IN: ui-demo

:: <tracks-section> ( -- gadget )
    400 280 560 <demo-range> :> width 4 0 24 <demo-range>
    :> gap 0 <model> :> align t <model> :> fill 2 1 6
    <demo-range>
    :> share <section>
    "The outer cells each receive one share. Change the middle cel..."
    <prose> add-gadget width gap align fill <layout-controls>
    add-gadget "Middle share (1 : n : 1)" share <range-row>
    add-gadget
    width range-model gap range-model align fill share
    range-model 5 narray [
        [ first4 ] [ 4 swap nth ] bi
        :> ( w g a f? share ) horizontal <track> g dup 2array
        >>gap a >>align f? 1 0 ? >>fill COLOR: DodgerBlue
        { 0 30 } <color-box> 1 track-add COLOR: MediumSeaGreen
        { 0 50 } <color-box> share track-add COLOR: chocolate1
        { 0 30 } <color-box> 1 track-add w 160 2array <stage>
    ] <demo-preview> add-gadget <page> ;