relative-scroll-rect ( rect gadget scroller -- newrect )

Vocabulary

ui.gadgets.scrollers.private

Inputs

rect	a rect
gadget	a gadget
scroller	a scroller

Outputs

newrect

a new rect

Word description

Adjusts rect for the case where the gadget is not the immediate child of the scroller's viewport.

Definition

USING: accessors math.rectangles ui.gadgets ;

IN: ui.gadgets.scrollers.private

: relative-scroll-rect ( rect gadget scroller -- newrect )
    viewport>> gadget-child relative-loc offset-rect ;