USING: accessors help.topics kernel models ui.gadgets
ui.gadgets.borders ui.gadgets.scrollers ui.gadgets.tracks
ui.tools.browser.history ;

IN: ui.tools.browser

: <browser-gadget> ( link -- gadget )
vertical browser-gadget new-track 1 >>fill
swap >link <model> >>model dup <history> >>history
dup <search-field> >>search-field dup <browser-toolbar>
{ 3 3 } <border> { 1 0 } >>fill f track-add
dup dup <help-pane> { 10 0 } <border> { 1 1 } >>fill
<scroller> >>scroller scroller>> 1 track-add ;