Posted to tcl by kbk at Sun Apr 01 01:15:00 GMT 2012view pretty
proc something {} { variable tooSoon if {[info exists tooSoon]} { return } set tooSoon [after 5000 cleanup] # ... do something ... } proc cleanup {} { variable tooSoon unset tooSoon }
proc something {} { variable tooSoon if {[info exists tooSoon]} { return } set tooSoon [after 5000 cleanup] # ... do something ... } proc cleanup {} { variable tooSoon unset tooSoon }