diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-11-22 20:59:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-11-22 20:59:11 (GMT) |
| commit | b869b3c26e93113c398a7f7794aaeea9182fbd32 (patch) | |
| tree | 8d26c51272399ed2d16d1888e0230fd56204e43d /tests/textDisp.test | |
| parent | e38173a1e9c6bab16d937f5f81155ea02745d12c (diff) | |
| parent | 90d1cab42008d1e0b9986f57cddd6e6307c9b8c4 (diff) | |
| download | tk-b869b3c26e93113c398a7f7794aaeea9182fbd32.zip tk-b869b3c26e93113c398a7f7794aaeea9182fbd32.tar.gz tk-b869b3c26e93113c398a7f7794aaeea9182fbd32.tar.bz2 | |
Merged core-8-5-branch
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 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 |