Posted to tcl by evilotto at Wed Sep 11 21:50:34 GMT 2013view raw
- 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