build-children ( gadget scroller -- scroller )


Vocabulary
ui.gadgets.scrollers.private

Inputs
gadgetan object
scrolleran object


Outputs
scrolleran object


Definition
USING: accessors kernel sequences ui.gadgets ui.gadgets.sliders
ui.gadgets.viewports ;

IN: ui.gadgets.scrollers.private

: build-children ( gadget scroller -- scroller )
dup model>> dependencies>>
[ first horizontal <slider> >>x ]
[ second vertical <slider> >>y ] bi
[ nip ] [ model>> <viewport> ] 2bi >>viewport ; inline