smash-pane ( pane -- gadget )

Vocabulary

ui.gadgets.panes.private

Inputs

pane

an object

Outputs

gadget

an object

Definition

IN: ui.gadgets.panes.private

GENERIC: smash-pane ( pane -- gadget )

Methods

USING: accessors kernel ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane smash-pane [ pane-nl ] [ dup output>> smash-line ] bi ;


USING: accessors generic kernel ui.gadgets.panes.private ;

M: styled-pane smash-pane
    [ style>> ] [
        M\ styled-pane smash-pane (call-next-method)
        apply-paragraph-style
    ] bi ;