<grid-gadget> ( grid -- gadget )


Vocabulary
game-of-life

Inputs
gridan object


Outputs
gadgetan object


Definition
USING: accessors calendar kernel timers ui.gadgets ;

IN: game-of-life

: <grid-gadget> ( grid -- gadget )
grid-gadget new swap >>grid 20 >>size dup
[ [ grid>> next-step ] [ relayout-1 ] bi ] curry
f 1/10 seconds <timer> >>timer ;