diff options
| author | vincentdarley <vincentdarley> | 2003-11-15 16:57:57 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-11-15 16:57:57 (GMT) |
| commit | 3ee6271dc8db892b1d6a9fb9b18ff75aa59e5c90 (patch) | |
| tree | 1f1eba40232a626bc6bf40c37acd1a111fc449f6 /tests | |
| parent | cfd7d12d4a0827d30a37fc3fedcc0750d6d693d3 (diff) | |
| download | tk-3ee6271dc8db892b1d6a9fb9b18ff75aa59e5c90.zip tk-3ee6271dc8db892b1d6a9fb9b18ff75aa59e5c90.tar.gz tk-3ee6271dc8db892b1d6a9fb9b18ff75aa59e5c90.tar.bz2 | |
single line wraps to whole display fix
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index bb60912..4fad84b 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.19 2003/11/15 12:47:15 vincentdarley Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.20 2003/11/15 16:57:57 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -3492,6 +3492,27 @@ test textDisp-32.1 {everything elided} { destroy .tt } {} +test textDisp-33.0 {one line longer than fits in the widget} { + pack [text .tt -wrap char] + .tt insert 1.0 [string repeat "hello there " 2500] + update ; update ; update + .tt see 1.0 + lindex [.tt yview] 0 +} {0.0} + +test textDisp-33.1 {one line longer than fits in the widget} { + destroy .tt + pack [text .tt -wrap char] + .tt insert 1.0 [string repeat "hello there " 2500] + update ; update ; update + .tt yview "1.0 +1 displaylines" + if {[lindex [.tt yview] 0] > 0.1} { + set result "bad result" + } else { + set result "ok" + } +} {ok} + deleteWindows option clear |