Posted to tcl by colin at Wed Oct 23 20:33:31 GMT 2013view raw

  1. proc T {args} {
  2. puts "Trace: ($args)"
  3. }
  4.  
  5. trace add variable A {write unset array unset} T
  6.  
  7. set A(a) 1
  8. upvar #0 A(a) XA
  9. set XA 2
  10. puts $A(a)