A Cleaner Example

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
}