Changeset 2977 for trunk/gui/scripts/main.tcl

Timestamp:

Apr 25, 2012, 11:31:03 AM (12 years ago)

Author:

gah

Message:

fix multiple for about icons for 2 page tools with manual-resim set

File:

• trunk/gui/scripts/main.tcl (modified) (3 diffs)

trunk/gui/scripts/main.tcl

@@ -290 +290 @@
 # Finalize the arrangement
 # ----------------------------------------------------------------------
-if {[llength [$win.pager page]] == 2} {
+if {[llength [$win.pager page]] > 2} {
+    # We have phases, so we shouldn't allow the "Simulate" button.
+    # If it pops up, there are two ways to push simulate and duplicate
+    # links for "About" and "Questions?".
+    $f.analyze configure -simcontrol off
+} elseif {[llength [$win.pager page]] == 2} {
     set style [$xmlobj get tool.layout]
     set screenw [winfo screenwidth .]
@@ -317 +322 @@
     }
     if { $arrangement != "side-by-side" && 
-            ($type == "manual" || $type == "auto" || $style == "wizard") } {
+            ($type == "manual" || $type == "manual-resim" ||
+             $type == "auto" || $style == "wizard") } {
         # in "auto" mode, we don't need a simulate button
         $f.analyze configure -simcontrol off
@@ -324 +330 @@
         $f.analyze configure -simcontrol on
     }
-} elseif {[llength [$win.pager page]] > 2} {
-    # We have phases, so we shouldn't allow the "Simulate" button.
-    # If it pops up, there are two ways to push simulate and duplicate
-    # links for "About" and "Questions?".
-    $f.analyze configure -simcontrol off
 }