Changeset 2753 for trunk/gui/scripts/periodictable.tcl

Timestamp:

Jan 6, 2012, 11:43:45 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/periodictable.tcl (modified) (3 diffs)

trunk/gui/scripts/periodictable.tcl

@@ -460 +460 @@
     set elem [FindElement $name]
     if { $elem == "" || $_state($elem) == "disabled" } {
+        if { $elem != "" } {
+            puts stderr "element $elem is disabled"
+        }
         return ""
     }
@@ -607 +610 @@
 
 # ----------------------------------------------------------------------
-# USAGE: select <name> 
+# USAGE: FindElement
 #
 # Used to manipulate the selection in the table.
@@ -614 +617 @@
 itcl::body Rappture::PeriodicTable::FindElement { what } {
     foreach name [array names _table] { 
+        array unset info
         array set info $_table($name)
         if { $what == $info(name) || $what == $info(number) || 
              $what == $info(symbol) } {
-            break
-        }
-        array unset info
-    }
-    if { [info exists info] } {
-        return $info(name)
-    }
+            return $info(name)
+        }
+    }
+    parray info
     return ""
 }