summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-11-15 16:57:57 (GMT)
committervincentdarley <vincentdarley>2003-11-15 16:57:57 (GMT)
commit7c9328b664ec680ed43ab91a5cd3f5672967d579 (patch)
tree1f1eba40232a626bc6bf40c37acd1a111fc449f6 /tests
parent28a17a508560345357143eac9b4a8e3c97c1eb83 (diff)
downloadtk-7c9328b664ec680ed43ab91a5cd3f5672967d579.zip
tk-7c9328b664ec680ed43ab91a5cd3f5672967d579.tar.gz
tk-7c9328b664ec680ed43ab91a5cd3f5672967d579.tar.bz2
single line wraps to whole display fix
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test23
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