init-scroller ( column-header scroller -- scroller )


Vocabulary
ui.gadgets.scrollers.private

Inputs
column-headeran object
scrolleran object


Outputs
scrolleran object


Definition
USING: accessors kernel ;

IN: ui.gadgets.scrollers.private

: init-scroller ( column-header scroller -- scroller )
over { 0 1 } { 0 0 } ? >>filled-cell t >>root?
<scroller-model> >>model swap >>column-header ; inline