<scrollers-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors kernel prettyprint sequences ui.gadgets
ui.gadgets.labels ui.gadgets.scrollers ;

IN: ui-demo

: <scrollers-section> ( -- gadget )
    <section>
    "A scroller shows one window onto a child that is larger than ..."
    <prose> add-gadget { 260 180 } <window-pile> { 2 2 } >>gap
    40 <iota>
    [ "Item " swap unparse append <label> add-gadget ] each
    <scroller> <framed> <pref-width> add-gadget <page> ;