Tcl Source Code

Artifact 2391ed0afb6e1a21d4a2d69e3408e7106a98305f:

Attachment "append.bug" to ticket [951220ffff] added by trott13 2004-05-10 19:49:46.

---

proc appendTrace {name1 name2 op} {

   global $name1
   puts "traced $name1\($name2\)"
}

trace variable one r appendTrace

# works:
#set one(two) 0
#incr one(two)

# _NOT_ working:
append one(two) three

# this (of course) works again:
#puts $one(two)