grid-gadget

Vocabulary

game-of-life

Definition

USING: ui.gadgets ;

IN: game-of-life

TUPLE: grid-gadget < gadget grid size timer ;

Methods

USING: game-of-life kernel ui.render ;

M: grid-gadget draw-gadget*
    [ update-grid ] [ draw-cells ] [ draw-lines ] tri ;


USING: accessors arrays game-of-life kernel math ui.gadgets ;

M: grid-gadget pref-dim*
    [ grid>> grid-dim swap ]
    [ size>> [ * ] curry bi@ 1 + 2array ] bi ;


USING: accessors game-of-life generic kernel timers ui.gadgets ;

M: grid-gadget ungraft*
    [ timer>> stop-timer ]
    [ M\ grid-gadget ungraft* (call-next-method) ] bi ;