wrap-paragraph ( paragraph -- wrapped-paragraph )

Vocabulary

ui.gadgets.paragraphs.private

Inputs

paragraph

an object

Outputs

wrapped-paragraph

an object

Definition

USING: accessors kernel sequences wrap.words ;

IN: ui.gadgets.paragraphs.private

: wrap-paragraph ( paragraph -- wrapped-paragraph )
    [ children>> [ gadget>word ] map ] [ margin>> ] bi
    wrap-words [ <line> ] map! ;