frame .f text .f.text pack .f.text pack .f proc somma {a b} { return [expr $a + $b] } set c [somma 10 20] .f.text insert end "10 + 20 = $c"

procedura.tcl