Tester l'existence d'un timer / utimer et récupérer son ID
Permet de vérifier si un
timer /
utimer donné est en route et de récupérer son ID dans le but éventuel de l'arrêter au moyen de
killtimer /
killutimer.
Procédures
###############################################################################
### Test de l'existence d'un timer, renvoi de son ID
###############################################################################
proc timerexists {command} {
foreach timer_ [timers] {
if { ![::tcl::string::compare $command [lindex $timer_ 1]] } {
return [lindex $timer_ 2]
}
}
}
###############################################################################
### Test de l'existence d'un utimer, renvoi de son ID
###############################################################################
proc utimerexists {command} {
foreach utimer_ [utimers] {
if { ![::tcl::string::compare $command [lindex $utimer_ 1]] } {
return [lindex $utimer_ 2]
}
}
}
Exemples
timer 10 [list putlog "hello world!"]
Tcl: timer34793
timerexists [list putlog "hello world!"]
Tcl:timer34793
killtimer [timerexists [list putlog "hello world!"]]
Tcl: