Changeset 2080 for trunk/tester/testview.tcl

Timestamp:

Feb 2, 2011, 4:51:29 PM (14 years ago)

Author:

mmc

Message:

Part 1 of a major reorganization of content. Moving "instant" to "builder"
and setting up "builder" more like the "gui" part as a package. Moving the
Rappture::object stuff from the builder into the main installation, so it
can be shared by the tester as well. Moving "driver" into gui/scripts
where it belongs. Creating a new "launcher.tcl" script that decides
which of the three parts to launch based on command line options. Still
need to sort out the Makefiles to get this all right...

File:

• trunk/tester/testview.tcl (modified) (2 diffs)

trunk/tester/testview.tcl

@@ -144 +144 @@
                     set color $itk_option(-statusfailcolor)
                 }
+                Running - Waiting {
+                    set smesg "Test waiting to run"
+                    set sicon [Rappture::icon wait64]
+                    set color $itk_option(-statuspasscolor)
+                }
                 default { error "unknown test state \"[$obj getResult]\"" }
             }
@@ -161 +166 @@
         }
         default {
-            array set states { ? 0  Pass 0  Fail 0  total 0 }
+            array set states { ? 0  Pass 0  Fail 0  Running 0  Waiting 0  total 0 }
             foreach obj $_testobjs {
                 incr states(total)