summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-22 21:10:58 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-22 21:10:58 (GMT)
commit6a1c77254b102ec6c7f6e28355e92dc0a7bad771 (patch)
tree3c6a5789fa12d0c92032739795690585017bef30
parent025a48fb5523bb8835464ea459db86d60df00d21 (diff)
parent52d9e935fa49fe13831f9e0eddba4e260c88f0f0 (diff)
downloadtk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.zip
tk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.tar.gz
tk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.tar.bz2
Added test textDisp-35.1 to check for regressions against pach [5b11cf19]
-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