add-tab/button ( tabbed label -- tabbed )

Vocabulary

ui.gadgets.tabbed.private

Inputs

tabbed	an object
label	an object

Outputs

tabbed

an object

Definition

USING: accessors kernel sequences ui.gadgets ;

IN: ui.gadgets.tabbed.private

: add-tab/button ( tabbed label -- tabbed )
    [ [ dup tabs>> dup children>> length ] [ model>> ] bi ] dip
    <tab> add-gadget drop ;