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