C:\Users\francois\Documents\Development\tcltk-fossil>set MYTCL="C:\Users\francoi
s\Documents\Development\tcltk-fossil\tcl"

C:\Users\francois\Documents\Development\tcltk-fossil>set MYTK="C:\Users\francois
\Documents\Development\tcltk-fossil\tk"

C:\Users\francois\Documents\Development\tcltk-fossil>set MYTCLTK="C:\Users\franc
ois\Documents\Development\tcltk-fossil\tcltk"

C:\Users\francois\Documents\Development\tcltk-fossil>CALL "C:\Program Files (x86
)\Microsoft Visual Studio 9.0\VC\vcvarsall.bat"
Setting environment for using Microsoft Visual Studio 2008 x86 tools.

Microsoft (R) Program Maintenance Utility Version 9.00.30729.01
Copyright (C) Microsoft Corporation.  All rights reserved.

===============================================================================
*** Compiler has 'Optimizations'
*** Compiler does not have 'Pentium 0x0f fix'
*** Linker has 'Win98 alignment problem'
*** Doing symbols
*** Intermediate directory will be '.\Debug_VC9\tk_ThreadedDynamic'
*** Output directory will be '.\Debug_VC9'
*** Suffix for binaries will be 'tg'
*** Optional defines are '-DTCL_CFGVAL_ENCODING=\"cp1252\" -DSTDC_HEADERS -DTCL_
THREADS=1 -DUSE_THREAD_ALLOC=1'
*** Compiler version 9. Target machine is IX86
*** Host architecture is AMD64
*** Compiler options '-W3 /DUNICODE /D_UNICODE /D_ATL_XP_TARGETING  -Ot -Oi -fp:
strict -Gs -GS -GL  -RTC1 -W3'
*** Link options '-ltcg'
*** Dependency rules are not being used.

         ".\Debug_VC9\tktest.exe" "C:/Users/francois/Documents/Development/tcltk
-fossil/tk/win/../tests/all.tcl" -file *.test | ".\Debug_VC9\cat32.exe"
Tests running in interp:  C:/Users/francois/Documents/Development/tcltk-fossil/t
k/win/Debug_VC9/tktest.exe
Tests located in:  C:/Users/francois/Documents/Development/tcltk-fossil/tk/tests

Tests running in:  C:/Users/francois/Documents/Development/tcltk-fossil/tk/win
Temporary files stored in C:/Users/francois/Documents/Development/tcltk-fossil/t
k/win
Test files sourced into current interpreter
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Sun Dec 18 21:22:12 +0100 2016
bell.test
Bell should ring now ...
bgerror.test
bind.test
bitmap.test
border.test
busy.test
button.test
canvImg.test
canvMoveto.test
canvPs.test
canvRect.test
canvText.test
canvWind.test
canvas.test
choosedir.test
clipboard.test
clrpick.test
cmds.test
color.test
config.test
cursor.test
dialog.test
embed.test
entry.test


==== entry-8.18 DeleteChars procedure FAILED
==== Contents of test case:

    .e insert 0 "xyzzy"
    update
    .e delete 2 4
    winfo reqwidth .e

---- Result was:
34
---- Result should have been (exact matching):
31
==== entry-8.18 FAILED

event.test
filebox.test
focus.test
focusTcl.test
font.test


==== font-4.10 font command: actual FAILED
==== Contents of test case:

    # (objc > 3) so objPtr = objv[3 + skip]
    font actual {-family times} -family

---- Result was:
times
---- Result should have been (exact matching):
Times New Roman
==== font-4.10 FAILED



==== font-4.14 font command: actual FAILED
==== Contents of test case:

    font actual {-family times} -family -- \ud800\udc00

---- Result was:
times
---- Result should have been (exact matching):
Times New Roman
==== font-4.14 FAILED



==== font-45.2 TkFontGetAliasList: match FAILED
==== Contents of test case:

    font actual {times 10} -family

---- Result was:
times
---- Result should have been (exact matching):
Times New Roman
==== font-45.2 FAILED

fontchooser.test
frame.test
geometry.test
get.test
grab.test
grid.test
image.test
imgBmap.test
imgPNG.test
imgPPM.test
imgPhoto.test
listbox.test
main.test
menu.test
menuDraw.test
menubut.test
message.test
msgbox.test
obj.test
oldpack.test
option.test
pack.test
packgrid.test
panedwindow.test
place.test
raise.test
safe.test
scale.test
scrollbar.test
select.test
send.test
spinbox.test


==== spinbox-8.18 DeleteChars procedure FAILED
==== Contents of test case:

    .e insert 0 "xyzzy"
    update
    .e delete 2 4
    winfo reqwidth .e

---- Result was:
46
---- Result should have been (exact matching):
42
==== spinbox-8.18 FAILED

text.test
textBTree.test
textDisp.test


==== textDisp-1.2 GetStyle procedure, wrapmode FAILED
==== Contents of test case:

    .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]

---- Result was:
{5 31 8 13} {45 31 8 13} {}
---- Result should have been (exact matching):
{5 31 7 13} {40 31 7 13} {}
==== textDisp-1.2 FAILED



==== textDisp-2.2 LayoutDLine, basics FAILED
==== Contents of test case:

    .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]

---- Result was:
{157 5 8 13} {5 18 8 13}
---- Result should have been (exact matching):
{138 5 7 13} {5 18 7 13}
==== textDisp-2.2 FAILED



==== textDisp-2.3 LayoutDLine, basics FAILED
==== Contents of test case:

    .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]

---- Result was:
{157 5 8 13} {5 18 8 13}
---- Result should have been (exact matching):
{138 5 7 13} {5 18 7 13}
==== textDisp-2.3 FAILED



==== textDisp-2.4 LayoutDLine, word wrap FAILED
==== Contents of test case:

    .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]

---- Result was:
{157 5 8 13} {5 18 8 13}
---- Result should have been (exact matching):
{138 5 7 13} {5 18 7 13}
==== textDisp-2.4 FAILED



==== textDisp-2.5 LayoutDLine, word wrap FAILED
==== Contents of test case:

    .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.19] [.t bbox 1.20] [.t bbox 1.21]

---- Result was:
{109 5 8 13} {157 5 8 13} {165 5 0 13} {5 18 8 13}
---- Result should have been (exact matching):
{96 5 8 13} {138 5 8 13} {145 5 0 13} {5 18 8 13}
==== textDisp-2.5 FAILED



==== textDisp-2.6 LayoutDLine, word wrap FAILED
==== Contents of test case:

    .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]

---- Result was:
{125 5 40 13} {5 18 8 13}
---- Result should have been (exact matching):
{110 5 35 13} {5 18 7 13}
==== textDisp-2.6 FAILED



==== textDisp-2.7 LayoutDLine, marks and tags FAILED
==== Contents of test case:

    .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]

---- Result was:
{21 5 8 13} {45 5 8 13} {93 5 8 13}
---- Result should have been (exact matching):
{19 5 7 13} {40 5 7 13} {82 5 7 13}
==== textDisp-2.7 FAILED



