From 52d9e935fa49fe13831f9e0eddba4e260c88f0f0 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 22 Nov 2015 20:58:13 +0000
Subject: Added test textDisp-35.1 to check for regressions against pach
 [5b11cf19]

---
 tests/textDisp.test | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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
 
-- 
cgit v0.12