summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-22 20:59:11 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-22 20:59:11 (GMT)
commit95fd1a86a7bef3b6e0458a8a15041cdff62aa571 (patch)
tree8d26c51272399ed2d16d1888e0230fd56204e43d /tests
parent258c36047d8f5dfd175a0b2cbaab37c1d0406cec (diff)
parent52d9e935fa49fe13831f9e0eddba4e260c88f0f0 (diff)
downloadtk-95fd1a86a7bef3b6e0458a8a15041cdff62aa571.zip
tk-95fd1a86a7bef3b6e0458a8a15041cdff62aa571.tar.gz
tk-95fd1a86a7bef3b6e0458a8a15041cdff62aa571.tar.bz2
Merged core-8-5-branch
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index c8264e6..90406df 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -4191,6 +4191,22 @@ test textDisp-34.1 {Line heights recalculation problem: bug 2677890} -setup {
destroy .t1
} -result {0}
+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