You can also use a $mw->repeat() function to call you a few times a second...that is what I do.

BTW, if the widgets can be run stand alone, I would be happy to take a look at them.

Plus you can get a lot of good feedback if you post it to comp.lang.perl.tk