summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-12-06 19:57:34 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-12-06 19:57:34 (GMT)
commit98378541b701acb3b2821a3b9f1e0a23fb57bcfc (patch)
tree044becbd4bfdf58bb7ce428ea26ef31faae0b86d /tests
parent1c20b0f7e0b8d0e66ff9b4325dbc2859968f52fd (diff)
downloadtk-98378541b701acb3b2821a3b9f1e0a23fb57bcfc.zip
tk-98378541b701acb3b2821a3b9f1e0a23fb57bcfc.tar.gz
tk-98378541b701acb3b2821a3b9f1e0a23fb57bcfc.tar.bz2
Added non-regression test case: textDisp-11.21bug_1739605fff
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test11
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