Upgrade the remaining uses of [trace variable].

Oops. sync failure. Ignore this.
tcltk · Nov 8, 2023 · edcdcf4 · edcdcf4
1 parent 2447c7a
commit edcdcf4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/generic/itclBase.c b/generic/itclBase.c
@@ -81,7 +81,7 @@ static const char safeInitScript[] =
 "    set ptr [uplevel [list $class $name] $args]\n"
 "    uplevel [list set itcl-local-$ptr $ptr]\n"
 "    set cmd [uplevel namespace which -command $ptr]\n"
-"    uplevel [list trace variable itcl-local-$ptr u \"::itcl::delete object $cmd; list\"]\n"
+"    uplevel [list trace add variable itcl-local-$ptr unset \"::itcl::delete object $cmd; list\"]\n"
 "    return $ptr\n"
 "}";
 

diff --git a/library/itcl.tcl b/library/itcl.tcl
@@ -32,7 +32,7 @@ proc ::itcl::local {class name args} {
     set ptr [uplevel [list $class $name] $args]
     uplevel [list set itcl-local-$ptr $ptr]
     set cmd [uplevel namespace which -command $ptr]
-    uplevel [list trace variable itcl-local-$ptr u \
+    uplevel [list trace add variable itcl-local-$ptr unset \
         "::itcl::delete_helper $cmd"]
     return $ptr
 }