Posted to tcl by evilotto at Wed Sep 11 21:50:34 GMT 2013view pretty
proc every {ms cmd} { after $ms [list after idle [info level 0]] {*}$cmd } proc done {} { puts "Current value of i is $::i" exit } set i 0 every 1 {incr ::i} after 1000 done vwait forever