Handbook
Glossary
compute-direction ( elevator -- -1/1 )
Vocabulary
ui
.
gadgets
.
sliders
.
private
Inputs
elevator
an
object
Outputs
-1/1
an
object
Definition
USING:
accessors
kernel
math
math.vectors
ui.gadgets.sliders
ui.gestures
;
IN:
ui.gadgets.sliders.private
:
compute-direction
( elevator -- -1/1 )
[
hand-click-rel
]
[
find-slider
]
bi
[
orientation>>
vdot
]
[
screen>slider
]
[
slider-value
-
sgn
]
tri
;