diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-12-03 20:32:18 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-12-03 20:32:18 (GMT) |
| commit | 2164143b9b3b46a3949e819c17275313f2c7f8b4 (patch) | |
| tree | 643956c76e009eb0c0570e5361c5bedcc7187037 | |
| parent | 183f3294631b9c5d5f920e3ec574407d7f26f860 (diff) | |
| parent | 92c3e64dc6cd30fd0a261254be7bba659a3d5534 (diff) | |
| download | tk-2164143b9b3b46a3949e819c17275313f2c7f8b4.zip tk-2164143b9b3b46a3949e819c17275313f2c7f8b4.tar.gz tk-2164143b9b3b46a3949e819c17275313f2c7f8b4.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 { |