do-mouse-scroll ( scroller -- )

Vocabulary

ui.gadgets.scrollers.private

Inputs

scroller

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences ui.gadgets.sliders
ui.gestures ;

IN: ui.gadgets.scrollers.private

: do-mouse-scroll ( scroller -- )
    scroll-direction get-global
    [ first swap x>> slide-by-line ]
    [ second swap y>> slide-by-line ] 2bi ;