pane-text ( string style gadget -- )

Vocabulary

ui.gadgets.panes.private

Inputs

string	an object
style	an object
gadget	an object

Outputs

None

Definition

USING: accessors kernel sequences ui.gadgets ;

IN: ui.gadgets.panes.private

: pane-text ( string style gadget -- )
    dup find-styled-label [ pick over style>> = ] [ f f ] if*
    [ 2nip [ prepend ] change-text relayout ] [
        drop
        [ swap <styled-label> ] [ swap add-gadget drop ] bi*
    ] if ;