Handbook
Glossary
compute-pen ( gadget pen -- )
Vocabulary
ui
.
pens
.
caching
Inputs
gadget
an
object
pen
an
object
Outputs
None
Definition
USING:
accessors
kernel
;
IN:
ui.pens.caching
:
compute-pen
( gadget pen -- )
2dup
[
dim>>
]
[
last-dim>>
]
bi*
eq?
[
2drop
]
[
[
swap
dim>>
>>last-dim
drop
]
[
recompute-pen
]
2bi
]
if
;