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

  1. proc dotim {} { puts -nonewline stderr "\r" ; after 1 dotim}
  2. proc doid {} {puts -nonewline stderr "." ; after idle doid }
  3. doid
  4. dotim
  5. vwait forever
  6.