diff options
| author | fvogelnew1@free.fr <fvogel> | 2014-12-03 20:32:18 (GMT) |
|---|---|---|
| committer | fvogelnew1@free.fr <fvogel> | 2014-12-03 20:32:18 (GMT) |
| commit | f9ed7f21f50770d9741dd4e4de7245f9f50aa198 (patch) | |
| tree | e595cdd43a022d954839e38bf872303aac061d8a | |
| parent | 821df49ed4ff3c55334aa562491291a531a68628 (diff) | |
| parent | 7c6df742d3853829982bdeefb27d136be285e74d (diff) | |
| download | tk-f9ed7f21f50770d9741dd4e4de7245f9f50aa198.zip tk-f9ed7f21f50770d9741dd4e4de7245f9f50aa198.tar.gz tk-f9ed7f21f50770d9741dd4e4de7245f9f50aa198.tar.bz2 | |
Merged from branch bug-7703f947aa
| -rw-r--r-- | tests/textDisp.test | 4 | ||||
| -rw-r--r-- | tests/textWind.test | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index b04b2ce..a3f9ae9 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1203,14 +1203,14 @@ test textDisp-9.5 {TkTextRedrawTag} { test textDisp-9.6 {TkTextRedrawTag} { .t configure -wrap char .t delete 1.0 end - .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap" update .t tag add big 2.2 3.5 update .t tag remove big 1.0 end update list $tk_textRelayout $tk_textRedraw -} {{2.0 2.20 3.0 3.20} {2.0 2.20 3.0 3.20 4.0 eof}} +} {{2.0 2.20 3.0 3.20} {2.0 2.20 3.0 3.20 eof}} test textDisp-9.7 {TkTextRedrawTag} { .t configure -wrap char .t delete 1.0 end diff --git a/tests/textWind.test b/tests/textWind.test index 23a9e71..537076f 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -444,6 +444,7 @@ test textWind-10.4 {EmbWinLayoutProc procedure, error in creating window} {textf .t delete 1.0 end .t insert 1.0 "Some sample text" catch {destroy .t.f} + update set msg {} after idle { .t window create 1.5 -create { |