Subversion Repositories or1k

# 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

    }

}