clock

Vocabulary

models.clock

Definition

USING: models ;

IN: models.clock

TUPLE: clock < model timer ;

Methods

USING: accessors calendar kernel models models.clock timers ;

M: clock model-activated
    dup [ [ now ] ] dip [ set-model ] curry compose
    f 1 seconds <timer> [ start-timer ] keep >>timer drop ;


USING: accessors kernel models models.clock timers ;

M: clock model-deactivated
    dup timer>> [ stop-timer ] when* f >>timer drop ;