<labeled-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors models ui.gadgets ui.gadgets.buttons
ui.gadgets.labeled ui.gadgets.labels ui.gadgets.packs ui.theme ;

IN: ui-demo

: <labeled-section> ( -- gadget )
    <section>
    "A labeled gadget puts a title bar above its child." <prose>
    add-gadget
    "Anything can go inside." <label> <inset> "Plain"
    <labeled-gadget> add-gadget <filled-pile> { 4 4 } >>gap
    f <model> "Dark mode" <checkbox> add-gadget
    f <model> "Line numbers" <checkbox> add-gadget
    <inset> "Colored" panel-background-color
    <colored-labeled-gadget> add-gadget
    "With a border around the whole thing." <label> <inset>
    "Framed" panel-background-color <framed-labeled-gadget>
    add-gadget <page> ;