diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-12-12 17:35:27 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-12-12 17:35:27 (GMT) |
| commit | 1abb4aa2768b0c42bf9ef141dc3b510efe7761c8 (patch) | |
| tree | 8a3d5eba40003d615f22dcb49cc6d03a5d67d5ba /tests | |
| parent | 6aff58ec2c577be0815d78eb68ac0ce6f2e75b3d (diff) | |
| parent | 367d38f82ee53a72f2a0b07c34c4789012d0c471 (diff) | |
| download | tk-1abb4aa2768b0c42bf9ef141dc3b510efe7761c8.zip tk-1abb4aa2768b0c42bf9ef141dc3b510efe7761c8.tar.gz tk-1abb4aa2768b0c42bf9ef141dc3b510efe7761c8.tar.bz2 | |
Fix for bug [1739605] - [text see] misbehaves following widget create/populate - Patch from Koen Danckaert
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 5508d7c..038eccd 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1574,6 +1574,17 @@ test textDisp-11.20 {TkTextSetYView, see in elided lines} { # this shall not crash (null chunkPtr in TkTextSeeCmd is tested) .top.t see 3.0 } {} +test textDisp-11.21 {TkTextSetYView, window height smaller than the line height} { + .top.t delete 1.0 end + for {set i 1} {$i <= 10} {incr i} { + .top.t insert end "Line $i\n" + } + set lineheight [font metrics [.top.t cget -font] -linespace] + wm geometry .top 200x[expr {$lineheight / 2}] + update + .top.t see 1.0 + .top.t index @0,[expr {$lineheight - 2}] +} {1.0} .t configure -wrap word .t delete 50.0 51.0 |