Changeset 2050 for trunk/tester


Ignore:
Timestamp:
Jan 19, 2011 12:14:07 PM (9 years ago)
Author:
gah
Message:

fixes for tester

Location:
trunk/tester
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/tester.tcl

    r2034 r2050  
    112112    global lastsel
    113113    set test [.tree getTest]
    114     if {$test != $lastsel || [lsearch $args "-refresh"] != -1} {
     114    if {$test != "" || [lsearch $args "-refresh"] != -1} {
    115115        .right.view configure -test $test
    116116        if {$test != "" && [$test hasRan] && [$test getResult] != "Error"} {
  • trunk/tester/testtree.tcl

    r2034 r2050  
    6767    itk_component add treeview {
    6868        blt::treeview $itk_component(scrollbars).treeview -separator | \
    69             -autocreate true -selectmode multiple
     69            -autocreate true -selectmode single
    7070    } {
    7171        keep -foreground -font -cursor
  • trunk/tester/testview.tcl

    r2034 r2050  
    4040    protected method updateInfo {args}
    4141    protected method updateInputs {args}
    42 
     42    private variable _lastTest ""
    4343}
    4444
     
    106106itcl::configbody Rappture::Tester::TestView::test {
    107107    set test $itk_option(-test)
     108    if { $test == $_lastTest } {
     109        return
     110    }
    108111    # Data array is empty for branch nodes.
    109112    if {$test != ""} {
     
    128131        }
    129132        showDescription $descr
     133        set _lastTest $test
    130134    } else {
    131135       # Clear everything if branch node selected
     136        set _lastTest ""
    132137       reset
    133138    }
Note: See TracChangeset for help on using the changeset viewer.