Menu
▾
▴
Re: [TCLCORE] Tcl/Tk 8.6.10 Release Candidates
|
From: Jan N. <jan...@gm...> - 2019-10-10 22:57:25
|
Op vr 11 okt. 2019 om 00:15 schreef Marc Culler:
>
> If no one objects I would like to merge the catalina_more_tests branch into core-8-6-branch and close it. The changes would be:
>
> UPDATE macosx/tkMacOSXColor.c
> UPDATE macosx/tkMacOSXNotify.c
> UPDATE tests/ttk/entry.test
>
> I am not sure why the last one was not merged earlier, but I see no problem with doing that.
Looks good to me! Great work! ttk/entry.test could indeed have
been merged earlier.
I just ran the "catalina_more_tests" build on Catalina:
Tests ended at Fri Oct 11 00:43:26 CEST 2019
all.tcl: Total 9627 Passed 8282 Skipped 1345 Failed 0
Sourced 92 Test Files.
Number of tests skipped for each constraint:
....
So, all looks good to me!
Thanks!
Jan Nijtmans
P.S: For completeness, I also ran "catalina_more_tests" on XQuartz:
Tests ended at Fri Oct 11 00:53:24 CEST 2019
all.tcl: Total 9619 Passed 8871 Skipped 703 Failed 45
Sourced 92 Test Files.
Files with failing tests: canvText.test clipboard.test entry.test
focus.test pack.test place.test scrollbar.test textDisp.test
unixEmbed.test unixFont.test unixWm.test winfo.test wm.test
Number of tests skipped for each constraint:
....
Tests running in: /Users/jan/workspace/tk8.7/unix
Temporary files stored in /Users/jan/workspace/tk8.7/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 Oct 11 00:46:37 CEST 2019
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
==== canvText-20.1 angled text bounding box FAILED
==== Contents of test case:
.c create text 2 2 -tag t -anchor center -text 0 -font {Helvetica 24}
set bb0 [.c bbox t]
.c itemconf t -angle 90
set bb1 [.c bbox t]
.c itemconf t -angle 180
set bb2 [.c bbox t]
.c itemconf t -angle 270
set bb3 [.c bbox t]
list [expr {$bb0 eq $bb2 ? "ok" : "$bb0,$bb2"}] [expr {$bb1 eq
$bb3 ? "ok" : "$bb1,$bb3"}] [expr {$bb0 eq [transpose $bb1] ? "ok" :
"$bb0,$bb1"}]
---- Result was:
{-7 -15 12 19,-8 -15 11 19} {-15 -8 19 11,-15 -7 19 12} {-7 -15 12
19,-15 -8 19 11}
---- Result should have been (exact matching):
ok ok ok
==== canvText-20.1 FAILED
canvWind.test
canvas.test
choosedir.test
clipboard.test
==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED
==== Contents of test case:
setupbg
clipboard append -f INTEGER -t TEST "16"
set result [dobg {clipboard get TEST}]
return $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
==== entry-5.8 ConfigureEntry procedure FAILED
==== Contents of test case:
.e configure -width 0 -font {Helvetica -12}
.e insert end "0123"
update
.e configure -font {Helvetica -24}
update
winfo geom .e
---- Result was:
62x37+5+0
---- Result should have been (exact matching):
62x37+0+0
==== entry-5.8 FAILED
event.test
filebox.test
focus.test
==== focus-2.6 TkFocusFilterEvent procedure, FocusIn events FAILED
==== Contents of test case:
focus .t.b1
focus .
update
event gen [testwrapper .t] <FocusIn> -detail NotifyAncestor
set focusInfo {}
set x [focus]
event gen . <KeyPress-x>
list $x $focusInfo
---- Result was:
. {press . x}
---- Result should have been (exact matching):
.t.b1 {press .t.b1 x}
==== focus-2.6 FAILED
==== focus-2.7 TkFocusFilterEvent procedure, FocusOut events FAILED
==== Contents of test case:
set result {}
foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
NotifyNonlinearVirtual NotifyPointer NotifyPointerRoot
NotifyVirtual} {
focus -force .t.b1
event gen [testwrapper .t] <FocusOut> -detail $detail
update
lappend result [focus]
}
return $result
---- Result was:
.t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1
---- Result should have been (exact matching):
{} .t.b1 {} {} .t.b1 .t.b1 {}
==== focus-2.7 FAILED
==== focus-2.9 TkFocusFilterEvent procedure, FocusOut events FAILED
==== Contents of test case:
focus .t.b1
event gen [testwrapper .] <FocusOut> -detail NotifyAncestor
focus
---- Result was:
.t.b1
---- Result should have been (exact matching):
==== focus-2.9 FAILED
==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED
==== Contents of test case:
setupbg
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
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
==== pack-18.2 unmap slaves when master unmapped FAILED
==== Contents of test case:
# adjust the position of .pack before test to avoid a screen switch
# that occurs with window managers that have desktops four times as big
# as the screen (screen switch causes scale and other tests to fail).
wm geometry .pack +100+100
frame .pack.a -relief raised -bd 2
frame .pack.b -width 70 -height 30 -relief sunken -bd 2
pack .pack.a
pack .pack.b -in .pack.a
update
set result [winfo ismapped .pack.b]
wm iconify .pack
update
lappend result [winfo ismapped .pack.b]
.pack.b configure -width 100 -height 30
update
lappend result [winfo width .pack.b ] [winfo height .pack.b]
[winfo ismapped .pack.b]
wm deiconify .pack
update
lappend result [winfo ismapped .pack.b]
---- Result was:
1 1 100 30 1 1
---- Result should have been (exact matching):
1 0 100 30 0 1
==== pack-18.2 FAILED
packgrid.test
panedwindow.test
place.test
==== place-8.2 MasterStructureProc, mapping and unmapping slaves FAILED
==== Contents of test case:
place .t.f -x 0 -y 0 -width 200 -height 100
place .t.f2 -in .t.f -relx 1.0 -rely 1.0 -anchor sw -width 50 -height 20
update
set result [winfo ismapped .t.f2]
wm iconify .t
update
lappend result [winfo ismapped .t.f2]
place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw
update
lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2]
wm deiconify .t
update
lappend result [winfo ismapped .t.f2]
---- Result was:
1 1 42 32 1 1
---- Result should have been (exact matching):
1 0 42 32 0 1
==== place-8.2 FAILED
raise.test
safe.test
safePrimarySelection.test
scale.test
scrollbar.test
==== scrollbar-3.36 ScrollbarWidgetCmd procedure, "fraction" option FAILED
==== Contents of test case:
format {%.6g} [.s fraction 4 179]
---- Result was:
0.976048
---- Result should have been (exact matching):
1
==== scrollbar-3.36 FAILED
==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option FAILED
==== Contents of test case:
format {%.6g} [.s fraction 4 178]
---- Result was:
0.97006
---- Result should have been (exact matching):
0.993711
==== scrollbar-3.38 FAILED
==== scrollbar-6.12.1 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 8 19
---- Result was:
trough1
---- Result should have been (exact matching):
arrow1
==== scrollbar-6.12.1 FAILED
==== scrollbar-6.29.1 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 8 180
---- Result was:
trough2
---- Result should have been (exact matching):
arrow2
==== scrollbar-6.29.1 FAILED
==== scrollbar-6.35 ScrollbarPosition procedure FAILED
==== Contents of test case:
.s identify 18 100
---- Result was:
---- Result should have been (exact matching):
trough2
==== scrollbar-6.35 FAILED
==== scrollbar-6.44 ScrollbarPosition procedure FAILED
==== Contents of test case:
.t.s identify 100 18
---- Result was:
---- Result should have been (exact matching):
trough2
==== scrollbar-6.44 FAILED
select.test
send.test
spinbox.test
text.test
textBTree.test
textDisp.test
==== textDisp-4.8 UpdateDisplayInfo, filling in extra vertical space FAILED
==== Contents of test case:
.t delete 1.0 end
.t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17"
.t yview 16.0
updateText
.t delete 5.0 14.0
updateText
set x [list [.t index @0,0] $tk_textRelayout $tk_textRedraw]
---- Result was:
1.0 {5.0 4.0 3.0 2.0 1.0} {1.0 2.0 3.0 4.0 5.0 8.0 eof}
---- Result should have been (exact matching):
1.0 {5.0 4.0 3.0 2.0 1.0} {1.0 2.0 3.0 4.0 5.0 eof}
==== textDisp-4.8 FAILED
==== textDisp-4.14 UpdateDisplayInfo, special handling for top/bottom
lines FAILED
==== Contents of test case:
.t tag remove x 1.0 end
.t yview 1.0
updateText
.t yview scroll 3 units
updateText
list $tk_textRelayout $tk_textRedraw
---- Result was:
{11.0 12.0 13.0} {10.0 11.0 12.0 13.0}
---- Result should have been (exact matching):
{11.0 12.0 13.0} {11.0 12.0 13.0}
==== textDisp-4.14 FAILED
==== textDisp-6.1 scrolling in DisplayText, scroll up FAILED
==== Contents of test case:
.t delete 1.0 end
.t insert 1.0 "Line 1"
foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} {
.t insert end "\nLine $i"
}
updateText
.t delete 2.0 3.0
updateText
list $tk_textRelayout $tk_textRedraw
---- Result was:
{2.0 10.0} {2.0 9.0 10.0}
---- Result should have been (exact matching):
{2.0 10.0} {2.0 10.0}
==== textDisp-6.1 FAILED
==== textDisp-8.7 TkTextChanged FAILED
==== Contents of test case:
.t delete 1.0 end
.t insert 1.0 "Line 1 is so long that it wraps around, two times"
foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} {
.t insert end "\nLine $i"
}
updateText
.t delete 1.2 1.end
updateText
list $tk_textRelayout $tk_textRedraw
---- Result was:
{1.0 9.0 10.0} {1.0 8.0 9.0 10.0}
---- Result should have been (exact matching):
{1.0 9.0 10.0} {1.0 9.0 10.0}
==== textDisp-8.7 FAILED
==== textDisp-8.9 TkTextChanged FAILED
==== Contents of test case:
.t delete 1.0 end
.t insert 1.0 "Line 1 is so long that it wraps around, two times"
foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} {
.t insert end "\nLine $i"
}
updateText
.t delete 2.0 3.0
updateText
list $tk_textRelayout $tk_textRedraw
---- Result was:
{2.0 8.0} {2.0 7.0 8.0}
---- Result should have been (exact matching):
{2.0 8.0} {2.0 8.0}
==== textDisp-8.9 FAILED
==== textDisp-9.5 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"
updateText
.t tag add big 2.2 2.end
updateText
.t tag remove big 1.0 end
updateText
list $tk_textRelayout $tk_textRedraw
---- Result was:
{2.0 2.20} {2.0 2.20 4.0 eof}
---- Result should have been (exact matching):
{2.0 2.20} {2.0 2.20 eof}
==== textDisp-9.5 FAILED
==== textDisp-11.2 TkTextSetYView FAILED
==== Contents of test case:
.t yview 30.0
updateText
.t yview 32.0
updateText
list [.t index @0,0] $tk_textRedraw
---- Result was:
32.0 {39.0 40.0 41.0}
---- Result should have been (exact matching):
32.0 {40.0 41.0}
==== textDisp-11.2 FAILED
==== textDisp-11.4 TkTextSetYView FAILED
==== Contents of test case:
.t yview 30.0
updateText
.t yview 31.4
updateText
list [.t index @0,0] $tk_textRedraw
---- Result was:
31.0 {39.0 40.0}
---- Result should have been (exact matching):
31.0 40.0
==== textDisp-11.4 FAILED
==== textDisp-11.8 TkTextSetYView FAILED
==== Contents of test case:
.t yview 30.0
updateText
set tk_textRedraw {}
.t yview -pickplace 41.0
updateText
list [.t index @0,0] $tk_textRedraw
---- Result was:
32.0 {39.0 40.0 41.0}
---- Result should have been (exact matching):
32.0 {40.0 41.0}
==== textDisp-11.8 FAILED
==== textDisp-11.9 TkTextSetYView FAILED
==== Contents of test case:
.t yview 30.0
updateText
set tk_textRedraw {}
.t yview -pickplace 43.0
updateText
list [.t index @0,0] $tk_textRedraw
---- Result was:
38.0 {39.0 40.0 41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0}
---- Result should have been (exact matching):
38.0 {40.0 41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0}
==== textDisp-11.9 FAILED
==== textDisp-11.12 TkTextSetYView, wrapped line is off-screen FAILED
==== Contents of test case:
.t insert 10.0 "Long line with enough text to wrap\n"
.t yview 1.0
updateText
set tk_textRedraw {}
.t see 10.30
updateText
list [.t index @0,0] $tk_textRedraw
---- Result was:
2.0 {10.0 10.20}
---- Result should have been (exact matching):
2.0 10.20
==== textDisp-11.12 FAILED
==== textDisp-24.25 TkTextCharLayoutProc, justification and tabs FAILED
==== Contents of test case:
.tt insert end \t9\n\t99\n\t999
updateText
list [.tt bbox 1.1] [.tt bbox 2.2] [.tt bbox 3.3]
---- Result was:
{38 5 7 13} {38 18 7 13} {38 31 7 13}
---- Result should have been (exact matching):
{38 5 7 13} {38 20 7 13} {38 35 7 13}
==== textDisp-24.25 FAILED
textImage.test
textIndex.test
textMark.test
textTag.test
textWind.test
tk.test
unixButton.test
unixEmbed.test
==== unixEmbed-7.1a TkpRedirectKeyEvent procedure, forward keystroke FAILED
==== Contents of test case:
deleteWindows
frame .f1 -container 1 -width 200 -height 50
pack .f1
slave alias w1 winfo id .f1
slave eval {
destroy [winfo child .]
toplevel .t1 -use [w1]
}
focus -force .
bind . <KeyPress> {lappend x {key %A %E}}
set x {}
set y [slave eval {
update
bind .t1 <KeyPress> {lappend y {key %A}}
set y {}
event generate .t1 <KeyPress> -keysym a
set y
}]
update
list $x $y
---- Result was:
{} {}
---- Result should have been (exact matching):
{{key a 1}} {}
==== unixEmbed-7.1a FAILED
==== unixEmbed-8.1 TkpClaimFocus procedure FAILED
==== Contents of test case:
frame .f1 -container 1 -width 200 -height 50
frame .f2 -width 200 -height 50
pack .f1 .f2
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
}
focus -force .f2
update
list [dobg {
focus .t1
set x [list [focus]]
update
after 500
update
lappend x [focus]
}] [focus]
---- Result was:
{.t1 .t1} .f2
---- Result should have been (exact matching):
{{} .t1} .f1
==== unixEmbed-8.1 FAILED
unixFont.test
==== 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:
21
---- 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:
15
---- 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 1 2 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 1 2 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-9.3 TkWmMapWindow procedure, iconic windows FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 100 -height 300 -bg blue
wm geom .t +0+0
wm iconify .t
sleep 500
winfo ismapped .t
---- Result was:
1
---- Result should have been (exact matching):
0
==== unixWm-9.3 FAILED
==== unixWm-44.7 UpdateGeometryInfo procedure, computing position FAILED
==== Contents of test case:
tkwait visibility .t
wm overrideredirect .t 1
update
wm geometry .t +5-10
update
list [winfo x .t] [winfo y .t]
---- Result was:
5 1327
---- Result should have been (exact matching):
5 1348
==== unixWm-44.7 FAILED
==== unixWm-44.8 UpdateGeometryInfo procedure, computing position FAILED
==== Contents of test case:
tkwait visibility .t
wm overrideredirect .t 1
update
wm geometry .t -30+$Y2
update
list [winfo x .t] [winfo y .t]
---- Result was:
2450 3
---- Result should have been (exact matching):
2450 2
==== unixWm-44.8 FAILED
==== unixWm-45.2 UpdateSizeHints procedure FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 80 -height 60
wm minsize .t 30 40
wm maxsize .t 200 500
wm geometry .t +0+0
tkwait visibility .t
set property [testprop [testwrapper .t] WM_NORMAL_HINTS]
list [expr [lindex $property 5]] [expr [lindex $property 6]]
[expr [lindex $property 7]] [expr [lindex $property 8]] [expr [lindex
$property 9]] [expr [lindex $property 10]]
---- Result was:
30 40 200 500 0 0
---- Result should have been (exact matching):
30 40 200 500 1 1
==== unixWm-45.2 FAILED
==== unixWm-45.4 UpdateSizeHints procedure, not resizable with menu FAILED
==== Contents of test case:
destroy .t
toplevel .t -width 80 -height 60
frame .t.menu -height 23 -width 50
testmenubar window .t .t.menu
wm resizable .t 0 0
wm geometry .t +0+0
tkwait visibility .t
set property [testprop [testwrapper .t] WM_NORMAL_HINTS]
list [winfo height .t] [expr [lindex $property 5]] [expr [lindex
$property 6]] [expr [lindex $property 7]] [expr [lindex $property 8]]
[expr [lindex $property 9]] [expr [lindex $property 10]]
---- Result was:
60 80 83 80 83 0 0
---- Result should have been (exact matching):
60 80 83 80 83 1 1
==== unixWm-45.4 FAILED
==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a toplevel,
x-coords, title bar FAILED
==== Contents of test case:
update
toplevel .t -width 300 -height 400 -bg green
wm geom .t +100+100
tkwait visibility .t
toplevel .t2 -width 100 -height 200 -bg red
wm geom .t2 +200+200
tkwait visibility .t2
raise .t2
update
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 + 150] [expr $y + 90]] [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 .t2 {} .t2 .t .t
---- Result should have been (exact matching):
{} {} .t {} .t2 {} .t2 {} .t
==== unixWm-50.1 FAILED
==== unixWm-51.7 TkWmRestackToplevel procedure, other window isn't mapped FAILED
==== Contents of test case:
foreach w {.t .t2 .t3} {
destroy $w
update
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
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-9.7 "winfo viewable" command FAILED
==== Contents of test case:
frame .f1 -width 100 -height 100 -relief raised -bd 2
place .f1 -x 0 -y 0
frame .f1.f2 -width 50 -height 50 -relief raised -bd 2
place .f1.f2 -x 0 -y 0
update
wm iconify .
list [winfo viewable .f1] [winfo viewable .f1.f2]
---- Result was:
1 1
---- Result should have been (exact matching):
0 0
==== winfo-9.7 FAILED
wm.test
==== wm-stackorder-5.2 A normal toplevel can't be raised above an
overrideredirect toplevel on unix FAILED
==== Contents of test case:
toplevel .t
tkwait visibility .t
wm overrideredirect .t 1
raise .
update
raiseDelay
wm stackorder . isabove .t
---- Result was:
1
---- Result should have been (exact matching):
0
==== wm-stackorder-5.2 FAILED
==== wm-stackorder-5.3 An overrideredirect window can be explicitly
lowered FAILED
==== Contents of test case:
toplevel .t
tkwait visibility .t
wm overrideredirect .t 1
lower .t
update
raiseDelay
wm stackorder .t isbelow .
---- Result was:
0
---- Result should have been (exact matching):
1
==== wm-stackorder-5.3 FAILED
==== wm-transient-4.1 transient toplevel is withdrawn
when mapped if master is iconic FAILED
==== Contents of test case:
toplevel .master
wm iconify .master
update
toplevel .subject
wm transient .subject .master
update
list [wm state .subject] [winfo ismapped .subject]
---- Result was:
normal 1
---- Result should have been (exact matching):
withdrawn 0
==== wm-transient-4.1 FAILED
==== wm-transient-8.1 transient to withdrawn window, Bug 1163496 FAILED
==== Contents of test case:
# Verifies that transients stay on top of their masters, even if they were
# made transients when those masters were withdrawn.
toplevel .t1; wm withdraw .t1; update
toplevel .t2; wm transient .t2 .t1; update
lappend result [winfo ismapped .t1] [winfo ismapped .t2]
wm deiconify .t1; update
lappend result [winfo ismapped .t1] [winfo ismapped .t2]
raise .t1; update
lappend result [lsearch -all -inline -glob [wm stackorder .] ".t?"]
---- Result was:
0 0 1 1 {.t2 .t1}
---- Result should have been (exact matching):
0 0 1 1 {.t1 .t2}
==== wm-transient-8.1 FAILED
xmfbox.test
|
