upvar and trace ...
Posted to
tcl
by colin at Wed Oct 23 20:22:41 GMT 2013
view raw
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)
Recent Posts
tcl by schelte
2 days ago
tcl by oldlaptop
15 days ago
tcl by mookie
21 days ago
tcl by dandyn
28 days ago
tcl by Bradipo
28 days ago
tcl by Bradipo
28 days ago
tcl by oldlaptop
52 days ago
tcl by oldlaptop
52 days ago
tcl by mookie
57 days ago
tcl by mookie
58 days ago
Submit
New paste
Documentation
From Jabber