Changeset 4971 for branches/1.3/gui/scripts/tool.tcl

Timestamp:

Jan 30, 2015 12:21:28 PM (9 years ago)

Author:

mmc

Message:

Fixed auto-execution via TOOL_PARAMETERS to produce status output in a
file called rappture.status. This makes it easier for the web service
to monitor progress and know when everything is finished. Also, fixed
auto-execution to move the run file to the data/results directory and
clean up the original driver file.

File:

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

branches/1.3/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 {} {