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