31 lines
423 B
Plaintext
31 lines
423 B
Plaintext
|
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;
|
||
|
|
}
|
||
|
|
}
|