<scroller> ( gadget -- scroller )
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Scroller gadgets
Prev:scroller
Next:scroll-position ( scroller -- loc )


Vocabulary
ui.gadgets.scrollers

Inputs
gadgeta gadget


Outputs
scrollera new scroller


Word description
Creates a new scroller for scrolling around gadget.

See also
<viewport>

Definition
USING: accessors kernel ui.gadgets.frames
ui.gadgets.scrollers.private ;

IN: ui.gadgets.scrollers

: <scroller> ( gadget -- scroller )
dup viewport-column-header dup [ 2 3 ] [ 2 2 ] if
scroller new-frame init-scroller build-children
dup column-header>>
[ build-header-scroller ] [ build-scroller ] if ;