add-gemini-pane ( track -- track )


Vocabulary
gemini.ui

Inputs
trackan object


Outputs
trackan object


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

IN: gemini.ui

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