<lorem-paragraph> ( width -- gadget )


Vocabulary
ui-demo

Inputs
widthan object


Outputs
gadgetan object


Definition
USING: sequences splitting ui.gadgets ui.gadgets.labels
ui.gadgets.paragraphs ;

IN: ui-demo

: <lorem-paragraph> ( width -- gadget )
<paragraph> lorem " " split
[ <label> add-gadget " " <word-break-gadget> add-gadget ]
each ;