Executer un timer à la fin d'une procédure

[Belatucadrus]

Bonjour,

J'suis face à un probleme de taille. Il faut que je lance un utimer a la fin d'une procédure qui ressemble à ceci

tclcopier

proc ::BT::proc {nick host hand chan text} {
     *Environ 5 ou 6 messages*
set ::BT::timer [utimer 15 ::BT::proc_suivante]
}

Seulement dès que la procédure est déclenchée, le timer se déclenche aussi, ce qui fait que le temps s'écoule pendant l'envoi de ces 6 messages, et que finalement, à la fin de ces messages, le timer ne dure au final que deux secondes.

Je peux certes augmenter la durée du timer, mais dans le cas d'une procédure avec un nombre de lignes très variables, le temps peut etre soit beaucoup trop long, soit beaucoup trop court.

Y'a-t'il un moyen efficace pour executer un timer seulement à la fin de la procédure et pas avant ?

Cordialement,