Changeset 1978 for trunk

Timestamp:

Dec 7, 2010 1:15:28 PM (13 years ago)

Author:

braffert

Message:

Adding getRunFile method to tool.tcl

File:

• trunk/gui/scripts/tool.tcl (modified) (5 diffs)

trunk/gui/scripts/tool.tcl

@@ -28 +28 @@
     public method run {args}
     public method abort {}
+    public method getRunFile {}
 
     protected method _mkdir {dir}
@@ -34 +35 @@
     private variable _installdir ""  ;# installation directory for this tool
     private variable _outputcb ""    ;# callback for tool output
+    private variable _runFile ""     ;# location of last created run.xml
     private common job               ;# array var used for blt::bgexec jobs
     private common jobnum 0          ;# counter for unique job number
@@ -260 +262 @@
     # see if the job was aborted
     if {[regexp {^KILLED} $job(control)]} {
+        set _runFile ""
         return [list 0 "ABORT"]
     }
@@ -287 +290 @@
                 }
             }
+            set _runFile $file
         } else {
             set status 1
             set result "Can't find result file in output.\nDid you call Rappture
 ::result in your simulator?"
+            set _runFile ""
         }
         return [list $status $result]
@@ -337 +342 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# USAGE: getRunFile
+#
+# Returns the file name of the last generated run.xml, as opposed to a
+# library object as returned by the run method.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::getRunFile {} {
+    return $_runFile
+}
+