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

Timestamp:

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

Author:

gah

Message:

add -tkwait flag to molvisviewer addmethod

File:

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

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
         }