<browser-gadget> ( link -- gadget )

Vocabulary

ui.tools.browser

Inputs

link

an object

Outputs

gadget

an object

Definition

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

IN: ui.tools.browser

: <browser-gadget> ( link -- gadget )
    vertical browser-gadget new-track with-lines 1 >>fill
    swap >link <model> >>model dup <history> >>history
    dup <search-field> >>search-field
    add-browser-toolbar add-help-header add-help-pane
    add-help-footer ;