# foreach permette di ciclare su tutti gli elementi dell'insieme frame .f text .f.text pack .f.text pack .f set num 1 foreach nota {do re mi fa sol la si} { .f.text insert end "$num --> $nota " incr num 1 }

---

foreach.tcl