Changeset 1836 for trunk

Timestamp:

Jul 20, 2010, 2:32:49 PM (14 years ago)

Author:

gah

Message:

add -tkwait flag to molvisviewer addmethod

Location:

trunk/gui/scripts

Files:

• molvisviewer.tcl (modified) (4 diffs)
• sequenceresult.tcl (modified) (1 diff)

trunk/gui/scripts/molvisviewer.tcl

@@ -945 +945 @@
     if { $flush } {
         SendCmd "bmp";                  # Flush the results.
-        set _waitForImage 1 
     }
     set _buffering 0;                   # Turn off buffering.
@@ -957 +956 @@
     blt::busy release $itk_component(hull)
 
-    if { $_waitForImage } {
-        tkwait variable [itcl::scope _waitForImage]
-    }
     debug "exiting rebuild"
 }
@@ -1417 +1413 @@
         -description    ""
         -param          ""
+        -tkwait         no
     }
 
@@ -1454 +1451 @@
         }
     }
-    # In a sequence there will be multiple calls to the "add" method.  Run
-    # "update" here to let the fileevent handler catch up with images,
-    # regardless of the speed setting in the sequence.
-    update 
+    if { $params(-tkwait) } {
+        # In a sequence there will be multiple calls to the "add" method.  Run
+        # "tkwait" here to let the fileevent handler catch up with images,
+        # regardless of the speed setting in the sequence.
+        set _waitForImage 1 
+        tkwait variable [itcl::scope _waitForImage]
+    }
 }
 

trunk/gui/scripts/sequenceresult.tcl

@@ -567 +567 @@
     $itk_component(eleLabel) configure -text "[$_topmost label $_pos]"
     foreach dataobj [$_topmost value $_pos] {
-        set settings "-color autoreset -width 2"
-        if { [catch {$dataobj hints style} style] == 0} {
+        set settings "-color autoreset -width 2 -tkwait yes"
+        if {[catch {$dataobj hints style} style] == 0} {
             eval lappend settings $style
         }