Changeset 468 for trunk/gui/scripts/nanovisviewer.tcl

Timestamp:

Jun 8, 2006, 6:58:38 PM (18 years ago)

Author:

mmc

Message:

Fixed bugs that showed up in the nanovis viewer when you switch between
two different fields or clear the existing result viewer.

Fixed the download option for 3D fields.

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -793 +793 @@
     # activate the proper volume
     set first [lindex [get] 0]
-
-    set axis [$first hints updir]
-    if {"" != $axis} {
-        _send up $axis
+    if {"" != $first} {
+        set axis [$first hints updir]
+        if {"" != $axis} {
+            _send up $axis
+        }
     }
 
@@ -940 +941 @@
         # nothing to send -- activate the proper volume
         set first [lindex [get] 0]
-
-        set axis [$first hints updir]
-        if {"" != $axis} {
-            _send up $axis
+        if {"" != $first} {
+            set axis [$first hints updir]
+            if {"" != $axis} {
+                _send up $axis
+            }
         }
         foreach key [array names _obj2id *-*] {
@@ -1219 +1221 @@
 
     set dataobj [lindex [get] 0]
+    if {"" == $dataobj} {
+        return
+    }
     set comp [lindex [$dataobj components] 0]
     if {![info exists _obj2style($dataobj-$comp)]} {
@@ -1331 +1336 @@
 
     set dataobj [lindex [get] 0]
-    set comp [lindex [$dataobj components] 0]
-    if {[info exists _obj2id($dataobj-$comp)]} {
-        set ivol $_obj2id($dataobj-$comp)
+    if {"" != $dataobj} {
+        set comp [lindex [$dataobj components] 0]
+        if {[info exists _obj2id($dataobj-$comp)]} {
+            set ivol $_obj2id($dataobj-$comp)
+        }
     }