==== textDisp-2.8 LayoutDLine, extra chunk at end of dline FAILED
==== Contents of test case:

    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]

---- Result was:
{157 5 9 13} {5 18 8 13}
---- Result should have been (exact matching):
{138 5 8 13} {5 18 7 13}
==== textDisp-2.8 FAILED



==== textDisp-2.9 LayoutDLine, marks and tags FAILED
==== Contents of test case:

    .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]

---- Result was:
{77 5 88 13} {5 18 8 13} {125 18 8 13}
---- Result should have been (exact matching):
{68 5 77 13} {5 18 7 13} {110 18 7 13}
==== textDisp-2.9 FAILED



==== textDisp-2.10 LayoutDLine, marks and tags FAILED
==== Contents of test case:

    .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]

---- Result was:
{77 5 88 13} {5 18 8 13} {125 18 8 13}
---- Result should have been (exact matching):
{68 5 77 13} {5 18 7 13} {110 18 7 13}
==== textDisp-2.10 FAILED



==== textDisp-2.11 LayoutDLine, newline width FAILED
==== Contents of test case:

    .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]

---- Result was:
{21 18 144 13} {29 31 136 13}
---- Result should have been (exact matching):
{19 18 126 13} {26 31 119 13}
==== textDisp-2.11 FAILED



==== textDisp-2.12 LayoutDLine, justification FAILED
==== Contents of test case:

    .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]

---- Result was:
{85 5 80 13} {81 18 8 13} {73 44 8 13} {89 44 8 13}
---- Result should have been (exact matching):
{75 5 70 13} {71 18 7 13} {64 44 7 13} {78 44 7 13}
==== textDisp-2.12 FAILED



==== textDisp-2.13 LayoutDLine, justification FAILED
==== Contents of test case:

    .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]

---- Result was:
{165 5 0 13} {157 18 8 13} {141 44 8 13} {157 44 8 13}
---- Result should have been (exact matching):
{145 5 0 13} {138 18 7 13} {124 44 7 13} {138 44 7 13}
==== textDisp-2.13 FAILED



==== textDisp-2.14 LayoutDLine, justification FAILED
==== Contents of test case:

    .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]

---- Result was:
{81 18 8 13} {149 31 8 13} {165 31 0 13} {5 44 8 13}
---- Result should have been (exact matching):
{71 18 7 13} {131 31 7 13} {145 31 0 13} {5 44 7 13}
==== textDisp-2.14 FAILED



==== textDisp-2.15 LayoutDLine, justification FAILED
==== Contents of test case:

    .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]

---- Result was:
{81 18 8 13} {77 31 8 13} {93 31 72 13} {5 44 8 13}
---- Result should have been (exact matching):
{71 18 7 13} {68 31 7 13} {82 31 63 13} {5 44 7 13}
==== textDisp-2.15 FAILED



==== textDisp-2.16 LayoutDLine, justification FAILED
==== Contents of test case:

    .t configure -wrap word
    .t delete 1.0 end
    .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lin
es"
    .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.41] [.t bbox 2.0]

---- Result was:
{5 5 8 13} {5 18 8 13} {69 31 8 13} {5 44 8 13}
---- Result should have been (exact matching):
{5 5 7 13} {5 18 7 13} {61 31 7 13} {5 44 7 13}
==== textDisp-2.16 FAILED



==== textDisp-2.17 LayoutDLine, justification FAILED
==== Contents of test case:

    .t configure -wrap word
    .t delete 1.0 end
    .t insert 1.0 "Lots of very long words, enough to force word wrap\nThen\nmor
e lines"
    .t tag configure x -justify center
    .t tag add x 1.18
    list [.t bbox 1.0] [.t bbox 1.18] [.t bbox 1.35] [.t bbox 2.0]

---- Result was:
{5 5 8 13} {17 18 8 13} {5 31 8 13} {5 44 8 13}
---- Result should have been (exact matching):
{5 5 7 13} {15 18 7 13} {5 31 7 13} {5 44 7 13}
==== textDisp-2.17 FAILED



==== textDisp-2.18 LayoutDLine, justification FAILED
==== Contents of test case:

    .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]

---- Result was:
{29 18 8 13} {45 31 8 13}
---- Result should have been (exact matching):
{26 18 7 13} {40 31 7 13}
==== textDisp-2.18 FAILED



==== textDisp-2.19 LayoutDLine, margins FAILED
==== Contents of test case:

    .t configure -wrap word
    .t delete 1.0 end
    .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lin
es"
    .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]

---- Result was:
{25 5 8 13} {121 5 44 13} {45 18 8 13} {25 57 8 13}
---- Result should have been (exact matching):
{25 5 7 13} {109 5 36 13} {45 18 7 13} {25 70 7 13}
==== textDisp-2.19 FAILED



==== textDisp-2.20 LayoutDLine, margins FAILED
==== Contents of test case:

    .t configure -wrap word
    .t delete 1.0 end
    .t insert 1.0 "Lots of long words, enough to force word wrap\nThen\nmore lin
es"
    .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]

---- Result was:
{25 5 8 13} {10 18 8 13} {15 31 8 13} {25 44 8 13}
---- Result should have been (exact matching):
{25 5 7 13} {10 18 7 13} {15 31 7 13} {25 44 7 13}
==== textDisp-2.20 FAILED



==== textDisp-2.21 LayoutDLine, margins FAILED
==== Contents of test case:

    .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]

---- Result was:
{85 5 80 13} {85 18 80 13} {85 31 80 13}
---- Result should have been (exact matching):
{85 5 60 13} {85 18 60 13} {85 31 60 13}
==== textDisp-2.21 FAILED



==== textDisp-2.26 LayoutDLine, tabs, breaking chunks at tabs FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t tag delete x
    .t tag configure x -tabs [list 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]

---- Result was:
133 141 149 157
---- Result should have been (exact matching):
117 124 131 138
==== textDisp-2.26 FAILED



==== textDisp-2.28 LayoutDLine, tabs, running out of space in dline FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "a\tb\tc\td"
    .t bbox 1.6

---- Result was:
5 18 8 13
---- Result should have been (exact matching):
5 18 7 13
==== textDisp-2.28 FAILED



==== textDisp-2.29 LayoutDLine, tabs, running out of space in dline FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "a\tx\tabcd"
    .t bbox 1.4

---- Result was:
133 5 8 13
---- Result should have been (exact matching):
117 5 7 13
==== textDisp-2.29 FAILED



==== textDisp-2.30 LayoutDLine, tabs, running out of space in dline FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 "a\tx\tabc"
    .t bbox 1.4

---- Result was:
133 5 8 13
---- Result should have been (exact matching):
117 5 7 13
==== textDisp-2.30 FAILED



==== textDisp-3.1 different character sizes FAILED
==== Contents of test case:

    .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]

---- Result was:
{13 15 8 13} {57 5 13 27} {5 5 121 27 21} {5 85 40 13 11}
---- Result should have been (exact matching):
{12 15 7 13} {52 5 13 27} {5 5 114 27 21} {5 85 35 13 10}
==== textDisp-3.1 FAILED



