invaders-process ( micros gadget -- )


Vocabulary
space-invaders

Definition
USING: accessors kernel ui.gadgets ;

IN: space-invaders

: invaders-process ( micros gadget -- )
dup quit?>>
[ 2drop ] [
[ sync-frame ] dip [ cpu>> gui-frame ] keep
[ relayout-1 ] keep invaders-process
] if ;