Changeset 1444 for trunk/gui/scripts/flowvisviewer.tcl

Timestamp:

May 14, 2009 10:41:10 PM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/flowvisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -1616 +1616 @@
         }
         "xcutplane" - "ycutplane" - "zcutplane" {
-            set axis [string range $what 0 1]
+            set axis [string range $what 0 0]
             set bool $_settings($this-$what)
             if { [isconnected] } {
@@ -2271 +2271 @@
 
 itcl::body Rappture::FlowvisViewer::GetFlowInfo { w } {
+    set flowobj ""
     foreach key [array names _obj2flow] {
         set flowobj $_obj2flow($key)
         break
+    }
+    if { $flowobj == "" } {
+        return
     }
     if { [winfo exists $w.frame] } {