==== textDisp-4.1 UpdateDisplayInfo, basic FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert end "Line 1\nLine 2\nLine 3\n"
    update
    .t delete 2.0 2.end
    update
    set res $tk_textRelayout
    .t insert 2.0 "New Line 2"
    update
    lappend res [.t bbox 1.0] [.t bbox 2.0] [.t bbox 3.0] $tk_textRelayout

---- Result was:
2.0 {5 5 8 13} {5 18 8 13} {5 31 8 13} 2.0
---- Result should have been (exact matching):
2.0 {5 5 7 13} {5 18 7 13} {5 31 7 13} 2.0
==== textDisp-4.1 FAILED



==== textDisp-4.2 UpdateDisplayInfo, re-use tail of text line FAILED
==== Contents of test case:

    .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
    set res $tk_textRelayout
    .t insert 2.0 X
    update
    lappend res [.t bbox 2.0] [.t bbox x] [.t bbox 3.0] $tk_textRelayout

---- Result was:
2.0 2.20 {5 18 8 13} {13 31 8 13} {5 44 8 13} {2.0 2.20}
---- Result should have been (exact matching):
2.0 2.20 {5 18 7 13} {12 31 7 13} {5 44 7 13} {2.0 2.20}
==== textDisp-4.2 FAILED



==== textDisp-4.3 UpdateDisplayInfo, tail of text line shifts FAILED
==== Contents of test case:

    .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

---- Result was:
{5 18 8 13} {5 31 8 13} {5 44 8 13} {2.0 2.20}
---- Result should have been (exact matching):
{5 18 7 13} {5 31 7 13} {5 44 7 13} {2.0 2.20}
==== textDisp-4.3 FAILED



==== textDisp-4.4 UpdateDisplayInfo, wrap-mode "none" FAILED
==== Contents of test case:

    .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

---- Result was:
{5 18 8 13} {} {5 31 8 13} {1.0 2.0 3.0}
---- Result should have been (exact matching):
{5 18 7 13} {} {5 31 7 13} {1.0 2.0 3.0}
==== textDisp-4.4 FAILED



==== textDisp-4.17 UpdateDisplayInfo, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
{} {1.0 2.0 3.0 4.0} {} {19 16 8 13} {}
---- Result should have been (exact matching):
{} {1.0 2.0 3.0 4.0} {} {17 16 7 13} {}
==== textDisp-4.17 FAILED



==== textDisp-4.18 UpdateDisplayInfo, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
{} {1.0 2.0 3.0 4.0} {11 16 8 13}
---- Result should have been (exact matching):
{} {1.0 2.0 3.0 4.0} {10 16 7 13}
==== textDisp-4.18 FAILED



==== textDisp-4.19 UpdateDisplayInfo, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
{} {1.0 2.0 3.0 4.0} {43 16 8 13}
---- Result should have been (exact matching):
{} {1.0 2.0 3.0 4.0} {38 16 7 13}
==== textDisp-4.19 FAILED



==== textDisp-4.20 UpdateDisplayInfo, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
2.0 {1.0 2.0 3.0 4.0} {123 16 8 13}
---- Result should have been (exact matching):
2.0 {1.0 2.0 3.0 4.0} {108 16 7 13}
==== textDisp-4.20 FAILED



==== textDisp-4.22 UpdateDisplayInfo, no horizontal scrolling except for -wrap n
one FAILED
==== Contents of test case:

    .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]

---- Result was:
{3 16 8 13} {11 29 8 13}
---- Result should have been (exact matching):
{3 16 7 13} {10 29 7 13}
==== textDisp-4.22 FAILED



==== textDisp-4.23 UpdateDisplayInfo, no horizontal scrolling except for -wrap n
one FAILED
==== Contents of test case:

    .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]

---- Result was:
{3 16 8 13} {131 16 8 13}
---- Result should have been (exact matching):
{3 16 7 13} {115 16 7 13}
==== textDisp-4.23 FAILED



==== textDisp-5.1 DisplayDLine, handling of spacing FAILED
==== Contents of test case:

    .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]

---- Result was:
10x4+27+11 10x4+61+15 10x4+11+43 10x4+85+41
---- Result should have been (exact matching):
10x4+24+11 10x4+55+15 10x4+10+43 10x4+76+40
==== textDisp-5.1 FAILED



==== textDisp-8.1 TkTextChanged: redisplay whole lines FAILED
==== Contents of test case:

    .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]

---- Result was:
{2.0 2.18 2.38} {2.0 2.18 2.38} {115 29 8 13}
---- Result should have been (exact matching):
{2.0 2.18 2.38} {2.0 2.18 2.38} {101 29 7 13}
==== textDisp-8.1 FAILED



==== textDisp-9.2 TkTextRedrawTag FAILED
==== Contents of test case:

    .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

---- Result was:
{1.0 2.0 2.18} {1.0 2.0 2.18}
---- Result should have been (exact matching):
{1.0 2.0 2.17} {1.0 2.0 2.17}
==== textDisp-9.2 FAILED



==== textDisp-9.8 TkTextRedrawTag FAILED
==== Contents of test case:

    .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 en
ough 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

---- Result was:
2.0 2.18
---- Result should have been (exact matching):
2.0 2.17
==== textDisp-9.8 FAILED



==== textDisp-9.9 TkTextRedrawTag FAILED
==== Contents of test case:

    .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 en
ough 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

---- Result was:
2.0 2.18
---- Result should have been (exact matching):
2.0 2.17
==== textDisp-9.9 FAILED



==== textDisp-13.7 TkTextSeeCmd procedure FAILED
==== Contents of test case:

    .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
    .t yview 25.0
    .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]

---- Result was:
{83 68 8 13} {3 68 8 13} {3 68 8 13} {83 68 8 13}
---- Result should have been (exact matching):
{73 68 7 13} {3 68 7 13} {3 68 7 13} {73 68 7 13}
==== textDisp-13.7 FAILED



==== textDisp-13.8 TkTextSeeCmd procedure FAILED
==== Contents of test case:

    .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]

---- Result was:
{83 64 8 13} {155 64 8 13} {155 64 8 13} {83 64 8 13}
---- Result should have been (exact matching):
{73 64 7 13} {136 64 7 13} {136 64 7 13} {73 64 7 13}
==== textDisp-13.8 FAILED



==== textDisp-13.9 TkTextSeeCmd procedure FAILED
==== Contents of test case:

    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]

---- Result was:
{84 66 8 13} {157 66 8 13} {157 66 8 13} {84 66 8 13}
---- Result should have been (exact matching):
{74 66 7 13} {138 66 7 13} {138 66 7 13} {74 66 7 13}
==== textDisp-13.9 FAILED



==== textDisp-14.7 TkTextXviewCmd procedure FAILED
==== Contents of test case:

    .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

---- Result was:
0.29910714285714285 0.65625
---- Result should have been (exact matching):
0.3010204081632653 0.6581632653061225
==== textDisp-14.7 FAILED



