Handbook
Glossary
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
;