Changeset 2742 for branches/blt4/gui/scripts/sequenceresult.tcl

Timestamp:

Dec 27, 2011 12:41:24 PM (12 years ago)

Author:

gah

Message:

sync with trunk

File:

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

branches/blt4/gui/scripts/sequenceresult.tcl

@@ -397 +397 @@
     global readyForNextFrame 
     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]
+                                        
+    # Check if the play button still exists. We may be in the process
+    # of destroying the widget.
+    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]
+    }
 }