Changeset 2054 for trunk/tester
- Timestamp:
- Jan 19, 2011 6:54:30 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tester/testview.tcl
r2053 r2054 37 37 protected method showDescription {text} 38 38 protected method showStatus {text} 39 protected method updateResults { args}40 protected method updateInputs { args}41 protected method updateOutputs { args}39 protected method updateResults {} 40 protected method updateInputs {} 41 protected method updateOutputs {} 42 42 43 43 } … … 123 123 # ---------------------------------------------------------------------- 124 124 # When the -test configuration option is modified, update the display 125 # accordingly. The data passed in should be a Test object, or the126 # emptystring to clear the display.125 # accordingly. The data passed in should be a Test object, or an empty 126 # string to clear the display. 127 127 # ---------------------------------------------------------------------- 128 128 itcl::configbody Rappture::Tester::TestView::test { 129 129 set test $itk_option(-test) 130 # Data array is empty for branch nodes. 131 if {$test != ""} { 130 # If an empty string is passed in then clear everything 131 if {$test == ""} { 132 reset 133 } else { 132 134 if {![$test isa Test]} { 133 135 error "-test option must be a Test object. $test was given." … … 150 152 } 151 153 showDescription $descr 152 } else {153 # Clear everything if branch node selected154 reset155 154 } 156 155 } … … 219 218 } 220 219 221 itcl::body Rappture::Tester::TestView::updateInputs { args} {220 itcl::body Rappture::Tester::TestView::updateInputs {} { 222 221 $itk_component(inputs) delete 0 223 222 set test $itk_option(-test) … … 231 230 } 232 231 233 itcl::body Rappture::Tester::TestView::updateOutputs { args} {232 itcl::body Rappture::Tester::TestView::updateOutputs {} { 234 233 $itk_component(outputs) delete 0 235 234 set test $itk_option(-test)
Note: See TracChangeset
for help on using the changeset viewer.