diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-11-19 21:11:42 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-11-19 21:11:42 (GMT) |
| commit | 3392d3aacf40787f102904663aeb9ce163cfc10f (patch) | |
| tree | 9181401257bc98373c9e2c8766e97dd5acdf6598 | |
| parent | d9b0462c75a26e0d69fe1775026aa1eb4c755cd1 (diff) | |
| download | tk-3392d3aacf40787f102904663aeb9ce163cfc10f.zip tk-3392d3aacf40787f102904663aeb9ce163cfc10f.tar.gz tk-3392d3aacf40787f102904663aeb9ce163cfc10f.tar.bz2 | |
Repair text-11a.41 logic
| -rw-r--r-- | tests/text.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/text.test b/tests/text.test index 203effd..2b54cc1 100644 --- a/tests/text.test +++ b/tests/text.test @@ -3079,18 +3079,17 @@ test text-11a.31 {"<<WidgetViewSync>>" event} -setup { test text-11a.41 {"sync" "pendingsync" and <<WidgetViewSync>>} -setup { destroy .top.yt .top } -body { - set res {} toplevel .top pack [text .top.yt] + # make initial sync state known update + .top.yt sync set content {} for {set i 1} {$i < 300} {incr i} { append content [string repeat "$i " 50] \n } bind .top.yt <<WidgetViewSync>> {lappend res Sync:%d} - # make initial sync state known - .top.yt sync - update + set res {} # the next line triggers <<WidgetViewSync>> with %d==0 i.e. we're out of sync .top.yt insert 1.0 $content vwait res |