diff options
| author | vincentdarley <vincentdarley> | 2003-11-15 16:57:57 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-11-15 16:57:57 (GMT) |
| commit | 7c9328b664ec680ed43ab91a5cd3f5672967d579 (patch) | |
| tree | 1f1eba40232a626bc6bf40c37acd1a111fc449f6 /tests/textDisp.test | |
| parent | 28a17a508560345357143eac9b4a8e3c97c1eb83 (diff) | |
| download | tk-7c9328b664ec680ed43ab91a5cd3f5672967d579.zip tk-7c9328b664ec680ed43ab91a5cd3f5672967d579.tar.gz tk-7c9328b664ec680ed43ab91a5cd3f5672967d579.tar.bz2 | |
single line wraps to whole display fix
Diffstat (limited to 'tests/textDisp.test')
| -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 |