summaryrefslogtreecommitdiffstats
path: root/tests/textDisp.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-22 20:58:13 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-22 20:58:13 (GMT)
commit52d9e935fa49fe13831f9e0eddba4e260c88f0f0 (patch)
tree9917ee226abdff07f02cfc5d7081759706d0c494 /tests/textDisp.test
parenteaad06dfab9f12af40967edfef6a9a5348af92f2 (diff)
downloadtk-52d9e935fa49fe13831f9e0eddba4e260c88f0f0.zip
tk-52d9e935fa49fe13831f9e0eddba4e260c88f0f0.tar.gz
tk-52d9e935fa49fe13831f9e0eddba4e260c88f0f0.tar.bz2
Added test textDisp-35.1 to check for regressions against pach [5b11cf19]
Diffstat (limited to 'tests/textDisp.test')
-rw-r--r--tests/textDisp.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 9c6af70..5508d7c 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -4186,6 +4186,22 @@ test textDisp-34.1 {Text widgets multi-scrolling problem: Bug 2677890} -setup {
destroy .t1 .sy
} -result {{0.0 0.24} {0.0 0.24} {0.0 0.24} {0.0 0.24}}
+test textDisp-35.1 {Init value of charHeight - Dancing scrollbar bug 1499165} -setup {
+ pack [text .t1] -fill both -expand y -side left
+ .t insert end "[string repeat a\nb\nc\n 500000]THE END\n"
+ set res {}
+} -body {
+ .t see 10000.0
+ after 300 {set fr1 [.t yview] ; set done 1}
+ vwait done
+ after 300 {set fr2 [.t yview] ; set done 1}
+ vwait done
+ lappend res [expr {[lindex $fr1 0] == [lindex $fr2 0]}]
+ lappend res [expr {[lindex $fr1 1] == [lindex $fr2 1]}]
+} -cleanup {
+ destroy .t1
+} -result {1 1}
+
deleteWindows
option clear