Handbook
Glossary
first-gadget ( -- gadget )
Vocabulary
multiple-board-demo
Inputs
None
Outputs
gadget
an
object
Definition
USING:
accessors
gamelib.board
gamelib.ui
kernel
sequences
ui.gadgets
ui.gestures
;
IN:
multiple-board-demo
::
first-gadget
( -- gadget )
{
400 400
}
init-board-gadget
T{
key-down
{
sym
"RIGHT"
}
}
[
dup
board>>
first
RIGHT
move
relayout
]
new-gesture
T{
key-down
{
sym
"LEFT"
}
}
[
dup
board>>
first
LEFT
move
relayout
]
new-gesture
board-init
add-board
;