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 | 9363e8c0313bfc15af7a9ab866cf1041c97300d5 (patch) | |
| tree | 643956c76e009eb0c0570e5361c5bedcc7187037 /tests | |
| parent | 17f7f1ff4cd5d650989a281c70091e0c5fcb79dc (diff) | |
| parent | 5ce3c4abf44a4a77f9b029030e40975bc5f08619 (diff) | |
| download | tk-9363e8c0313bfc15af7a9ab866cf1041c97300d5.zip tk-9363e8c0313bfc15af7a9ab866cf1041c97300d5.tar.gz tk-9363e8c0313bfc15af7a9ab866cf1041c97300d5.tar.bz2 | |
Merged from branch bug-7703f947aa
Diffstat (limited to 'tests')
| -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 { |