<![CDATA[
# il comando "upvar" permette di passare i parametri per riferimento
frame .f
text .f.text
pack .f.text
pack .f
proc raddoppia {a} {
upvar $a x
set x [expr $x * 2]
}
set x 7
raddoppia x
.f.text insert end "il doppio di 7 vale $x"
]]>
upvar.tcl