Changeset 2032 for trunk/tester


Ignore:
Timestamp:
Jan 14, 2011 8:32:47 AM (9 years ago)
Author:
braffert
Message:
 
Location:
trunk/tester
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/test.tcl

    r2031 r2032  
    197197    set fid [open $_testxml w]
    198198    puts $fid "<?xml version=\"1.0\"?>"
    199     puts $fid [$newlib xml]
     199    puts $fid [$_runobj xml]
    200200    close $fid
     201    set _testobj $_runobj
    201202    set _result Pass
    202203    set _diffs ""
  • trunk/tester/tester.tcl

    r2031 r2032  
    114114    set test [.tree getTest]
    115115    if {$test != $lastsel || [lsearch $args "-refresh"] != -1} {
    116         .right.view configure -test $test
     116#        .right.view configure -test $test
    117117        if {$test != "" && [$test hasRan] && [$test getResult] != "Error"} {
    118118            .right.regoldenize configure -state normal
     
    138138        $test regoldenize
    139139        .tree refresh
    140         selectionHandler
     140        selectionHandler -refresh
    141141    }
    142142}
  • trunk/tester/testview.tcl

    r2031 r2032  
    190190    if {[llength $args] == 0} {
    191191        # Already cleared, do nothing.
     192        # TODO: Eventually display some kinds of message here.
    192193    } elseif {[llength $args] == 1} {
    193194        $itk_component(results) load [$test getTestobj]
Note: See TracChangeset for help on using the changeset viewer.