(scroll>gadget) ( gadget scroller -- )

Vocabulary

ui.gadgets.scrollers.private

Inputs

gadget	an object
scroller	an object

Outputs

None

Definition

USING: accessors kernel math.rectangles ui.gadgets ;

IN: ui.gadgets.scrollers.private

: (scroll>gadget) ( gadget scroller -- )
    2dup swap child? [
        [ [ [ { 0 0 } ] dip pref-dim <rect> ] keep ] dip
        [ relative-scroll-rect ] keep (scroll>rect)
    ] [ f >>follows (update-scroller) drop ] if ;