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 bch
5 days ago
tcl by Bradipo
5 days ago
tcl by aspect
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
lilypond by Bradipo
7 days ago
tcl by cgm
17 days ago
tcl by dandyn
26 days ago
tcl by Stu
27 days ago
Submit
New paste
Documentation
From Jabber