add-tab/book ( tabbed child -- tabbed )


Vocabulary
ui.gadgets.tabbed.private

Inputs
tabbedan object
childan object


Outputs
tabbedan object


Definition
USING: accessors kernel ui.gadgets ;

IN: ui.gadgets.tabbed.private

: add-tab/book ( tabbed child -- tabbed )
[ dup book>> ] dip add-gadget drop ;