==== textDisp-16.40 text count -xpixels FAILED
==== Contents of test case:

    set res {}
    lappend res [.t count -xpixels 1.0 1.5]  [.t count -xpixels 1.5 1.0]  [.t co
unt -xpixels 1.0 13.0]  [.t count -xpixels 1.0 "1.0 displaylineend"]  [.t count
-xpixels 1.0 "1.0 lineend"]  [.t count -xpixels 1.0 "1.0 displaylineend"]  [.t c
ount -xpixels 1.0 end]

---- Result was:
40 -40 0 48 48 48 0
---- Result should have been (exact matching):
35 -35 0 42 42 42 0
==== textDisp-16.40 FAILED



==== textDisp-17.6 TkTextScanCmd procedure FAILED
==== Contents of test case:

    .t yview 1.0
    .t xview moveto 0
    .t scan mark 40 60
    .t scan dragto 35 55
    .t index @0,0

---- Result was:
4.6
---- Result should have been (exact matching):
4.7
==== textDisp-17.6 FAILED



==== textDisp-17.7 TkTextScanCmd procedure FAILED
==== Contents of test case:

    .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 [expr {70 + $fixedDiff}]
    list $x [.t index @0,0]

---- Result was:
6.13 2.7
---- Result should have been (exact matching):
6.12 2.5
==== textDisp-17.7 FAILED



==== textDisp-17.8 TkTextScanCmd procedure FAILED
==== Contents of test case:

    .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

---- Result was:
4.6
---- Result should have been (exact matching):
4.7
==== textDisp-17.8 FAILED



==== textDisp-17.9 TkTextScanCmd procedure FAILED
==== Contents of test case:

    .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 14 5
    .t index @0,0

---- Result was:
18.45
---- Result should have been (exact matching):
18.44
==== textDisp-17.9 FAILED



==== textDisp-20.1 FindDLine FAILED
==== Contents of test case:

    .t yview 48.0
    list [.t dlineinfo 46.0] [.t dlineinfo 47.0] [.t dlineinfo 49.0]  [.t dlinei
nfo 58.0]

---- Result was:
{} {} {3 16 56 13 11} {}
---- Result should have been (exact matching):
{} {} {3 16 49 13 10} {}
==== textDisp-20.1 FAILED



==== textDisp-20.2 FindDLine FAILED
==== Contents of test case:

    .t yview 100.0
    .t yview -pickplace 53.0
    list [.t dlineinfo 50.0] [.t dlineinfo 50.14] [.t dlineinfo 50.21]

---- Result was:
{3 -1 160 13 11} {3 -1 160 13 11} {3 12 152 13 11}
---- Result should have been (exact matching):
{3 -1 140 13 10} {3 -1 140 13 10} {3 12 133 13 10}
==== textDisp-20.2 FAILED



==== textDisp-20.3 FindDLine FAILED
==== Contents of test case:

    .t yview 100.0
    .t yview 49.0
    list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 57.0]

---- Result was:
{3 16 160 13 11} {3 29 152 13 11} {}
---- Result should have been (exact matching):
{3 16 140 13 10} {3 29 133 13 10} {}
==== textDisp-20.3 FAILED



==== textDisp-20.4 FindDLine FAILED
==== Contents of test case:

    .t yview 100.0
    .t yview 42.0
    list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 50.40]

---- Result was:
{3 107 160 13 11} {3 120 152 13 11} {}
---- Result should have been (exact matching):
{3 107 140 13 10} {3 120 133 13 10} {}
==== textDisp-20.4 FAILED



==== textDisp-20.5 FindDLine FAILED
==== Contents of test case:

    .t yview 100.0
    .t yview 48.0
    list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40]

---- Result was:
{3 29 424 13 11} {3 29 424 13 11} {3 29 424 13 11}
---- Result should have been (exact matching):
{3 29 371 13 10} {3 29 371 13 10} {3 29 371 13 10}
==== textDisp-20.5 FAILED



==== textDisp-21.1 TkTextPixelIndex FAILED
==== Contents of test case:

    .t yview 48.0
    list [.t index @-10,-10] [.t index @6,6] [.t index @22,6]  [.t index @102,6]
 [.t index @38,[expr {$fixedHeight * 4 + 3}]] [.t index @44,67]

---- Result was:
48.0 48.0 48.2 48.7 50.44 50.45
---- Result should have been (exact matching):
48.0 48.0 48.2 48.7 50.45 50.45
==== textDisp-21.1 FAILED



==== textDisp-21.3 TkTextPixelIndex, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
1.2 1.2 2.5
---- Result should have been (exact matching):
1.2 1.2 2.6
==== textDisp-21.3 FAILED



==== textDisp-22.1 TkTextCharBbox FAILED
==== Contents of test case:

    .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]

---- Result was:
{} {3 3 8 13} {43 29 8 13} {3 55 8 13} {}
---- Result should have been (exact matching):
{} {3 3 7 13} {38 29 7 13} {3 55 7 13} {}
==== textDisp-22.1 FAILED



==== textDisp-22.2 TkTextCharBbox FAILED
==== Contents of test case:

    .t config -wrap none
    .t yview 48.0
    list [.t bbox 50.5] [.t bbox 50.40] [.t bbox 57.0]

---- Result was:
{43 29 8 13} {} {3 120 8 13}
---- Result should have been (exact matching):
{38 29 7 13} {} {3 120 7 13}
==== textDisp-22.2 FAILED



==== textDisp-22.3 TkTextCharBbox, cut-off lines FAILED
==== Contents of test case:

    .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]

---- Result was:
{11 120 8 13} {11 133 8 3}
---- Result should have been (exact matching):
{10 120 7 13} {10 133 7 3}
==== textDisp-22.3 FAILED



==== textDisp-22.4 TkTextCharBbox, cut-off lines FAILED
==== Contents of test case:

    .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]

---- Result was:
{11 120 8 13} {11 133 8 5}
---- Result should have been (exact matching):
{10 120 7 13} {10 133 7 5}
==== textDisp-22.4 FAILED



==== textDisp-22.5 TkTextCharBbox, cut-off char FAILED
==== Contents of test case:

    .t config -wrap none
    .t yview 10.0
    wm geom . [expr $width-95]x$height
    update
    .t bbox 15.6

---- Result was:
51 68 8 13
---- Result should have been (exact matching):
45 68 7 13
==== textDisp-22.5 FAILED



==== textDisp-22.6 TkTextCharBbox, line visible but not char FAILED
==== Contents of test case:

    .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]

---- Result was:
{11 120 8 13} {} {19 133 14 7}
---- Result should have been (exact matching):
{10 120 7 13} {} {17 133 14 7}
==== textDisp-22.6 FAILED



==== textDisp-22.7 TkTextCharBbox, different character sizes FAILED
==== Contents of test case:

    .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]

---- Result was:
{11 39 8 13} {19 29 14 27}
---- Result should have been (exact matching):
{10 39 7 13} {17 29 14 27}
==== textDisp-22.7 FAILED



