OpenEuphoria

Here is a test case to show what I am doing:

without warning 
include win32lib.ew 
 
integer win, button1 
integer color 
atom taskthetask 
 
procedure thetask() 
while w32True do 
	setWindowBackColor( win, color ) 
	color = color + 20 
	task_yield() 
end while 
end procedure 
taskthetask = task_create(routine_id("thetask"),{}) 
 
procedure click1(integer self, integer event, sequence parms) 
	task_schedule(taskthetask,{0.1,0.3}) -- do every 200 ms 
end procedure 
 
procedure main() 
 
	color = 0 
 
    win = createEx(Window, "Test task schedule", 0, 0, 0, 400, 200, 0, 0) 
    button1 = createEx(Button, "start task", win, 0, 80, 90, 20, 0, 0) 
  
    setHandler(button1, w32HClick, routine_id("click1")) 
    WinMain(win, Normal) 
 
end procedure 
 
main() 

The problem is that it is very sluggish to run the task. But if I move the mouse around inside the window, the task works at its proper speed.

So, how do I get a task to run every 200 ms, whether or not someone is doing something else at the same time. And yes, I still want other stuff to go on if the user chooses.

Andy K.