Subversion Repositories or1k

# This file is a Tcl script to test the code in tkEvent.c.  It is

# organized in the standard fashion for Tcl tests.

#

# Copyright (c) 1994 The Regents of the University of California.

# Copyright (c) 1994-1995 Sun Microsystems, Inc.

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

# RCS: @(#) $Id: event.test,v 1.1.1.1 2002-01-16 10:25:58 markom Exp $

if {[info procs test] != "test"} {

    source defs

}

foreach i [winfo children .] {

    destroy $i

}

wm geometry . {}

raise .

# XXX This test file is woefully incomplete.  Right now it only tests

# a few of the procedures in tkEvent.c.  Please add more tests whenever

# possible.

test event-1.1 {Tk_HandleEvent procedure, filter events for dead windows} {

    button .b -text Test

    pack .b

    bindtags .b .b

    update

    bind .b  {

        lappend x destroy

        event generate .b <1>

    }

    bind .b <1> {

        lappend x button

    }

    set x {}

    destroy .b

    set x

} {destroy}