Názor k článku Programovací jazyk TCL (20) od jarda - proměnnou row$i lze zobrazit v pomocné proceduře "vypis" package...

proměnnou row$i lze zobrazit v pomocné proceduře "vypis"

package require Tk
proc vypis { i } {
global row$i
puts "row$i = [set row$i]"
}
set rows { a b c }
set i 0
foreach row $rows {
checkbutton .row$i -text $row -variable row$i -command [list vypis $i]
grid .row$i -column 1 -sticky w
incr i
}