Posted to tcl by kbk at Wed Mar 25 16:46:37 GMT 2015view raw

  1. proc eventArrives {stuff} {
  2. variable queue
  3. lappend queue $stuff
  4. windClock
  5. }
  6. proc windClock {} {
  7. variable queueTimer
  8. if {![info exists queueTimer]} {
  9.