Changeset 6231 for branches/1.7/gui/scripts/pager.tcl

Timestamp:

Apr 1, 2016 10:28:56 AM (8 years ago)

Author:

gah

Message:

fix: code to _job(exitcode) in task.tcl, add -nosim configuration option to pager, use -nosim in analyzer to prevent automatically simulating when switching pages

File:

• branches/1.7/gui/scripts/pager.tcl (modified) (2 diffs)

branches/1.7/gui/scripts/pager.tcl

@@ -67 +67 @@
     private variable _page2info      ;# maps page name => -frame,-title,-command
     private variable _current ""     ;# page currently shown
+    public variable nosim 0
 }
 
@@ -374 +375 @@
             # invoke it now.
             #
-            if {"" != $_current
-                  && [string length $_page2info($_current-command)] > 0} {
+            if {"" != $_current && !$nosim && 
+                  [string length $_page2info($_current-command)] > 0} {
                 uplevel #0 $_page2info($_current-command)
             }