<paragraphs-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: arrays models.range sequences ui.gadgets
ui.gadgets.labels ui.gadgets.paragraphs ;

IN: ui-demo

:: <paragraphs-section> ( -- gadget )
    400 180 560 <demo-range>
    :> width <section>
    "Move the width slider to rewrap the paragraph. Word-break gad..."
    <prose> add-gadget "Wrap width" width <range-row> add-gadget
    width range-model 1array
    [ first <lorem-paragraph> <framed> ] <demo-preview>
    add-gadget
    "An unbroken word can exceed the wrap width:" <heading>
    add-gadget width range-model 1array [
        first <paragraph>
        "LongUnbrokenText_ABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789"
        <label> add-gadget <framed>
    ] <demo-preview> add-gadget <page> ;