Changeset 2054

Timestamp:

Jan 19, 2011 6:54:30 PM (13 years ago)

Author:

braffert

Message:

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

File:

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

trunk/tester/testview.tcl

@@ -37 +37 @@
     protected method showDescription {text}
     protected method showStatus {text}
-    protected method updateResults {args}
-    protected method updateInputs {args}
-    protected method updateOutputs {args}
+    protected method updateResults {}
+    protected method updateInputs {}
+    protected method updateOutputs {}
 
 }
@@ -123 +123 @@
 # ----------------------------------------------------------------------
 # When the -test configuration option is modified, update the display
-# accordingly.  The data passed in should be a Test object, or the
-# empty string to clear the display.
+# accordingly.  The data passed in should be a Test object, or an empty 
+# string to clear the display.
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::Tester::TestView::test {
     set test $itk_option(-test)
-    # Data array is empty for branch nodes.
-    if {$test != ""} {
+    # If an empty string is passed in then clear everything
+    if {$test == ""} {
+        reset
+    } else {
         if {![$test isa Test]} {
             error "-test option must be a Test object.  $test was given."
@@ -150 +152 @@
         }
         showDescription $descr
-    } else {
-       # Clear everything if branch node selected
-       reset 
     }
 }
@@ -219 +218 @@
 }
 
-itcl::body Rappture::Tester::TestView::updateInputs {args} {
+itcl::body Rappture::Tester::TestView::updateInputs {} {
     $itk_component(inputs) delete 0
     set test $itk_option(-test)
@@ -231 +230 @@
 }
 
-itcl::body Rappture::Tester::TestView::updateOutputs {args} {
+itcl::body Rappture::Tester::TestView::updateOutputs {} {
     $itk_component(outputs) delete 0
     set test $itk_option(-test)