add-gopher-pane ( track -- track )


Vocabulary
gopher.ui

Inputs
trackan object


Outputs
trackan object


Definition
USING: accessors kernel ui.gadgets.scrollers ui.gadgets.tracks
ui.tools.common ;

IN: gopher.ui

: add-gopher-pane ( track -- track )
dup dup <gopher-pane> margins <scroller> >>scroller
scroller>> white-interior 1 track-add ;