Changeset 13 for trunk/gui/scripts/resultset.tcl

Timestamp:

Jun 8, 2005 5:37:19 PM (19 years ago)

Author:

mmc

Message:

Many improvements, including a new energy level viewer
for Huckel-IV. Added support for a new <boolean> type.
Fixed the cloud/field stuff so that when a cloud is 1D,
it reverts to BLT vectors so it will plot correctly.
Fixed the install script to work better on Windows.

File:

• trunk/gui/scripts/resultset.tcl (modified) (7 diffs)

trunk/gui/scripts/resultset.tcl

@@ -14 +14 @@
 option add *ResultSet.width 4i widgetDefault
 option add *ResultSet.height 4i widgetDefault
-option add *ResultSet.colors {blue #000066} widgetDefault
+option add *ResultSet.colors {blue magenta} widgetDefault
 option add *ResultSet.toggleBackground gray widgetDefault
 option add *ResultSet.toggleForeground white widgetDefault
@@ -130 +130 @@
 # Adds a new result to this result set.  Scans through all existing
 # results to look for a difference compared to previous results.
-# Returns an instruction to the caller, indicating how the various
+# Returns the index of this new result to the caller.  The various
 # data objects for this result set should be added to their result
-# viewers.
+# viewers at the same index.
 # ----------------------------------------------------------------------
 itcl::body Rappture::ResultSet::add {xmlobj} {
@@ -149 +149 @@
         $itk_component(status) configure -text "1 result"
         $itk_component(clear) configure -state normal
-        return "add"
+        return 0
     }
 
@@ -173 +173 @@
 
     # build a tuple for this new object
-    set op "add"
     set cols ""
     set tuple ""
@@ -198 +197 @@
 
         # overwrite the first matching entry
-        set i [lindex $ilist 0]
-        $_results put $i $tuple
+        set index [lindex $ilist 0]
+        $_results put $index $tuple
         set _recent $xmlobj
-        set op "replace $i"
-
     } else {
+        set index [$_results size]
         $_results insert end $tuple
         set _recent $xmlobj
@@ -215 +213 @@
     $itk_component(clear) configure -state normal
 
-    return $op
+    return $index
 }
 
@@ -232 +230 @@
     }
     catch {unset _col2widget}
+    set _plotall ""
     set _counter 0