build-scroller ( scroller -- scroller )


Vocabulary
ui.gadgets.scrollers.private

Inputs
scrolleran object


Outputs
scrolleran object


Definition
USING: accessors kernel ui.gadgets.grids ;

IN: ui.gadgets.scrollers.private

: build-scroller ( scroller -- scroller )
dup x>> { 0 1 } grid-add dup y>> { 1 0 } grid-add
dup viewport>> { 0 0 } grid-add ; inline