summaryrefslogtreecommitdiffstats
path: root/tests/entry.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-10-02 20:59:26 (GMT)
committerhobbs <hobbs>2002-10-02 20:59:26 (GMT)
commit65c10db188b78ea428b5b8ab8bda01fb5e1f2550 (patch)
tree8217af7d57954b413033a928a2ac4d64c9a7c6e7 /tests/entry.test
parentbc4adfa4e71a99292766c52dad81df85b6ac05e1 (diff)
downloadtk-65c10db188b78ea428b5b8ab8bda01fb5e1f2550.zip
tk-65c10db188b78ea428b5b8ab8bda01fb5e1f2550.tar.gz
tk-65c10db188b78ea428b5b8ab8bda01fb5e1f2550.tar.bz2
* tests/entry.test: added entry-20.7
* generic/tkEntry.c (EntryTextVarProc): check if the entry if being deleted before handling an associated textvariable. [Bug #607390 #617446]
Diffstat (limited to 'tests/entry.test')
-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.