diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2005-05-13 13:48:20 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2005-05-13 13:48:20 (GMT) |
| commit | b60a8e63ba8520b8d5b07cb91432dc21d3ea6010 (patch) | |
| tree | a4d042cc7fa55d0676ab2517ac6ec9d70743a8c0 /tests/textIndex.test | |
| parent | e195c051ff9c0c936b79e955500670025654768b (diff) | |
| download | tk-b60a8e63ba8520b8d5b07cb91432dc21d3ea6010.zip tk-b60a8e63ba8520b8d5b07cb91432dc21d3ea6010.tar.gz tk-b60a8e63ba8520b8d5b07cb91432dc21d3ea6010.tar.bz2 | |
backport of text widget bug fix
FossilOrigin-Name: 83dd37b096f657b878823e384a99d1f76c442947
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 98f81bb..12eada2 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.7 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textIndex.test,v 1.7.2.1 2005/05/13 13:48:21 vincentdarley Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -667,6 +667,17 @@ test testIndex-16.2 {TkTextPrintIndex} { catch {destroy $t} } 0 +test textIndex-23.1 {text paragraph start} { + 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 {} catch {destroy .t} |