Posted to tcl by evilotto at Wed Sep 11 21:50:34 GMT 2013view raw

  1. proc every {ms cmd} {
  2. after $ms [list after idle [info level 0]]
  3. {*}$cmd
  4. }
  5.  
  6. proc done {} {
  7. puts "Current value of i is $::i"
  8. exit
  9. }
  10.  
  11. set i 0
  12.  
  13. every 1 {incr ::i}
  14.  
  15. after 1000 done
  16.  
  17. vwait forever