<panes-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: colors io io.styles ui.gadgets ui.gadgets.panes
ui.gadgets.scrollers ;

IN: ui-demo

: <panes-section> ( -- gadget )
    <section>
    "A pane is an output stream. The listener, the help browser an..."
    <prose> add-gadget [
        "Anything printable goes to a pane." print nl
        H{ { foreground COLOR: DodgerBlue } }
        [ "Styles come from io.styles." print ] with-style
        H{ { font-style bold } } [ "Including bold." print ]
        with-style
        nl "Gadgets can be written to the stream too:" print
        COLOR: MediumSeaGreen { 140 20 } <color-box> gadget.
    ] make-pane <scroller> <framed> add-gadget <page> ;