Добрый день.
Вот тут: http://wiki.tcl.tk/808 есть такой пример.
proc clock:set var {
global $var
set $var [clock format [clock seconds] -format %H:%M:%S]
after 800 [list clock:set $var]
}
pack [label .l -textvariable myclock]
clock:set myclock
[cut]
This is not a recursion, the next instance of clock:set will be started
long after the current has returned, and it won't go deeper in stack
level.
[cut]
И дальше:
[cut]
(...) command will be restarted (...) with a different id each time.
[cut]
А почему?