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

---

for.tcl