diff options
| author | dkf <dkf@noemail.net> | 2002-10-01 08:48:06 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-10-01 08:48:06 (GMT) |
| commit | a9098d4711617c282fbf49b57779e0e9ab247d2d (patch) | |
| tree | ed05edb2ce891ca86cd508c73bf3051e2da8bd9c /tests | |
| parent | b76f8321ad8c88e88683f8293606a132c3f4f1d1 (diff) | |
| download | tk-a9098d4711617c282fbf49b57779e0e9ab247d2d.zip tk-a9098d4711617c282fbf49b57779e0e9ab247d2d.tar.gz tk-a9098d4711617c282fbf49b57779e0e9ab247d2d.tar.bz2 | |
Finally dealt with 614650 and with a simpler solution too.
FossilOrigin-Name: 4f349c2e568bed62e7bf4d0a527b161f1d2e557e
Diffstat (limited to 'tests')
| -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] |