<browser-toolbar> ( browser -- toolbar )

Vocabulary

ui.tools.browser

Inputs

browser

an object

Outputs

toolbar

an object

Definition

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

IN: ui.tools.browser

: <browser-toolbar> ( browser -- toolbar )
    [ <toolbar> ] [
        search-field>> horizontal <track> 0 >>fill
        swap 1 track-add 1 track-add
    ] bi ;