Changeset 2080 for trunk/tester/testtree.tcl

Timestamp:

Feb 2, 2011 4:51:29 PM (10 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/testtree.tcl (modified) (2 diffs)

trunk/tester/testtree.tcl

@@ -225 +225 @@
                 Pass    { set data(result) "@[Rappture::icon pass16]" }
                 Fail    { set data(result) "@[Rappture::icon fail16]" }
-                Waiting { set data(result) "@[Rappture::icon wait]" }
+                Waiting { set data(result) "@[Rappture::icon wait16]" }
                 Running { set data(result) "@[spinner use]" }
                 default { set data(result) "" }
@@ -231 +231 @@
 puts "ICON: $data(result)"
             $itk_component(treeview) entry configure $n -data [array get data]
+
+            # if the node that's changed is selected, invoke the
+            # -selectcommand code so the GUI will react to the new state
+            if {[$itk_component(treeview) selection includes $n]} {
+                set cmd [$itk_component(treeview) cget -selectcommand]
+                if {[string length $cmd] > 0} {
+                    uplevel #0 $cmd
+                }
+            }
         }
     }