summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-11-12 22:17:02 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-11-12 22:17:02 (GMT)
commit2c81572206141c449252b2db350be4c5654f48ea (patch)
tree48ca3d562c82de8e6af65d997f651b529ff6650a /tests/text.test
parent8918429a9a1270dda3d040a0fb395ef99a41590f (diff)
downloadtk-2c81572206141c449252b2db350be4c5654f48ea.zip
tk-2c81572206141c449252b2db350be4c5654f48ea.tar.gz
tk-2c81572206141c449252b2db350be4c5654f48ea.tar.bz2
backported fix for bug #1777362 to make events work for windows with hyphens in the path
Diffstat (limited to 'tests/text.test')
-rw-r--r--tests/text.test44
1 files changed, 43 insertions, 1 deletions
diff --git a/tests/text.test b/tests/text.test
index c195426..273dccd 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: text.test,v 1.49 2007/12/13 15:27:54 dgp Exp $
+# RCS: @(#) $Id: text.test,v 1.49.2.1 2008/11/12 22:17:02 patthoyts Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -3625,6 +3625,48 @@ test text-33.3 {widget dump -command destroys widget} {
deleteWindows
option clear
+test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup {
+ proc bgerror {m} {set ::my_error $m}
+ set ::my_error {}
+ pack [set w [text .t-1]]
+} -body {
+ tkwait visibility $w
+ event generate $w <1>
+ event generate $w <1>
+ update
+ set ::my_error
+} -cleanup {
+ destroy .t-1
+} -result {}
+
+test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup {
+ proc bgerror {m} {set ::my_error $m}
+ set ::my_error {}
+ pack [set w [text .t+1]]
+} -body {
+ tkwait visibility $w
+ event generate $w <1>
+ event generate $w <1>
+ update
+ set ::my_error
+} -cleanup {
+ destroy $w
+} -result {}
+
+test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup {
+ proc bgerror {m} {set ::my_error $m}
+ set ::my_error {}
+ pack [set w [text .t*1]]
+} -body {
+ tkwait visibility $w
+ event generate $w <1>
+ event generate $w <1>
+ update
+ set ::my_error
+} -cleanup {
+ destroy $w
+} -result {}
+
# cleanup
cleanupTests
return