Handbook
Glossary
tetris-gadget
Vocabulary
tetris
Definition
USING:
tetris.game
ui.gadgets
;
IN:
tetris
TUPLE:
tetris-gadget
<
gadget
{
tetris
tetris
initial:
T{
tetris
}
}
timer
;
Methods
USING:
accessors
kernel
sequences
tetris
tetris.gl
ui.render
;
M:
tetris-gadget
draw-gadget*
[
[
dim>>
first2
]
[
tetris>>
]
bi
draw-tetris
]
keep
update-status
;
USING:
accessors
calendar
kernel
tetris
timers
ui.gadgets
;
M:
tetris-gadget
graft*
[
[
tick
]
curry
100
milliseconds
every
]
keep
timer<<
;
USING:
kernel
tetris
ui.gadgets
;
M:
tetris-gadget
pref-dim*
drop
{
200 400
}
;
USING:
accessors
kernel
tetris
timers
ui.gadgets
;
M:
tetris-gadget
ungraft*
[
stop-timer
f
]
change-timer
drop
;