Posted to tcl by xharx at Sat Nov 14 12:03:07 GMT 2020view pretty
proc getvals1 {} { global tvals1 while {1} { incr tvals1 update after 1000 } } proc getvals2 {} { global tvals2 while {1} { incr tvals2 update after 1000 } } set tvals1 10 set tvals2 100 label .l1 -textvariable tvals1 label .l2 -textvariable tvals2 pack .l1 pack .l2 getvals1 getvals2