summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-10-01 08:48:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-10-01 08:48:06 (GMT)
commitdb14d3e554404d079d9ac125594e876a6fb0aa88 (patch)
treeed05edb2ce891ca86cd508c73bf3051e2da8bd9c /tests
parent1b44ccbe9877edeec3d8ff1513bff67bea09fa6e (diff)
downloadtk-db14d3e554404d079d9ac125594e876a6fb0aa88.zip
tk-db14d3e554404d079d9ac125594e876a6fb0aa88.tar.gz
tk-db14d3e554404d079d9ac125594e876a6fb0aa88.tar.bz2
Finally dealt with 614650 and with a simpler solution too.
Diffstat (limited to 'tests')
-rw-r--r--tests/unixSelect.test10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/unixSelect.test b/tests/unixSelect.test
index 9e0b35b..efe11a8 100644
--- a/tests/unixSelect.test
+++ b/tests/unixSelect.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unixSelect.test,v 1.6 2002/09/30 15:22:08 dkf Exp $
+# RCS: @(#) $Id: unixSelect.test,v 1.7 2002/10/01 08:48:09 dkf Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -324,7 +324,9 @@ test unixSelect-1.18 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixO
setupbg
dobg {
text .t; pack .t; update
- .t insert 1.0 [string repeat [string repeat \u00c4\u00e4 50]\n 21] sel
+ .t insert 1.0 [string repeat [string repeat \u00c4\u00e4 50]\n 21]
+ # Has to be selected in a separate stage
+ .t tag add sel 1.0 21.end+1c
}
after 10
set x [selection get -type UTF8_STRING]
@@ -336,7 +338,9 @@ test unixSelect-1.19 {TkSelGetSelection procedure: INCR i18n text, utf-8} {unixO
setupbg
dobg {
text .t; pack .t; update
- .t insert 1.0 i[string repeat [string repeat \u00c4\u00e4 50]\n 21] sel
+ .t insert 1.0 i[string repeat [string repeat \u00c4\u00e4 50]\n 21]
+ # Has to be selected in a separate stage
+ .t tag add sel 1.0 21.end+1c
}
after 10
set x [selection get -type UTF8_STRING]