Handbook
Glossary
slider-pen? ( object -- ? )
Vocabulary
ui
.
gadgets
.
sliders
.
private
Inputs and outputs
object
an
object
?
a
boolean
Word description
Tests if the object is an instance of the
slider-pen
class.
Definition
USING:
classes.tuple.private
kernel
slots.private
;
IN:
ui.gadgets.sliders.private
:
slider-pen?
( object -- ? )
dup
tuple?
[
layout-of
7
slot
\
slider-pen
eq?
]
[
drop
f
]
if
;