diff options
author | culler <culler> | 2020-07-23 19:44:17 (GMT) |
---|---|---|
committer | culler <culler> | 2020-07-23 19:44:17 (GMT) |
commit | ef7581bec4c78d6fb07d451dc6da67a333422d83 (patch) | |
tree | 39aca30d00865b347d30f40d73838d9434b7307e /tests | |
parent | 39d44641837b76035b4eff6b6f153ea07720b81f (diff) | |
download | tk-ef7581bec4c78d6fb07d451dc6da67a333422d83.zip tk-ef7581bec4c78d6fb07d451dc6da67a333422d83.tar.gz tk-ef7581bec4c78d6fb07d451dc6da67a333422d83.tar.bz2 |
Adjust a couple of textDisp tests for El Capitan
Diffstat (limited to 'tests')
-rw-r--r-- | tests/textDisp.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 8e971f3..b0560d8 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -4175,6 +4175,7 @@ test textDisp-32.3 "NULL undisplayProc problems: #1791052" -setup { test textDisp-33.0 {one line longer than fits in the widget} { pack [text .tt -wrap char] + updateText .tt insert 1.0 [string repeat "more wrap + " 300] updateText .tt see 1.0 @@ -4183,6 +4184,7 @@ test textDisp-33.0 {one line longer than fits in the widget} { test textDisp-33.1 {one line longer than fits in the widget} { destroy .tt pack [text .tt -wrap char] + updateText .tt insert 1.0 [string repeat "more wrap + " 300] updateText .tt yview "1.0 +1 displaylines" @@ -4196,12 +4198,12 @@ test textDisp-33.2 {one line longer than fits in the widget} { destroy .tt pack [text .tt -wrap char] .tt debug 1 - update idletasks + updateText set tk_textHeightCalc "" - set timer [after 700 lappend tk_textHeightCalc "Timed out"] + set timer [after 200 lappend tk_textHeightCalc "Timed out"] .tt insert 1.0 [string repeat "more wrap + " 1] vwait tk_textHeightCalc - after cancel timer + after cancel $timer set tk_textHeightCalc } {1.0} test textDisp-33.3 {one line longer than fits in the widget} { |