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
proc dotim {} { puts -nonewline stderr "\r" ; after 1 dotim} proc doid {} {puts -nonewline stderr "." ; after idle doid } doid dotim vwait forever