PSI UPDATE

r2720 | ffr | 2008-10-13 15:40:07 +1100 (Mon, 13 Oct 2008) | 2 lines

site_ansto/instrument/util/extra_utility.tcl

@@ -63,9 +63,18 @@ proc errorInfowrite {args} {
   }
 }
 
-trace add variable errorInfo write errorInfowrite
-trace add execution catch enter entercatch
-trace add execution catch leave leavecatch
+proc callStack {enable} {
+  if {$enable} {
+    set trace_opt "add"
+  } else {
+    set trace_opt "remove"
+  }
+  trace $trace_opt variable errorInfo write errorInfowrite
+  trace $trace_opt execution catch enter entercatch
+  trace $trace_opt execution catch leave leavecatch
+}
+publish callStack mugger
+callStack true
  
  
 # LIST FUNCTIONS