==== textDisp-22.8 TkTextCharBbox, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
{} {3 3 8 13} {} {3 16 8 13} {155 16 8 13} {}
---- Result should have been (exact matching):
{} {3 3 7 13} {} {3 16 7 13} {136 16 7 13} {}
==== textDisp-22.8 FAILED



==== textDisp-22.9 TkTextCharBbox, handling of spacing FAILED
==== Contents of test case:

    .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 bb
ox 1.1] [.t bbox 2.9]

---- Result was:
{27 11 10 4} {61 15 10 4} {11 43 10 4} {85 41 10 4} {11 11 8 13} {77 34 8 13}
---- Result should have been (exact matching):
{24 11 10 4} {55 15 10 4} {10 43 10 4} {76 40 10 4} {10 11 7 13} {69 34 7 13}
==== textDisp-22.9 FAILED



==== textDisp-23.1 TkTextDLineInfo FAILED
==== Contents of test case:

    .t config -wrap word
    .t yview 48.0
    list [.t dlineinfo 47.3] [.t dlineinfo 48.0] [.t dlineinfo 50.40]  [.t dline
info 56.0]

---- Result was:
{} {3 3 56 13 11} {3 55 104 13 11} {}
---- Result should have been (exact matching):
{} {3 3 49 13 10} {3 55 91 13 10} {}
==== textDisp-23.1 FAILED



==== textDisp-23.2 TkTextDLineInfo FAILED
==== Contents of test case:

    .t config -bd 4 -wrap word
    update
    .t yview 48.0
    .t dlineinfo 50.40

---- Result was:
7 59 104 13 11
---- Result should have been (exact matching):
7 59 91 13 10
==== textDisp-23.2 FAILED



==== textDisp-23.3 TkTextDLineInfo FAILED
==== Contents of test case:

    .t config -wrap none
    update
    .t yview 48.0
    list [.t dlineinfo 50.40] [.t dlineinfo 57.3]

---- Result was:
{3 29 424 13 11} {3 120 56 13 11}
---- Result should have been (exact matching):
{3 29 371 13 10} {3 120 49 13 10}
==== textDisp-23.3 FAILED



==== textDisp-23.4 TkTextDLineInfo, cut-off lines FAILED
==== Contents of test case:

    .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]

---- Result was:
{3 120 56 13 11} {3 133 56 3 11}
---- Result should have been (exact matching):
{3 120 49 13 10} {3 133 49 3 10}
==== textDisp-23.4 FAILED



==== textDisp-23.5 TkTextDLineInfo, cut-off lines FAILED
==== Contents of test case:

    .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]

---- Result was:
{3 120 56 13 11} {3 133 56 5 11}
---- Result should have been (exact matching):
{3 120 49 13 10} {3 133 49 5 10}
==== textDisp-23.5 FAILED



==== textDisp-23.6 TkTextDLineInfo, horizontal scrolling FAILED
==== Contents of test case:

    .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]

---- Result was:
{-45 3 80 13 11} {-45 16 416 13 11} {-45 29 40 13 11}
---- Result should have been (exact matching):
{-39 3 70 13 10} {-39 16 364 13 10} {-39 29 35 13 10}
==== textDisp-23.6 FAILED



==== textDisp-23.7 TkTextDLineInfo, centering FAILED
==== Contents of test case:

    .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]

---- Result was:
{43 3 80 13 11} {3 16 136 13 11} {123 55 40 13 11}
---- Result should have been (exact matching):
{38 3 70 13 10} {3 16 119 13 10} {108 55 35 13 10}
==== textDisp-23.7 FAILED



==== textDisp-24.1 TkTextCharLayoutProc FAILED
==== Contents of test case:

    .t configure -wrap char
    .t delete 1.0 end
    .t insert 1.0 "abcdefghijklmnopqrstuvwxyz"
    list [.t bbox 1.19] [.t bbox 1.20]

---- Result was:
{155 3 8 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 7 13} {3 16 7 13}
==== textDisp-24.1 FAILED



==== textDisp-24.2 TkTextCharLayoutProc FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 13 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 12 13} {3 16 7 13}
==== textDisp-24.2 FAILED



==== textDisp-24.3 TkTextCharLayoutProc FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 11 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 10 13} {3 16 7 13}
==== textDisp-24.3 FAILED



==== textDisp-24.4 TkTextCharLayoutProc, newline not visible FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {163 3 0 13} {3 29 8 13}
---- Result should have been (exact matching):
{136 3 7 13} {143 3 0 13} {3 29 7 13}
==== textDisp-24.4 FAILED



==== textDisp-24.6 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 7 13} {3 16 7 13}
==== textDisp-24.6 FAILED



==== textDisp-24.7 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 13 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 12 13} {3 16 7 13}
==== textDisp-24.7 FAILED



==== textDisp-24.8 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 11 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 10 13} {3 16 7 13}
==== textDisp-24.8 FAILED



==== textDisp-24.9 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 6 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 5 13} {3 16 7 13}
==== textDisp-24.9 FAILED



==== textDisp-24.10 TkTextCharLayoutProc, line ends with space FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 5 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 4 13} {3 16 7 13}
==== textDisp-24.10 FAILED



==== textDisp-24.11 TkTextCharLayoutProc, line ends with space that doesn't quit
e fit FAILED
==== Contents of test case:

    .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]

---- Result was:
{165 3 0 13} {3 16 8 13} {165 3 0 13} {3 16 8 13}
---- Result should have been (exact matching):
{145 3 0 13} {3 16 7 13} {145 3 0 13} {3 16 7 13}
==== textDisp-24.11 FAILED



==== textDisp-24.12 TkTextCharLayoutProc, tab causes wrap FAILED
==== Contents of test case:

    .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]

---- Result was:
{131 3 34 13} {3 16 8 13}
---- Result should have been (exact matching):
{115 3 30 13} {3 16 7 13}
==== textDisp-24.12 FAILED



==== textDisp-24.13 TkTextCharLayoutProc, -wrap none FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {}
---- Result should have been (exact matching):
{136 3 7 13} {}
==== textDisp-24.13 FAILED



==== textDisp-24.14 TkTextCharLayoutProc, -wrap none FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {163 3 5 13}
---- Result should have been (exact matching):
{136 3 7 13} {143 3 5 13}
==== textDisp-24.14 FAILED



==== textDisp-24.15 TkTextCharLayoutProc, -wrap none FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {163 3 3 13}
---- Result should have been (exact matching):
{136 3 7 13} {143 3 3 13}
==== textDisp-24.15 FAILED



==== textDisp-24.17 TkTextCharLayoutProc, -wrap word FAILED
==== Contents of test case:

    .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]

---- Result was:
{155 3 8 13} {3 16 8 13}
---- Result should have been (exact matching):
{136 3 7 13} {3 16 7 13}
==== textDisp-24.17 FAILED



==== textDisp-24.18 TkTextCharLayoutProc, -wrap word FAILED
==== Contents of test case:

    .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.15] [.t bbox 1.16] [.t bbox 1.17]

