Modified the code to use tk4.1/tcl7.5 patch level 1. The time-driven