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

Timestamp:

May 31, 2011, 1:03:20 PM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/sequenceresult.tcl

@@ -375 +375 @@
     set readyForNextFrame 1;            # By default, always ready
 
-    # toggle the button to "play" mode
-    $itk_component(play) configure \
-        -bitmap [Rappture::icon play] \
-        -command [itcl::code $this play]
+    if { [info exists itk_component(play)] } {
+        # toggle the button to "play" mode
+        $itk_component(play) configure \
+            -bitmap [Rappture::icon play] \
+            -command [itcl::code $this play]
+    }
 }