Update treevariable.tcl

/setchanged also was returning the wrong failure status.
FRIBDAQ · Mar 28, 2024 · 8b9ab39 · 8b9ab39
1 parent 22ebd76
commit 8b9ab39
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main/rest/custom/treevariable.tcl b/main/rest/custom/treevariable.tcl
@@ -109,7 +109,7 @@ proc SpecTcl_treevariable/setchanged {name} {
     } msg]
     if {$status} {
         return [SpecTcl::_returnObject                      \
-            OK [json::write string $msg]                    \
+            "'treevariable -setchanged' command failed" [json::write string $msg]                    \
         ]
     }
     SpecTcl::_returnObject OK