<tabs-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors colors models ui.gadgets ui.gadgets.borders
ui.gadgets.buttons ui.gadgets.labels ui.gadgets.packs
ui.gadgets.tabbed ;

IN: ui-demo

: <tabs-section> ( -- gadget )
    <section>
    "A tabbed gadget is a row of tab buttons driving a book, which..."
    <prose> add-gadget
    <tabbed-gadget>
    "The book shows whichever page its model selects." <label>
    <inset> "First" add-tab <filled-pile> { 4 4 } >>gap
    f <model> "Option A" <checkbox> add-gadget
    f <model> "Option B" <checkbox> add-gadget
    <inset> "Second" add-tab COLOR: DodgerBlue
    { 200 60 } <color-box> <inset> "Third" add-tab
    { 0 0 } <filled-border> { 460 200 } >>min-dim
    <pref-width> add-gadget <page> ;