---- Result was:
{123 3 8 13} {131 3 32 13} {3 16 8 13}
---- Result should have been (exact matching):
{108 3 7 13} {115 3 28 13} {3 16 7 13}
==== textDisp-24.18 FAILED



==== textDisp-24.19 TkTextCharLayoutProc, -wrap word FAILED
==== Contents of test case:

    .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]

---- Result was:
{115 3 8 13} {123 3 8 13} {131 3 32 13}
---- Result should have been (exact matching):
{101 3 7 13} {108 3 7 13} {115 3 28 13}
==== textDisp-24.19 FAILED



==== textDisp-24.20 TkTextCharLayoutProc, vertical offset FAILED
==== Contents of test case:

    .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

---- Result was:
{11 16 8 13} {3 16 48 13 11} {11 16 8 13} {3 16 48 19 17} {11 18 8 13} {3 16 48
15 11}
---- Result should have been (exact matching):
{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}
==== textDisp-24.20 FAILED



==== textDisp-24.21 TkTextCharLayoutProc, word breaks FAILED
==== Contents of test case:

    .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

---- Result was:
3 19 8 13
---- Result should have been (exact matching):
3 19 7 13
==== textDisp-24.21 FAILED



==== textDisp-24.22 TkTextCharLayoutProc, word breaks FAILED
==== Contents of test case:

    .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

---- Result was:
33 19 8 13
---- Result should have been (exact matching):
33 19 7 13
==== textDisp-24.22 FAILED



==== textDisp-24.23 TkTextCharLayoutProc, word breaks FAILED
==== Contents of test case:

    .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

---- Result was:
211 16 32 20
---- Result should have been (exact matching):
3 29 30 20
==== textDisp-24.23 FAILED



==== textDisp-24.24 TkTextCharLayoutProc, justification and tabs FAILED
==== Contents of test case:

    .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]

---- Result was:
{51 3 8 13} {107 3 8 13}
---- Result should have been (exact matching):
{45 3 7 13} {94 3 7 13}
==== textDisp-24.24 FAILED



==== textDisp-25.1 CharBboxProc procedure, check tab width FAILED
==== Contents of test case:

    .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]

---- Result was:
{24 1 76 13} {108 1 92 13} {200 1 8 13}
---- Result should have been (exact matching):
{21 1 79 13} {107 1 93 13} {200 1 7 13}
==== textDisp-25.1 FAILED



==== textDisp-26.1 AdjustForTab procedure, no tabs FAILED
==== Contents of test case:

    .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]

---- Result was:
64 144 192
---- Result should have been (exact matching):
56 126 168
==== textDisp-26.1 FAILED



==== textDisp-26.1.2 AdjustForTab procedure, no tabs FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 a\tbcdefghij\tc\td
    .t configure -tabstyle wordprocessor
    set res [list [lindex [.t bbox 1.2] 0] [lindex [.t bbox 1.12] 0]  [lindex [.
t bbox 1.14] 0]]
    .t configure -tabstyle tabular
    set res

---- Result was:
64 192 256
---- Result should have been (exact matching):
56 168 224
==== textDisp-26.1.2 FAILED



==== textDisp-26.13 AdjustForTab procedure, not enough space FAILED
==== Contents of test case:

    .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.1
2] 0] [lindex [.t bbox 1.16] 0]

---- Result was:
32 64 96 128
---- Result should have been (exact matching):
28 56 84 120
==== textDisp-26.13 FAILED



==== textDisp-26.13.2 AdjustForTab procedure, not enough space FAILED
==== Contents of test case:

    .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} -tabstyle wordprocessor

    .t tag add x 1.0 end
    set res [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]]
    .t tag configure x -tabstyle tabular
    set res

---- Result was:
32 120 190 260
---- Result should have been (exact matching):
28 56 120 190
==== textDisp-26.13.2 FAILED



==== textDisp-26.14 AdjustForTab procedure, not enough space FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert end "a \tb \tc \td \te \tf \tg\n"
    .t insert end "Watch the \tX and the \t\t\tY\n"
    .t tag configure moop -tabs [expr {8*$fixedWidth}]
    .t insert end "Watch the \tX and the \t\t\tY\n" moop
    list [lindex [.t bbox 2.11] 0] [lindex [.t bbox 2.24] 0]  [lindex [.t bbox 3
.11] 0] [lindex [.t bbox 3.24] 0]

---- Result was:
88 256 88 256
---- Result should have been (exact matching):
77 224 77 224
==== textDisp-26.14 FAILED



==== textDisp-26.14.2 AdjustForTab procedure, not enough space FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t configure -tabstyle wordprocessor
    .t insert end "a \tb \tc \td \te \tf \tg\n"
    .t insert end "Watch the \tX and the \t\t\tY\n"
    .t tag configure moop -tabs [expr {8*$fixedWidth}]
    .t insert end "Watch the \tX and the \t\t\tY\n" moop
    set res [list [lindex [.t bbox 2.11] 0] [lindex [.t bbox 2.24] 0]  [lindex [
.t bbox 3.11] 0] [lindex [.t bbox 3.24] 0]]
    .t configure -tabstyle tabular
    set res

---- Result was:
128 64 128 64
---- Result should have been (exact matching):
112 56 112 56
==== textDisp-26.14.2 FAILED



==== textDisp-27.1 SizeOfTab procedure, old-style tabs FAILED
==== Contents of test case:

    .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]

---- Result was:
{68 5 8 13} {132 5 8 13} {148 5 8 13}
---- Result should have been (exact matching):
{60 5 7 13} {116 5 7 13} {130 5 7 13}
==== textDisp-27.1 FAILED



==== textDisp-27.1.1 SizeOfTab procedure, old-style tabs FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t insert 1.0 a\tbcdefghij\tc\td
    .t configure -tabstyle wordprocessor
    set res [list [.t bbox 1.2] [.t bbox 1.10] [.t bbox 1.12]]
    .t configure -tabstyle tabular
    set res

---- Result was:
{68 5 8 13} {132 5 8 13} {4 18 8 13}
---- Result should have been (exact matching):
{60 5 7 13} {116 5 7 13} {4 18 7 13}
==== textDisp-27.1.1 FAILED



==== textDisp-27.2 SizeOfTab procedure, choosing tabX and alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{132 5 8 13} {140 5 8 13}
---- Result should have been (exact matching):
{131 5 13 13} {4 18 7 13}
==== textDisp-27.2 FAILED



==== textDisp-27.3 SizeOfTab procedure, choosing tabX and alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{132 5 8 13} {140 5 8 13}
---- Result should have been (exact matching):
{131 5 13 13} {4 18 7 13}
==== textDisp-27.3 FAILED



==== textDisp-27.4 SizeOfTab procedure, choosing tabX and alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{132 5 8 13} {140 5 8 13}
---- Result should have been (exact matching):
{131 5 13 13} {4 18 7 13}
==== textDisp-27.4 FAILED



==== textDisp-27.5 SizeOfTab procedure, center alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{124 5 8 13} {132 5 8 13}
---- Result should have been (exact matching):
{135 5 9 13} {4 18 7 13}
==== textDisp-27.5 FAILED



