Added -get option for gumtree commands.

r2132 | ffr | 2007-08-16 17:07:59 +1000 (Thu, 16 Aug 2007) | 2 lines
2007-08-16 17:07:59 +10:00
parent 00b91be2ae
commit e7c52b18f1
1 changed files with 1 additions and 1 deletions
--- a/site_ansto/instrument/util/command.tcl
+++ b/site_ansto/instrument/util/command.tcl
@@ -85,7 +85,7 @@ proc command {acmdName arglist body} {
            }
          }
        }
-        -set {
+        -set - -get {
          if {[lindex $args 1] == "feedback"} {
            set __vname [lindex $args 2]
            set __ptype fb