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

Timestamp:

Jul 5, 2012, 2:54:49 PM (12 years ago)

Author:

mmc

Message:

Fixed a problem with "clear one" where old results weren't getting cleared
from the results viewer, so number plots were trying to access data that
didn't exist anymore. Results are now being cleared properly.

File:

• trunk/gui/scripts/analyzer.tcl (modified) (1 diff)

trunk/gui/scripts/analyzer.tcl

@@ -873 +873 @@
         }
         clear {
-            set xmlobj $eventData(what)
-            if {$xmlobj ne "all"} {
+            if {$eventData(what) ne "all"} {
                 # delete this result from all viewers
+                array set params $eventData(what)
                 foreach label [array names _label2page] {
                     set page $_label2page($label)
-                    $page.rviewer clear $xmlobj
+                    $page.rviewer clear $params(simnum)
                 }
             }