- Timestamp:
- Jan 28, 2011, 9:31:45 AM (14 years ago)
- Location:
- trunk/tester
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tester/test.tcl
r2068 r2074 126 126 set val [$_testobj get $fullpath.current] 127 127 if {$val != ""} { 128 lappend retval $fullpath $val128 lappend retval [list $fullpath $val] 129 129 } 130 130 } 131 append retval [getInputs $fullpath]131 append retval " [getInputs $fullpath]" 132 132 } 133 133 return $retval … … 176 176 } 177 177 } 178 lappend retval $fullpath $status178 lappend retval [list $fullpath $status] 179 179 } 180 180 append retval " [getOutputs $fullpath]" -
trunk/tester/tester.tcl
r2068 r2074 109 109 110 110 # TODO: Handle resizing better 111 # TODO: Fix error that occurs only when you click and hold on a test112 # while the right hand side is empty. Adding lastsel check113 # removed the error, but tree selection still acts strange when114 # holding down the mouse button. selectionHandler actually gets115 # invoked twice, somehow leading to an event dispatch error.116 # If selectionHandler does NOT reconfigure the right side with the117 # selected test, then no error occurs.118 111 119 112 # ---------------------------------------------------------------------- -
trunk/tester/testview.tcl
r2055 r2074 145 145 } 146 146 } else { 147 showStatus "Test has not yet r an."147 showStatus "Test has not yet run." 148 148 } 149 149 updateResults … … 239 239 if {$test != ""} { 240 240 $itk_component(tabs) tab configure "Inputs" -state normal 241 foreach {path val} [$test getInputs] { 241 foreach pair [$test getInputs] { 242 set path [lindex $pair 0] 243 set val [lindex $pair 1] 242 244 $itk_component(inputs) insert end $path -data [list Value $val] 243 245 } … … 261 263 if {$test != "" && [$test hasRan] && [$test getResult] != "Error"} { 262 264 $itk_component(tabs) tab configure "Outputs" -state normal 263 foreach {path status} [$test getOutputs] { 265 foreach pair [$test getOutputs] { 266 set path [lindex $pair 0] 267 set status [lindex $pair 1] 264 268 $itk_component(outputs) insert end $path -data [list Status $status] 265 269 }
Note: See TracChangeset
for help on using the changeset viewer.