<gemini-toolbar> ( browser -- toolbar )

Vocabulary

gemini.ui

Inputs

browser

an object

Outputs

toolbar

an object

Definition

USING: accessors kernel ui.gadgets ui.gadgets.toolbar
ui.gadgets.tracks ;

IN: gemini.ui

: <gemini-toolbar> ( browser -- toolbar )
    horizontal <track> 0 >>fill 1/2 >>align { 5 5 } >>gap
    over <toolbar> f track-add swap url-field>> 1 track-add ;