tlist.tcl

来自「这是一个Linux下的集成开发环境」· TCL 代码 · 共 39 行

# This tests the TList widget.
#
#
# Assumptions:
#	None
#
proc About {} {
    return "Basic tests for the TList widget"
}

proc Test {} {

    #
    # Test the creation
    #
    test {tixTList} {args}
    test {tixTList .t -ff} {unknown}
    test {tixTList .t -width} {missing}

    if {[info command .t] != {}} {
	error "widget not destroyed when creation failed"
    }

    set t [tixTList .t]
    test {$t} {args}

    #
    # Test the "insert" command
    #
    test {$t insert} {args}
    test {$t insert 0 -foo} {missing}
    test {$t insert 0 -foo bar} {unknown}
    test {$t insert 0 -itemtype foo} {unknown}
    test {$t insert 0 -itemtype text -image foo} {unknown}
    test {$t insert 0 -itemtype text -text Hello} 

    pack $t
}