Posted to tcl by colin at Wed Oct 23 20:22:41 GMT 2013view pretty

trace add variable A {write unset array unset} [list ::apply [list {args} {
    puts "Trace: ($args)"
}]]

set A(a) 1
upvar #0 A(a) XA
set XA 2
puts $A(a)