<prose> ( string -- gadget )


Vocabulary
ui-demo

Inputs
stringan object


Outputs
gadgetan object


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

IN: ui-demo

: <prose> ( string -- gadget )
text-width <paragraph> swap " " split
[ <label> add-gadget " " <word-break-gadget> add-gadget ]
each ;