Changeset 766 for trunk/gui/scripts/resultviewer.tcl

Timestamp:

Jun 10, 2007, 4:06:35 PM (17 years ago)

Author:

mmc

Message:

Fixed the output viewer for numbers/integers to show a plot of
the value versus input parameters. As you change the ResultSet?
control, the x-axis updates to show the number versus values
in the result set.

Fixed the Rappture::result command to include the user's login
in the metadata, so we know who performed the computation.

File:

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

trunk/gui/scripts/resultviewer.tcl

@@ -43 +43 @@
     private variable _mode2widget    ;# maps plotting mode => widget
     private variable _dataslots ""   ;# list of all data objects in this widget
-    private variable _plotlist ""    ;# list of indices plotted in _dataslots
 }
                                                                                 
@@ -154 +153 @@
     switch -- $option {
         add {
+            set params ""
             foreach {index opts} $args {
+                if {$index == "params"} {
+                    set params $opts
+                    continue
+                }
                 set reset "-color autoreset"
                 set slot [lindex $_dataslots $index]
@@ -179 +183 @@
                 }
             }
+            if {"" != $params && "" != $_mode} {
+                eval $_mode2widget($_mode) parameters $params
+            }
         }
         clear {
@@ -185 +192 @@
                 $_mode2widget($_mode) delete
             }
-            set _plotlist ""
         }
         default {
@@ -289 +295 @@
                     }
                 }
-                number - integer - boolean - choice {
+                number - integer {
+                    set mode "number"
+                    if {![info exists _mode2widget($mode)]} {
+                        set w $itk_interior.number
+                        Rappture::NumberResult $w
+                        set _mode2widget($mode) $w
+                    }
+                }
+                boolean - choice {
                     set mode "value"
                     if {![info exists _mode2widget($mode)]} {