Posted to tcl by kbk at Mon Jun 01 19:58:22 GMT 2015view raw

  1. set idle {}; set var1 {}; set var2 {}
  2. proc Burst {foo bar} {
  3. global idle var1 var2
  4. set var1 $foo; set var2 $bar
  5. if {$idle != “”} {return}
  6. set idle [after idle [BurstProc]]
  7. }
  8.  
  9. proc BurstProc {} {
  10. set idle {}
  11. global idle var1 var2
  12. ::SetUI $var1 $var2
  13. }