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
}