---

set testo "prova di testo" label .msg -font "Helvetica 30" -text $testo pack .msg -side left

---

testo_2.tcl