Accueil





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:


©2005-2016 Menz Agitat