<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
proc procedura {} {
global variabile
set variabile 7
}
set variabile 3
.f.text insert end {
prima di invocare la procedura, la variabile valeva : }
.f.text insert end "$variabile
"
procedura
.f.text insert end {
dopo avere invocato la procedura, la variabile vale : }
.f.text insert end "$variabile"
]]>
global2.tcl