frame .f text .f.text pack .f.text pack .f set numero 2 switch $numero { 1 {.f.text insert end "uno"} 2 {.f.text insert end "due"} 3 {.f.text insert end "tre"} default {.f.text insert end "maggiore di tre"} }

---

switch.tcl