Re: Timer
- Posted by Jonas Temple <jtemple at yhti.net> Jun 27, 2004
- 430 views
Michelle, I think the problem is you've got your onOpen[] and onTime[] AFTER the call to WinMain. This means the event handler is not set until WinMain returns, which is at the end of the program. Jonas > > > > > > without warning > > > include win32lib.ew > > > > > > constant > > > dummywin=create(Window,"A Timer",0,0,0,300,300,0), > > > dummytext=create(LText,"Beginning text",dummywin,10,10,100,40,0) > > > > > > > > > integer mytimer,timerint > > > timerint=0 > > > mytimer=-1 > > > > > > global procedure onOpen_dummywin() > > > warnErr("open") > > > setText(dummytext,"It's open") > > > setTimer(dummywin,mytimer,1000) > > > end procedure > > > > > > global procedure onTimer_dummywin(object val) > > > timerint=timerint+1 > > > setText(dummytext,"Timer: "&sprint(timerint)) > > > end procedure > > > These should be here: onOpen[dummywin]=routine_id("onOpen_dummywin") onTimer[dummywin]=routine_id("onTimer_dummywin") > > > WinMain(dummywin,Normal) > > > Not here: > > > onOpen[dummywin]=routine_id("onOpen_dummywin") > > > onTimer[dummywin]=routine_id("onTimer_dummywin") > > > > > >