ce qu'il te faut c'est la methode repeat, utilisable sur toute widget Tk

http://search.cpan.org/~ni-s/Tk-804.027/pod/after.pod