var1.tcl

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

proc About {} {
    return "Testing -variable option with Tix widgets"
}

proc Test {} {
    global foo bar arr

    set classes {tixControl tixComboBox}
    set value 1234

    foreach class $classes {
	set w [$class .foo]
	pack $w
	update idletasks

	TestBlock var1-1.1 {$class: config -variable with initialized value} {
	    set bar $value
	    $w config -variable bar
	    update idletasks
	    Assert {[$w cget -value] == $value}
	}

	TestBlock var1-1.2 {$class: config -variable w/ uninitialized value} {
	    destroy $w
	    set w [$class .foo]
	    $w config -variable bar
	    Assert {[$w cget -value] == $bar}
	}

	TestBlock var1-1.2 {$class: config -variable} {
	    set foo 111
	    $w config -variable foo
	    update idletasks
	    Assert {[$w cget -value] == $foo}
	}

	TestBlock var1-1.2 {$class: config -value} {
	    $w config -value 123
	    Assert {[$w cget -value] == 123}
	    Assert {[set [$w cget -variable]] == 123}
	}

	TestBlock var1-1.2 {$class: config -variable on array variable} {
	    set arr(12) 1234
	    $w config -variable arr(12)
	    Assert {[$w cget -value] == $arr(12)}
	}

	TestBlock var1-1.2 {$class: config -value on array variable} {
	    $w config -value 12
	    Assert {[$w cget -value] == 12}
	    Assert {[set [$w cget -variable]] == 12}
	}

	catch {
	    destroy $w
	}
    }
}