summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-11-12 16:38:13 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-11-12 16:38:13 (GMT)
commiteb78d528032eb6aed4fea23a56198aa78a88adaf (patch)
tree42a3c6f809c54aec8fa1cbcab998e8c7699646f1 /tests/text.test
parent7faa0aea85f192a919c34005c6400af6873d61d2 (diff)
downloadtk-eb78d528032eb6aed4fea23a56198aa78a88adaf.zip
tk-eb78d528032eb6aed4fea23a56198aa78a88adaf.tar.gz
tk-eb78d528032eb6aed4fea23a56198aa78a88adaf.tar.bz2
bug #1777362 - handle windows with funky names by avoiding use of the
window path for anchors.
Diffstat (limited to 'tests/text.test')
-rw-r--r--tests/text.test49
1 files changed, 43 insertions, 6 deletions
diff --git a/tests/text.test b/tests/text.test
index ac5a543..5709b33 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.51 2008/08/03 15:30:26 aniap Exp $
+# RCS: @(#) $Id: text.test,v 1.52 2008/11/12 16:38:13 patthoyts Exp $
package require tcltest 2.2
eval tcltest::configure $argv
@@ -6653,11 +6653,48 @@ test text-35.3 {widget dump -command destroys widget} -setup {
} -result {ok}
-# cleanup
-cleanupTests
-return
-
-
+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