Changeset 4984 for branches/1.4/gui/scripts/tool.tcl

Timestamp:

Feb 8, 2015 6:57:52 PM (9 years ago)

Author:

ldelgass

Message:

merge r4970 from trunk

Location:

branches/1.4

Files:

• . (modified) (1 prop)
• gui/scripts/tool.tcl (modified) (1 diff)

branches/1.4/gui/scripts/tool.tcl

@@ -31 +31 @@
     public method run {args} {
         sync  ;# sync all widget values to XML
-        eval $_task run $args
+
+        foreach {status result} [eval $_task run $args] break
+        if {$status == 0} {
+            # move good results to the data/results directory
+            $_task save $result
+        }
+
+        return [list $status $result]
     }
     public method abort {} {