diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-10-01 08:48:06 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-10-01 08:48:06 (GMT) |
| commit | 2f5283121a57a89a11409bb492236a62b6209593 (patch) | |
| tree | ed05edb2ce891ca86cd508c73bf3051e2da8bd9c /tests/unixSelect.test | |
| parent | ba2790ec24676e226f972cb566f38959ed0f53ef (diff) | |
| download | tk-2f5283121a57a89a11409bb492236a62b6209593.zip tk-2f5283121a57a89a11409bb492236a62b6209593.tar.gz tk-2f5283121a57a89a11409bb492236a62b6209593.tar.bz2 | |
Finally dealt with 614650 and with a simpler solution too.
Diffstat (limited to 'tests/unixSelect.test')
| -rw-r--r-- | tests/unixSelect.test | 10 |
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] |