items.tcl

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

# items.tcl --
#
#	Test the handling of DisplayStyle and DisplayItem.
#
# Copyright (c) 1996, Expert Interface Technologies
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

proc About {} {
    return "Test the handling of DisplayStyle and DisplayItem."
}

proc Test {} {
    TestBlock items-1.1 {tixTmpLine} {
	tixHList .c
	set style [tixDisplayStyle text -refwindow .c -font fixed]
	.c add a -itemtype text -style $style -text Hello
	.c add b -itemtype text -text Hello

	tixHList .d
	.d add a -itemtype text -style $style -text Hello
	.d add b -itemtype text -text Hello

	pack .c .d -expand yes -fill both
	update

	destroy .c
	update
	Assert {[string comp [info command $style] ""] == 0}
    }

    catch {
	destroy .c
    }
    catch {
	destroy .d
    }
}