Posted to tcl by emiliano at Fri Mar 28 17:33:48 GMT 2008view pretty
Warning: tkStubInit.c may be out of date.
Developers may want to run "make genstubs" to regenerate.
This warning can be safely ignored, do not report as a bug!
Warning: ttkStubInit.c may be out of date.
Developers may want to run "make genstubs" to regenerate.
This warning can be safely ignored, do not report as a bug!
LD_LIBRARY_PATH="`pwd`:/home/emiliano/tcl_sources/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/emiliano/tcl_sources/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/emiliano/tcl_sources/tk/library; export TK_LIBRARY; ./tktest /home/emiliano/tcl_sources/tk/unix/../tests/all.tcl -geometry +0+0
Tests running in interp: /home/emiliano/tcl_sources/tk/unix/tktest
Tests located in: /home/emiliano/tcl_sources/tk/tests
Tests running in: /home/emiliano/tcl_sources/tk/unix
Temporary files stored in /home/emiliano/tcl_sources/tk/unix
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 Fri Mar 28 13:47:51 ART 2008
bell.test
Bell should ring now ...
bgerror.test
bind.test
bitmap.test
border.test
button.test
canvImg.test
canvPs.test
canvRect.test
canvText.test
canvWind.test
canvas.test
choosedir.test
clipboard.test
==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED
==== Contents of test case:
setupbg
clipboard clear
clipboard append -f INTEGER -t TEST "16"
set result [dobg {clipboard get TEST}]
cleanupbg
set result
---- Result was:
CLIPBOARD selection doesn't exist or form "TEST" not defined
---- Result should have been (exact matching):
0x10
==== clipboard-6.2 FAILED
clrpick.test
cmds.test
color.test
config.test
cursor.test
dialog.test
embed.test
entry.test
event.test
filebox.test
focus.test
==== focus-1.1 Tk_FocusCmd procedure FAILED
==== Contents of test case:
focusClear
focus
---- Result was:
.t
---- Result should have been (exact matching):
==== focus-1.1 FAILED
==== focus-1.3 Tk_FocusCmd procedure FAILED
==== Contents of test case:
focusClear
focus .t.b3
focus
---- Result was:
.t.b3
---- Result should have been (exact matching):
==== focus-1.3 FAILED
==== focus-1.12 Tk_FocusCmd procedure, -displayof option FAILED
==== Contents of test case:
focusClear
focus .t
focus -displayof .t.b3
---- Result was:
.t
---- Result should have been (exact matching):
==== focus-1.12 FAILED
==== focus-1.19 Tk_FocusCmd procedure, -force option FAILED
==== Contents of test case:
focusClear
focus .t.b1
set x [list [focus]]
focus -force .t.b1
lappend x [focus]
---- Result was:
.t.b1 .t.b1
---- Result should have been (exact matching):
{} .t.b1
==== focus-1.19 FAILED
==== focus-2.10 TkFocusFilterEvent procedure, Enter events FAILED
==== Contents of test case:
set result {}
focus .t.b1
focusClear
foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
NotifyNonlinearVirtual NotifyVirtual} {
event gen [testwrapper .t] <Enter> -detail $detail -focus 1
update
lappend result [focus]
event gen [testwrapper .t] <Leave> -detail NotifyAncestor
update
}
set result
---- Result was:
.t.b1 .t.b1 .t.b1 .t.b1 .t.b1
---- Result should have been (exact matching):
.t.b1 {} .t.b1 .t.b1 .t.b1
==== focus-2.10 FAILED
==== focus-2.13 TkFocusFilterEvent procedure, Enter events FAILED
==== Contents of test case:
focus .t.b1
focusClear
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
set focusInfo {}
update
set focusInfo
---- Result was:
---- Result should have been (exact matching):
in .t NotifyVirtual
in .t.b1 NotifyAncestor
==== focus-2.13 FAILED
==== focus-2.15 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:
set result {}
focus .t.b1
foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
NotifyNonlinearVirtual NotifyVirtual} {
focusClear
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
event gen [testwrapper .t] <Leave> -detail $detail
update
lappend result [focus]
}
set result
---- Result was:
.t.b1 .t.b1 .t.b1 .t.b1 .t.b1
---- Result should have been (exact matching):
{} .t.b1 {} {} {}
==== focus-2.15 FAILED
==== focus-2.16 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:
set result {}
focus .t.b1
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
set focusInfo {}
event gen [testwrapper .t] <Leave> -detail NotifyAncestor
update
set focusInfo
---- Result was:
---- Result should have been (exact matching):
out .t.b1 NotifyAncestor
out .t NotifyVirtual
==== focus-2.16 FAILED
==== focus-2.17 TkFocusFilterEvent procedure, Leave events FAILED
==== Contents of test case:
set result {}
focus .t.b1
event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
update
set focusInfo {}
event gen .t.b1 <Leave> -detail NotifyAncestor
event gen [testwrapper .] <Leave> -detail NotifyAncestor
update
list $focusInfo [focus]
---- Result was:
{} .t.b1
---- Result should have been (exact matching):
{out .t.b1 NotifyAncestor
out .t NotifyVirtual
} {}
==== focus-2.17 FAILED
==== focus-4.2 TkFocusDeadWindow procedure FAILED
==== Contents of test case:
focusSetup
update
focus -force .t.b2
focus .b
update
destroy .t.b2
update
focus
---- Result was:
.t
---- Result should have been (exact matching):
.b
==== focus-4.2 FAILED
==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED
==== Contents of test case:
focusSetup
focus -force .t
update
set result [focus]
send [dobg {tk appname}] {focus -force .; update}
lappend result [focus]
focus .t.b2
update
lappend result [focus]
---- Result was:
.t .t {}
---- Result should have been (exact matching):
.t {} {}
==== focus-5.1 FAILED
focusTcl.test
font.test
==== font-17.5 Tk_FreeFont procedure: named font FAILED
==== Contents of test case:
# not (fontPtr->refCount == 0)
setup
font create xyz -underline 1
.b.f config -font xyz
font delete xyz
set x [font actual xyz -underline]
destroy .b.f
list [font actual xyz -underline] $x
---- Result was:
0 0
---- Result should have been (exact matching):
0 1
==== font-17.5 FAILED
==== font-24.5 Tk_ComputeTextLayout: break line FAILED
==== Contents of test case:
.b.l config -text "000\t00000" -wrap [expr 9*$ax]
set x [getsize]
.b.l config -wrap 0
set x
---- Result was:
63 26
---- Result should have been (exact matching):
56 26
==== font-24.5 FAILED
==== font-38.12 ParseFontNameObj procedure: stylelist loop FAILED
==== Contents of test case:
lrange [font actual {times 12 bold italic overstrike underline}] 4 end
---- Result was:
-weight bold -slant italic -underline 0 -overstrike 0
---- Result should have been (exact matching):
-weight bold -slant italic -underline 1 -overstrike 1
==== font-38.12 FAILED
==== font-44.1 TkFontGetPixels: size < 0 FAILED
==== Contents of test case:
font actual {times -12} -size
---- Result was:
12
---- Result should have been (exact matching):
24
==== font-44.1 FAILED
==== font-44.2 TkFontGetPoints: size >= 0 FAILED
==== Contents of test case:
font actual {times 12} -size
---- Result was:
8
---- Result should have been (exact matching):
12
==== font-44.2 FAILED
==== font-45.4 TkFontGetAliasList: match FAILED
==== Contents of test case:
# can fail on Unix systems that have a real "times new roman" font
font actual {{times new roman} 10} -family
---- Result was:
Times New Roman
---- Result should have been (exact matching):
Times
==== font-45.4 FAILED
frame.test
geometry.test
get.test
grab.test
grid.test
id.test
image.test
imgBmap.test
imgPPM.test
imgPhoto.test
listbox.test
==== listbox-3.17 ListboxWidgetCmd procedure, "bbox" option FAILED
==== Contents of test case:
catch {destroy .t}
toplevel .t
wm geom .t +0+0
listbox .t.l -width 10 -height 5
.t.l insert 0 "Short" "Somewhat longer" "Really, quite a whole lot longer than can possibly fit on the screen" "Short"
pack .t.l
update
.t.l xview moveto .2
.t.l bbox 2
---- Result was:
-73 34 393 14
---- Result should have been (exact matching):
-72 39 393 14
==== listbox-3.17 FAILED
==== listbox-3.18 ListboxWidgetCmd procedure, "bbox" option, partial last line FAILED
==== Contents of test case:
mkPartial
list [.partial.l bbox 3] [.partial.l bbox 4]
---- Result was:
{4 49 24 14} {4 64 23 14}
---- Result should have been (exact matching):
{5 56 24 14} {5 73 23 14}
==== listbox-3.18 FAILED
==== listbox-3.78 ListboxWidgetCmd procedure, "scan" option FAILED
==== Contents of test case:
catch {destroy .t}
toplevel .t
wm geom .t +0+0
listbox .t.l -width 10 -height 5
.t.l insert 0 "Short" "Somewhat longer" "Really, quite a whole lot longer than can possibly fit on the screen" "Short" a b c d e f g h i j
pack .t.l
update
.t.l scan mark 100 140
.t.l scan dragto 90 137
update
list [.t.l xview] [.t.l yview]
---- Result was:
{0.249364 0.427481} {0.142857 0.5}
---- Result should have been (exact matching):
{0.249364 0.427481} {0.0714286 0.428571}
==== listbox-3.78 FAILED
==== listbox-4.1 ConfigureListbox procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -setgrid 1 -width 25 -height 15
pack .l
update
set x [getsize .]
.l configure -setgrid 0
update
list $x [getsize .]
---- Result was:
25x15 183x233
---- Result should have been (exact matching):
25x15 185x263
==== listbox-4.1 FAILED
==== listbox-4.6 ConfigureListbox procedure FAILED
==== Contents of test case:
catch {destroy .l}
# The following code (reset geometry, withdraw, etc.) is necessary
# to reset the state of some window managers like olvwm under
# SunOS 4.1.3.
wm geom . 300x300
update
wm geom . {}
wm withdraw .
listbox .l -font $fixed -width 15 -height 20
pack .l
update
wm deiconify .
set x [getsize .]
.l configure -setgrid 1
update
list $x [getsize .]
---- Result was:
113x288 15x20
---- Result should have been (exact matching):
115x328 15x20
==== listbox-4.6 FAILED
==== listbox-5.1 ListboxComputeGeometry procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -font $fixed -width 15 -height 20
pack .l
list [winfo reqwidth .l] [winfo reqheight .l]
---- Result was:
113 288
---- Result should have been (exact matching):
115 328
==== listbox-5.1 FAILED
==== listbox-5.2 ListboxComputeGeometry procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -font $fixed -width 0 -height 10
pack .l
update
list [winfo reqwidth .l] [winfo reqheight .l]
---- Result was:
15 148
---- Result should have been (exact matching):
17 168
==== listbox-5.2 FAILED
==== listbox-5.3 ListboxComputeGeometry procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -font $fixed -width 0 -height 10 -bd 3
.l insert 0 Short "Really much longer" Longer
pack .l
update
list [winfo reqwidth .l] [winfo reqheight .l]
---- Result was:
136 150
---- Result should have been (exact matching):
138 170
==== listbox-5.3 FAILED
==== listbox-5.4 ListboxComputeGeometry procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -font $fixed -width 10 -height 0
pack .l
update
list [winfo reqwidth .l] [winfo reqheight .l]
---- Result was:
78 22
---- Result should have been (exact matching):
80 24
==== listbox-5.4 FAILED
==== listbox-5.5 ListboxComputeGeometry procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -font $fixed -width 10 -height 0 -highlightthickness 0
.l insert 0 Short "Really much longer" Longer
pack .l
update
list [winfo reqwidth .l] [winfo reqheight .l]
---- Result was:
74 46
---- Result should have been (exact matching):
76 52
==== listbox-5.5 FAILED
==== listbox-6.12 InsertEls procedure FAILED
==== Contents of test case:
catch {destroy .l2}
listbox .l2 -width 0 -height 0
pack .l2 -side top
.l2 insert 0 a b "two words" c d
set x {}
lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
.l2 insert 0 "much longer entry"
lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
---- Result was:
78 83 120 98
---- Result should have been (exact matching):
80 93 122 110
==== listbox-6.12 FAILED
==== listbox-7.20 DeleteEls procedure FAILED
==== Contents of test case:
catch {destroy .l2}
listbox .l2 -width 0 -height 0
pack .l2 -side top
.l2 insert 0 a b "two words" c d e f g
set x {}
lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
.l2 delete 2 4
lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
---- Result was:
78 128 15 83
---- Result should have been (exact matching):
80 144 17 93
==== listbox-7.20 FAILED
==== listbox-8.1 ListboxEventProc procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -setgrid 1
pack .l
update
set x [getsize .]
destroy .l
list $x [getsize .] [winfo exists .l] [info command .l]
---- Result was:
20x10 148x158 0 {}
---- Result should have been (exact matching):
20x10 150x178 0 {}
==== listbox-8.1 FAILED
==== listbox-8.2 ListboxEventProc procedure FAILED
==== Contents of test case:
catch {destroy .l}
listbox .l -height 5 -width 10
.l insert 0 a b c "A string that is very very long" d e f g h i j k
pack .l
update
place .l -width 50 -height 80
update
list [.l xview] [.l yview]
---- Result was:
{0 0.233333} {0 0.333333}
---- Result should have been (exact matching):
{0 0.222222} {0 0.333333}
==== listbox-8.2 FAILED
==== listbox-9.2 ListboxCmdDeletedProc procedure, disabling -setgrid FAILED
==== Contents of test case:
catch {destroy .top}
toplevel .top
wm geom .top +0+0
listbox .top.l -setgrid 1 -width 20 -height 10
pack .top.l
update
set x [wm geometry .top]
rename .top.l {}
update
lappend x [wm geometry .top]
destroy .top
set x
---- Result was:
20x10+0+0 148x158+0+0
---- Result should have been (exact matching):
20x10+0+0 150x178+0+0
==== listbox-9.2 FAILED
==== listbox-14.3 NearestListboxElement procedure FAILED
==== Contents of test case:
list [.l index @50,35] [.l index @50,36]
---- Result was:
6 6
---- Result should have been (exact matching):
5 6
==== listbox-14.3 FAILED
main.test
menu.test
menuDraw.test
menubut.test
message.test
msgbox.test
obj.test
oldpack.test
option.test
pack.test
panedwindow.test
==== panedwindow-4.5 forget subcommand, panes are unmapped FAILED
==== Contents of test case:
panedwindow .p
.p add [button .b]
.p add [button .c]
pack .p
update
set result [list [winfo ismapped .b] [winfo ismapped .c]]
.p forget .b
update
lappend result [winfo ismapped .b] [winfo ismapped .c]
destroy .p .b .c
set result
---- Result was:
1 0 0 1
---- Result should have been (exact matching):
1 1 0 1
==== panedwindow-4.5 FAILED
==== panedwindow-12.1 moving sash changes size of pane to left FAILED
==== Contents of test case:
destroy .p .f .c
panedwindow .p -borderwidth 0 -sashpad 0 -sashwidth 4 -showhandle false
.p add [frame .f -width 20 -height 20] [button .c -text foobar] -sticky nsew
.p sash place 0 30 0
pack .p
update
winfo width .f
---- Result was:
22
---- Result should have been (exact matching):
30
==== panedwindow-12.1 FAILED
==== panedwindow-13.1 horizontal panedwindow lays out widgets properly FAILED
==== Contents of test case:
panedwindow .p -showhandle false -borderwidth 2 -sashpad 2 -sashwidth 2
foreach win {.p.f .p.f2 .p.f3} {.p add [frame $win -width 20 -height 10]}
pack .p
update
set result {}
foreach w [.p panes] {lappend result [winfo x $w] [winfo y $w]}
destroy .p .p.f .p.f2 .p.f3
set result
---- Result was:
0 0 8 2 0 0
---- Result should have been (exact matching):
2 2 28 2 54 2
==== panedwindow-13.1 FAILED
==== panedwindow-13.2 vertical panedwindow lays out widgets properly FAILED
==== Contents of test case:
panedwindow .p -showhandle false -borderwidth 2 -sashpad 2 -sashwidth 2 -orient vertical
foreach win {.p.f .p.f2 .p.f3} {.p add [frame $win -width 20 -height 10]}
pack .p
update
set result {}
foreach w [.p panes] {lappend result [winfo x $w] [winfo y $w]}
destroy .p .p.f .p.f2 .p.f3
set result
---- Result was:
2 2 2 11 0 0
---- Result should have been (exact matching):
2 2 2 18 2 34
==== panedwindow-13.2 FAILED
==== panedwindow-13.3 horizontal panedwindow lays out widgets properly FAILED
==== Contents of test case:
panedwindow .p -showhandle false -borderwidth 0 -sashpad 0 -sashwidth 0
foreach {win color} {.p.f blue .p.f2 green} {
.p add [frame $win -width 20 -height 20 -bg $color] -padx 10 -pady 5 -sticky ""
}
pack .p
update
set result [list [winfo reqwidth .p] [winfo reqheight .p]]
foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
.p paneconfigure .p.f -padx 0 -pady 0
update
lappend result [winfo reqwidth .p] [winfo reqheight .p]
foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
destroy .p .p.f .p.f2
set result
---- Result was:
80 30 0 0 0 0 60 30 0 5 30 5
---- Result should have been (exact matching):
80 30 10 5 50 5 60 30 0 5 30 5
==== panedwindow-13.3 FAILED
==== panedwindow-13.4 vertical panedwindow lays out widgets properly FAILED
==== Contents of test case:
panedwindow .p -showhandle false -borderwidth 0 -sashpad 0 -sashwidth 0 -orient vertical
foreach win {.p.f .p.f2} {
.p add [frame $win -width 20 -height 20] -padx 10 -pady 5 -sticky ""
}
pack .p
update
set result [list [winfo reqwidth .p] [winfo reqheight .p]]
foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
.p paneconfigure .p.f -padx 0 -pady 0
update
lappend result [winfo reqwidth .p] [winfo reqheight .p]
foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
destroy .p .p.f .p.f2
set result
---- Result was:
40 60 10 5 0 0 40 50 10 0 10 25
---- Result should have been (exact matching):
40 60 10 5 10 35 40 50 10 0 10 25
==== panedwindow-13.4 FAILED
==== panedwindow-20.10-0-0-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {53 3 20 20} {95 3 20 20}
==== panedwindow-20.10-0-0-0-0 FAILED
==== panedwindow-20.14-0-0-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 53 20 20} {3 95 20 20}
==== panedwindow-20.14-0-0-0-0 FAILED
==== panedwindow-20.18-0-0-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {59 3 20 20} {107 3 20 20}
==== panedwindow-20.18-0-0-0-1 FAILED
==== panedwindow-20.22-0-0-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 59 20 20} {3 107 20 20}
==== panedwindow-20.22-0-0-0-1 FAILED
==== panedwindow-20.26-0-0-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {56 3 20 20} {101 3 20 20}
==== panedwindow-20.26-0-0-3-0 FAILED
==== panedwindow-20.30-0-0-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 56 20 20} {3 101 20 20}
==== panedwindow-20.30-0-0-3-0 FAILED
==== panedwindow-20.34-0-0-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {59 3 20 20} {107 3 20 20}
==== panedwindow-20.34-0-0-3-1 FAILED
==== panedwindow-20.38-0-0-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 59 20 20} {3 107 20 20}
==== panedwindow-20.38-0-0-3-1 FAILED
==== panedwindow-20.42-0-5-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {63 3 20 20} {115 3 20 20}
==== panedwindow-20.42-0-5-0-0 FAILED
==== panedwindow-20.46-0-5-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 63 20 20} {3 115 20 20}
==== panedwindow-20.46-0-5-0-0 FAILED
==== panedwindow-20.50-0-5-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {69 3 20 20} {127 3 20 20}
==== panedwindow-20.50-0-5-0-1 FAILED
==== panedwindow-20.54-0-5-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 69 20 20} {3 127 20 20}
==== panedwindow-20.54-0-5-0-1 FAILED
==== panedwindow-20.58-0-5-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {66 3 20 20} {121 3 20 20}
==== panedwindow-20.58-0-5-3-0 FAILED
==== panedwindow-20.62-0-5-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 66 20 20} {3 121 20 20}
==== panedwindow-20.62-0-5-3-0 FAILED
==== panedwindow-20.66-0-5-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{11 3 20 20} {69 3 20 20} {127 3 20 20}
==== panedwindow-20.66-0-5-3-1 FAILED
==== panedwindow-20.70-0-5-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{3 11 20 20} {3 69 20 20} {3 127 20 20}
==== panedwindow-20.70-0-5-3-1 FAILED
==== panedwindow-20.74-2-0-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {55 5 20 20} {97 5 20 20}
==== panedwindow-20.74-2-0-0-0 FAILED
==== panedwindow-20.78-2-0-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 55 20 20} {5 97 20 20}
==== panedwindow-20.78-2-0-0-0 FAILED
==== panedwindow-20.82-2-0-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {61 5 20 20} {109 5 20 20}
==== panedwindow-20.82-2-0-0-1 FAILED
==== panedwindow-20.86-2-0-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 61 20 20} {5 109 20 20}
==== panedwindow-20.86-2-0-0-1 FAILED
==== panedwindow-20.90-2-0-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {58 5 20 20} {103 5 20 20}
==== panedwindow-20.90-2-0-3-0 FAILED
==== panedwindow-20.94-2-0-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 58 20 20} {5 103 20 20}
==== panedwindow-20.94-2-0-3-0 FAILED
==== panedwindow-20.98-2-0-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {61 5 20 20} {109 5 20 20}
==== panedwindow-20.98-2-0-3-1 FAILED
==== panedwindow-20.102-2-0-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 61 20 20} {5 109 20 20}
==== panedwindow-20.102-2-0-3-1 FAILED
==== panedwindow-20.106-2-5-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {65 5 20 20} {117 5 20 20}
==== panedwindow-20.106-2-5-0-0 FAILED
==== panedwindow-20.110-2-5-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 65 20 20} {5 117 20 20}
==== panedwindow-20.110-2-5-0-0 FAILED
==== panedwindow-20.114-2-5-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {71 5 20 20} {129 5 20 20}
==== panedwindow-20.114-2-5-0-1 FAILED
==== panedwindow-20.118-2-5-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 71 20 20} {5 129 20 20}
==== panedwindow-20.118-2-5-0-1 FAILED
==== panedwindow-20.122-2-5-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {68 5 20 20} {123 5 20 20}
==== panedwindow-20.122-2-5-3-0 FAILED
==== panedwindow-20.126-2-5-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 68 20 20} {5 123 20 20}
==== panedwindow-20.126-2-5-3-0 FAILED
==== panedwindow-20.130-2-5-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{13 5 20 20} {71 5 20 20} {129 5 20 20}
==== panedwindow-20.130-2-5-3-1 FAILED
==== panedwindow-20.134-2-5-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
==== Contents of test case:
panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
foreach w {.p.f1 .p.f2 .p.f3} {
.p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
}
pack .p
update
set result {}
foreach w {.p.f1 .p.f2 .p.f3} {
lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
}
destroy .p .p.f1 .p.f2 .p.f3
set result
---- Result was:
{0 0 1 1} {0 0 1 1} {0 0 1 1}
---- Result should have been (exact matching):
{5 13 20 20} {5 71 20 20} {5 129 20 20}
==== panedwindow-20.134-2-5-3-1 FAILED
==== panedwindow-22.16 ArrangePanes, last pane grows FAILED
==== Contents of test case:
panedwindow .p -showhandle false -height 50
.p add [frame .f1 -width 50 -bg red] [frame .f2 -width 50 -bg white] [frame .f3 -width 50 -bg blue] [frame .f4 -width 50 -bg green]
.p sash place 1 250 0
pack .p
update
set result [list]
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
.p configure -width 300
update
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
---- Result was:
1 11 1 1 22 50 150 1 1 211
---- Result should have been (exact matching):
50 150 1 1 211 50 150 1 89 300
==== panedwindow-22.16 FAILED
==== panedwindow-24.29.2 ConfigurePanes, -hide works FAILED
==== Contents of test case:
panedwindow .p -showhandle false -width 130 -height 100
frame .f1 -width 40 -bg red
frame .f2 -width 40 -bg white
frame .f3 -width 40 -bg blue
frame .f4 -width 40 -bg green
.p add .f1 .f2 .f3 .f4
pack .p
update
set result [list]
lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
.p paneconfigure .f2 -hide 1
update
lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
---- Result was:
1 1 1 0 37 40 40 1 128 1 0 1 1 40 40 40 40 128
---- Result should have been (exact matching):
1 1 1 0 39 40 40 1 130 1 0 1 1 40 40 40 42 130
==== panedwindow-24.29.2 FAILED
==== panedwindow-24.29.3 ConfigurePanes, -hide works, last pane stretches FAILED
==== Contents of test case:
panedwindow .p -showhandle false -width 200 -height 200 -borderwidth 0
frame .f1 -width 50 -bg red
frame .f2 -width 50 -bg green
frame .f3 -width 50 -bg blue
.p add .f1 .f2 .f3
pack .p
update
set result [list]
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
.p paneconfigure .f2 -hide 1
update
lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
---- Result was:
50 50 24 50 50 77
---- Result should have been (exact matching):
50 50 94 50 50 147
==== panedwindow-24.29.3 FAILED
==== panedwindow-24.29.4 ConfigurePanes, -hide works, last pane stretches FAILED
==== Contents of test case:
panedwindow .p -showhandle false -width 200 -height 200 -borderwidth 0 -orient vertical
frame .f1 -height 50 -bg red
frame .f2 -height 50 -bg green
frame .f3 -height 50 -bg blue
.p add .f1 .f2 .f3
pack .p
update
set result [list]
lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
.p paneconfigure .f2 -hide 1
update
lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
---- Result was:
44 50 1 50 50 47
---- Result should have been (exact matching):
50 50 94 50 50 147
==== panedwindow-24.29.4 FAILED
==== panedwindow-29.1 resizing width FAILED
==== Contents of test case:
panedwindow .p -bd 5
frame .f1 -width 100 -height 50 -bg blue
frame .f2 -width 100 -height 50 -bg red
.p add .f1 -sticky news
.p add .f2 -sticky news
pack .p -side top -fill both -expand 1
wm geometry . ""
update
# Note the width
set a [winfo width .f2]
# Increase the size by 10
regexp {^(\d+)x(\d+)} [wm geometry .] -> w h
wm geometry . [expr {$w + 10}]x$h
update
set b "$a [winfo width .f2]"
---- Result was:
69 100
---- Result should have been (exact matching):
100 110
==== panedwindow-29.1 FAILED
==== panedwindow-29.2 resizing height FAILED
==== Contents of test case:
panedwindow .p -orient vertical -bd 5
frame .f1 -width 50 -height 100 -bg blue
frame .f2 -width 50 -height 100 -bg red
.p add .f1 -sticky news
.p add .f2 -sticky news
pack .p -side top -fill both -expand 1
wm geometry . ""
update
# Note the height
set a [winfo height .f2]
# Increase the size by 10
regexp {^(\d+)x(\d+)} [wm geometry .] -> w h
wm geometry . ${w}x[expr {$h + 10}]
update
set b "$a [winfo height .f2]"
---- Result was:
1 100
---- Result should have been (exact matching):
100 110
==== panedwindow-29.2 FAILED
place.test
raise.test
==== raise-1.1 preserve creation order FAILED
==== Contents of test case:
raise_setup
tkwait visibility .raise.e
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-1.1 FAILED
==== raise-1.2 preserve creation order FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.a
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-1.2 FAILED
==== raise-1.3 preserve creation order FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.c
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-1.3 FAILED
==== raise-1.4 preserve creation order FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.e
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-1.4 FAILED
==== raise-1.5 preserve creation order FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.d .raise.c .raise.b
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-1.5 FAILED
==== raise-2.1 raise internal windows before creation FAILED
==== Contents of test case:
raise_setup
raise .raise.a
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-2.1 FAILED
==== raise-2.2 raise internal windows before creation FAILED
==== Contents of test case:
raise_setup
raise .raise.c
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-2.2 FAILED
==== raise-2.3 raise internal windows before creation FAILED
==== Contents of test case:
raise_setup
raise .raise.e
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-2.3 FAILED
==== raise-2.4 raise internal windows before creation FAILED
==== Contents of test case:
raise_setup
raise .raise.e .raise.a
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-2.4 FAILED
==== raise-2.5 raise internal windows before creation FAILED
==== Contents of test case:
raise_setup
raise .raise.a .raise.d
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-2.5 FAILED
==== raise-3.1 raise internal windows after creation FAILED
==== Contents of test case:
raise_setup
update
raise .raise.a .raise.d
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-3.1 FAILED
==== raise-3.2 raise internal windows after creation FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.a .raise.b
raise .raise.a .raise.b
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-3.2 FAILED
==== raise-3.3 raise internal windows after creation FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.a .raise.d
raise .raise.a .raise.b
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-3.3 FAILED
==== raise-3.4 raise internal windows after creation FAILED
==== Contents of test case:
raise_setup
testmakeexist .raise.a .raise.c .raise.d
raise .raise.a .raise.b
update
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-3.4 FAILED
==== raise-4.1 raise relative to nephews FAILED
==== Contents of test case:
raise_setup
update
frame .raise.d.child
raise .raise.a .raise.d.child
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-4.1 FAILED
==== raise-5.1 lower internal windows FAILED
==== Contents of test case:
raise_setup
update
lower .raise.d
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-5.1 FAILED
==== raise-5.2 lower internal windows FAILED
==== Contents of test case:
raise_setup
update
lower .raise.d .raise.b
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-5.2 FAILED
==== raise-5.3 lower internal windows FAILED
==== Contents of test case:
raise_setup
update
lower .raise.a .raise.e
raise_getOrder
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad window path name ""
while executing
"winfo name [winfo containing [expr $x+90] [expr $y+70]]"
(procedure "raise_getOrder" line 4)
invoked from within
"raise_getOrder"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== raise-5.3 FAILED
safe.test
scale.test
scrollbar.test
==== scrollbar-3.12 ScrollbarWidgetCmd procedure, "cget" option FAILED
==== Contents of test case:
list [catch {.s2 cget -bd} msg] $msg
---- Result was:
0 1
---- Result should have been (exact matching):
0 2
==== scrollbar-3.12 FAILED
select.test
==== select-10.4 ConvertSelection procedure FAILED
==== Contents of test case:
setup
setupbg
set selValue $longValue
set selInfo ""
selection handle .f1 {errIncrHandler STRING}
set result ""
set pass 0
lappend result [dobg {selection get}]
cleanupbg
lappend result $selInfo
---- Result was:
{selection owner didn't respond} {STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000}
---- Result should have been (exact matching):
{selection owner didn't respond} {STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000}
==== select-10.4 FAILED
send.test
spinbox.test
==== spinbox-19.8 spinbox widget validation FAILED
==== Contents of test case:
focus -force .e
# update necessary to process FocusIn event
update
set ::vVals
---- Result was:
.e -1 -1 abcd abcd {} focus focusout
---- Result should have been (exact matching):
.e -1 -1 abcd abcd {} focus focusin
==== spinbox-19.8 FAILED
==== spinbox-19.10 spinbox widget validation FAILED
==== Contents of test case:
focus -force .e
# update necessary to process FocusIn event
update
set ::vVals
---- Result was:
.e -1 -1 abcd abcd {} all focusout
---- Result should have been (exact matching):
.e -1 -1 abcd abcd {} all focusin
==== spinbox-19.10 FAILED
==== spinbox-19.14 spinbox widget validation FAILED
==== Contents of test case:
focus -force .e
# update necessary to process FocusIn event
update
set ::vVals
---- Result was:
.e -1 -1 abcd abcd {} focusout focusout
---- Result should have been (exact matching):
==== spinbox-19.14 FAILED
text.test
textBTree.test
textDisp.test
==== textDisp-16.25 TkTextYviewCmd procedure, "scroll" option, back pages FAILED
==== Contents of test case:
.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
---- Result was:
48.0
---- Result should have been (exact matching):
49.0
==== textDisp-16.25 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:
-16 18 7 13
---- Result should have been (exact matching):
-28 18 7 13
==== textDisp-27.7 FAILED
==== textDisp-29.2 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
.t2.t xview scroll 1 unit
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
---- Result was:
{0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
---- Result should have been (exact matching):
{0.023333333333333334 0.49} 300x50+-2+18 {5 68 7 13}
==== textDisp-29.2 FAILED
==== textDisp-29.2.1 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 none -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 1\n
.t2.t insert end [string repeat "abc" 30]
.t2.t xview scroll 5 unit
update
.t2.t xview
---- Result was:
0.009523809523809525 0.23174603174603176
---- Result should have been (exact matching):
0.05555555555555555 0.2777777777777778
==== textDisp-29.2.1 FAILED
==== textDisp-29.2.2 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
.t2.t xview scroll 2 unit
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
---- Result was:
{0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
---- Result should have been (exact matching):
{0.04666666666666667 0.5133333333333333} 300x50+-9+18 {}
==== textDisp-29.2.2 FAILED
==== textDisp-29.2.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
.t2.t xview scroll 7 pixels
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
---- Result was:
{0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
---- Result should have been (exact matching):
{0.023333333333333334 0.49} 300x50+-2+18 {5 68 7 13}
==== textDisp-29.2.3 FAILED
==== textDisp-29.2.4 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
.t2.t xview scroll 17 pixels
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
---- Result was:
{0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
---- Result should have been (exact matching):
{0.056666666666666664 0.5233333333333333} 300x50+-12+18 {}
==== textDisp-29.2.4 FAILED
textImage.test
==== textImage-3.2 delayed image management FAILED
==== Contents of test case:
catch {
image create photo small -width 5 -height 5
small put red -to 0 0 4 4
}
catch {destroy .t}
text .t -font test_font -bd 0 -highlightthickness 0 -padx 0 -pady 0
pack .t
.t image create end -name test
update
set result ""
lappend result [.t bbox test]
.t image configure test -image small -align top
update
lappend result [.t bbox test]
---- Result was:
{0 7 0 0} {0 0 5 5}
---- Result should have been (exact matching):
{} {0 0 5 5}
==== textImage-3.2 FAILED
textIndex.test
textMark.test
textTag.test
textWind.test
tk.test
unixButton.test
unixEmbed.test
unixFont.test
==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
==== Contents of test case:
font measure fixed 0
---- Result was:
12
---- Result should have been (exact matching):
6
==== unixfont-1.2 FAILED
==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED
==== Contents of test case:
lindex [font actual {-family fixed -size 10}] 1
---- Result was:
Fixed
---- Result should have been (exact matching):
fixed
==== unixfont-2.6 FAILED
==== unixfont-2.8 TkpGetFontFromAttributes: loop over returned font names FAILED
==== Contents of test case:
lindex [font actual {-family fixed -size 31}] 1
---- Result was:
Fixed
---- Result should have been (exact matching):
fixed
==== unixfont-2.8 FAILED
==== unixfont-2.9 TkpGetFontFromAttributes: reject adobe courier if possible FAILED
==== Contents of test case:
lindex [font actual {-family courier}] 1
---- Result was:
Courier
---- Result should have been (exact matching):
courier
==== unixfont-2.9 FAILED
==== unixfont-2.10 TkpGetFontFromAttributes: scalable font found FAILED
==== Contents of test case:
lindex [font actual {-family courier -size 37}] 3
---- Result was:
24
---- Result should have been (exact matching):
37
==== unixfont-2.10 FAILED
==== unixfont-5.9 Tk_MeasureChars procedure: TK_PARTIAL_OK FAILED
==== Contents of test case:
.b.c dchars $t 0 end
.b.c insert $t 0 "0000"
.b.c index $t @[expr int($ax*2.5)],1
---- Result was:
4
---- Result should have been (exact matching):
2
==== unixfont-5.9 FAILED
==== unixfont-8.4 AllocFont procedure: classify characters FAILED
==== Contents of test case:
set x 0
incr x [font measure $courier "\u4000"] ;# 6
incr x [font measure $courier "\002"] ;# 4
incr x [font measure $courier "\012"] ;# 2
incr x [font measure $courier "\101"] ;# 1
set x
---- Result was:
24
---- Result should have been (exact matching):
78
==== unixfont-8.4 FAILED
==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED
==== Contents of test case:
set x 0
incr x [font measure $courier "\001"] ;# 4
incr x [font measure $courier "\002"] ;# 4
incr x [font measure $courier "\012"] ;# 2
set x
---- Result was:
18
---- Result should have been (exact matching):
60
==== unixfont-8.6 FAILED
==== unixfont-9.1 GetControlCharSubst procedure: 2 chars subst FAILED
==== Contents of test case:
.b.c dchars $t 0 end
.b.c insert $t 0 "0\a0"
set x {}
lappend x [.b.c index $t @[expr $ax*0],0]
lappend x [.b.c index $t @[expr $ax*1],0]
lappend x [.b.c index $t @[expr $ax*2],0]
lappend x [.b.c index $t @[expr $ax*3],0]
---- Result was:
0 2 3 3
---- Result should have been (exact matching):
0 1 1 2
==== unixfont-9.1 FAILED
==== unixfont-9.2 GetControlCharSubst procedure: 4 chars subst FAILED
==== Contents of test case:
.b.c dchars $t 0 end
.b.c insert $t 0 "0\0010"
set x {}
lappend x [.b.c index $t @[expr $ax*0],0]
lappend x [.b.c index $t @[expr $ax*1],0]
lappend x [.b.c index $t @[expr $ax*2],0]
lappend x [.b.c index $t @[expr $ax*3],0]
lappend x [.b.c index $t @[expr $ax*4],0]
lappend x [.b.c index $t @[expr $ax*5],0]
---- Result was:
0 2 3 3 3 3
---- Result should have been (exact matching):
0 1 1 1 1 2
==== unixfont-9.2 FAILED
unixMenu.test
unixSelect.test
unixWm.test
==== unixWm-40.2 Tk_SetGrid procedure, turning on grid when dimensions already set FAILED
==== Contents of test case:
destroy .t
toplevel .t
wm geometry .t 200x100+0+0
listbox .t.l -height 20 -width 20
pack .t.l -fill both -expand 1
update
.t.l configure -setgrid 1
update
wm geometry .t
---- Result was:
24x6+0+0
---- Result should have been (exact matching):
20x20+0+0
==== unixWm-40.2 FAILED
==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a toplevel, x-coords FAILED
==== Contents of test case:
deleteWindows
toplevel .t -width 300 -height 400 -bg green
wm geom .t +40+0
tkwait visibility .t
toplevel .t2 -width 100 -height 80 -bg red
wm geom .t2 +140+200
tkwait visibility .t2
raise .t2
set x [winfo rootx .t]
set y [winfo rooty .t]
list [winfo containing [expr $x - 30] [expr $y + 250]] [winfo containing [expr $x - 1] [expr $y + 250]] [winfo containing $x [expr $y + 250]] [winfo containing [expr $x + 99] [expr $y + 250]] [winfo containing [expr $x + 100] [expr $y + 250]] [winfo containing [expr $x + 199] [expr $y + 250]] [winfo containing [expr $x + 200] [expr $y + 250]] [winfo containing [expr $x + 220] [expr $y + 250]]
---- Result was:
{} {} .t .t .t .t .t .t
---- Result should have been (exact matching):
{} {} .t {} .t2 .t2 {} .t
==== unixWm-50.1 FAILED
==== unixWm-50.2 Tk_CoordsToWindow procedure, finding a toplevel, y-coords and overrideredirect FAILED
==== Contents of test case:
deleteWindows
toplevel .t -width 300 -height 400 -bg yellow
wm geom .t +0+50
tkwait visibility .t
toplevel .t2 -width 100 -height 80 -bg blue
wm overrideredirect .t2 1
wm geom .t2 +100+200
tkwait visibility .t2
raise .t2
set x [winfo rootx .t]
set y [winfo rooty .t]
set y2 [winfo rooty .t2]
list [winfo containing [expr $x +150] 10] [winfo containing [expr $x +150] [expr $y - 1]] [winfo containing [expr $x +150] $y] [winfo containing [expr $x +150] [expr $y2 - 1]] [winfo containing [expr $x +150] $y2] [winfo containing [expr $x +150] [expr $y2 + 79]] [winfo containing [expr $x +150] [expr $y2 + 80]] [winfo containing [expr $x +150] [expr $y + 450]]
---- Result was:
{} {} {} {} .t2 .t2 {} {}
---- Result should have been (exact matching):
{} {} .t .t .t2 .t2 .t {}
==== unixWm-50.2 FAILED
==== unixWm-50.3 Tk_CoordsToWindow procedure, finding a toplevel with embedding FAILED
==== Contents of test case:
dobg "
wm withdraw .
toplevel .x -width 100 -height 80 -use [winfo id .t.f] -bg yellow
tkwait visibility .x"
set result [dobg {
set x [winfo rootx .x]
set y [winfo rooty .x]
list [winfo containing [expr $x - 1] [expr $y + 50]] [winfo containing $x [expr $y +50]]
}]
set x [winfo rootx .t]
set y [winfo rooty .t]
lappend result [winfo containing [expr $x + 200] [expr $y + 49]] [winfo containing [expr $x + 200] [expr $y +50]]
---- Result was:
{} {} {} {}
---- Result should have been (exact matching):
{} .x .t .t.f
==== unixWm-50.3 FAILED
==== unixWm-50.4 Tk_CoordsToWindow procedure, window in other application FAILED
==== Contents of test case:
destroy .t
catch {interp delete slave}
toplevel .t -width 200 -height 200 -bg green
wm geometry .t +0+0
tkwait visibility .t
interp create slave
load {} Tk slave
slave eval {wm geometry . 200x200+0+0; tkwait visibility .}
set result [list [winfo containing 100 100] [slave eval {winfo containing 100 100}]]
interp delete slave
set result
---- Result was:
.t {}
---- Result should have been (exact matching):
{} .
==== unixWm-50.4 FAILED
==== unixWm-50.5 Tk_CoordsToWindow procedure, handling menubars FAILED
==== Contents of test case:
deleteWindows
toplevel .t -width 300 -height 400 -bd 2 -relief raised
frame .t.f -width 150 -height 120 -bg green
place .t.f -x 10 -y 150
wm geom .t +0+50
frame .t.menu -width 100 -height 30 -bd 2 -relief raised
frame .t.menu.f -width 40 -height 20 -bg purple
place .t.menu.f -x 30 -y 10
testmenubar window .t .t.menu
tkwait visibility .t.menu
update
set x [winfo rootx .t]
set y [winfo rooty .t]
list [winfo containing $x [expr $y - 31]] [winfo containing $x [expr $y - 30]] [winfo containing [expr $x + 50] [expr $y - 19]] [winfo containing [expr $x + 50] [expr $y - 18]] [winfo containing [expr $x + 50] $y] [winfo containing [expr $x + 11] [expr $y + 152]] [winfo containing [expr $x + 12] [expr $y + 152]]
---- Result was:
{} {} {} {} {} {} {}
---- Result should have been (exact matching):
{} .t.menu .t.menu .t.menu.f .t .t .t.f
==== unixWm-50.5 FAILED
==== unixWm-50.6 Tk_CoordsToWindow procedure, embedding within one app. FAILED
==== Contents of test case:
deleteWindows
toplevel .t -width 300 -height 400 -bg orange
wm geom .t +0+50
frame .t.f -container 1
place .t.f -x 150 -y 50
tkwait visibility .t.f
toplevel .t2 -width 100 -height 80 -bg green -use [winfo id .t.f]
tkwait visibility .t2
update
set x [winfo rootx .t]
set y [winfo rooty .t]
list [winfo containing [expr $x +149] [expr $y + 80]] [winfo containing [expr $x +150] [expr $y +80]] [winfo containing [expr $x +249] [expr $y +80]] [winfo containing [expr $x +250] [expr $y +80]]
---- Result was:
{} {} {} {}
---- Result should have been (exact matching):
.t .t2 .t2 .t
==== unixWm-50.6 FAILED
==== unixWm-50.7 Tk_CoordsToWindow procedure, more basics FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 300 -height 400 -bg green
wm geom .t +0+0
frame .t.f -width 100 -height 200 -bd 2 -relief raised
place .t.f -x 100 -y 100
frame .t.f.f -width 100 -height 200 -bd 2 -relief raised
place .t.f.f -x 0 -y 100
tkwait visibility .t.f.f
set x [expr [winfo rootx .t] + 150]
set y [winfo rooty .t]
list [winfo containing $x [expr $y + 50]] [winfo containing $x [expr $y + 150]] [winfo containing $x [expr $y + 250]] [winfo containing $x [expr $y + 350]] [winfo containing $x [expr $y + 450]]
---- Result was:
{} {} {} {} {}
---- Result should have been (exact matching):
.t .t.f .t.f.f .t {}
==== unixWm-50.7 FAILED
==== unixWm-50.8 Tk_CoordsToWindow procedure, more basics FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 400 -height 300 -bg green
wm geom .t +0+0
frame .t.f -width 200 -height 100 -bd 2 -relief raised
place .t.f -x 100 -y 100
frame .t.f.f -width 200 -height 100 -bd 2 -relief raised
place .t.f.f -x 100 -y 0
update
set x [winfo rooty .t]
set y [expr [winfo rooty .t] + 150]
list [winfo containing [expr $x + 50] $y] [winfo containing [expr $x + 150] $y] [winfo containing [expr $x + 250] $y] [winfo containing [expr $x + 350] $y] [winfo containing [expr $x + 450] $y]
---- Result was:
{} {} {} {} {}
---- Result should have been (exact matching):
.t .t.f .t.f.f .t {}
==== unixWm-50.8 FAILED
==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED
==== Contents of test case:
destroy .t
destroy .t2
sleep 500 ;# Give window manager time to catch up.
toplevel .t -width 200 -height 200 -bg green
wm geometry .t +0+0
tkwait visibility .t
toplevel .t2 -width 200 -height 200 -bg red
wm geometry .t2 +0+0
tkwait visibility .t2
set result [list [winfo containing 100 100]]
wm iconify .t2
lappend result [winfo containing 100 100]
---- Result was:
.t .t
---- Result should have been (exact matching):
.t2 .t
==== unixWm-50.9 FAILED
==== unixWm-50.10 Tk_CoordsToWindow procedure, unmapped windows FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 200 -height 200 -bg green
wm geometry .t +0+0
frame .t.f -width 150 -height 150 -bd 2 -relief raised
place .t.f -x 25 -y 25
tkwait visibility .t.f
set result [list [winfo containing 100 100]]
place forget .t.f
update
lappend result [winfo containing 100 100]
---- Result was:
{} {}
---- Result should have been (exact matching):
.t.f .t
==== unixWm-50.10 FAILED
==== unixWm-51.6 TkWmRestackToplevel procedure, window to be stacked isn't mapped FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 200 -height 200 -bg green
wm geometry .t +0+0
tkwait visibility .t
destroy .t2
toplevel .t2 -width 200 -height 200 -bg red
wm geometry .t2 +0+0
winfo containing 100 100
---- Result was:
.
---- Result should have been (exact matching):
.t
==== unixWm-51.6 FAILED
==== unixWm-51.7 TkWmRestackToplevel procedure, other window isn't mapped FAILED
==== Contents of test case:
foreach w {.t .t2 .t3} {
destroy $w
toplevel $w -width 200 -height 200 -bg green
wm geometry $w +0+0
}
raise .t .t2
sleep 2000
update
set result [list [winfo containing 100 100]]
lower .t3
sleep 2000
lappend result [winfo containing 100 100]
---- Result was:
.t3 .t2
---- Result should have been (exact matching):
.t3 .t
==== unixWm-51.7 FAILED
util.test
==== util-1.3 Tk_GetScrollInfo procedure FAILED
==== Contents of test case:
.l yview 0
.l yview moveto .5
.l yview
---- Result was:
0.5 0.55
---- Result should have been (exact matching):
0.5 0.75
==== util-1.3 FAILED
==== util-1.7 Tk_GetScrollInfo procedure FAILED
==== Contents of test case:
.l yview 0
.l yview scroll 2 pages
.l nearest 0
---- Result was:
2
---- Result should have been (exact matching):
6
==== util-1.7 FAILED
==== util-1.8 Tk_GetScrollInfo procedure FAILED
==== Contents of test case:
.l yview 15
.l yview scroll -2 pages
.l nearest 0
---- Result was:
13
---- Result should have been (exact matching):
9
==== util-1.8 FAILED
visual.test
visual_bb.test
winButton.test
winClipboard.test
winDialog.test
winFont.test
winMenu.test
winMsgbox.test
winSend.test
winWm.test
window.test
winfo.test
==== winfo-4.5 "winfo containing" command FAILED
==== Contents of test case:
raise .t
winfo containing [winfo rootx .t.f] [winfo rooty .t.f]
---- Result was:
.
---- Result should have been (exact matching):
.t.f
==== winfo-4.5 FAILED
wm.test
==== wm-stackorder-2.1 stacking order FAILED
==== Contents of test case:
toplevel .t ; update
wm stackorder .
---- Result was:
.t .
---- Result should have been (exact matching):
. .t
==== wm-stackorder-2.1 FAILED
==== wm-stackorder-2.2 stacking order FAILED
==== Contents of test case:
toplevel .t ; update
raise .
raiseDelay
wm stackorder .
---- Result was:
. .t
---- Result should have been (exact matching):
.t .
==== wm-stackorder-2.2 FAILED
==== wm-stackorder-2.3 stacking order FAILED
==== Contents of test case:
toplevel .t ; update
toplevel .t2 ; update
raise .
raise .t2
raiseDelay
wm stackorder .
---- Result was:
. .t .t2
---- Result should have been (exact matching):
.t . .t2
==== wm-stackorder-2.3 FAILED
==== wm-stackorder-2.4 stacking order FAILED
==== Contents of test case:
toplevel .t ; update
toplevel .t2 ; update
raise .
lower .t2
raiseDelay
wm stackorder .
---- Result was:
.t2 . .t
---- Result should have been (exact matching):
.t2 .t .
==== wm-stackorder-2.4 FAILED
==== wm-stackorder-2.5 stacking order FAILED
==== Contents of test case:
toplevel .parent ; update
destroy .parent.child1
toplevel .parent.child1 ; update
destroy .parent.child2
toplevel .parent.child2 ; update
destroy .extra
toplevel .extra ; update
raise .parent
lower .parent.child2
raiseDelay
wm stackorder .parent
---- Result was:
.parent.child2 .parent .parent.child1
---- Result should have been (exact matching):
.parent.child2 .parent.child1 .parent
==== wm-stackorder-2.5 FAILED
==== wm-stackorder-2.6 stacking order: non-toplevel widgets ignored FAILED
==== Contents of test case:
toplevel .t1
button .t1.b
pack .t1.b
update
wm stackorder .
---- Result was:
.t1 .
---- Result should have been (exact matching):
. .t1
==== wm-stackorder-2.6 FAILED
==== wm-stackorder-3.6 unmapped toplevel FAILED
==== Contents of test case:
toplevel .t1 ; update
toplevel .t1.t2 ; update
toplevel .t1.t2.t3 ; update
wm withdraw .t1.t2
wm stackorder .t1
---- Result was:
.t1.t2.t3 .t1
---- Result should have been (exact matching):
.t1 .t1.t2.t3
==== wm-stackorder-3.6 FAILED
==== wm-stackorder-4.1 wm stackorder isabove|isbelow FAILED
==== Contents of test case:
toplevel .t ; update
raise .t
wm stackorder . isabove .t
---- Result was:
1
---- Result should have been (exact matching):
0
==== wm-stackorder-4.1 FAILED
==== wm-stackorder-4.2 wm stackorder isabove|isbelow FAILED
==== Contents of test case:
toplevel .t ; update
raise .t
wm stackorder . isbelow .t
---- Result was:
0
---- Result should have been (exact matching):
1
==== wm-stackorder-4.2 FAILED
==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED
==== Contents of test case:
toplevel .t ; update
raise .
raiseDelay
wm stackorder .t isa .
---- Result was:
1
---- Result should have been (exact matching):
0
==== wm-stackorder-4.3 FAILED
==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED
==== Contents of test case:
toplevel .t ; update
raise .
raiseDelay
wm stackorder .t isb .
---- Result was:
0
---- Result should have been (exact matching):
1
==== wm-stackorder-4.4 FAILED
==== wm-stackorder-5.1 a menu is not a toplevel FAILED
==== Contents of test case:
toplevel .t
menu .t.m -type menubar
.t.m add cascade -label "File"
.t configure -menu .t.m
update
raise .
raiseDelay
wm stackorder .
---- Result was:
. .t
---- Result should have been (exact matching):
.t .
==== wm-stackorder-5.1 FAILED
==== wm-stackorder-6.1 An embedded toplevel does not appear in the stacking order FAILED
==== Contents of test case:
toplevel .real -container 1
toplevel .embd -bg blue -use [winfo id .real]
update
wm stackorder .
---- Result was:
.real .
---- Result should have been (exact matching):
. .real
==== wm-stackorder-6.1 FAILED
xmfbox.test
Tests ended at Fri Mar 28 14:04:36 ART 2008
all.tcl: Total 8768 Passed 8021 Skipped 598 Failed 149
Sourced 87 Test Files.
Files with failing tests: clipboard.test focus.test font.test listbox.test panedwindow.test raise.test scrollbar.test select.test spinbox.test textDisp.test textImage.test unixFont.test unixWm.test util.test winfo.test wm.test
Number of tests skipped for each constraint:
14 altDisplay
3 aqua
16 colorsFree
3 colorsLeftover
21 defaultPseudocolor8
5 emptyTest
1 hasArial
1 hasCourierNew
1 hasTimesNew
5 haveOtherVisual
1 havePseudocolorVisual
6 knownBug
1 memory
104 nonPortable
37 nt
5 pseudocolor8
11 testmetrics
1 userInteraction
311 win
51 winSend
LD_LIBRARY_PATH="`pwd`:/home/emiliano/tcl_sources/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/emiliano/tcl_sources/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/emiliano/tcl_sources/tk/library; export TK_LIBRARY; ./tktest /home/emiliano/tcl_sources/tk/unix/../tests/ttk/all.tcl -geometry +0+0
Tests running in interp: /home/emiliano/tcl_sources/tk/unix/tktest
Tests located in: /home/emiliano/tcl_sources/tk/tests/ttk
Tests running in: /home/emiliano/tcl_sources/tk/unix
Temporary files stored in /home/emiliano/tcl_sources/tk/unix
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 Fri Mar 28 14:04:36 ART 2008
combobox.test
entry.test
==== entry-3.2 xview FAILED
==== Contents of test case:
.e delete 0 end;
.e insert end [string repeat "0" 40]
update idletasks
set result [.e xview]
---- Result was:
0 0.35
---- Result should have been (exact matching):
0 0.5
==== entry-3.2 FAILED
image.test
labelframe.test
==== labelframe-4.4 Re-manage nonchild slave FAILED
==== Contents of test case:
pack .cb -side right
list [update; winfo viewable .cb] [winfo manager .cb] [.lf cget -labelwidget]
---- Result was:
0 pack {}
---- Result should have been (exact matching):
1 pack {}
==== labelframe-4.4 FAILED
layout.test
notebook.test
panedwindow.test
==== panedwindow-2.1 ... FAILED
==== Contents of test case:
ttk::panedwindow .pw -orient horizontal
.pw add [listbox .pw.l1]
.pw add [listbox .pw.l2]
.pw add [listbox .pw.l3]
.pw add [listbox .pw.l4]
pack .pw -expand true -fill both
update
set w1 [winfo width .]
# This should make the window shrink:
destroy .pw.l2
update
set w2 [winfo width .]
expr {$w2 < $w1}
---- Result was:
0
---- Result should have been (exact matching):
1
==== panedwindow-2.1 FAILED
progressbar.test
scrollbar.test
treetags.test
treeview.test
ttk.test
validate.test
Tests ended at Fri Mar 28 14:04:40 ART 2008
all.tcl: Total 375 Passed 363 Skipped 9 Failed 3
Sourced 13 Test Files.
Files with failing tests: entry.test labelframe.test panedwindow.test
Number of tests skipped for each constraint:
2 NA
4 coreEntry
3 coreScrollbar
make: exec() failed (No such file or directory)
*** Error code 1
Stop.
make: stopped in /home/emiliano/tcl_sources/tk/unix