diff options
author | fvogel <fvogelnew1@free.fr> | 2017-11-07 20:55:52 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2017-11-07 20:55:52 (GMT) |
commit | 4e4fcc895c376f3a97ddd743e6c95182429cf758 (patch) | |
tree | 78ac15013148aedca3dc1ff1132f9607ee7d577a /tests | |
parent | 3dd242b0aab750b1720f6f10b110710e49ecfd34 (diff) | |
parent | d54feccb6cad2c9484874f9d8292f62e30794704 (diff) | |
download | tk-4e4fcc895c376f3a97ddd743e6c95182429cf758.zip tk-4e4fcc895c376f3a97ddd743e6c95182429cf758.tar.gz tk-4e4fcc895c376f3a97ddd743e6c95182429cf758.tar.bz2 |
Merge OSX_redraw_artifacts branch. This fixes [fab5fed65e], [40a9abb9db] and [92e614e612]. Great thanks to Marc Culler!
Diffstat (limited to 'tests')
-rw-r--r-- | tests/textDisp.test | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 216f767..115b8cf 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -948,6 +948,28 @@ test textDisp-6.9 {DisplayText, horizontal scrollbar updates} { update set scrollInfo } [list 0.0 [expr {4.0/11}]] +test textDisp-6.10 {DisplayText, redisplay embedded windows after scroll.} {aqua} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4} { + .t insert end "\nLine $i" + } + .t insert end "\n" + .t window create end -create { + button %W.button_one -text "Button 1"} + .t insert end "\nLine 6\n" + .t window create end -create { + button %W.button_two -text "Button 2"} + .t insert end "\nLine 8\n" + .t window create end -create { + button %W.button_three -text "Button 3"} + update + .t delete 2.0 3.0 + update + list $tk_textEmbWinDisplay +} {{4.0 6.0}} + # The following group of tests is marked non-portable because # they result in a lot of extra redisplay under Ultrix. I don't |