Dear XOTcl-guys! The script below illustrates what I consider to be an XOTcl bug. tested with: Tcl8.4.16 + XOTcl1.5.6 Tcl8.5.0 + XOTcl1.5.6
regards Florian
# ************************************************************************ ****** puts "Tcl[set ::tcl_patchLevel]" puts "XOTcl [package require XOTcl]" ;# XOTcl 1.5.6, 1.5.5 namespace import xotcl::* # ######################################################################## ###### Class X -slots { Attribute create q } # ************************************************************************ ****** X instproc init {args} { next my trace add variable q {write unset} [list [self] trc] } # ************************************************************************ ****** X instproc trc {args} { puts "[self] [info level 0]" } # ************************************************************************ ****** X instproc test1 {} { puts "[info level 0]" puts " trace info = [my trace info variable q]" my copy ::b puts " trace info = [my trace info variable q]" puts "'copy' kills the trace!" } # ************************************************************************ ****** # ######################################################################## ###### X create ::a -q hallo ::a test1