42 lines
1006 B
Plaintext
42 lines
1006 B
Plaintext
|
# 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.
|
||
|
|
#
|
||
|
|
# SCCS: @(#) event.test 1.6 96/09/12 09:25:44
|
||
|
|
|
||
|
|
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 <Destroy> {
|
||
|
|
lappend x destroy
|
||
|
|
event generate .b <1>
|
||
|
|
}
|
||
|
|
bind .b <1> {
|
||
|
|
lappend x button
|
||
|
|
}
|
||
|
|
set x {}
|
||
|
|
destroy .b
|
||
|
|
set x
|
||
|
|
} {destroy}
|