Handbook
Glossary
current-pen ( slider pen -- pen )
Vocabulary
ui
.
gadgets
.
sliders
.
private
Inputs
slider
an
object
pen
an
object
Outputs
pen
an
object
Definition
USING:
accessors
kernel
;
IN:
ui.gadgets.sliders.private
:
current-pen
( slider pen -- pen )
[
slider-enabled?
]
[
[
enabled>>
]
[
disabled>>
]
bi
]
bi*
?
;