diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2005-05-13 13:46:11 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2005-05-13 13:46:11 (GMT) |
| commit | ab78beb5227adcea5f911778f0eb665b0fa8e73a (patch) | |
| tree | e00f296081d0e86a99bafe7962701b541c5dfd7f /tests/textIndex.test | |
| parent | 2aa1c6c51d0c53b86bb581e41c13fd85934bca96 (diff) | |
| download | tk-ab78beb5227adcea5f911778f0eb665b0fa8e73a.zip tk-ab78beb5227adcea5f911778f0eb665b0fa8e73a.tar.gz tk-ab78beb5227adcea5f911778f0eb665b0fa8e73a.tar.bz2 | |
fix to two text widget bugs
FossilOrigin-Name: d5f52ddad69902c0063dd69bee04ca569a8b2501
Diffstat (limited to 'tests/textIndex.test')
| -rw-r--r-- | tests/textIndex.test | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/textIndex.test b/tests/textIndex.test index 6527349..e88da10 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textIndex.test,v 1.15 2005/02/14 23:03:26 vincentdarley Exp $ +# RCS: @(#) $Id: textIndex.test,v 1.16 2005/05/13 13:46:13 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -886,6 +886,17 @@ test textIndex-22.13 {text index wordstart, unicode} { text_test_word wordstart "\uc700\uc700 abc" 8 } 3 +test textIndex-23.1 {text index wordstart, unicode} { + pack [text .t2] + .t2 insert end " Text" + set res 2.0 + for {set i 0} {$i < 2} {incr i} { + lappend res [::tk::TextPrevPara .t2 [lindex $res end]] + } + destroy .t2 + set res +} {2.0 1.1 1.1} + # cleanup rename textimage {} |