Handbook
Glossary
elevator-click ( elevator -- )
Vocabulary
ui
.
gadgets
.
sliders
.
private
Inputs
elevator
an
object
Outputs
None
Definition
USING:
accessors
kernel
;
IN:
ui.gadgets.sliders.private
:
elevator-click
( elevator -- )
dup
compute-direction
>>direction
elevator-hold
;