<text-samples> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors colors io io.styles kernel ui.gadgets
ui.gadgets.labels ui.gadgets.panes ;

IN: ui-demo

: <text-samples> ( -- gadget )
    <section> <shelf-of> "Small" <label>
    [ clone 10 >>size ] change-font add-gadget "Large" <label>
    [ clone 28 >>size ] change-font add-gadget
    "Italic é 👩‍💻" <label> [ clone t >>italic? ] change-font
    add-gadget add-gadget text-samples <label> add-gadget [
        H{ { background COLOR: LightPink } }
        [ "Pink background: é العربية" print ] with-style
        H{ { background COLOR: LightBlue } }
        [ "Blue background: 👩‍💻 עברית" print ] with-style
    ] make-pane add-gadget ;