diff options
author | fvogel <fvogelnew1@free.fr> | 2015-11-22 21:10:58 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-11-22 21:10:58 (GMT) |
commit | 6a1c77254b102ec6c7f6e28355e92dc0a7bad771 (patch) | |
tree | 3c6a5789fa12d0c92032739795690585017bef30 /tests/textDisp.test | |
parent | 025a48fb5523bb8835464ea459db86d60df00d21 (diff) | |
parent | 52d9e935fa49fe13831f9e0eddba4e260c88f0f0 (diff) | |
download | tk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.zip tk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.tar.gz tk-6a1c77254b102ec6c7f6e28355e92dc0a7bad771.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.test | 16 |
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 |