frame .f text .f.text pack .f.text pack .f .f.text insert end "10 + 20 = [expr 10 + 20]"

somma.tcl