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

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