Changeset 1554 for trunk

Timestamp:

Jul 23, 2009, 8:12:27 AM (15 years ago)

Author:

gah

Message:

fix test for _obj2models element

File:

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

trunk/gui/scripts/molvisviewer.tcl

@@ -1466 +1466 @@
         if {$pos >= 0} {
             set _dlist [lreplace $_dlist $pos $pos]
-            foreach model $_obj2models($dataobj) {
-                array unset _active $model
-                array unset _dataobjs $model-*
+            if { [info exists _obj2models($dataobj)] } {
+                foreach model $_obj2models($dataobj) {
+                    array unset _active $model
+                }
             }
             array unset _obj2models $dataobj