---

button .b1 -text "fine" -width 10 -command fine pack .b1 proc fine {} { exit }

---

bottone.tcl