Posted to tcl by evilotto at Thu Jan 31 17:58:55 GMT 2013view pretty

proc dotim {} { puts -nonewline stderr "\r" ; after 1 dotim}
proc doid {} {puts -nonewline stderr "." ; after idle doid }
doid
dotim
vwait forever