diff options
author | dgp <dgp@users.sourceforge.net> | 2016-02-05 19:30:32 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-02-05 19:30:32 (GMT) |
commit | 4b766d1f24378289437bc45e7405f68a48053915 (patch) | |
tree | c81cfb008616a39a184d97d9415d38a65c819403 | |
parent | b5e22a7b7e4fd964d34f9d16aa7802fe7322636c (diff) | |
download | tk-4b766d1f24378289437bc45e7405f68a48053915.zip tk-4b766d1f24378289437bc45e7405f68a48053915.tar.gz tk-4b766d1f24378289437bc45e7405f68a48053915.tar.bz2 |
Fix crashing test case, textDisp-8.13
-rw-r--r-- | generic/tkTextDisp.c | 5 | ||||
-rw-r--r-- | tests/textDisp.test | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c index 18b373f..f2e760b 100644 --- a/generic/tkTextDisp.c +++ b/generic/tkTextDisp.c @@ -4765,6 +4765,11 @@ TextChanged( } } + while ((lastPtr != NULL) + && (lastPtr->index.linePtr == index2Ptr->linePtr)) { + lastPtr = lastPtr->nextPtr; + } + /* * Delete all the DLines from firstPtr up to but not including lastPtr. */ diff --git a/tests/textDisp.test b/tests/textDisp.test index caba769..f5fbd3d 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1192,6 +1192,15 @@ test textDisp-8.12 {TkTextChanged, moving the insert cursor redraws only past an # cursor is in since this display line was just unlinked in (a). } {{8.0 9.0} {8.0 12.0} {8.0 12.0} {3.0 8.0} {2.0 3.0}} +test textDisp-8.13 {TkTextChanged, [06c1433906]} { + .t delete 1.0 end + .t insert 1.0 \nLine1\nLine2\n + update + .t insert 3.0 "" + .t delete 1.0 2.0 + update idletasks +} {} + test textDisp-9.1 {TkTextRedrawTag} { .t configure -wrap char .t delete 1.0 end |