pane-line ( str style gadget -- )

Vocabulary

ui.gadgets.panes.private

Inputs

str	an object
style	an object
gadget	an object

Outputs

None

Definition

IN: ui.gadgets.panes.private

GENERIC: pane-line ( str style gadget -- )

Methods

USING: ui.gadgets.packs ui.gadgets.panes.private ;

M: pack pane-line pane-text ;


USING: assocs io.styles kernel sequences splitting
ui.gadgets.panes.private ui.gadgets.paragraphs ;

M: paragraph pane-line
    { presented image-style } pick [ key? ] curry any?
    [ pane-text ] [
        [ split-words ] 2dip [ pane-bl ] [ pane-text ] bi-curry
        bi-curry interleave
    ] if ;