apply-wrap-style ( style pane -- style pane )

Vocabulary

ui.gadgets.panes.private

Inputs

style	an object
pane	an object

Outputs

style	an object
pane	an object

Definition

USING: accessors io.styles kernel ui.gadgets.paragraphs ;

IN: ui.gadgets.panes.private

: apply-wrap-style ( style pane -- style pane )
    wrap-margin
    [ 2dup <paragraph> >>prototype drop <paragraph> >>current ]
    apply-style ;