# questo programma mostra
# come esportare un vettore
# al fuori di una procedura
frame .f
text .f.text
pack .f.text
pack .f
proc procedura {parametro} {
upvar $parametro var_locale
set var_locale(0) 5
set var_locale(1) 7
set var_locale(2) 9
return
}
procedura vettore
.f.text insert end $vettore(1)
array_proc.tcl