Arjen Markus (1 april 2004) When using the after command to create an animated display, I often come up with a pattern like this:
proc myproc { arg1 arg2 ... } { ... do some processing ... # The animation bit if { ... another step reauired? .... } { after 1000 [list myproc $arg1 $arg2 ...] } return }
For a lazy programmer like me that is too much work:
So, I came up with this little tool ...