smash-line ( pane current -- gadget )

Vocabulary

ui.gadgets.panes.private

Inputs

pane	an object
current	an object

Outputs

gadget

an object

Definition

USING: accessors combinators kernel sequences ;

IN: ui.gadgets.panes.private

: smash-line ( pane current -- gadget )
    dup children>> {
        { [ dup empty? ] [ 2drop pane-label ] }
        { [ dup length 1 = ] [ 2nip first ] }
        [ drop nip ]
    } cond ;