pane-lines ( string -- lines )

Vocabulary

ui.gadgets.panes.private

Inputs

string

an object

Outputs

lines

an object

Definition

USING: accessors arrays documents.private kernel math sequences
strings ;

IN: ui.gadgets.panes.private

: pane-lines ( string -- lines )
    dup string? [
        dup length 4096 > over aux>> not and [
            dup [ 32 < ] any?
            [ ?split-lines ] [ clone 1array ] if
        ] [ ?split-lines ] if
    ] [ ?split-lines ] if ;