Posted to tcl by xharx at Thu Mar 04 19:14:22 GMT 2021view raw

  1. set x 1000
  2. set done 0
  3. after 1000 set done 1
  4. while {!$done} {
  5. # A very silly example!
  6. set x [expr {log($x) ** 2.8}]
  7.  
  8. # Test to see if our time-limit has been hit. This would
  9. # also give a chance for serving network sockets and, if
  10. # the Tk package is loaded, updating a user interface.
  11. update
  12. }
  13.