Changeset 768 for trunk/gui/scripts

Timestamp:

Jun 10, 2007 5:56:34 PM (17 years ago)

Author:

mmc

Message:

Added <control>manual-resim</control> directive. This allows you to
re-simulate a combination of input parameters that have already been
entered. This was requested for the Qwalk tool.

Added "-decorations no" to the postscript output for XY plots, so it
comes out a little cleaner.

Location:

trunk/gui/scripts

Files:

• analyzer.tcl (modified) (2 diffs)
• numberresult.tcl (modified) (1 diff)
• xyresult.tcl (modified) (1 diff)

trunk/gui/scripts/analyzer.tcl

@@ -317 +317 @@
         # check to see if simulation is really needed
         $_tool sync
-        if {[$itk_component(resultset) contains [$_tool xml object]]} {
+        if {[$itk_component(resultset) contains [$_tool xml object]]
+              && ![string equal $_control "manual-resim"]} {
             # not needed -- show results and return
             $itk_component(notebook) current analyze
@@ -422 +423 @@
     # check to see if simulation is really needed
     $_tool sync
-    if {![$itk_component(resultset) contains [$_tool xml object]]} {
+    if {![$itk_component(resultset) contains [$_tool xml object]]
+          || [string equal $_control "manual-resim"]} {
         # if control mode is "auto", then simulate right away
         if {[string match auto* $_control]} {

trunk/gui/scripts/numberresult.tcl

@@ -569 +569 @@
               }
               pdf {
-                set psdata [$itk_component(plot) postscript output -maxpect 1]
+                set psdata [$itk_component(plot) postscript output -decorations no -maxpect 1]
 
                 set cmds {

trunk/gui/scripts/xyresult.tcl

@@ -495 +495 @@
               }
               pdf {
-                set psdata [$itk_component(plot) postscript output -maxpect 1]
+                set psdata [$itk_component(plot) postscript output -decorations no -maxpect 1]
 
                 set cmds {