summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/entry.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/entry.test b/tests/entry.test
index 5c6265f..effa631 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: entry.test,v 1.12 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: entry.test,v 1.13 2002/10/02 20:59:28 hobbs Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -1588,6 +1588,16 @@ test entry-20.6 {widget deletion while active} {
update idle
winfo exists .e
} 0
+test entry-20.7 {widget deletion with textvariable active} {
+ # SF bugs 607390 and 617446
+ destroy .e
+ set FOO init
+ entry .e -textvariable FOO -validate all \
+ -vcmd {%W configure -bg white; format 1}
+ bind .e <Destroy> { set FOO hello }
+ destroy .e
+ winfo exists .e
+} 0
# XXX Still need to write tests for EntryBlinkProc, EntryFocusProc,
# and EntryTextVarProc.