<gemini-gadget> ( -- gadget )

Vocabulary

gemini.ui

Inputs

None

Outputs

gadget

an object

Definition

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

IN: gemini.ui

: <gemini-gadget> ( -- gadget )
    vertical gemini-gadget new-track
    with-lines f <model> >>model dup <history> >>history
    dup <url-field> >>url-field
    add-gemini-toolbar add-gemini-pane ;