<tabbed-gadget> ( -- gadget )

Vocabulary

ui.gadgets.tabbed

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors kernel models ui.gadgets ui.gadgets.books
ui.gadgets.borders ui.gadgets.packs ui.gadgets.tracks
ui.pens.solid ui.theme ui.tools.common ;

IN: ui.gadgets.tabbed

: <tabbed-gadget> ( -- gadget )
    vertical tabbed-gadget new-track 0 <model> >>model
    toolbar-button-pressed-background <solid> >>interior
    { 0 3 } >>gap <shelf> toolbar-background <solid> >>interior
    >>tabs horizontal <track> over tabs>> 1 track-add
    f track-add dup model>> <empty-book> >>book dup book>>
    { 5 5 } <filled-border> white-interior 1 track-add ;