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)
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)