==== textDisp-27.6 SizeOfTab procedure, center alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{20 18 8 13} {28 18 8 13}
---- Result should have been (exact matching):
{32 18 7 13} {39 18 7 13}
==== textDisp-27.6 FAILED



==== textDisp-27.7 SizeOfTab procedure, center alignment, wrap -none (potential
numerical problems) FAILED
==== Contents of test case:

    .t delete 1.0 end
    set cm [winfo fpixels .t 1c]
    .t configure -tabs {1c 2c center 3c 4c 5c 6c 7c 8c} -wrap none -width 40
    .t insert 1.0 a\tb\tc\td\te\n012345678934567890a\tbb\tcc\tdd
    set width [expr {$fixedWidth * 19}]
    set tab $cm
    while {$tab < $width} {
        set tab [expr {$tab + $cm}]
    }
    # Now we've calculated to the end of the tab after 'a', add one
    # more for 'bb\t' and we're there, with 4 for the border.  Since
    # Tk_GetPixelsFromObj uses the standard 'int(0.5 + float)' rounding,
    # so must we.
    set tab [expr {4 + int(0.5 + $tab + $cm)}]
    update
    set res [.t bbox 2.23]
    lset res 0 [expr {[lindex $res 0] - $tab}]
    set res

---- Result was:
-43 18 8 13
---- Result should have been (exact matching):
-28 18 7 13
==== textDisp-27.7 FAILED



==== textDisp-27.7.1 SizeOfTab procedure, center alignment, wrap -none (potentia
l numerical problems) FAILED
==== Contents of test case:

    .t delete 1.0 end
    .t configure -tabstyle wordprocessor
    set cm [winfo fpixels .t 1c]
    .t configure -tabs {1c 2c center 3c 4c 5c 6c 7c 8c} -wrap none -width 40
    .t insert 1.0 a\tb\tc\td\te\n012345678934567890a\tbb\tcc\tdd
    set width [expr {$fixedWidth * 19}]
    set tab $cm
    while {$tab < $width} {
        set tab [expr {$tab + $cm}]
    }
    # Now we've calculated to the end of the tab after 'a', add one
    # more for 'bb\t' and we're there, with 4 for the border.  Since
    # Tk_GetPixelsFromObj uses the standard 'int(0.5 + float)' rounding,
    # so must we.
    set tab [expr {4 + int(0.5 + $tab + $cm)}]
    update
    set res [.t bbox 2.23]
    .t configure -tabstyle tabular
    lset res 0 [expr {[lindex $res 0] - $tab}]
    set res

---- Result was:
0 18 8 13
---- Result should have been (exact matching):
0 18 7 13
==== textDisp-27.7.1 FAILED



==== textDisp-27.8 SizeOfTab procedure, right alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{136 5 8 13} {144 5 8 13}
---- Result should have been (exact matching):
{137 5 7 13} {4 18 7 13}
==== textDisp-27.8 FAILED



==== textDisp-27.9 SizeOfTab procedure, left alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{132 5 8 13} {140 5 8 13}
---- Result should have been (exact matching):
{131 5 13 13} {4 18 7 13}
==== textDisp-27.9 FAILED



==== textDisp-27.10 SizeOfTab procedure, numeric alignment FAILED
==== Contents of test case:

    .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]

---- Result was:
{108 5 8 13} {116 5 8 13}
---- Result should have been (exact matching):
{117 5 27 13} {4 18 7 13}
==== textDisp-27.10 FAILED



==== textDisp-27.11 SizeOfTab procedure, making tabs at least as wide as a space
 FAILED
==== Contents of test case:

    .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]

---- Result was:
{132 5 8 13} {140 5 8 13}
---- Result should have been (exact matching):
{131 5 13 13} {4 18 7 13}
==== textDisp-27.11 FAILED



==== textDisp-29.3 miscellaneous: lines wrap but are still too long FAILED
==== Contents of test case:

    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]

---- Result was:
{0.4666666666666667 1.0} 300x50+-135+18 {}
---- Result should have been (exact matching):
{0.5333333333333333 1.0} 300x50+-155+18 {}
==== textDisp-29.3 FAILED

textImage.test
textIndex.test
textMark.test
textTag.test
textWind.test


==== textWind-7.1 EmbWinLostSlaveProc procedure FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    frame .f -width 10 -height 20 -bg $color
    .t window create 1.2 -window .f
    update
    place .f -in .t -x 100 -y 50
    update
    list [winfo geom .f] [.t bbox 1.2]

---- Result was:
10x20+105+55 {21 11 0 0}
---- Result should have been (exact matching):
10x20+105+55 {19 11 0 0}
==== textWind-7.1 FAILED



==== textWind-7.2 EmbWinLostSlaveProc procedure FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    frame .t.f -width 10 -height 20 -bg $color
    .t window create 1.2 -window .t.f
    update
    place .t.f -x 100 -y 50
    update
    list [winfo geom .t.f] [.t bbox 1.2]

---- Result was:
10x20+105+55 {21 11 0 0}
---- Result should have been (exact matching):
10x20+105+55 {19 11 0 0}
==== textWind-7.2 FAILED



==== textWind-10.4 EmbWinLayoutProc procedure, error in creating window FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    set msg {}
    after idle {
        .t window create 1.5 -create {
            frame .t.f
            frame .t.f.f -width 10 -height 20 -bg $color
        }
    }
    set count 0
    while {([llength $msg] < 2) && ($count < 100)} {
        update
        incr count
        .t bbox 1.5
        after 10
    }
    lappend msg [.t bbox 1.5] [winfo exists .t.f.f]

---- Result was:
{{can't embed .t.f.f relative to .t}} {{window name "f" already exists in parent
}} {45 11 0 0} 1
---- Result should have been (exact matching):
{{can't embed .t.f.f relative to .t}} {{window name "f" already exists in parent
}} {40 11 0 0} 1
==== textWind-10.4 FAILED



==== textWind-10.6 EmbWinLayoutProc procedure, error in creating window FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    .t window create 1.5 -create {
        concat .t
    }
    set msg {}
    update
    lappend msg [.t bbox 1.5]

