diff options
| author | rjohnson <rjohnson> | 1998-04-01 09:51:44 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1998-04-01 09:51:44 (GMT) |
| commit | 066ea7fd88d49cb456f74da71dbe875e4fc0aabb (patch) | |
| tree | 8fb30cb152c4dc191be47fa043d2e6f5ea38c7ba /tests/textDisp.test | |
| parent | 13242623d2ff3ea02ab6a62bfb48a7dbb5c27e22 (diff) | |
| download | tk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.zip tk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.tar.gz tk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.tar.bz2 | |
Initial revision
Diffstat (limited to 'tests/textDisp.test')
| -rw-r--r-- | tests/textDisp.test | 2868 |
1 files changed, 2868 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test new file mode 100644 index 0000000..c14f785 --- /dev/null +++ b/tests/textDisp.test @@ -0,0 +1,2868 @@ +# This file is a Tcl script to test the code in the file tkTextDisp.c. +# This file is organized in the standard fashion for Tcl tests. +# +# Copyright (c) 1994 The Regents of the University of California. +# Copyright (c) 1994-1997 Sun Microsystems, Inc. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# SCCS: @(#) textDisp.test 1.55 97/07/24 15:15:43 + +if {[string compare test [info procs test]] == 1} { + source defs + if {$testConfig(fonts) == 0} { + puts "skipping font-sensitive tests" + } +} + +# The procedure below is used as the scrolling command for the text; +# it just saves the scrolling information in a variable "scrollInfo". + +proc scroll args { + global scrollInfo + set scrollInfo $args +} + +# The procedure below is used to generate errors during scrolling commands. + +proc scrollError args { + error "scrolling error" +} + +# Create entries in the option database to be sure that geometry options +# like border width have predictable values. + +option add *Text.borderWidth 2 +option add *Text.highlightThickness 2 + +# The frame .f is needed to make sure that the overall window is always +# fairly wide, even if the text window is very narrow. This is needed +# because some window managers don't allow the overall width of a window +# to get very narrow. + +foreach i [winfo child .] { + destroy $i +} +frame .f -width 100 -height 20 +pack append . .f left + +if {$tcl_platform(platform) == "windows"} { + set fixedFont {Courier -14} +} else { + set fixedFont {Courier -12} +} +set fixedHeight [font metrics $fixedFont -linespace] +set fixedWidth [font measure $fixedFont m] + +set varFont {Times -14} +set bigFont {Helvetica -24} +text .t -font $fixedFont -width 20 -height 10 -yscrollcommand scroll +pack append . .t {top expand fill} +.t tag configure big -font $bigFont +.t debug on +wm geometry . {} + +# The statements below reset the main window; it's needed if the window +# manager is mwm to make mwm forget about a previous minimum size setting. + +wm withdraw . +wm minsize . 1 1 +wm positionfrom . user +wm deiconify . +update + +# Some window managers (like olwm under SunOS 4.1.3) misbehave in a way +# that tends to march windows off the top and left of the screen. If +# this happens, some tests will fail because parts of the window will +# not need to be displayed (because they're off-screen). To keep this +# from happening, move the window if it's getting near the left or top +# edges of the screen. + +if {([winfo rooty .] < 50) || ([winfo rootx .] < 50)} { + wm geom . +50+50 +} +test textDisp-1.1 {GetStyle procedure, priorities and tab stops} { + .t delete 1.0 end + .t insert 1.0 "x\ty" + .t tag delete x y z + .t tag configure x -tabs {50} + .t tag configure y -foreground black + .t tag configure z -tabs {70} + .t tag add x 1.0 1.end + .t tag add y 1.0 1.end + .t tag add z 1.0 1.end + update idletasks + set x [lindex [.t bbox 1.2] 0] + .t tag configure z -tabs {} + lappend x [lindex [.t bbox 1.2] 0] + .t tag configure z -tabs {30} + .t tag raise x + update idletasks + lappend x [lindex [.t bbox 1.2] 0] +} {75 55 55} +.t tag delete x y z +test textDisp-1.2 {GetStyle procedure, wrapmode} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcd\nefg hijkl mnop qrstuv wxyz" + .t tag configure x -wrap word + .t tag configure y -wrap none + .t tag raise y + update + set result [list [.t bbox 2.20]] + .t tag add x 2.0 2.1 + lappend result [.t bbox 2.20] + .t tag add y 1.end 2.2 + lappend result [.t bbox 2.20] +} {{5 31 7 13} {40 31 7 13} {}} +.t tag delete x y + +test textDisp-2.1 {LayoutDLine, basics} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "This is some sample text for testing." + list [.t bbox 1.19] [.t bbox 1.20] +} [list [list [expr 5 + $fixedWidth * 19] 5 $fixedWidth $fixedHeight] [list 5 [expr 5 + $fixedHeight] $fixedWidth $fixedHeight]] +test textDisp-2.2 {LayoutDLine, basics} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "This isx some sample text for testing." + list [.t bbox 1.19] [.t bbox 1.20] +} {{138 5 7 13} {5 18 7 13}} +test textDisp-2.3 {LayoutDLine, basics} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "This isxxx some sample text for testing." + list [.t bbox 1.19] [.t bbox 1.20] +} {{138 5 7 13} {5 18 7 13}} +test textDisp-2.4 {LayoutDLine, word wrap} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This is some sample text for testing." + list [.t bbox 1.19] [.t bbox 1.20] +} {{138 5 7 13} {5 18 7 13}} +test textDisp-2.5 {LayoutDLine, word wrap} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This isx some sample text for testing." + list [.t bbox 1.13] [.t bbox 1.14] [.t bbox 1.19] +} {{96 5 49 13} {5 18 7 13} {40 18 7 13}} +test textDisp-2.6 {LayoutDLine, word wrap} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This isxxx some sample text for testing." + list [.t bbox 1.15] [.t bbox 1.16] +} {{110 5 35 13} {5 18 7 13}} +test textDisp-2.7 {LayoutDLine, marks and tags} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This isxxx some sample text for testing." + .t tag add foo 1.4 1.6 + .t mark set insert 1.8 + list [.t bbox 1.2] [.t bbox 1.5] [.t bbox 1.11] +} {{19 5 7 13} {40 5 7 13} {82 5 7 13}} +foreach m [.t mark names] { + catch {.t mark unset $m} +} +scan [wm geom .] %dx%d width height +test textDisp-2.8 {LayoutDLine, extra chunk at end of dline} {fonts} { + wm geom . [expr $width+1]x$height + update + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "This isxx some sample text for testing." + .t mark set foo 1.20 + list [.t bbox 1.19] [.t bbox 1.20] +} {{138 5 8 13} {5 18 7 13}} +wm geom . {} +update +test textDisp-2.9 {LayoutDLine, marks and tags} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This is a very_very_long_word_that_wraps." + list [.t bbox 1.9] [.t bbox 1.10] [.t bbox 1.25] +} {{68 5 77 13} {5 18 7 13} {110 18 7 13}} +test textDisp-2.10 {LayoutDLine, marks and tags} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This is a very_very_long_word_that_wraps." + .t tag add foo 1.13 + .t tag add foo 1.15 + .t tag add foo 1.17 + .t tag add foo 1.19 + list [.t bbox 1.9] [.t bbox 1.10] [.t bbox 1.25] +} {{68 5 77 13} {5 18 7 13} {110 18 7 13}} +test textDisp-2.11 {LayoutDLine, newline width} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a\nbb\nccc\ndddd" + list [.t bbox 2.2] [.t bbox 3.3] +} {{19 18 126 13} {26 31 119 13}} +test textDisp-2.12 {LayoutDLine, justification} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "\na\nbb\nccc\ndddd" + .t tag configure x -justify center + .t tag add x 1.0 end + .t tag add y 3.0 3.2 + list [.t bbox 1.0] [.t bbox 2.0] [.t bbox 4.0] [.t bbox 4.2] +} {{75 5 70 13} {71 18 7 13} {64 44 7 13} {78 44 7 13}} +test textDisp-2.13 {LayoutDLine, justification} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "\na\nbb\nccc\ndddd" + .t tag configure x -justify right + .t tag add x 1.0 end + .t tag add y 3.0 3.2 + list [.t bbox 1.0] [.t bbox 2.0] [.t bbox 4.0] [.t bbox 4.2] +} {{145 5 0 13} {138 18 7 13} {124 44 7 13} {138 44 7 13}} +test textDisp-2.14 {LayoutDLine, justification} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "\na\nbb\nccc\ndddd" + .t tag configure x -justify center + .t tag add x 2.0 3.1 + .t tag configure y -justify right + .t tag add y 3.0 4.0 + .t tag raise y + list [.t bbox 2.0] [.t bbox 3.0] [.t bbox 3.end] [.t bbox 4.0] +} {{71 18 7 13} {131 31 7 13} {145 31 0 13} {5 44 7 13}} +test textDisp-2.15 {LayoutDLine, justification} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "\na\nbb\nccc\ndddd" + .t tag configure x -justify center + .t tag add x 2.0 3.1 + .t tag configure y -justify right + .t tag add y 3.0 4.0 + .t tag lower y + list [.t bbox 2.0] [.t bbox 3.0] [.t bbox 3.end] [.t bbox 4.0] +} {{71 18 7 13} {68 31 7 13} {82 31 63 13} {5 44 7 13}} +test textDisp-2.16 {LayoutDLine, justification} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lines" + .t tag configure x -justify center + .t tag add x 1.1 1.20 + .t tag add x 1.21 1.end + list [.t bbox 1.0] [.t bbox 1.20] [.t bbox 1.36] [.t bbox 2.0] +} {{5 5 7 13} {5 18 7 13} {43 31 7 13} {5 44 7 13}} +test textDisp-2.17 {LayoutDLine, justification} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lines" + .t tag configure x -justify center + .t tag add x 1.20 + list [.t bbox 1.0] [.t bbox 1.20] [.t bbox 1.36] [.t bbox 2.0] +} {{5 5 7 13} {19 18 7 13} {5 31 7 13} {5 44 7 13}} +test textDisp-2.18 {LayoutDLine, justification} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert 1.0 "Lots of long words, enough to extend out of the window\n" + .t insert end "Then\nmore lines\nThat are shorter" + .t tag configure x -justify center + .t tag configure y -justify right + .t tag add x 2.0 + .t tag add y 3.0 + .t xview scroll 5 units + list [.t bbox 2.0] [.t bbox 3.0] +} {{26 18 7 13} {40 31 7 13}} +.t tag delete x +.t tag delete y +test textDisp-2.19 {LayoutDLine, margins} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lines" + .t tag configure x -lmargin1 20 -lmargin2 40 -rmargin 15 + .t tag add x 1.0 end + list [.t bbox 1.0] [.t bbox 1.12] [.t bbox 1.13] [.t bbox 2.0] +} {{25 5 7 13} {109 5 36 13} {45 18 7 13} {25 70 7 13}} +test textDisp-2.20 {LayoutDLine, margins} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lines" + .t tag configure x -lmargin1 20 -lmargin2 10 -rmargin 3 + .t tag configure y -lmargin1 15 -lmargin2 5 -rmargin 0 + .t tag raise y + .t tag add x 1.0 end + .t tag add y 1.13 + list [.t bbox 1.0] [.t bbox 1.13] [.t bbox 1.30] [.t bbox 2.0] +} {{25 5 7 13} {10 18 7 13} {15 31 7 13} {25 44 7 13}} +test textDisp-2.21 {LayoutDLine, margins} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Sample text" + .t tag configure x -lmargin1 80 -lmargin2 80 -rmargin 100 + .t tag add x 1.0 end + list [.t bbox 1.0] [.t bbox 1.1] [.t bbox 1.2] +} {{85 5 60 13} {85 18 60 13} {85 31 60 13}} +.t tag delete x +.t tag delete y +test textDisp-2.22 {LayoutDLine, spacing options} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t tag delete x y + .t insert end "Short line\nLine 2 is long enough " + .t insert end "to wrap around a couple of times" + .t insert end "\nLine 3\nLine 4" + set i [.t dlineinfo 1.0] + set b1 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 2.0] + set b2 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 2.end] + set b3 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 3.0] + set b4 [expr [lindex $i 1] + [lindex $i 4]] + .t configure -spacing1 2 -spacing2 1 -spacing3 3 + set i [.t dlineinfo 1.0] + set b1 [expr [lindex $i 1] + [lindex $i 4] - $b1] + set i [.t dlineinfo 2.0] + set b2 [expr [lindex $i 1] + [lindex $i 4] - $b2] + set i [.t dlineinfo 2.end] + set b3 [expr [lindex $i 1] + [lindex $i 4] - $b3] + set i [.t dlineinfo 3.0] + set b4 [expr [lindex $i 1] + [lindex $i 4] - $b4] + list $b1 $b2 $b3 $b4 +} {2 7 10 15} +.t configure -spacing1 0 -spacing2 0 -spacing3 0 +test textDisp-2.23 {LayoutDLine, spacing options} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t tag delete x y + .t insert end "Short line\nLine 2 is long enough " + .t insert end "to wrap around a couple of times" + .t insert end "\nLine 3\nLine 4" + set i [.t dlineinfo 1.0] + set b1 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 2.0] + set b2 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 2.end] + set b3 [expr [lindex $i 1] + [lindex $i 4]] + set i [.t dlineinfo 3.0] + set b4 [expr [lindex $i 1] + [lindex $i 4]] + .t configure -spacing1 4 -spacing2 4 -spacing3 4 + .t tag configure x -spacing1 1 -spacing2 2 -spacing3 3 + .t tag add x 1.0 end + .t tag configure y -spacing1 0 -spacing2 3 + .t tag add y 2.19 end + .t tag raise y + set i [.t dlineinfo 1.0] + set b1 [expr [lindex $i 1] + [lindex $i 4] - $b1] + set i [.t dlineinfo 2.0] + set b2 [expr [lindex $i 1] + [lindex $i 4] - $b2] + set i [.t dlineinfo 2.end] + set b3 [expr [lindex $i 1] + [lindex $i 4] - $b3] + set i [.t dlineinfo 3.0] + set b4 [expr [lindex $i 1] + [lindex $i 4] - $b4] + list $b1 $b2 $b3 $b4 +} {1 5 13 16} +.t configure -spacing1 0 -spacing2 0 -spacing3 0 +test textDisp-2.24 {LayoutDLine, tabs, saving from first chunk} {fonts} { + .t delete 1.0 end + .t tag delete x y + .t tag configure x -tabs 70 + .t tag configure y -tabs 80 + .t insert 1.0 "ab\tcde" + .t tag add x 1.0 end + .t tag add y 1.1 end + lindex [.t bbox 1.3] 0 +} {75} +test textDisp-2.25 {LayoutDLine, tabs, breaking chunks at tabs} {fonts} { + .t delete 1.0 end + .t tag delete x + .t tag configure x -tabs {30 60 90 120} + .t insert 1.0 "a\tb\tc\td\te" + .t mark set dummy1 1.1 + .t mark set dummy2 1.2 + .t tag add x 1.0 end + list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.4] 0] \ + [lindex [.t bbox 1.6] 0] [lindex [.t bbox 1.8] 0] +} {35 65 95 125} +test textDisp-2.26 {LayoutDLine, tabs, breaking chunks at tabs} {fonts} { + .t delete 1.0 end + .t tag delete x + .t tag configure x -tabs {30 60 90 120} -justify right + .t insert 1.0 "a\tb\tc\td\te" + .t mark set dummy1 1.1 + .t mark set dummy2 1.2 + .t tag add x 1.0 end + list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.4] 0] \ + [lindex [.t bbox 1.6] 0] [lindex [.t bbox 1.8] 0] +} {117 124 131 138} +test textDisp-2.27 {LayoutDLine, tabs, calling AdjustForTab} {fonts} { + .t delete 1.0 end + .t tag delete x + .t tag configure x -tabs {30 60} + .t insert 1.0 "a\tb\tcd" + .t tag add x 1.0 end + list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.4] 0] +} {35 65} +test textDisp-2.28 {LayoutDLine, tabs, running out of space in dline} {fonts} { + .t delete 1.0 end + .t insert 1.0 "a\tb\tc\td" + .t bbox 1.6 +} {5 18 7 13} +test textDisp-2.29 {LayoutDLine, tabs, running out of space in dline} {fonts} { + .t delete 1.0 end + .t insert 1.0 "a\tx\tabcd" + .t bbox 1.4 +} {117 5 7 13} +test textDisp-2.30 {LayoutDLine, tabs, running out of space in dline} {fonts} { + .t delete 1.0 end + .t insert 1.0 "a\tx\tabc" + .t bbox 1.4 +} {117 5 7 13} + +test textDisp-3.1 {different character sizes} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert end "Some sample text, including both large\n" + .t insert end "characters and\nsmall\n" + .t insert end "abc\nd\ne\nfghij" + .t tag add big 1.5 1.10 + .t tag add big 2.11 2.14 + list [.t bbox 1.1] [.t bbox 1.6] [.t dlineinfo 1.0] [.t dlineinfo 3.0] +} {{12 17 7 13} {52 5 13 27} {5 5 114 27 22} {5 85 35 13 10}} + +.t configure -wrap char +test textDisp-4.1 {UpdateDisplayInfo, basic} {fonts} { + .t delete 1.0 end + .t insert end "Line 1\nLine 2\nLine 3\n" + update + .t delete 2.0 2.end + .t insert 2.0 "New Line 2" + update + list [.t bbox 1.0] [.t bbox 2.0] [.t bbox 3.0] $tk_textRelayout +} {{5 5 7 13} {5 18 7 13} {5 31 7 13} 2.0} +test textDisp-4.2 {UpdateDisplayInfo, re-use tail of text line} {fonts} { + .t delete 1.0 end + .t insert end "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + .t mark set x 2.21 + .t delete 2.2 + .t insert 2.0 X + update + list [.t bbox 2.0] [.t bbox x] [.t bbox 3.0] $tk_textRelayout +} {{5 18 7 13} {12 31 7 13} {5 44 7 13} {2.0 2.20}} +test textDisp-4.3 {UpdateDisplayInfo, tail of text line shifts} {fonts} { + .t delete 1.0 end + .t insert end "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + .t mark set x 2.21 + .t delete 2.2 + update + list [.t bbox 2.0] [.t bbox x] [.t bbox 3.0] $tk_textRelayout +} {{5 18 7 13} {5 31 7 13} {5 44 7 13} {2.0 2.20}} +.t mark unset x +test textDisp-4.4 {UpdateDisplayInfo, wrap-mode "none"} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + list [.t bbox 2.0] [.t bbox 2.25] [.t bbox 3.0] $tk_textRelayout +} {{5 18 7 13} {} {5 31 7 13} {1.0 2.0 3.0}} +test textDisp-4.5 {UpdateDisplayInfo, tiny window} {fonts} { + wm geom . 103x$height + update + .t configure -wrap none + .t delete 1.0 end + .t insert end "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + list [.t bbox 2.0] [.t bbox 2.1] [.t bbox 3.0] $tk_textRelayout +} {{5 18 1 13} {} {5 31 1 13} {1.0 2.0 3.0}} +test textDisp-4.6 {UpdateDisplayInfo, tiny window} { + # This test was failing on Windows because the title bar on . + # was a certain minimum size and it was interfering with the size + # requested. The "overrideredirect" gets rid of the titlebar so + # the toplevel can shrink to the appropriate size. On Unix, setting + # the overrideredirect on "." confuses the window manager and + # causes subsequent tests to fail. + + if {$tcl_platform(platform) == "windows"} { + wm overrideredirect . 1 + } + frame .f2 -width 20 -height 100 + pack before .f .f2 top + wm geom . 103x103 + update + .t configure -wrap none -borderwidth 2 + .t delete 1.0 end + .t insert end "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + set x [list [.t bbox 1.0] [.t bbox 2.0] $tk_textRelayout] + wm overrideredirect . 0 + update + set x +} {{5 5 1 1} {} 1.0} +catch {destroy .f2} +.t configure -borderwidth 0 -wrap char +wm geom . {} +update +test textDisp-4.7 {UpdateDisplayInfo, filling in extra vertical space} { + # This test was failing on Windows because the title bar on . + # was a certain minimum size and it was interfering with the size + # requested. The "overrideredirect" gets rid of the titlebar so + # the toplevel can shrink to the appropriate size. On Unix, setting + # the overrideredirect on "." confuses the window manager and + # causes subsequent tests to fail. + + if {$tcl_platform(platform) == "windows"} { + wm overrideredirect . 1 + } + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" + .t yview 1.0 + update + .t yview 16.0 + update + set x [list [.t index @0,0] $tk_textRelayout $tk_textRedraw] + wm overrideredirect . 0 + update + set x +} {8.0 {16.0 17.0 15.0 14.0 13.0 12.0 11.0 10.0 9.0 8.0} {8.0 9.0 10.0 11.0 12.0 13.0 14.0 15.0 16.0 17.0}} +test textDisp-4.8 {UpdateDisplayInfo, filling in extra vertical space} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" + .t yview 16.0 + update + .t delete 5.0 14.0 + update + set x [list [.t index @0,0] $tk_textRelayout $tk_textRedraw] +} {1.0 {5.0 4.0 3.0 2.0 1.0} {1.0 2.0 3.0 4.0 5.0 eof}} +test textDisp-4.9 {UpdateDisplayInfo, filling in extra vertical space} {fonts} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" + .t yview 16.0 + update + .t delete 15.0 end + list [.t bbox 7.0] [.t bbox 12.0] +} {{3 29 7 13} {3 94 7 13}} +test textDisp-4.10 {UpdateDisplayInfo, filling in extra vertical space} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\nLine 6 is such a long line that it wraps around.\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" + .t yview end + update + .t delete 13.0 end + update + list [.t index @0,0] $tk_textRelayout $tk_textRedraw +} {5.0 {12.0 7.0 6.40 6.20 6.0 5.0} {5.0 6.0 6.20 6.40 7.0 12.0}} +test textDisp-4.11 {UpdateDisplayInfo, filling in extra vertical space} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\nLine 6 is such a long line that it wraps around, not once but really quite a few times.\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17" + .t yview end + update + .t delete 14.0 end + update + list [.t index @0,0] $tk_textRelayout $tk_textRedraw +} {6.40 {13.0 7.0 6.80 6.60 6.40} {6.40 6.60 6.80 7.0 13.0}} +test textDisp-4.12 {UpdateDisplayInfo, filling in extra vertical space} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\n7\n8\n9\n10\n11\n12" + button .b -text "Test" -bd 2 -highlightthickness 2 + .t window create 3.end -window .b + .t yview moveto 1 + update + .t yview moveto 0 + update + .t yview moveto 1 + update + winfo ismapped .b +} {0} +.t configure -wrap word +.t delete 1.0 end +.t insert end "Line 1\nLine 2\nLine 3\nLine 4\nLine 5\nLine 6\nLine 7\n" +.t insert end "Line 8\nLine 9\nLine 10\nLine 11\nLine 12\nLine 13\n" +.t insert end "Line 14\nLine 15\nLine 16" +.t tag delete x +.t tag configure x -relief raised -borderwidth 2 -background white +test textDisp-4.13 {UpdateDisplayInfo, special handling for top/bottom lines} { + .t tag add x 1.0 end + .t yview 1.0 + update + .t yview scroll 3 units + update + list $tk_textRelayout $tk_textRedraw +} {{11.0 12.0 13.0} {4.0 10.0 11.0 12.0 13.0}} +test textDisp-4.14 {UpdateDisplayInfo, special handling for top/bottom lines} { + .t tag remove x 1.0 end + .t yview 1.0 + update + .t yview scroll 3 units + update + list $tk_textRelayout $tk_textRedraw +} {{11.0 12.0 13.0} {11.0 12.0 13.0}} +test textDisp-4.15 {UpdateDisplayInfo, special handling for top/bottom lines} { + .t tag add x 1.0 end + .t yview 4.0 + update + .t yview scroll -2 units + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 3.0} {2.0 3.0 4.0 11.0}} +test textDisp-4.16 {UpdateDisplayInfo, special handling for top/bottom lines} { + .t tag remove x 1.0 end + .t yview 4.0 + update + .t yview scroll -2 units + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 3.0} {2.0 3.0}} +test textDisp-4.17 {UpdateDisplayInfo, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + update + .t xview scroll 3 units + update + list $tk_textRelayout $tk_textRedraw [.t bbox 2.0] [.t bbox 2.5] \ + [.t bbox 2.23] +} {{} {1.0 2.0 3.0 4.0} {} {17 16 7 13} {}} +test textDisp-4.18 {UpdateDisplayInfo, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + update + .t xview scroll 100 units + update + list $tk_textRelayout $tk_textRedraw [.t bbox 2.25] +} {{} {1.0 2.0 3.0 4.0} {10 16 7 13}} +test textDisp-4.19 {UpdateDisplayInfo, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + update + .t xview moveto 0 + .t xview scroll -10 units + update + list $tk_textRelayout $tk_textRedraw [.t bbox 2.5] +} {{} {1.0 2.0 3.0 4.0} {38 16 7 13}} +test textDisp-4.20 {UpdateDisplayInfo, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + .t xview moveto 0.0 + .t xview scroll 100 units + update + .t delete 2.30 2.44 + update + list $tk_textRelayout $tk_textRedraw [.t bbox 2.25] +} {2.0 {1.0 2.0 3.0 4.0} {108 16 7 13}} +test textDisp-4.21 {UpdateDisplayInfo, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + .t xview moveto .9 + update + .t xview moveto .6 + update + list $tk_textRelayout $tk_textRedraw +} {{} {}} +test textDisp-4.22 {UpdateDisplayInfo, no horizontal scrolling except for -wrap none} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + .t xview scroll 25 units + update + .t configure -wrap word + list [.t bbox 2.0] [.t bbox 2.16] +} {{3 16 7 13} {10 29 7 13}} +test textDisp-4.23 {UpdateDisplayInfo, no horizontal scrolling except for -wrap none} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "Short line 1\nLine 2 is long enough to scroll horizontally" + .t insert end "\nLine 3\nLine 4" + .t xview scroll 25 units + update + .t configure -wrap char + list [.t bbox 2.0] [.t bbox 2.16] +} {{3 16 7 13} {115 16 7 13}} + +test textDisp-5.1 {DisplayDLine, handling of spacing} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijkl\nmnopqrstuvwzyz" + .t tag configure spacing -spacing1 8 -spacing3 2 + .t tag add spacing 1.0 end + frame .t.f1 -width 10 -height 4 -bg black + frame .t.f2 -width 10 -height 4 -bg black + frame .t.f3 -width 10 -height 4 -bg black + frame .t.f4 -width 10 -height 4 -bg black + .t window create 1.3 -window .t.f1 -align top + .t window create 1.7 -window .t.f2 -align center + .t window create 2.1 -window .t.f3 -align bottom + .t window create 2.10 -window .t.f4 -align baseline + update + list [winfo geometry .t.f1] [winfo geometry .t.f2] \ + [winfo geometry .t.f3] [winfo geometry .t.f4] +} {10x4+24+11 10x4+55+15 10x4+10+43 10x4+76+40} +.t tag delete spacing + +# Although the following test produces a useful result, its main +# effect is to produce a core dump if Tk doesn't handle display +# relayout that occurs during redisplay. + +test textDisp-5.2 {DisplayDLine, line resizes during display} { + .t delete 1.0 end + frame .t.f -width 20 -height 20 -bd 2 -relief raised + bind .t.f <Configure> {.t.f configure -width 30 -height 30} + .t window create insert -window .t.f + update + list [winfo width .t.f] [winfo height .t.f] +} {30 30} + +.t configure -wrap char +test textDisp-6.1 {scrolling in DisplayText, scroll up} { + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 2.0 3.0 + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 10.0} {2.0 10.0}} +test textDisp-6.2 {scrolling in DisplayText, scroll down} { + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t insert 2.0 "New Line 2\n" + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 3.0} {2.0 3.0}} +test textDisp-6.3 {scrolling in DisplayText, multiple scrolls} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t insert 2.end "is so long that it wraps" + .t insert 4.end "is so long that it wraps" + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 2.20 4.0 4.20} {2.0 2.20 4.0 4.20}} +test textDisp-6.4 {scrolling in DisplayText, scrolls interfere} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t insert 2.end "is so long that it wraps around, not once but three times" + .t insert 4.end "is so long that it wraps" + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 2.20 2.40 2.60 4.0 4.20} {2.0 2.20 2.40 2.60 4.0 4.20 6.0}} +test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} {nonPortable} { + .t configure -wrap char + frame .f2 -bg red + place .f2 -in .t -relx 0.5 -rely 0.5 -relwidth 0.5 -relheight 0.5 + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, a couple of times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.6 1.end + update + destroy .f2 + list $tk_textRelayout $tk_textRedraw +} {{1.0 9.0 10.0} {1.0 4.0 5.0 9.0 10.0}} +test textDisp-6.6 {scrolling in DisplayText, Expose events after scroll} {unixOnly nonPortable} { + # this test depends on all of the expose events being handled at once + .t configure -wrap char + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.2 -rely 0.5 -relwidth 0.5 -relheight 0.5 + .t configure -bd 2 -relief raised + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, a couple of times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.6 1.end + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 9.0 10.0} {borders 1.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0}} +.t configure -bd 0 +test textDisp-6.7 {DisplayText, vertical scrollbar updates} { + .t configure -wrap char + .t delete 1.0 end + update + set scrollInfo +} {0 1} +test textDisp-6.8 {DisplayText, vertical scrollbar updates} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + update + set scrollInfo "unchanged" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + update + set scrollInfo +} {0 0.769231} +.t configure -yscrollcommand {} -xscrollcommand scroll +test textDisp-6.9 {DisplayText, horizontal scrollbar updates} { + .t configure -wrap none + .t delete 1.0 end + update + set scrollInfo unchanged + .t insert end xxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxx + update + set scrollInfo +} {0 0.363636} + +# The following group of tests is marked non-portable because +# they result in a lot of extra redisplay under Ultrix. I don't +# know why this is so. + +.t configure -bd 2 -relief raised -wrap char +.t delete 1.0 end +.t insert 1.0 "Line 1 is so long that it wraps around, a couple of times" +foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" +} +test textDisp-7.1 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.2 -relwidth 0.6 -rely 0.22 -relheight 0.55 + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {1.40 2.0 3.0 4.0 5.0 6.0}} +test textDisp-7.2 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0 -relwidth 0.5 -rely 0 -relheight 0.5 + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 1.0 1.20 1.40 2.0 3.0}} +test textDisp-7.3 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.5 -relwidth 0.5 -rely 0.5 -relheight 0.5 + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 4.0 5.0 6.0 7.0 8.0}} +test textDisp-7.4 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 0 -relheight 0.2 \ + -bordermode ignore + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 1.0 1.20}} +test textDisp-7.5 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 1.0 -relheight 0.2 \ + -anchor s -bordermode ignore + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 7.0 8.0}} +test textDisp-7.6 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \ + -anchor w -bordermode ignore + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 3.0 4.0 5.0}} +test textDisp-7.7 {TkTextRedrawRegion} {nonPortable} { + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 1.0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \ + -anchor e -bordermode ignore + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 3.0 4.0 5.0}} +test textDisp-7.8 {TkTextRedrawRegion} {nonPortable} { + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2\nLine 3\nLine 4\nLine 5\nLine 6\n" + frame .f2 -bg #ff0000 + place .f2 -in .t -relx 0.0 -relwidth 0.4 -rely 0.35 -relheight 0.4 \ + -anchor nw -bordermode ignore + update + destroy .f2 + update + list $tk_textRelayout $tk_textRedraw +} {{} {borders 4.0 5.0 6.0 7.0 eof}} +.t configure -bd 0 + +test textDisp-8.1 {TkTextChanged: redisplay whole lines} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is so long that it wraps around, two times" + foreach i {3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 2.36 2.38 + update + list $tk_textRelayout $tk_textRedraw [.t bbox 2.32] +} {{2.0 2.18 2.38} {2.0 2.18 2.38} {101 29 7 13}} +.t configure -wrap char +test textDisp-8.2 {TkTextChanged, redisplay whole lines} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t insert 1.2 xx + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 1.20 1.40} {1.0 1.20 1.40}} +test textDisp-8.3 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t insert 2.0 xx + update + list $tk_textRelayout $tk_textRedraw +} {2.0 2.0} +test textDisp-8.4 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.5 + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 1.20 1.40} {1.0 1.20 1.40}} +test textDisp-8.5 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.40 1.44 + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 1.20 1.40} {1.0 1.20 1.40}} +test textDisp-8.6 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.41 1.44 + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 1.20 1.40} {1.0 1.20 1.40}} +test textDisp-8.7 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 1.2 1.end + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 9.0 10.0} {1.0 9.0 10.0}} +test textDisp-8.8 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 2.2 + update + list $tk_textRelayout $tk_textRedraw +} {2.0 2.0} +test textDisp-8.9 {TkTextChanged} { + .t delete 1.0 end + .t insert 1.0 "Line 1 is so long that it wraps around, two times" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + update + .t delete 2.0 3.0 + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 8.0} {2.0 8.0}} +test textDisp-8.10 {TkTextChanged} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 2.19 + update + .t delete 2.19 + update + set tk_textRedraw +} {2.0 2.20 eof} +test textDisp-8.11 {TkTextChanged, scrollbar notification when changes are off-screen} { + .t delete 1.0 end + .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n" + .t configure -yscrollcommand scroll + update + set scrollInfo "" + .t insert end "a\nb\nc\n" + update + .t configure -yscrollcommand "" + set scrollInfo +} {0 0.625} + +test textDisp-9.1 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap around\nLine 3\nLine 4" + update + .t tag add big 2.2 2.4 + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 2.18} {2.0 2.18}} +test textDisp-9.2 {TkTextRedrawTag} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap around\nLine 3\nLine 4" + update + .t tag add big 1.2 2.4 + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 2.0 2.17} {1.0 2.0 2.17}} +test textDisp-9.3 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap around\nLine 3\nLine 4" + update + .t tag add big 2.2 2.4 + .t tag remove big 1.0 end + update + list $tk_textRelayout $tk_textRedraw +} {2.0 2.0} +test textDisp-9.4 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap around\nLine 3\nLine 4" + update + .t tag add big 2.2 2.20 + .t tag remove big 1.0 end + update + list $tk_textRelayout $tk_textRedraw +} {2.0 2.0} +test textDisp-9.5 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap around\nLine 3\nLine 4" + update + .t tag add big 2.2 2.end + .t tag remove big 1.0 end + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 2.20} {2.0 2.20}} +test textDisp-9.6 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + update + .t tag add big 2.2 3.5 + .t tag remove big 1.0 end + update + list $tk_textRelayout $tk_textRedraw +} {{2.0 2.20 3.0} {2.0 2.20 3.0}} +test textDisp-9.7 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 2.19 + update + .t tag remove big 2.19 + update + set tk_textRedraw +} {2.0 2.20 eof} +test textDisp-9.8 {TkTextRedrawTag} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 1.0 2.0 + update + .t tag add big 2.0 2.5 + update + set tk_textRedraw +} {2.0 2.17} +test textDisp-9.9 {TkTextRedrawTag} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 1.0 2.0 + update + .t tag add big 1.5 2.5 + update + set tk_textRedraw +} {2.0 2.17} +test textDisp-9.10 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 1.0 2.0 + update + set tk_textRedraw {none} + .t tag add big 1.3 1.5 + update + set tk_textRedraw +} {none} +test textDisp-9.11 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + .t tag add big 1.0 2.0 + update + .t tag add big 1.0 2.0 + update + set tk_textRedraw +} {} + +test textDisp-10.1 {TkTextRelayoutWindow} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2 is long enough to wrap\nLine 3 is also long enough to wrap\nLine 4" + update + .t configure -bg black + update + list $tk_textRelayout $tk_textRedraw +} {{1.0 2.0 2.20 3.0 3.20 4.0} {borders 1.0 2.0 2.20 3.0 3.20 4.0 eof}} +.t configure -bg [lindex [.t configure -bg] 3] +test textDisp-10.2 {TkTextRelayoutWindow} { + toplevel .top -width 300 -height 200 + wm geometry .top +0+0 + text .top.t -font $fixedFont -width 20 -height 10 -relief raised -bd 2 + place .top.t -x 0 -y 0 -width 20 -height 20 + .top.t insert end "First line" + .top.t see insert + tkwait visibility .top.t + place .top.t -width 150 -height 100 + update + .top.t index @0,0 +} {1.0} +catch {destroy .top} + +.t delete 1.0 end +.t insert end "Line 1" +for {set i 2} {$i <= 200} {incr i} { + .t insert end "\nLine $i" +} +update +test textDisp-11.1 {TkTextSetYView} { + .t yview 30.0 + update + .t index @0,0 +} {30.0} +test textDisp-11.2 {TkTextSetYView} { + .t yview 30.0 + update + .t yview 32.0 + update + list [.t index @0,0] $tk_textRedraw +} {32.0 {40.0 41.0}} +test textDisp-11.3 {TkTextSetYView} { + .t yview 30.0 + update + .t yview 28.0 + update + list [.t index @0,0] $tk_textRedraw +} {28.0 {28.0 29.0}} +test textDisp-11.4 {TkTextSetYView} { + .t yview 30.0 + update + .t yview 31.4 + update + list [.t index @0,0] $tk_textRedraw +} {31.0 40.0} +test textDisp-11.5 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview -pickplace 31.0 + update + list [.t index @0,0] $tk_textRedraw +} {30.0 {}} +test textDisp-11.6 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview -pickplace 28.0 + update + list [.t index @0,0] $tk_textRedraw +} {28.0 {28.0 29.0}} +test textDisp-11.7 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview -pickplace 26.0 + update + list [.t index @0,0] $tk_textRedraw +} {22.0 {22.0 23.0 24.0 25.0 26.0 27.0 28.0 29.0}} +test textDisp-11.8 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview -pickplace 41.0 + update + list [.t index @0,0] $tk_textRedraw +} {32.0 {40.0 41.0}} +test textDisp-11.9 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview -pickplace 43.0 + update + list [.t index @0,0] $tk_textRedraw +} {39.0 {40.0 41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0}} +test textDisp-11.10 {TkTextSetYView} { + .t yview 30.0 + update + set tk_textRedraw {} + .t yview 10000.0 + update + list [.t index @0,0] $tk_textRedraw +} {191.0 {191.0 192.0 193.0 194.0 195.0 196.0 197.0 198.0 199.0 200.0}} +test textDisp-11.11 {TkTextSetYView} { + .t yview 195.0 + update + set tk_textRedraw {} + .t yview 197.0 + update + list [.t index @0,0] $tk_textRedraw +} {191.0 {191.0 192.0 193.0 194.0 195.0 196.0}} +test textDisp-11.12 {TkTextSetYView, wrapped line is off-screen} { + .t insert 10.0 "Long line with enough text to wrap\n" + .t yview 1.0 + update + set tk_textRedraw {} + .t see 10.30 + update + list [.t index @0,0] $tk_textRedraw +} {2.0 10.20} +.t delete 10.0 11.0 +test textDisp-11.13 {TkTestSetYView, partially-visible last line} { + catch {destroy .top} + toplevel .top + wm geometry .top +0+0 + text .top.t -width 20 -height 5 + pack .top.t + .top.t insert end "Line 1" + for {set i 2} {$i <= 100} {incr i} { + .top.t insert end "\nLine $i" + } + update + scan [wm geometry .top] "%dx%d" w2 h2 + wm geometry .top ${w2}x[expr $h2-2] + update + .top.t yview 1.0 + update + set tk_textRedraw {} + .top.t see 5.0 + update + list [.top.t index @0,0] $tk_textRedraw +} {2.0 {5.0 6.0}} +catch {destroy .top} +toplevel .top +wm geometry .top +0+0 +text .top.t -width 30 -height 3 +pack .top.t +.top.t insert end "Line 1" +for {set i 2} {$i <= 20} {incr i} { + .top.t insert end "\nLine $i" +} +update +test textDisp-11.14 {TkTextSetYView, only a few lines visible} { + .top.t yview 5.0 + update + .top.t see 10.0 + .top.t index @0,0 +} {8.0} +test textDisp-11.15 {TkTextSetYView, only a few lines visible} { + .top.t yview 5.0 + update + .top.t see 11.0 + .top.t index @0,0 +} {10.0} +test textDisp-11.16 {TkTextSetYView, only a few lines visible} { + .top.t yview 8.0 + update + .top.t see 5.0 + .top.t index @0,0 +} {5.0} +test textDisp-11.17 {TkTextSetYView, only a few lines visible} { + .top.t yview 8.0 + update + .top.t see 4.0 + .top.t index @0,0 +} {3.0} +destroy .top + +.t configure -wrap word +.t delete 50.0 51.0 +.t insert 50.0 "This is a long line, one that will wrap around twice.\n" +test textDisp-12.1 {MeasureUp} { + .t yview 100.0 + update + .t yview -pickplace 52.0 + update + .t index @0,0 +} {50.0} +test textDisp-12.2 {MeasureUp} { + .t yview 100.0 + update + .t yview -pickplace 53.0 + update + .t index @0,0 +} {50.15} +test textDisp-12.3 {MeasureUp} { + .t yview 100.0 + update + .t yview -pickplace 50.10 + update + .t index @0,0 +} {46.0} +.t configure -wrap none +test textDisp-12.4 {MeasureUp} { + .t yview 100.0 + update + .t yview -pickplace 53.0 + update + .t index @0,0 +} {49.0} +test textDisp-12.5 {MeasureUp} { + .t yview 100.0 + update + .t yview -pickplace 50.10 + update + .t index @0,0 +} {46.0} + +.t configure -wrap none +.t delete 1.0 end +for {set i 1} {$i < 99} {incr i} { + .t insert end "Line $i\n" +} +.t insert end "Line 100" +.t insert 30.end { is quite long, so that it flows way off the end of the window and we can use it to test out the horizontal positioning features of the "see" command.} +test textDisp-13.1 {TkTextSeeCmd procedure} { + list [catch {.t see} msg] $msg +} {1 {wrong # args: should be ".t see index"}} +test textDisp-13.2 {TkTextSeeCmd procedure} { + list [catch {.t see a b} msg] $msg +} {1 {wrong # args: should be ".t see index"}} +test textDisp-13.3 {TkTextSeeCmd procedure} { + list [catch {.t see badIndex} msg] $msg +} {1 {bad text index "badIndex"}} +test textDisp-13.4 {TkTextSeeCmd procedure} { + .t xview moveto 0 + .t yview moveto 0 + update + .t see 4.2 + .t index @0,0 +} {1.0} +test textDisp-13.5 {TkTextSeeCmd procedure} { + .t configure -wrap char + .t xview moveto 0 + .t yview moveto 0 + update + .t see 12.1 + .t index @0,0 +} {3.0} +test textDisp-13.6 {TkTextSeeCmd procedure} { + .t configure -wrap char + .t xview moveto 0 + .t yview moveto 0 + update + .t see 30.50 + set x [.t index @0,0] + .t configure -wrap none + set x +} {28.0} +test textDisp-13.7 {TkTextSeeCmd procedure} {fonts} { + .t xview moveto 0 + .t yview moveto 0 + .t tag add sel 30.20 + .t tag add sel 30.40 + update + .t see 30.50 + set x [list [.t bbox 30.50]] + .t see 30.39 + lappend x [.t bbox 30.39] + .t see 30.38 + lappend x [.t bbox 30.38] + .t see 30.20 + lappend x [.t bbox 30.20] +} {{73 55 7 13} {3 55 7 13} {3 55 7 13} {73 55 7 13}} +test textDisp-13.8 {TkTextSeeCmd procedure} {fonts} { + .t xview moveto 0 + .t yview moveto 0 + .t tag add sel 30.20 + .t tag add sel 30.50 + update + .t see 30.50 + set x [list [.t bbox 30.50]] + .t see 30.60 + lappend x [.t bbox 30.60] + .t see 30.65 + lappend x [.t bbox 30.65] + .t see 30.90 + lappend x [.t bbox 30.90] +} {{73 55 7 13} {136 55 7 13} {136 55 7 13} {73 55 7 13}} +test textDisp-13.9 {TkTextSeeCmd procedure} {fonts} { + wm geom . [expr $width-2]x$height + .t xview moveto 0 + .t yview moveto 0 + .t tag add sel 30.20 + .t tag add sel 30.50 + update + .t see 30.50 + set x [list [.t bbox 30.50]] + .t see 30.60 + lappend x [.t bbox 30.60] + .t see 30.65 + lappend x [.t bbox 30.65] + .t see 30.90 + lappend x [.t bbox 30.90] +} {{80 55 7 13} {136 55 7 13} {136 55 7 13} {80 55 7 13}} +wm geom . {} + +.t configure -wrap none +test textDisp-14.1 {TkTextXviewCmd procedure} { + .t delete 1.0 end + update + .t insert end xxxxxxxxx\n + .t insert end "xxxxx xxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto .5 + .t xview +} {0.5 0.857143} +.t configure -wrap char +test textDisp-14.2 {TkTextXviewCmd procedure} { + .t delete 1.0 end + update + .t insert end xxxxxxxxx\n + .t insert end "xxxxx\n" + .t insert end "xxxx" + .t xview +} {0 1} +.t configure -wrap none +test textDisp-14.3 {TkTextXviewCmd procedure} { + .t delete 1.0 end + update + .t insert end xxxxxxxxx\n + .t insert end "xxxxx\n" + .t insert end "xxxx" + .t xview +} {0 1} +test textDisp-14.4 {TkTextXviewCmd procedure} { + list [catch {.t xview moveto} msg] $msg +} {1 {wrong # args: should be ".t xview moveto fraction"}} +test textDisp-14.5 {TkTextXviewCmd procedure} { + list [catch {.t xview moveto a b} msg] $msg +} {1 {wrong # args: should be ".t xview moveto fraction"}} +test textDisp-14.6 {TkTextXviewCmd procedure} { + list [catch {.t xview moveto a} msg] $msg +} {1 {expected floating-point number but got "a"}} +test textDisp-14.7 {TkTextXviewCmd procedure} { + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "xxxxx xxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto .3 + .t xview +} {0.303571 0.660714} +test textDisp-14.8 {TkTextXviewCmd procedure} { + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "xxxxx xxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto -.4 + .t xview +} {0 0.357143} +test textDisp-14.9 {TkTextXviewCmd procedure} { + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "xxxxx xxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview m 1.4 + .t xview +} {0.642857 1} +test textDisp-14.10 {TkTextXviewCmd procedure} { + list [catch {.t xview scroll a} msg] $msg +} {1 {wrong # args: should be ".t xview scroll number units|pages"}} +test textDisp-14.11 {TkTextXviewCmd procedure} { + list [catch {.t xview scroll a b c} msg] $msg +} {1 {wrong # args: should be ".t xview scroll number units|pages"}} +test textDisp-14.12 {TkTextXviewCmd procedure} { + list [catch {.t xview scroll gorp units} msg] $msg +} {1 {expected integer but got "gorp"}} +test textDisp-14.13 {TkTextXviewCmd procedure} { + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 c0 c1 c2 c3 c4 c5 c6 c7 c8 c9\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto 0 + .t xview scroll 2 p + set x [.t index @0,22] + .t xview scroll -1 p + lappend x [.t index @0,22] + .t xview scroll -2 pages + lappend x [.t index @0,22] +} {2.36 2.18 2.0} +test textDisp-14.14 {TkTextXviewCmd procedure} { + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 c0 c1 c2 c3 c4 c5 c6 c7 c8 c9\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto 0 + .t xview scroll 21 u + set x [.t index @0,22] + .t xview scroll -1 u + lappend x [.t index @0,22] + .t xview scroll 100 units + lappend x [.t index @0,22] + .t xview scroll -15 units + lappend x [.t index @0,22] +} {2.21 2.20 2.99 2.84} +test textDisp-14.15 {TkTextXviewCmd procedure} { + list [catch {.t xview scroll 14 globs} msg] $msg +} {1 {bad argument "globs": must be units or pages}} +test textDisp-14.16 {TkTextXviewCmd procedure} { + list [catch {.t xview flounder} msg] $msg +} {1 {unknown option "flounder": must be moveto or scroll}} + +.t configure -wrap char +.t delete 1.0 end +for {set i 1} {$i < 99} {incr i} { + .t insert end "Line $i\n" +} +.t insert end "Line 100" +.t delete 50.0 51.0 +.t insert 50.0 "This is a long line, one that will wrap around twice.\n" +test textDisp-15.1 {ScrollByLines procedure, scrolling backwards} { + .t yview 45.0 + update + .t yview scroll -3 units + .t index @0,0 +} {42.0} +test textDisp-15.2 {ScrollByLines procedure, scrolling backwards} { + .t yview 51.0 + update + .t yview scroll -2 units + .t index @0,0 +} {50.20} +test textDisp-15.3 {ScrollByLines procedure, scrolling backwards} { + .t yview 51.0 + update + .t yview scroll -4 units + .t index @0,0 +} {49.0} +test textDisp-15.4 {ScrollByLines procedure, scrolling backwards} { + .t yview 50.20 + update + .t yview scroll -2 units + .t index @0,0 +} {49.0} +test textDisp-15.5 {ScrollByLines procedure, scrolling backwards} { + .t yview 50.40 + update + .t yview scroll -2 units + .t index @0,0 +} {50.0} +test textDisp-15.6 {ScrollByLines procedure, scrolling backwards} { + .t yview 3.2 + update + .t yview scroll -5 units + .t index @0,0 +} {1.0} +test textDisp-15.7 {ScrollByLines procedure, scrolling forwards} { + .t yview 48.0 + update + .t yview scroll 4 units + .t index @0,0 +} {50.40} + +.t configure -wrap char +.t delete 1.0 end +.t insert insert "Line 1" +for {set i 2} {$i <= 200} {incr i} { + .t insert end "\nLine $i" +} +.t tag add big 100.0 105.0 +.t insert 151.end { has a lot of extra text, so that it wraps around on the screen several times over.} +.t insert 153.end { also has enoug extra text to wrap.} +update +test textDisp-16.1 {TkTextYviewCmd procedure} { + .t yview 21.0 + set x [.t yview] + .t yview 1.0 + set x +} {0.1 0.15} +test textDisp-16.2 {TkTextYviewCmd procedure} { + list [catch {.t yview 2 3} msg] $msg +} {1 {unknown option "2": must be moveto or scroll}} +test textDisp-16.3 {TkTextYviewCmd procedure} { + list [catch {.t yview -pickplace} msg] $msg +} {1 {wrong # args: should be ".t yview -pickplace lineNum|index"}} +test textDisp-16.4 {TkTextYviewCmd procedure} { + list [catch {.t yview -pickplace 2 3} msg] $msg +} {1 {wrong # args: should be ".t yview -pickplace lineNum|index"}} +test textDisp-16.5 {TkTextYviewCmd procedure} { + list [catch {.t yview -bogus 2} msg] $msg +} {1 {unknown option "-bogus": must be moveto or scroll}} +test textDisp-16.6 {TkTextYviewCmd procedure, integer position} { + .t yview 100.0 + update + .t yview 98 + .t index @0,0 +} {99.0} +test textDisp-16.7 {TkTextYviewCmd procedure} { + .t yview 2.0 + .t yv -pickplace 13.0 + .t index @0,0 +} {4.0} +test textDisp-16.8 {TkTextYviewCmd procedure} { + list [catch {.t yview bad_mark_name} msg] $msg +} {1 {bad text index "bad_mark_name"}} +test textDisp-16.9 {TkTextYviewCmd procedure, "moveto" option} { + list [catch {.t yview moveto a b} msg] $msg +} {1 {wrong # args: should be ".t yview moveto fraction"}} +test textDisp-16.10 {TkTextYviewCmd procedure, "moveto" option} { + list [catch {.t yview moveto gorp} msg] $msg +} {1 {expected floating-point number but got "gorp"}} +test textDisp-16.11 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto 0.5 + .t index @0,0 +} {101.0} +test textDisp-16.12 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto -1 + .t index @0,0 +} {1.0} +test textDisp-16.13 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto 1.1 + .t index @0,0 +} {191.0} +test textDisp-16.14 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto .75 + .t index @0,0 +} {151.0} +test textDisp-16.15 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto .752 + .t index @0,0 +} {151.20} +test textDisp-16.16 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto .754 + .t index @0,0 +} {151.60} +test textDisp-16.17 {TkTextYviewCmd procedure, "moveto" option} { + .t yview moveto .755 + .t index @0,0 +} {152.0} +test textDisp-16.18 {TkTextYviewCmd procedure, "moveto" roundoff} {fonts} { + catch {destroy .top1} + toplevel .top1 + wm geometry .top1 +0+0 + text .top1.t -height 3 -width 4 -wrap none -setgrid 1 -padx 6 \ + -spacing3 6 + .top1.t insert end "1\n2\n3\n4\n5\n6" + pack .top1.t + update + .top1.t yview moveto 0.3333 + set result [.top1.t yview] + destroy .top1 + set result +} {0.333333 0.833333} +test textDisp-16.19 {TkTextYviewCmd procedure, "scroll" option} { + list [catch {.t yview scroll a} msg] $msg +} {1 {wrong # args: should be ".t yview scroll number units|pages"}} +test textDisp-16.20 {TkTextYviewCmd procedure, "scroll" option} { + list [catch {.t yview scroll a b c} msg] $msg +} {1 {wrong # args: should be ".t yview scroll number units|pages"}} +test textDisp-16.21 {TkTextYviewCmd procedure, "scroll" option} { + list [catch {.t yview scroll badInt bogus} msg] $msg +} {1 {expected integer but got "badInt"}} +test textDisp-16.22 {TkTextYviewCmd procedure, "scroll" option, back pages} { + .t yview 50.0 + update + .t yview scroll -1 pages + .t index @0,0 +} {42.0} +test textDisp-16.23 {TkTextYviewCmd procedure, "scroll" option, back pages} { + .t yview 50.0 + update + .t yview scroll -3 p + .t index @0,0 +} {26.0} +test textDisp-16.24 {TkTextYviewCmd procedure, "scroll" option, back pages} { + .t yview 5.0 + update + .t yview scroll -3 p + .t index @0,0 +} {1.0} +test textDisp-16.25 {TkTextYviewCmd procedure, "scroll" option, back pages} { + .t configure -height 1 + update + .t yview 50.0 + update + .t yview scroll -1 pages + set x [.t index @0,0] + .t configure -height 10 + update + set x +} {49.0} +test textDisp-16.26 {TkTextYviewCmd procedure, "scroll" option, forward pages} { + .t yview 50.0 + update + .t yview scroll 1 pages + .t index @0,0 +} {58.0} +test textDisp-16.27 {TkTextYviewCmd procedure, "scroll" option, forward pages} { + .t yview 50.0 + update + .t yview scroll 2 pages + .t index @0,0 +} {66.0} +test textDisp-16.28 {TkTextYviewCmd procedure, "scroll" option, forward pages} {fonts} { + .t yview 98.0 + update + .t yview scroll 1 page + .t index @0,0 +} {103.0} +test textDisp-16.29 {TkTextYviewCmd procedure, "scroll" option, forward pages} { + .t configure -height 1 + update + .t yview 50.0 + update + .t yview scroll 1 pages + set x [.t index @0,0] + .t configure -height 10 + update + set x +} {51.0} +test textDisp-16.30 {TkTextYviewCmd procedure, "scroll units" option} { + .t yview 45.0 + update + .t yview scroll -3 units + .t index @0,0 +} {42.0} +test textDisp-16.31 {TkTextYviewCmd procedure, "scroll units" option} { + .t yview 149.0 + update + .t yview scroll 4 units + .t index @0,0 +} {151.40} +test textDisp-16.32 {TkTextYviewCmd procedure} { + list [catch {.t yview scroll 12 bogoids} msg] $msg +} {1 {bad argument "bogoids": must be units or pages}} +test textDisp-16.33 {TkTextYviewCmd procedure} { + list [catch {.t yview bad_arg 1 2} msg] $msg +} {1 {unknown option "bad_arg": must be moveto or scroll}} + +.t delete 1.0 end +foreach i {a b c d e f g h i j k l m n o p q r s t u v w x y z} { + .t insert end "\nLine $i 11111 $i 22222 $i 33333 $i 44444 $i 55555" + .t insert end " $i 66666 $i 77777 $i 88888 $i" +} +.t configure -wrap none +test textDisp-17.1 {TkTextScanCmd procedure} { + list [catch {.t scan a b} msg] $msg +} {1 {wrong # args: should be ".t scan mark|dragto x y"}} +test textDisp-17.2 {TkTextScanCmd procedure} { + list [catch {.t scan a b c d} msg] $msg +} {1 {wrong # args: should be ".t scan mark|dragto x y"}} +test textDisp-17.3 {TkTextScanCmd procedure} { + list [catch {.t scan stupid b 20} msg] $msg +} {1 {expected integer but got "b"}} +test textDisp-17.4 {TkTextScanCmd procedure} { + list [catch {.t scan stupid -2 bogus} msg] $msg +} {1 {expected integer but got "bogus"}} +test textDisp-17.5 {TkTextScanCmd procedure} { + list [catch {.t scan stupid 123 456} msg] $msg +} {1 {bad scan option "stupid": must be mark or dragto}} +test textDisp-17.6 {TkTextScanCmd procedure} {fonts} { + .t yview 1.0 + .t xview moveto 0 + .t scan mark 40 60 + .t scan dragto 35 55 + .t index @0,0 +} {4.7} +test textDisp-17.7 {TkTextScanCmd procedure} {fonts} { + .t yview 10.0 + .t xview moveto 0 + .t xview scroll 20 units + .t scan mark -10 60 + .t scan dragto -5 65 + .t index @0,0 + set x [.t index @0,0] + .t scan dragto 0 70 + list $x [.t index @0,0] +} {7.13 3.6} +test textDisp-17.8 {TkTextScanCmd procedure} {fonts} { + .t yview 1.0 + .t xview moveto 0 + .t scan mark 0 60 + .t scan dragto 30 100 + .t scan dragto 25 95 + .t index @0,0 +} {4.7} +test textDisp-17.9 {TkTextScanCmd procedure} {fonts} { + .t yview end + .t xview moveto 0 + .t xview scroll 100 units + .t scan mark 90 60 + .t scan dragto 10 0 + .t scan dragto 15 5 + .t index @0,0 +} {18.44} +.t configure -wrap word +test textDisp-17.10 {TkTextScanCmd procedure, word wrapping} {fonts} { + .t yview 10.0 + .t scan mark -10 60 + .t scan dragto -5 65 + set x [.t index @0,0] + .t scan dragto 0 70 + list $x [.t index @0,0] +} {9.31 8.47} + +.t configure -xscrollcommand scroll -yscrollcommand {} +test textDisp-18.1 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxx + update + set scrollInfo +} {0 0.363636} +test textDisp-18.2 {GetXView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxx + update + set scrollInfo +} {0 1} +test textDisp-18.3 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + update + set scrollInfo +} {0 1} +test textDisp-18.4 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end xxxxxx\n + .t insert end xxxxxxxxxxxxxxxxx + update + set scrollInfo +} {0 1} +test textDisp-18.5 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxx + .t xview scroll 31 units + update + set scrollInfo +} {0.563636 0.927273} +test textDisp-18.6 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + .t insert end xxxxxxxxx\n + .t insert end "xxxxx xxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxx\n" + .t insert end "xxxx xxxxxxxxx xxxxxxxxxxxxx" + .t xview moveto 0 + .t xview scroll 31 units + update + set x {} + lappend x $scrollInfo + .t configure -wrap char + update + lappend x $scrollInfo + .t configure -wrap word + update + lappend x $scrollInfo + .t configure -wrap none + update + lappend x $scrollInfo +} {{0.553571 0.910714} {0 1} {0 1} {0 0.357143}} +test textDisp-18.7 {GetXView procedure} { + .t configure -wrap none + .t delete 1.0 end + update + set scrollInfo unchanged + .t insert end xxxxxx\n + .t insert end xxx + update + set scrollInfo +} {unchanged} +test textDisp-18.8 {GetXView procedure} { + proc bgerror msg { + global x errorInfo + set x [list $msg $errorInfo] + } + proc bogus args { + error "bogus scroll proc" + } + .t configure -wrap none + .t delete 1.0 end + .t insert end xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n + update + .t delete 1.0 end + .t configure -xscrollcommand scrollError + update + set x +} {{scrolling error} {scrolling error + while executing +"error "scrolling error"" + (procedure "scrollError" line 2) + invoked from within +"scrollError 0 1" + (horizontal scrolling command executed by text)}} +catch {rename bgerror {}} +catch {rename bogus {}} +.t configure -xscrollcommand {} -yscrollcommand scroll + +.t configure -xscrollcommand {} -yscrollcommand scroll +test textDisp-19.1 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + update + set scrollInfo +} {0 1} +test textDisp-19.2 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + update + set scrollInfo "unchanged" + .t insert 1.0 "Line1\nLine2" + update + set scrollInfo +} {unchanged} +test textDisp-19.3 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + update + set scrollInfo "unchanged" + .t insert 1.0 "Line 1\nLine 2 is so long that it wraps around\nLine 3" + update + set scrollInfo +} {unchanged} +test textDisp-19.4 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + update + set scrollInfo "unchanged" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + update + set scrollInfo +} {0 0.769231} +test textDisp-19.5 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + .t insert 2.end " is really quite long; in fact it's so long that it wraps three times" + update + set x $scrollInfo +} {0 0.538462} +test textDisp-19.6 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + .t insert 2.end " is really quite long; in fact it's so long that it wraps three times" + .t yview 4.0 + update + set x $scrollInfo +} {0.230769 1} +test textDisp-19.7 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + .t insert 2.end " is really quite long; in fact it's so long that it wraps three times" + .t yview 2.26 + update + set x $scrollInfo +} {0.097166 0.692308} +test textDisp-19.8 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13} { + .t insert end "\nLine $i" + } + .t insert 10.end " is really quite long; in fact it's so long that it wraps three times" + .t yview 2.0 + update + set x $scrollInfo +} {0.0769231 0.732268} +test textDisp-19.9 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + .t yview 3.0 + update + set scrollInfo +} {0.133333 0.8} +test textDisp-19.10 {GetYView procedure} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + .t yview 11.0 + update + set scrollInfo +} {0.333333 1} +test textDisp-19.11 {GetYView procedure} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + .t insert end "\nThis last line wraps around four " + .t insert end "times with a bit left on the last line." + .t yview insert + update + set scrollInfo +} {0.625 1} +test textDisp-19.12 {GetYView procedure, partially visible last line} { + catch {destroy .top} + toplevel .top + wm geometry .top +0+0 + text .top.t -width 40 -height 5 + pack .top.t -expand yes -fill both + .top.t insert end "Line 1\nLine 2\nLine 3\nLine 4\nLine 5" + update + scan [wm geom .top] %dx%d twidth theight + wm geom .top ${twidth}x[expr $theight - 3] + update + .top.t yview +} {0 0.8} +test textDisp-19.13 {GetYView procedure, partially visible last line} {fonts} { + catch {destroy .top} + toplevel .top + wm geometry .top +0+0 + text .top.t -width 40 -height 5 + pack .top.t -expand yes -fill both + .top.t insert end "Line 1\nLine 2\nLine 3\nLine 4 has enough text to wrap around at least once" + update + scan [wm geom .top] %dx%d twidth theight + wm geom .top ${twidth}x[expr $theight - 3] + update + .top.t yview +} {0 0.942308} +catch {destroy .top} +test textDisp-19.14 {GetYView procedure} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + .t insert end "\nThis last line wraps around four " + .t insert end "times with a bit left on the last line." + update + set scrollInfo "unchanged" + .t mark set insert 3.0 + .t tag configure x -background red + .t tag add x 1.0 5.0 + update + .t tag delete x + set scrollInfo +} {unchanged} +test textDisp-19.15 {GetYView procedure} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Line 1" + foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} { + .t insert end "\nLine $i" + } + .t insert end "\nThis last line wraps around four " + .t insert end "times with a bit left on the last line." + update + .t configure -yscrollcommand scrollError + proc bgerror args { + global x errorInfo errorCode + set x [list $args $errorInfo $errorCode] + } + .t delete 1.0 end + update + rename bgerror {} + .t configure -yscrollcommand scroll + set x +} {{{scrolling error}} {scrolling error + while executing +"error "scrolling error"" + (procedure "scrollError" line 2) + invoked from within +"scrollError 0 1" + (vertical scrolling command executed by text)} NONE} + +.t delete 1.0 end +.t insert end "Line 1" +for {set i 2} {$i <= 200} {incr i} { + .t insert end "\nLine $i" +} +.t configure -wrap word +.t delete 50.0 51.0 +.t insert 50.0 "This is a long line, one that will wrap around twice.\n" +test textDisp-20.1 {FindDLine} {fonts} { + .t yview 48.0 + list [.t dlineinfo 46.0] [.t dlineinfo 47.0] [.t dlineinfo 49.0] \ + [.t dlineinfo 58.0] +} {{} {} {3 16 49 13 10} {}} +test textDisp-20.2 {FindDLine} {fonts} { + .t yview 100.0 + .t yview -pickplace 53.0 + list [.t dlineinfo 50.0] [.t dlineinfo 50.14] [.t dlineinfo 50.15] +} {{} {} {3 3 140 13 10}} +test textDisp-20.3 {FindDLine} {fonts} { + .t yview 100.0 + .t yview 49.0 + list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 57.0] +} {{3 16 105 13 10} {3 29 140 13 10} {}} +test textDisp-20.4 {FindDLine} {fonts} { + .t yview 100.0 + .t yview 42.0 + list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40] +} {{3 107 105 13 10} {3 120 140 13 10} {}} +.t config -wrap none +test textDisp-20.5 {FindDLine} {fonts} { + .t yview 100.0 + .t yview 48.0 + list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40] +} {{3 29 371 13 10} {3 29 371 13 10} {3 29 371 13 10}} + +.t config -wrap word +test textDisp-21.1 {TkTextPixelIndex} {fonts} { + .t yview 48.0 + list [.t index @-10,-10] [.t index @6,6] [.t index @22,6] \ + [.t index @102,6] [.t index @38,55] [.t index @44,67] +} {48.0 48.0 48.2 48.7 50.40 50.40} +.t insert end \n +test textDisp-21.2 {TkTextPixelIndex} {fonts} { + .t yview 195.0 + list [.t index @11,70] [.t index @11,84] [.t index @11,102] \ + [.t index @11,1002] +} {197.1 198.1 199.1 201.0} +test textDisp-21.3 {TkTextPixelIndex, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "12345\n" + .t insert end "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + .t xview scroll 2 units + list [.t index @-5,7] [.t index @5,7] [.t index @33,20] +} {1.2 1.2 2.6} + +.t delete 1.0 end +.t insert end "Line 1" +for {set i 2} {$i <= 200} {incr i} { + .t insert end "\nLine $i" +} +.t configure -wrap word +.t delete 50.0 51.0 +.t insert 50.0 "This is a long line, one that will wrap around twice.\n" +update +.t tag add x 50.1 +test textDisp-22.1 {TkTextCharBbox} {fonts} { + .t config -wrap word + .t yview 48.0 + list [.t bbox 47.2] [.t bbox 48.0] [.t bbox 50.5] [.t bbox 50.40] \ + [.t bbox 58.0] +} {{} {3 3 7 13} {38 29 7 13} {38 55 7 13} {}} +test textDisp-22.2 {TkTextCharBbox} {fonts} { + .t config -wrap none + .t yview 48.0 + list [.t bbox 50.5] [.t bbox 50.40] [.t bbox 57.0] +} {{38 29 7 13} {} {3 120 7 13}} +test textDisp-22.3 {TkTextCharBbox, cut-off lines} {fonts} { + .t config -wrap char + .t yview 10.0 + wm geom . ${width}x[expr $height-1] + update + list [.t bbox 19.1] [.t bbox 20.1] +} {{10 120 7 13} {10 133 7 3}} +test textDisp-22.4 {TkTextCharBbox, cut-off lines} {fonts} { + .t config -wrap char + .t yview 10.0 + wm geom . ${width}x[expr $height+1] + update + list [.t bbox 19.1] [.t bbox 20.1] +} {{10 120 7 13} {10 133 7 5}} +test textDisp-22.5 {TkTextCharBbox, cut-off char} {fonts} { + .t config -wrap none + .t yview 10.0 + wm geom . [expr $width-95]x$height + update + .t bbox 15.6 +} {45 68 7 13} +test textDisp-22.6 {TkTextCharBbox, line visible but not char} {fonts} { + .t config -wrap char + .t yview 10.0 + .t tag add big 20.2 20.5 + wm geom . ${width}x[expr $height+3] + update + list [.t bbox 19.1] [.t bbox 20.1] [.t bbox 20.2] +} {{10 120 7 13} {} {17 133 14 7}} +wm geom . {} +update +test textDisp-22.7 {TkTextCharBbox, different character sizes} {fonts} { + .t config -wrap char + .t yview 10.0 + .t tag add big 12.2 12.5 + update + list [.t bbox 12.1] [.t bbox 12.2] +} {{10 41 7 13} {17 29 14 27}} +.t tag remove big 1.0 end +test textDisp-22.8 {TkTextCharBbox, horizontal scrolling} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert end "12345\n" + .t insert end "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + .t xview scroll 4 units + list [.t bbox 1.3] [.t bbox 1.4] [.t bbox 2.3] [.t bbox 2.4] \ + [.t bbox 2.23] [.t bbox 2.24] +} {{} {3 3 7 13} {} {3 16 7 13} {136 16 7 13} {}} +test textDisp-22.9 {TkTextCharBbox, handling of spacing} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijkl\nmnopqrstuvwzyz" + .t tag configure spacing -spacing1 8 -spacing3 2 + .t tag add spacing 1.0 end + frame .t.f1 -width 10 -height 4 -bg black + frame .t.f2 -width 10 -height 4 -bg black + frame .t.f3 -width 10 -height 4 -bg black + frame .t.f4 -width 10 -height 4 -bg black + .t window create 1.3 -window .t.f1 -align top + .t window create 1.7 -window .t.f2 -align center + .t window create 2.1 -window .t.f3 -align bottom + .t window create 2.10 -window .t.f4 -align baseline + update + list [.t bbox .t.f1] [.t bbox .t.f2] [.t bbox .t.f3] [.t bbox .t.f4] \ + [.t bbox 1.1] [.t bbox 2.9] +} {{24 11 10 4} {55 15 10 4} {10 43 10 4} {76 40 10 4} {10 11 7 13} {69 34 7 13}} +.t tag delete spacing + +.t delete 1.0 end +.t insert end "Line 1" +for {set i 2} {$i <= 200} {incr i} { + .t insert end "\nLine $i" +} +.t configure -wrap word +.t delete 50.0 51.0 +.t insert 50.0 "This is a long line, one that will wrap around twice.\n" +update +test textDisp-23.1 {TkTextDLineInfo} {fonts} { + .t config -wrap word + .t yview 48.0 + list [.t dlineinfo 47.3] [.t dlineinfo 48.0] [.t dlineinfo 50.40] \ + [.t dlineinfo 56.0] +} {{} {3 3 49 13 10} {3 55 126 13 10} {}} +test textDisp-23.2 {TkTextDLineInfo} {fonts} { + .t config -bd 4 -wrap word + update + .t yview 48.0 + .t dlineinfo 50.40 +} {7 59 126 13 10} +.t config -bd 0 +test textDisp-23.3 {TkTextDLineInfo} {fonts} { + .t config -wrap none + update + .t yview 48.0 + list [.t dlineinfo 50.40] [.t dlineinfo 57.3] +} {{3 29 371 13 10} {3 120 49 13 10}} +test textDisp-23.4 {TkTextDLineInfo, cut-off lines} {fonts} { + .t config -wrap char + .t yview 10.0 + wm geom . ${width}x[expr $height-1] + update + list [.t dlineinfo 19.0] [.t dlineinfo 20.0] +} {{3 120 49 13 10} {3 133 49 3 10}} +test textDisp-23.5 {TkTextDLineInfo, cut-off lines} {fonts} { + .t config -wrap char + .t yview 10.0 + wm geom . ${width}x[expr $height+1] + update + list [.t dlineinfo 19.0] [.t dlineinfo 20.0] +} {{3 120 49 13 10} {3 133 49 5 10}} +wm geom . {} +update +test textDisp-23.6 {TkTextDLineInfo, horizontal scrolling} {fonts} { + .t config -wrap none + .t delete 1.0 end + .t insert end "First line\n" + .t insert end "Second line is a very long one that doesn't all fit.\n" + .t insert end "Third" + .t xview scroll 6 units + update + list [.t dlineinfo 1.0] [.t dlineinfo 2.0] [.t dlineinfo 3.0] +} {{-39 3 70 13 10} {-39 16 364 13 10} {-39 29 35 13 10}} +.t xview moveto 0 +test textDisp-23.7 {TkTextDLineInfo, centering} {fonts} { + .t config -wrap word + .t delete 1.0 end + .t insert end "First line\n" + .t insert end "Second line is a very long one that doesn't all fit.\n" + .t insert end "Third" + .t tag configure x -justify center + .t tag configure y -justify right + .t tag add x 1.0 + .t tag add y 3.0 + list [.t dlineinfo 1.0] [.t dlineinfo 2.0] [.t dlineinfo 3.0] +} {{38 3 70 13 10} {3 16 119 13 10} {108 55 35 13 10}} +.t tag delete x y + +test textDisp-24.1 {TkTextCharLayoutProc} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {3 16 7 13}} +test textDisp-24.2 {TkTextCharLayoutProc} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . [expr $width+1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 12 13} {3 16 7 13}} +test textDisp-24.3 {TkTextCharLayoutProc} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . [expr $width-1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 10 13} {3 16 7 13}} +test textDisp-24.4 {TkTextCharLayoutProc, newline not visible} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 01234567890123456789\n012345678901234567890 + wm geom . {} + update + list [.t bbox 1.19] [.t bbox 1.20] [.t bbox 2.20] +} {{136 3 7 13} {143 3 0 13} {3 29 7 13}} +test textDisp-24.5 {TkTextCharLayoutProc, char doesn't fit, newline not visible} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 0\n1\n + wm geom . 110x$height + update + list [.t bbox 1.0] [.t bbox 1.1] [.t bbox 2.0] +} {{3 3 4 13} {7 3 0 13} {3 16 4 13}} +test textDisp-24.6 {TkTextCharLayoutProc, line ends with space} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a b c d e f g h i j k l m n o p" + wm geom . {} + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {3 16 7 13}} +test textDisp-24.7 {TkTextCharLayoutProc, line ends with space} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a b c d e f g h i j k l m n o p" + wm geom . [expr $width+1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 12 13} {3 16 7 13}} +test textDisp-24.8 {TkTextCharLayoutProc, line ends with space} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a b c d e f g h i j k l m n o p" + wm geom . [expr $width-1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 10 13} {3 16 7 13}} +test textDisp-24.9 {TkTextCharLayoutProc, line ends with space} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a b c d e f g h i j k l m n o p" + wm geom . [expr $width-6]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 5 13} {3 16 7 13}} +test textDisp-24.10 {TkTextCharLayoutProc, line ends with space} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "a b c d e f g h i j k l m n o p" + wm geom . [expr $width-7]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 4 13} {3 16 7 13}} +test textDisp-24.11 {TkTextCharLayoutProc, line ends with space that doesn't quite fit} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "01234567890123456789 \nabcdefg" + wm geom . [expr $width-2]x$height + update + set result {} + lappend result [.t bbox 1.21] [.t bbox 2.0] + .t mark set insert 1.21 + lappend result [.t bbox 1.21] [.t bbox 2.0] +} {{145 3 0 13} {3 16 7 13} {145 3 0 13} {3 16 7 13}} +test textDisp-24.12 {TkTextCharLayoutProc, tab causes wrap} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghi" + .t mark set insert 1.4 + .t insert insert \t\t\t + list [.t bbox {insert -1c}] [.t bbox insert] +} {{115 3 30 13} {3 16 7 13}} +test textDisp-24.13 {TkTextCharLayoutProc, -wrap none} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . {} + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {}} +test textDisp-24.14 {TkTextCharLayoutProc, -wrap none} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . [expr $width+1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {143 3 5 13}} +test textDisp-24.15 {TkTextCharLayoutProc, -wrap none} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . [expr $width-1]x$height + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {143 3 3 13}} +test textDisp-24.16 {TkTextCharLayoutProc, no chars fit} {fonts} { + .t configure -wrap char + .t delete 1.0 end + .t insert 1.0 "abcdefghijklmnopqrstuvwxyz" + wm geom . 103x$height + update + list [.t bbox 1.0] [.t bbox 1.1] [.t bbox 1.2] +} {{3 3 1 13} {3 16 1 13} {3 29 1 13}} +test textDisp-24.17 {TkTextCharLayoutProc, -wrap word} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "This is a line that wraps around" + wm geom . {} + update + list [.t bbox 1.19] [.t bbox 1.20] +} {{136 3 7 13} {3 16 7 13}} +test textDisp-24.18 {TkTextCharLayoutProc, -wrap word} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "xThis is a line that wraps around" + wm geom . {} + update + list [.t bbox 1.14] [.t bbox 1.15] [.t bbox 1.16] +} {{101 3 7 13} {108 3 35 13} {3 16 7 13}} +test textDisp-24.19 {TkTextCharLayoutProc, -wrap word} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "xxThis is a line that wraps around" + wm geom . {} + update + list [.t bbox 1.14] [.t bbox 1.15] [.t bbox 1.16] +} {{101 3 7 13} {108 3 7 13} {115 3 28 13}} +test textDisp-24.20 {TkTextCharLayoutProc, vertical offset} {fonts} { + .t configure -wrap none + .t delete 1.0 end + .t insert 1.0 "Line 1\nLine 2\nLine 3" + set result {} + lappend result [.t bbox 2.1] [.t dlineinfo 2.1] + .t tag configure up -offset 6 + .t tag add up 2.1 + lappend result [.t bbox 2.1] [.t dlineinfo 2.1] + .t tag configure up -offset -2 + lappend result [.t bbox 2.1] [.t dlineinfo 2.1] + .t tag delete up + set result +} {{10 16 7 13} {3 16 42 13 10} {10 16 7 13} {3 16 42 19 16} {10 18 7 13} {3 16 42 15 10}} +.t configure -width 30 +update +test textDisp-24.21 {TkTextCharLayoutProc, word breaks} {fonts} { + .t configure -wrap word + .t delete 1.0 end + .t insert 1.0 "Sample text xxxxxxx yyyyy zzzzzzz qqqqq rrrr ssss tt u vvvvv" + frame .t.f -width 30 -height 20 -bg black + .t window create 1.36 -window .t.f + .t bbox 1.26 +} {3 19 7 13} +test textDisp-24.22 {TkTextCharLayoutProc, word breaks} {fonts} { + .t configure -wrap word + .t delete 1.0 end + frame .t.f -width 30 -height 20 -bg black + .t insert 1.0 "Sample text xxxxxxx yyyyyyy" + .t window create end -window .t.f + .t insert end "zzzzzzz qqqqq rrrr ssss tt u vvvvv" + .t bbox 1.28 +} {33 19 7 13} +test textDisp-24.23 {TkTextCharLayoutProc, word breaks} {fonts} { + .t configure -wrap word + .t delete 1.0 end + frame .t.f -width 30 -height 20 -bg black + .t insert 1.0 "Sample text xxxxxxx yyyyyyy " + .t insert end "zzzzzzz qqqqq rrrr ssss tt" + .t window create end -window .t.f + .t insert end "u vvvvv" + .t bbox .t.f +} {3 29 30 20} +catch {destroy .t.f} +.t configure -width 20 +update +test textDisp-24.24 {TkTextCharLayoutProc, justification and tabs} {fonts} { + .t delete 1.0 end + .t tag configure x -justify center + .t insert 1.0 aa\tbb\tcc\tdd\t + .t tag add x 1.0 end + list [.t bbox 1.0] [.t bbox 1.10] +} {{45 3 7 13} {94 3 7 13}} + +.t configure -width 40 -bd 0 -relief flat -highlightthickness 0 -padx 0 \ + -tabs 100 +update +test textDisp-25.1 {CharBboxProc procedure, check tab width} {fonts} { + .t delete 1.0 end + .t insert 1.0 abc\td\tfgh + list [.t bbox 1.3] [.t bbox 1.5] [.t bbox 1.6] +} {{21 1 79 13} {107 1 93 13} {200 1 7 13}} + +.t configure -width 40 -bd 0 -relief flat -highlightthickness 0 -padx 0 \ + -tabs {} +update +test textDisp-26.1 {AdjustForTab procedure, no tabs} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\tbcdefghij\tc\td + list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.12] 0] \ + [lindex [.t bbox 1.14] 0] +} {56 168 224} +test textDisp-26.2 {AdjustForTab procedure, not enough tabs specified} { + .t delete 1.0 end + .t insert 1.0 a\tb\tc\td + .t tag delete x + .t tag configure x -tabs 40 + .t tag add x 1.0 end + list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.4] 0] \ + [lindex [.t bbox 1.6] 0] +} {40 80 120} +test textDisp-26.3 {AdjustForTab procedure, not enough tabs specified} { + .t delete 1.0 end + .t insert 1.0 a\tb\tc\td\te + .t tag delete x + .t tag configure x -tabs {40 70 right} + .t tag add x 1.0 end + list [lindex [.t bbox 1.2] 0] \ + [expr [lindex [.t bbox 1.4] 0] + [lindex [.t bbox 1.4] 2]] \ + [expr [lindex [.t bbox 1.6] 0] + [lindex [.t bbox 1.6] 2]] \ + [expr [lindex [.t bbox 1.8] 0] + [lindex [.t bbox 1.8] 2]] +} {40 70 100 130} +test textDisp-26.4 {AdjustForTab procedure, different alignments} { + .t delete 1.0 end + .t insert 1.0 a\tbc\tde\tfg\thi + .t tag delete x + .t tag configure x -tabs {40 center 80 left 130 right} + .t tag add x 1.0 end + .t tag add y 1.2 + .t tag add y 1.5 + .t tag add y 1.8 + list [lindex [.t bbox 1.3] 0] [lindex [.t bbox 1.5] 0] \ + [lindex [.t bbox 1.10] 0] +} {40 80 130} +test textDisp-26.5 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\t1.234 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.2 + .t tag add y 1.5 + lindex [.t bbox 1.3] 0 +} {120} +test textDisp-26.6 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\t1,456.234 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.2 + lindex [.t bbox 1.7] 0 +} {120} +test textDisp-26.7 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\t1.456.234,7 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.2 + lindex [.t bbox 1.11] 0 +} {120} +test textDisp-26.8 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\ttest + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.2 + lindex [.t bbox 1.6] 0 +} {120} +test textDisp-26.9 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\t1234 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.2 + lindex [.t bbox 1.6] 0 +} {120} +test textDisp-26.10 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\t1.234567 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.5 + lindex [.t bbox 1.3] 0 +} {120} +test textDisp-26.11 {AdjustForTab procedure, numeric alignment} { + .t delete 1.0 end + .t insert 1.0 a\tx=1.234567 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.7 + .t tag add y 1.9 + lindex [.t bbox 1.5] 0 +} {120} +test textDisp-26.12 {AdjustForTab procedure, adjusting chunks} { + .t delete 1.0 end + .t insert 1.0 a\tx1.234567 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + .t tag add y 1.7 + .t tag add y 1.9 + button .b -text "=" + .t window create 1.3 -window .b + update + lindex [.t bbox 1.5] 0 +} {120} +test textDisp-26.13 {AdjustForTab procedure, not enough space} {fonts} { + .t delete 1.0 end + .t insert 1.0 "abc\txyz\tqrs\txyz\t0" + .t tag delete x + .t tag configure x -tabs {10 30 center 50 right 120} + .t tag add x 1.0 end + list [lindex [.t bbox 1.4] 0] [lindex [.t bbox 1.8] 0] \ + [lindex [.t bbox 1.12] 0] [lindex [.t bbox 1.16] 0] +} {28 56 84 120} + +.t configure -width 20 -bd 2 -highlightthickness 2 -relief sunken -tabs {} \ + -wrap char +update +test textDisp-27.1 {SizeOfTab procedure, old-style tabs} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\tbcdefghij\tc\td + list [.t bbox 1.2] [.t bbox 1.10] [.t bbox 1.12] +} {{60 5 7 13} {116 5 7 13} {4 18 7 13}} +test textDisp-27.2 {SizeOfTab procedure, choosing tabX and alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\tbcd + .t tag delete x + .t tag configure x -tabs 120 + .t tag add x 1.0 end + list [.t bbox 1.3] [.t bbox 1.4] +} {{131 5 13 13} {4 18 7 13}} +test textDisp-27.3 {SizeOfTab procedure, choosing tabX and alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\t\t\tbcd + .t tag delete x + .t tag configure x -tabs 40 + .t tag add x 1.0 end + list [.t bbox 1.5] [.t bbox 1.6] +} {{131 5 13 13} {4 18 7 13}} +test textDisp-27.4 {SizeOfTab procedure, choosing tabX and alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\t\t\tbcd + .t tag delete x + .t tag configure x -tabs {20 center 70 left} + .t tag add x 1.0 end + list [.t bbox 1.5] [.t bbox 1.6] +} {{131 5 13 13} {4 18 7 13}} +test textDisp-27.5 {SizeOfTab procedure, center alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\txyzzyabc + .t tag delete x + .t tag configure x -tabs {120 center} + .t tag add x 1.0 end + list [.t bbox 1.6] [.t bbox 1.7] +} {{135 5 9 13} {4 18 7 13}} +test textDisp-27.6 {SizeOfTab procedure, center alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\txyzzyabc + .t tag delete x + .t tag configure x -tabs {150 center} + .t tag add x 1.0 end + list [.t bbox 1.6] [.t bbox 1.7] +} {{32 18 7 13} {39 18 7 13}} +test textDisp-27.7 {SizeOfTab procedure, center alignment, wrap -none (potential numerical problems)} {fonts} { + .t delete 1.0 end + .t configure -tabs {1c 2c center 3c 4c} -wrap none -width 40 + .t insert 1.0 a\tb\tc\td\te\n012345678934567890a\tbb\tcc\tdd + update + .t bbox 2.24 +} {172 18 7 13} +.t configure -wrap char -tabs {} -width 20 +update +test textDisp-27.8 {SizeOfTab procedure, right alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\t\txyzzyabc + .t tag delete x + .t tag configure x -tabs {100 left 140 right} + .t tag add x 1.0 end + list [.t bbox 1.6] [.t bbox 1.7] +} {{137 5 7 13} {4 18 7 13}} +test textDisp-27.9 {SizeOfTab procedure, left alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\txyzzyabc + .t tag delete x + .t tag configure x -tabs {120} + .t tag add x 1.0 end + list [.t bbox 1.3] [.t bbox 1.4] +} {{131 5 13 13} {4 18 7 13}} +test textDisp-27.10 {SizeOfTab procedure, numeric alignment} {fonts} { + .t delete 1.0 end + .t insert 1.0 a\t123.4 + .t tag delete x + .t tag configure x -tabs {120 numeric} + .t tag add x 1.0 end + list [.t bbox 1.3] [.t bbox 1.4] +} {{117 5 27 13} {4 18 7 13}} +test textDisp-27.11 {SizeOfTab procedure, making tabs at least as wide as a space} {fonts} { + .t delete 1.0 end + .t insert 1.0 abc\tdefghijklmnopqrst + .t tag delete x + .t tag configure x -tabs {120} + .t tag add x 1.0 end + list [.t bbox 1.5] [.t bbox 1.6] +} {{131 5 13 13} {4 18 7 13}} + +proc bizarre_scroll args { + .t2.t delete 5.0 end +} +test textDisp-28.1 {"yview" option with bizarre scroll command} { + catch {destroy .t2} + toplevel .t2 + text .t2.t -width 40 -height 4 + .t2.t insert end "1\n2\n3\n4\n5\n6\n7\n8\n" + pack .t2.t + wm geometry .t2 +0+0 + update + .t2.t configure -yscrollcommand bizarre_scroll + .t2.t yview 100.0 + set result [.t2.t index @0,0] + update + lappend result [.t2.t index @0,0] +} {6.0 1.0} + +test textDisp-29.1 {miscellaneous: lines wrap but are still too long} {fonts} { + catch {destroy .t2} + toplevel .t2 + wm geometry .t2 +0+0 + text .t2.t -width 20 -height 10 -font $fixedFont \ + -wrap char -xscrollcommand ".t2.s set" + pack .t2.t -side top + scrollbar .t2.s -orient horizontal -command ".t2.t xview" + pack .t2.s -side bottom -fill x + .t2.t insert end 123 + frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised + .t2.t window create 1.1 -window .t2.t.f + update + list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3] +} {{0 0.466667} 300x50+5+18 {12 68 7 13}} +test textDisp-29.2 {miscellaneous: lines wrap but are still too long} {fonts} { + catch {destroy .t2} + toplevel .t2 + wm geometry .t2 +0+0 + text .t2.t -width 20 -height 10 -font $fixedFont \ + -wrap char -xscrollcommand ".t2.s set" + pack .t2.t -side top + scrollbar .t2.s -orient horizontal -command ".t2.t xview" + pack .t2.s -side bottom -fill x + .t2.t insert end 123 + frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised + .t2.t window create 1.1 -window .t2.t.f + .t2.t xview scroll 1 unit + update + list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3] +} {{0.0233333 0.49} 300x50+-2+18 {5 68 7 13}} +test textDisp-29.3 {miscellaneous: lines wrap but are still too long} {fonts} { + catch {destroy .t2} + toplevel .t2 + wm geometry .t2 +0+0 + text .t2.t -width 20 -height 10 -font $fixedFont \ + -wrap char -xscrollcommand ".t2.s set" + pack .t2.t -side top + scrollbar .t2.s -orient horizontal -command ".t2.t xview" + pack .t2.s -side bottom -fill x + .t2.t insert end 123 + frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised + .t2.t window create 1.1 -window .t2.t.f + update + .t2.t xview scroll 200 units + update + list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3] +} {{0.536667 1} 300x50+-156+18 {}} + +foreach i [winfo children .] { + catch {destroy $i} +} +option clear |