split-pane ( str quot: ( str -- ) -- )

Vocabulary

ui.gadgets.panes.private

Inputs

str	an object
quot	a quotation with stack effect ( str -- )

Outputs

None

Definition

USING: documents.private kernel math sequences unicode ;

IN: ui.gadgets.panes.private

: split-pane ( str quot: ( str -- ) -- )
    [
        [
            dup length 3639 >
            [ 3639 over last-grapheme-from cut-slice ] [ f ] if
            swap "" like ?split-lines
        ]
    ] dip [ dup ] compose compose loop drop ; inline