IMAGE timer

EXTERNAL olib
EXTERNAL hwim

INCLUDE hwimman.g

CLASS   timerws   wserv
window server active object
    {
    REPLACE ws_dyn_init
    }

CLASS   timerbw   bwin
bordered window
    {
    REPLACE wn_init
    }

CLASS   mytimer   active
timer active object
    {
    REPLACE ao_init
    REPLACE ao_queue
    REPLACE ao_run
    PROPERTY
        {
        UWORD count;
        }
    }