---- Result was:
{{can't embed .t relative to .t}} {45 11 0 0}
---- Result should have been (exact matching):
{{can't embed .t relative to .t}} {40 11 0 0}
==== textWind-10.6 FAILED



==== textWind-10.7 EmbWinLayoutProc procedure, error in creating window FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    .t window create 1.5 -create {
        toplevel .t2 -width 100 -height 150
        wm geom .t2 +0+0
        concat .t2
    }
    set msg {}
    update
    lappend msg [.t bbox 1.5]

---- Result was:
{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}
 {45 11 0 0}
---- Result should have been (exact matching):
{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}
 {40 11 0 0}
==== textWind-10.7 FAILED



==== textWind-10.13 EmbWinLayoutProc procedure, doesn't fit on line FAILED
==== Contents of test case:

    .t configure -wrap none
    .t insert 1.0 "Some sample text"
    frame .f -width 130 -height 20 -bg $color -bd 2 -relief raised
    .t window create 1.12 -window .f
    update
    list [.t bbox .f] [.t bbox 1.13]

---- Result was:
{101 5 130 20} {231 8 8 13}
---- Result should have been (exact matching):
{89 5 126 20} {}
==== textWind-10.13 FAILED



==== textWind-11.1 EmbWinDisplayProc procedure, geometry transforms FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    pack forget .t
    place .t -x 30 -y 50
    frame .f -width 30 -height 20 -bg $color
    .t window create 1.12 -window .f
    update
    winfo geom .f

---- Result was:
30x20+131+55
---- Result should have been (exact matching):
30x20+119+55
==== textWind-11.1 FAILED



==== textWind-11.2 EmbWinDisplayProc procedure, geometry transforms FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    pack forget .t
    place .t -x 30 -y 50
    frame .t.f -width 30 -height 20 -bg $color
    .t window create 1.12 -window .t.f
    update
    winfo geom .t.f

---- Result was:
30x20+101+5
---- Result should have been (exact matching):
30x20+89+5
==== textWind-11.2 FAILED



==== textWind-13.1 EmbWinBboxProc procedure FAILED
==== Contents of test case:

    .t insert 1.0 "Some sample text"
    frame .f -width 5 -height 5 -bg $color
    .t window create 1.2 -window .f -align top -padx 2 -pady 1
    update
    list [winfo geom .f] [.t bbox .f]

---- Result was:
5x5+23+6 {23 6 5 5}
---- Result should have been (exact matching):
5x5+21+6 {21 6 5 5}
==== textWind-13.1 FAILED



==== textWind-16.2 EmbWinTextStructureProc procedure FAILED
==== Contents of test case:

    .t configure -spacing1 0 -spacing2 0 -spacing3 0  -wrap none
    .t insert 1.0 "Some sample text"
    frame .f -width 30 -height 20 -bg $color
    .t window create 1.6 -window .f
    update
    set result {}
    lappend result [winfo geom .f] [.t bbox .f]
    frame .f2 -width 150 -height 30 -bd 2 -relief raised
    pack .f2 -before .t
    update
    lappend result [winfo geom .f] [.t bbox .f]

---- Result was:
30x20+53+5 {53 5 30 20} 30x20+53+35 {53 5 30 20}
---- Result should have been (exact matching):
30x20+47+5 {47 5 30 20} 30x20+47+35 {47 5 30 20}
==== textWind-16.2 FAILED



==== textWind-16.4 EmbWinTextStructureProc procedure FAILED
==== Contents of test case:

    .t configure -spacing1 0 -spacing2 0 -spacing3 0  -wrap none
    .t insert 1.0 "Some sample text"
    frame .t.f -width 30 -height 20 -bg $color
    .t window create 1.6 -window .t.f
    update
    pack forget .t
    update
    list [winfo ismapped .t.f] [.t bbox .t.f]

---- Result was:
1 {53 5 30 20}
---- Result should have been (exact matching):
1 {47 5 30 20}
==== textWind-16.4 FAILED

tk.test
this wish doesn't have XIM (X Input Methods) support
unixButton.test
unixEmbed.test
unixFont.test
unixMenu.test
unixSelect.test
unixWm.test
util.test
visual.test
visual_bb.test
winButton.test
winClipboard.test
winDialog.test
winFont.test


==== winfont-2.7 TkpGetFontFromAttributes procedure: Times fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Times"} -family]
    lappend x [font actual {-family "New York"} -family]
    lappend x [font actual {-family "Times New Roman"} -family]

---- Result was:
Times Times {Times New Roman}
---- Result should have been (exact matching):
{Times New Roman} {Times New Roman} {Times New Roman}
==== winfont-2.7 FAILED



==== winfont-2.8 TkpGetFontFromAttributes procedure: Courier fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Courier"} -family]
    lappend x [font actual {-family "Monaco"} -family]
    lappend x [font actual {-family "Courier New"} -family]

---- Result was:
Courier Courier {Courier New}
---- Result should have been (exact matching):
{Courier New} {Courier New} {Courier New}
==== winfont-2.8 FAILED



==== winfont-2.9 TkpGetFontFromAttributes procedure: Helvetica fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Helvetica"} -family]
    lappend x [font actual {-family "Geneva"} -family]
    lappend x [font actual {-family "Arial"} -family]

---- Result was:
Helvetica Helvetica Arial
---- Result should have been (exact matching):
Arial Arial Arial
==== winfont-2.9 FAILED

winMenu.test
winMsgbox.test
winSend.test
winWm.test
window.test
winfo.test
wm.test
xmfbox.test

Tests ended at Sun Dec 18 21:24:26 +0100 2016
all.tcl:        Total   9345    Passed  7909    Skipped 1301    Failed  135
Sourced 91 Test Files.
Files with failing tests: entry.test font.test spinbox.test textDisp.test textWi
nd.test winFont.test
Number of tests skipped for each constraint:
        2       !win
        7       altDisplay
        2       aqua
        16      colorsFree
        20      defaultPseudocolor8
        12      emptyTest
        4       english
        159     fonts
        2       haveDISPLAY
        5       haveOtherVisual
        1       havePseudocolorVisual
        12      knownBug
        1       macOrUnix
        1       memory
        77      nonPortable
        79      nonUnixUserInteraction
        9       nonwin
        5       pseudocolor8
        9       scriptImpl
        71      secureserver
        1       tempNotPc
        1       tempNotWin
        5       testmenubar
        6       testwrapper
        724     unix
        19      userInteraction
        51      winSend
stderr32         ".\Debug_VC9\tktest.exe" "C:/Users/francois/Documents/Developme
nt/tcltk-fossil/tk/win/../tests/ttk/all.tcl" -file *.test | ".\Debug_VC9\cat32.e
xe"
Tests running in interp:  C:/Users/francois/Documents/Development/tcltk-fossil/t
k/win/Debug_VC9/tktest.exe
Tests located in:  C:/Users/francois/Documents/Development/tcltk-fossil/tk/tests
/ttk
Tests running in:  C:/Users/francois/Documents/Development/tcltk-fossil/tk/win
Temporary files stored in C:/Users/francois/Documents/Development/tcltk-fossil/t
k/win
Test files sourced into current interpreter
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Sun Dec 18 21:24:27 +0100 2016
checkbutton.test
combobox.test
entry.test
image.test
labelframe.test
layout.test
notebook.test
panedwindow.test
progressbar.test
radiobutton.test
scrollbar.test
spinbox.test
treetags.test
treeview.test
ttk.test
validate.test
vsapi.test

Tests ended at Sun Dec 18 21:24:30 +0100 2016
all.tcl:        Total   463     Passed  449     Skipped 14      Failed  0
Sourced 17 Test Files.
Number of tests skipped for each constraint:
        2       NA
        4       coreEntry
        3       coreScrollbar
        5       nyi
stderr32Appuyez sur une touche pour continuer...