Posted to tcl by colin at Wed Oct 23 20:33:31 GMT 2013view pretty
proc T {args} {
puts "Trace: ($args)"
}
trace add variable A {write unset array unset} T
set A(a) 1
upvar #0 A(a) XA
set XA 2
puts $A(a)
proc T {args} {
puts "Trace: ($args)"
}
trace add variable A {write unset array unset} T
set A(a) 1
upvar #0 A(a) XA
set XA 2
puts $A(a)