---

label .msg -text "ciao" pack .msg -side top

---

testo_1.tcl