frame .f text .f.text pack .f.text pack .f set a 0 while {$a < 10} { .f.text insert end "$a " incr a 1 }

while.tcl