Posted to tcl by kbk at Mon Jun 01 19:58:22 GMT 2015view raw
- set idle {}; set var1 {}; set var2 {}
- proc Burst {foo bar} {
- global idle var1 var2
- set var1 $foo; set var2 $bar
- if {$idle != “”} {return}
- set idle [after idle [BurstProc]]
- }
- proc BurstProc {} {
- set idle {}
- global idle var1 var2
- ::SetUI $var1 $var2
- }