<labels-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors kernel models ui.gadgets ui.gadgets.editors
ui.gadgets.labels ui.theme ;

IN: ui-demo

:: <labels-section> ( -- gadget )
    "Type here" <model> :> text <section>
    "A label draws a string, or an array of strings, in the theme ..."
    <prose> add-gadget "Plain" <label> add-gadget "Bold" <label>
    [ clone t >>bold? ] change-font add-gadget "Italic" <label>
    [ clone t >>italic? ] change-font add-gadget
    "Twenty-four point" <label> [ clone 24 >>size ] change-font
    add-gadget "Colored" <label>
    [ clone link-color >>foreground ] change-font add-gadget {
        "An array of strings"
        "becomes a label"
        "several lines tall."
    } <label> add-gadget
    "A label-control tracks a model:" <heading> add-gadget
    <shelf-of> text <model-field> 20 >>min-cols add-gadget
    text <label-control> add-gadget add-gadget
    "Mixed fonts, scripts and backgrounds:" <heading> add-gadget
    <text-samples> add-gadget
    "Drag across the colored output to select and copy it."
    <note> add-gadget <page> ;