<![CDATA[
# b e' dichiarata all'interno della procedura
# quindi ha valenza locale
# ma utilizzando l'istruzione "global" acquisisce valenza globale
frame .f
text .f.text
pack .f.text
pack .f
proc quadrato {a} {
global b
set b [expr $a * $a]
}
quadrato 10
.f.text insert end "10 al quadrato vale $b"
]]>
global.tcl