Changeset 1135 for trunk/gui/scripts/sequenceresult.tcl

Timestamp:

Sep 2, 2008, 1:32:34 PM (16 years ago)

Author:

gah

Message:

use different icon for switch check

File:

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

trunk/gui/scripts/sequenceresult.tcl

@@ -212 +212 @@
     }
     lappend _dlist $dataobj
-
     $_dispatcher event -idle !rebuild
 }
@@ -289 +288 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::SequenceResult::download {option args} {
+    if { ![winfo exists $itk_component(area).viewer] } {
+        return ""; # No data, no viewer, no download.
+    }
     switch $option {
         coming {
-            return [$itk_component(area).viewer download coming]
+            return [$itk_component(area).viewer download coming]
         }
         controls {
@@ -336 +338 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::SequenceResult::play {} {
+    if { [llength $_indices] == 0 } {
+        return;                         # No frames (i.e. no data).
+    }
     # cancel any existing animation
     pause
@@ -477 +482 @@
             }
             default {
-                error "don't know how to view sequences of $type"
+                puts stderr "don't know how to view sequences of type \"$type\""
+                puts stderr "Is the sequence empty?"
+                return
             }
         }