Changeset 43 for trunk/gui/scripts/analyzer.tcl

Timestamp:

Aug 16, 2005, 1:12:56 AM (19 years ago)

Author:

mmc

Message:

• Added a new Rappture.result() function to the Python library. This makes it easy to finalize results. See examples/graph for example use.

• Added examples/graph to illustrate a simple tool with a string and two numbers for input.

• Fixed the XY graph to show crosshairs and pop-up info when you mouse over particular points.

• Fixed Rappture::exec so that it doesn't add stray newlines when a program has lots (more than 8k) of output.

• Fixed the analyzer to recognize the <tool><analyzer> tag. When set to "last", this automatically clears the last result. Handy for programs like SPICE, where you don't compare much, but keep running one new simulation after another.

• Fixed <string> entries to enable the Simulate button after each editing keystroke.

File:

• trunk/gui/scripts/analyzer.tcl (modified) (4 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -311 +311 @@
             set status [catch {load $file} msg]
             if {$status != 0} {
-                set result $msg
+                global errorInfo
+                set result "$msg\n$errorInfo"
             }
         } else {
@@ -329 +330 @@
         $itk_component(runinfo) delete 1.0 end
         $itk_component(runinfo) insert end "Problem launching job:\n\n"
-        $itk_component(runinfo) insert end $result
+        _simOutput $result
         $itk_component(runinfo) configure -state disabled
+        $itk_component(runinfo) see 1.0
     } else {
         $itk_component(notebook) current analyze
@@ -370 +372 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Analyzer::load {file} {
+    # only show the last result? then clear first
+    if {[$_tool xml get tool.analyzer] == "last"} {
+        clear
+    }
+
     # try to load new results from the given file
     set xmlobj [Rappture::library $file]
@@ -509 +516 @@
     set page [$itk_component(resultselector) value]
     set page [$itk_component(resultselector) translate $page]
-    set f [$itk_component(resultpages) page $page]
-    $f.rviewer plot clear
-    foreach {index opts} $_plotlist {
-        $f.rviewer plot add $index $opts
+    if {"" != $page} {
+        set f [$itk_component(resultpages) page $page]
+        $f.rviewer plot clear
+        foreach {index opts} $_plotlist {
+            $f.rviewer plot add $index $opts
+        }
     }
 }