Ignore:
Timestamp:
Jan 19, 2011, 7:49:28 PM (14 years ago)
Author:
braffert
Message:

Regression tester: cleaning up and adding comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tester/testtree.tcl

    r2053 r2055  
    3838
    3939    constructor {args} { #defined later }
     40    destructor { #defined later }
    4041
    4142    public method getTest {args}
     
    117118}
    118119
    119 # TODO: destructor
    120 
    121 # ----------------------------------------------------------------------
    122 # Repopulate tree if test directory or toolxml have been changed.
     120# ----------------------------------------------------------------------
     121# DESTRUCTOR
     122# ----------------------------------------------------------------------
     123itcl::body Rappture::Tester::TestTree::destructor {} {
     124    foreach id [getLeaves] {
     125        itcl::delete object [getTest $id]
     126    }
     127}
     128
     129# ----------------------------------------------------------------------
     130# CONFIGURATION OPTION: -testdir
     131#
     132# Location of the directory containing a set of test xml files.
     133# Repopulate the tree if -testdir option is changed, but only if
     134# -toolxml has already been defined.
    123135# ----------------------------------------------------------------------
    124136itcl::configbody Rappture::Tester::TestTree::testdir {
     
    128140}
    129141
     142# ----------------------------------------------------------------------
     143# CONFIGURATION OPTION: -toolxml
     144#
     145# Location of the tool.xml for the tool being tested.  Repopulate the
     146# tree if -toolxml is changed, but only if -testdir has already been
     147# defined.
    130148itcl::configbody Rappture::Tester::TestTree::toolxml {
    131149    if {$itk_option(-testdir) != ""} {
     
    135153
    136154# ----------------------------------------------------------------------
     155# CONFIGURATION OPTION: -selectcommand
     156#
    137157# Forward the TestTree's selectcommand to the treeview, but tack on the
    138158# updateLabel method to keep the label refreshed when selection is
     
    256276# ----------------------------------------------------------------------
    257277itcl::body Rappture::Tester::TestTree::populate {} {
    258     # TODO: Delete existing test objects
     278    foreach id [getLeaves] {
     279        itcl::delete object [getTest $id]
     280    }
    259281    $itk_component(treeview) delete 0
    260282    # TODO: add an appropriate icon
Note: See TracChangeset for help on using the changeset viewer.