<sidebar> ( model -- gadget )

Vocabulary

ui-demo

Inputs

model

an object

Outputs

gadget

an object

Definition

USING: accessors sequences ui.gadgets ui.gadgets.packs
ui.gadgets.scrollers ui.gadgets.tabbed.private ui.pens.solid
ui.theme ;

IN: ui-demo

:: <sidebar> ( model -- gadget )
    <filled-pile> { 0 1 } >>gap sections [| section i |
        i model section first <tab> { 0 1/2 } >>align add-gadget
    ] each-index toolbar-background <solid> >>interior
    <scroller> ;