Changeset 1444 for trunk

Timestamp:

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

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• flowvisviewer.tcl (modified) (2 diffs)
• nanovisviewer.tcl (modified) (1 diff)

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] } {

trunk/gui/scripts/nanovisviewer.tcl

@@ -1292 +1292 @@
         }
         "xcutplane" - "ycutplane" - "zcutplane" {
-            set axis [string range $what 0 1]
+            set axis [string range $what 0 0]
             set bool $_settings($this-$what)
             if { [isconnected] } {