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 ;