Changeset 2053 for trunk/tester/testtree.tcl

Timestamp:

Jan 19, 2011, 6:32:48 PM (14 years ago)

Author:

braffert

Message:

Regression tester: adding tabs to view heirarchy of inputs and outputs for each test

File:

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

trunk/tester/testtree.tcl

@@ -67 +67 @@
     itk_component add treeview {
         blt::treeview $itk_component(scrollbars).treeview -separator | \
-            -autocreate true -selectmode single
+            -autocreate true -selectmode multiple
     } {
         keep -foreground -font -cursor
@@ -287 +287 @@
         runTest $id
     }
-    eval $itk_option(-selectcommand) -refresh
+    # Try calling selectcommand with the -refresh option.  If selectcommand
+    # does not accept this argument, then call it with no arguments.
+    if {[catch {eval $itk_option(-selectcommand) -refresh}]} {
+        eval $itk_option(-selectcommand)
+    }
 }