summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-01-23 20:13:08 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-01-23 20:13:08 (GMT)
commitb7abdd1712d5b034f6d4e54a5c2d9cf342bec51d (patch)
treef9b248b0fb5d63c5865cc7e37ce01e1331e2c03f
parent3702f3d9b7da42c7b34fd4a0bd3697f7902b18ab (diff)
parent04dad740091d27ad1d2aa62d7256ba321d875cf4 (diff)
downloadtk-b7abdd1712d5b034f6d4e54a5c2d9cf342bec51d.zip
tk-b7abdd1712d5b034f6d4e54a5c2d9cf342bec51d.tar.gz
tk-b7abdd1712d5b034f6d4e54a5c2d9cf342bec51d.tar.bz2
Fix [89a638af38]: OS X - textDisp-15.8 fails
-rw-r--r--tests/textDisp.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 1d30a6f..5393533 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -1952,13 +1952,15 @@ test textDisp-15.8 {Scrolling near end of window} {
.tf.f.t insert end "\nLine $i"
}
update ; after 1000 ; update
+ set refind [.tf.f.t index @0,[winfo height .tf.f.t]]
# Should scroll and should not crash!
.tf.f.t yview scroll 1 unit
# Check that it has scrolled
- set res [.tf.f.t index @0,[expr [winfo height .tf.f.t] - 15]]
+ set newind [.tf.f.t index @0,[winfo height .tf.f.t]]
+ set res [.tf.f.t compare $newind > $refind]
destroy .tf
set res
-} {12.0}
+} {1}
.t configure -wrap char
.t delete 1.0 end