From 82c0f22cafd14e609652d215455a22cb5ed7b847 Mon Sep 17 00:00:00 2001
From: Andreas Wacknitz <A.Wacknitz@gmx.de>
Date: Sun, 27 Nov 2022 16:40:11 +0100
Subject: [PATCH] tk-8: update to 8.6.13
---
components/tcl/tk/test/results-32-i386.master | 1395 ----------------------------------------------------------
1 files changed, 3 insertions(+), 1,392 deletions(-)
diff --git a/components/tcl/tk/test/results-32-i386.master b/components/tcl/tk/test/results-32-i386.master
index d0bdaf6..c576b87 100644
--- a/components/tcl/tk/test/results-32-i386.master
+++ b/components/tcl/tk/test/results-32-i386.master
@@ -1,1395 +1,6 @@
-Tests running in interp: $(@D)/tktest
-Tests located in: $(SOURCE_DIR)/tests
-Tests running in: $(@D)
-Temporary files stored in $(@D)
-Test files sourced into current interpreter
-Running tests that match: *
-Skipping test files that match: l.*.test
-Only running test files that match: *.test
-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:
-{-8 -17 13 22,-9 -18 12 21} {-17 -9 22 12,-18 -8 21 13} {-8 -17 13 22,-17 -9 22 12}
----- Result should have been (exact matching):
-ok ok ok
-==== canvText-20.1 FAILED
-
-canvWind.test
-canvas.test
-choosedir.test
-clipboard.test
-clrpick.test
-
-
-==== clrpick-2.3 tk_chooseColor command FAILED
-==== Contents of test case:
-
- ToPressButton . ok
- tk_chooseColor -parent . -title "Press OK"
-
----- Result was:
-#d9d9d9
----- Result should have been (exact matching):
-#808040
-==== clrpick-2.3 FAILED
-
-cmds.test
-color.test
-config.test
-cursor.test
-dialog.test
-embed.test
-entry.test
-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:
-{} {}
----- 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
-
-
-==== font-4.9 font command: actual FAILED
-==== Contents of test case:
-
- # (objc > 3) so objPtr = objv[3 + skip]
- string tolower [font actual {-family times} -family]
-
----- Result was:
-liberation serif
----- Result should have been (exact matching):
-times
-==== font-4.9 FAILED
-
-
-
-==== font-8.4 font command: families FAILED
-==== Contents of test case:
-
- # TkpGetFontFamilies()
- regexp -nocase times [font families]
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== font-8.4 FAILED
-
-
-
-==== font-21.6 Tk_PostscriptFontName procedure: spaces FAILED
-==== Contents of test case:
-
- psfontname "{new century schoolbook} 10"
-
----- Result was:
-DejavuSans
----- Result should have been (exact matching):
-NewCenturySchlbk-Roman
-==== font-21.6 FAILED
-
-
-
-==== font-44.1 TkFontGetPixels: size < 0 FAILED
-==== Contents of test case:
-
- tk scaling 0.5
- font actual {times -12} -size
-
----- Result was:
-9
----- Result should have been (exact matching):
-24
-==== font-44.1 FAILED
-
-fontchooser.test
-frame.test
-geometry.test
-get.test
-grab.test
-grid.test
-image.test
-imgBmap.test
-imgPNG.test
-imgPPM.test
-imgPhoto.test
-listbox.test
-main.test
-menu.test
-menuDraw.test
-menubut.test
-message.test
-msgbox.test
-obj.test
-oldpack.test
-option.test
-pack.test
-
-
-==== pack-18.1 unmap content when container 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
-
- # On the PC, when the width/height is configured while the window is
- # unmapped, the changes don't take effect until the window is remapped.
- # Who knows why?
-
- eval destroy [winfo child .pack]
- frame .pack.a -width 100 -height 50 -relief raised -bd 2
- pack .pack.a
- update idletasks
- set result [winfo ismapped .pack.a]
- wm iconify .pack
- lappend result [winfo ismapped .pack.a]
- .pack.a configure -width 200 -height 75
- update idletasks
- lappend result [winfo width .pack.a ] [winfo height .pack.a] [winfo ismapped .pack.a]
- wm deiconify .pack
- packUpdate
- lappend result [winfo ismapped .pack.a]
-
----- Result was:
-1 1 200 75 1 1
----- Result should have been (exact matching):
-1 0 200 75 0 1
-==== pack-18.1 FAILED
-
-
-
-==== pack-18.2 unmap content when container 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 idletasks
- set result [winfo ismapped .pack.b]
- wm iconify .pack
- lappend result [winfo ismapped .pack.b]
- .pack.b configure -width 100 -height 30
- update idletasks
- lappend result [winfo width .pack.b ] [winfo height .pack.b] [winfo ismapped .pack.b]
- wm deiconify .pack
- packUpdate
- 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.1 PlaceStructureProc, mapping and unmapping content FAILED
-==== Contents of test case:
-
- place .t.f2 -relx 1.0 -rely 1.0 -anchor sw
- update idletasks
- set result [winfo ismapped .t.f2]
- wm iconify .t
- lappend result [winfo ismapped .t.f2]
- place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw
- update idletasks
- lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2]
- wm deiconify .t
- placeUpdate
- lappend result [winfo ismapped .t.f2]
-
----- Result was:
-1 1 40 30 1 1
----- Result should have been (exact matching):
-1 0 40 30 0 1
-==== place-8.1 FAILED
-
-
-
-==== place-8.2 PlaceStructureProc, mapping and unmapping content 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 idletasks
- set result [winfo ismapped .t.f2]
- wm iconify .t
- lappend result [winfo ismapped .t.f2]
- place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw
- update idletasks
- lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2]
- wm deiconify .t
- placeUpdate
- 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-19.18 count -ypixels with indices in elided lines FAILED
-==== Contents of test case:
-
- .t configure -wrap none
- .t delete 1.0 end
- for {set i 1} {$i < 100} {incr i} {
- .t insert end [string repeat "Line $i" 20]
- .t insert end "\n"
- }
- .t tag add hidden 5.15 20.15
- .t tag configure hidden -elide true
- .t yview 35.0
- set res {}
- update
- lappend res [.t count -ypixels 5.0 25.0]
- .t yview scroll [expr {- 15 * $fixedHeight}] pixels
- updateText
- lappend res [.t count -ypixels 5.0 25.0]
-
----- Result was:
-300 300
----- Result should have been (exact matching):
-75 75
-==== textDisp-19.18 FAILED
-
-
-
-==== textDisp-20.1 FindDLine FAILED
-==== Contents of test case:
-
- .t yview 48.0
- list [.t dlineinfo 46.0] [.t dlineinfo 47.0] [.t dlineinfo 49.0] [.t dlineinfo 58.0]
-
----- Result was:
-{} {} {3 18 49 15 11} {}
----- Result should have been (exact matching):
-{} {} {3 18 49 15 12} {}
-==== textDisp-20.1 FAILED
-
-
-
-==== textDisp-20.2 FindDLine FAILED
-==== Contents of test case:
-
- .t yview 100.0
- .t yview -pickplace 53.0
- list [.t dlineinfo 50.0] [.t dlineinfo 50.14] [.t dlineinfo 50.21]
-
----- Result was:
-{3 -2 140 15 11} {3 -2 140 15 11} {3 13 133 15 11}
----- Result should have been (exact matching):
-{3 -2 140 15 12} {3 -2 140 15 12} {3 13 133 15 12}
-==== textDisp-20.2 FAILED
-
-
-
-==== textDisp-20.3 FindDLine FAILED
-==== Contents of test case:
-
- .t yview 100.0
- .t yview 49.0
- list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 57.0]
-
----- Result was:
-{3 18 140 15 11} {3 33 133 15 11} {}
----- Result should have been (exact matching):
-{3 18 140 15 12} {3 33 133 15 12} {}
-==== textDisp-20.3 FAILED
-
-
-
-==== textDisp-20.4 FindDLine FAILED
-==== Contents of test case:
-
- .t yview 100.0
- .t yview 42.0
- list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 50.40]
-
----- Result was:
-{3 123 140 15 11} {3 138 133 15 11} {}
----- Result should have been (exact matching):
-{3 123 140 15 12} {3 138 133 15 12} {}
-==== textDisp-20.4 FAILED
-
-
-
-==== textDisp-20.5 FindDLine FAILED
-==== Contents of test case:
-
- .t yview 100.0
- .t yview 48.0
- list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40]
-
----- Result was:
-{3 33 371 15 11} {3 33 371 15 11} {3 33 371 15 11}
----- Result should have been (exact matching):
-{3 33 371 15 12} {3 33 371 15 12} {3 33 371 15 12}
-==== textDisp-20.5 FAILED
-
-textImage.test
-textIndex.test
-textMark.test
-textTag.test
-textWind.test
-
-
-==== textWind-10.7 EmbWinLayoutProc procedure, error in creating window FAILED
-==== Contents of test case:
-
- .t insert 1.0 "Some sample text"
- .t window create 1.5 -create {
- toplevel .t2 -width 100 -height 150
- wm geom .t2 +0+0
- concat .t2
- }
- set msg {}
- update
- lappend msg [.t bbox 1.5]
-
----- Result was:
-{{can't embed .t2 relative to .t}} {40 12 0 0}
----- Result should have been (exact matching):
-{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}} {40 12 0 0}
-==== textWind-10.7 FAILED
-
-tk.test
-unixButton.test
-unixEmbed.test
-
-
-==== 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
-
-
-
-==== unixEmbed-10.1 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED
-==== Contents of test case:
-
- frame .f1 -container 1 -width 200 -height 50
- pack .f1
- update idletasks
- toplevel .t1 -use [winfo id .f1] -width 150 -height 80
- update idletasks
- wm geometry .t1 +40+50
- update idletasks
- wm geometry .t1
-
----- Result was:
-1x1+0+0
----- Result should have been (exact matching):
-150x80+0+0
-==== unixEmbed-10.1 FAILED
-
-
-
-==== unixEmbed-10.2 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED
-==== Contents of test case:
-
- frame .f1 -container 1 -width 200 -height 50
- pack .f1
- update idletasks
- toplevel .t1 -use [winfo id .f1] -width 150 -height 80
- update idletasks
- wm geometry .t1 70x300+10+20
- update idletasks
- wm geometry .t1
-
----- Result was:
-1x1+0+0
----- Result should have been (exact matching):
-70x300+0+0
-==== unixEmbed-10.2 FAILED
-
-unixFont.test
-
-
-==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
-==== Contents of test case:
-
- font measure fixed 0
-
----- Result was:
-11
----- Result should have been (exact matching):
-6
-==== unixfont-1.2 FAILED
-
-
-
-==== unixfont-2.2 TkpGetFontFromAttributes procedure: Times relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Times New Roman"}] 1]
- lappend x [lindex [font actual {-family "New York"}] 1]
- lappend x [lindex [font actual {-family "Times"}] 1]
-
----- Result was:
-{Liberation Serif} {DejaVu Sans} {Liberation Serif}
----- Result should have been (exact matching):
-times times times
-==== unixfont-2.2 FAILED
-
-
-
-==== unixfont-2.3 TkpGetFontFromAttributes procedure: Courier relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Courier New"}] 1]
- lappend x [lindex [font actual {-family "Monaco"}] 1]
- lappend x [lindex [font actual {-family "Courier"}] 1]
-
----- Result was:
-{Liberation Mono} {DejaVu Sans} Courier
----- Result should have been (exact matching):
-courier courier courier
-==== unixfont-2.3 FAILED
-
-
-
-==== unixfont-2.4 TkpGetFontFromAttributes procedure: Helvetica relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Arial"}] 1]
- lappend x [lindex [font actual {-family "Geneva"}] 1]
- lappend x [lindex [font actual {-family "Helvetica"}] 1]
-
----- Result was:
-{Liberation Sans} {DejaVu Sans} {Liberation Sans}
----- Result should have been (exact matching):
-helvetica helvetica helvetica
-==== unixfont-2.4 FAILED
-
-
-
-==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED
-==== Contents of test case:
-
- lindex [font actual {-family fixed -size 10}] 1
-
----- Result was:
-DejaVu Sans
----- 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:
-DejaVu Sans
----- 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-5.8 Tk_MeasureChars procedure: internal spaces significant FAILED
-==== Contents of test case:
-
- .b.l config -text "00 000 00000"
- getsize
-
----- Result was:
-65 40
----- Result should have been (exact matching):
-77 40
-==== unixfont-5.8 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-5.12 Tk_MeasureChars procedure: include eol spaces FAILED
-==== Contents of test case:
-
- .b.l config -text "000 \n000"
- getsize
-
----- Result was:
-48 40
----- Result should have been (exact matching):
-66 40
-==== unixfont-5.12 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:
-32
----- 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:
-22
----- 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 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 1 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-8.4 icon windows FAILED
-==== Contents of test case:
-
- destroy .t
- destroy .icon
- toplevel .t -width 100 -height 30
- wm geom .t +0+0
- update idletasks
- set result [wm iconwindow .t]
- toplevel .icon -width 50 -height 50 -bg red
- wm iconwindow .t .icon
- lappend result [wm iconwindow .t] [wm state .icon]
- wm iconwindow .t {}
- lappend result [wm iconwindow .t] [wm state .icon]
- update
- lappend result [winfo ismapped .t] [winfo ismapped .icon]
- wm iconify .t
- update idletasks
- lappend result [winfo ismapped .t] [winfo ismapped .icon]
-
----- Result was:
-.icon icon {} withdrawn 1 0 1 0
----- Result should have been (exact matching):
-.icon icon {} withdrawn 1 0 0 0
-==== unixWm-8.4 FAILED
-
-
-
-==== unixWm-16.3 Tk_WmCmd procedure, "deiconify" option FAILED
-==== Contents of test case:
-
- wm iconify .t
- set result {}
- lappend result [winfo ismapped .t] [wm state .t]
- wm deiconify .t
- lappend result [winfo ismapped .t] [wm state .t]
-
----- Result was:
-1 normal 1 normal
----- Result should have been (exact matching):
-0 iconic 1 normal
-==== unixWm-16.3 FAILED
-
-
-
-==== unixWm-23.5 Tk_WmCmd procedure, "iconify" option FAILED
-==== Contents of test case:
-
- destroy .t2
- toplevel .t2
- wm geom .t2 +0+0
- update idletasks
- wm iconify .t2
- update idletasks
- set result [winfo ismapped .t2]
- destroy .t2
- set result
-
----- Result was:
-1
----- Result should have been (exact matching):
-0
-==== unixWm-23.5 FAILED
-
-
-
-==== unixWm-23.6 Tk_WmCmd procedure, "iconify" option FAILED
-==== Contents of test case:
-
- destroy .t2
- toplevel .t2
- wm geom .t2 -0+0
- update idletasks
- set result [winfo ismapped .t2]
- wm iconify .t2
- update idletasks
- lappend result [winfo ismapped .t2]
- destroy .t2
- set result
-
----- Result was:
-1 1
----- Result should have been (exact matching):
-1 0
-==== unixWm-23.6 FAILED
-
-
-
-==== unixWm-42.1 WrapperEventProc procedure, map and unmap events FAILED
-==== Contents of test case:
-
- destroy .t
- toplevel .t -width 400 -height 150
- wm geometry .t +0+0
- tkwait visibility .t
- set result {}
- bind .t <Map> {set x "mapped"}
- bind .t <Unmap> {set x "unmapped"}
- set x {no event}
- wm iconify .t
- update idletasks
- lappend result $x [winfo ismapped .t]
- set x {no event}
- wm deiconify .t
- update idletasks
- lappend result $x [winfo ismapped .t]
-
----- Result was:
-{no event} 1 {no event} 1
----- Result should have been (exact matching):
-unmapped 0 mapped 1
-==== unixWm-42.1 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 .t .t2 .t .t
----- Result should have been (exact matching):
-{} {} .t {} .t2 {} .t2 {} .t
-==== unixWm-50.1 FAILED
-
-
-
-==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED
-==== Contents of test case:
-
- destroy .t
- destroy .t2
- 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
- update idletasks
- lappend result [winfo containing 100 100]
-
----- Result was:
-.t2 .t2
----- Result should have been (exact matching):
-.t2 .t
-==== unixWm-50.9 FAILED
-
-util.test
-visual.test
-visual_bb.test
-winButton.test
-winClipboard.test
-winDialog.test
-winFont.test
-winMenu.test
-winMsgbox.test
-winSend.test
-winWm.test
-
-
-==== winWm-9.2 check wm forget for unmapped parent (#3205464,#2967911) FAILED
-==== Contents of test case:
-
- pack .t.f.x
- pack .t.f
- lappend aid [after 5000 {set ::winwm92 timeout}] [after 500 {
- wm manage .t.f
- wm iconify .t
- lappend aid [after 500 {
- wm forget .t.f
- wm deiconify .t
- lappend aid [after 500 {
- pack .t.f
- lappend aid [after 500 {
- set ::winwm92 [expr {
- [winfo rooty .t.f.x] == 0 ? "failed" : "ok"}]}]
- }]
- }]
- }]
- vwait ::winwm92
- foreach id $aid {
- after cancel $id
- }
- set winwm92
-
----- Result was:
-failed
----- Result should have been (exact matching):
-ok
-==== winWm-9.2 FAILED
-
-window.test
-winfo.test
-
-
-==== winfo-9.4 "winfo viewable" command FAILED
-==== Contents of test case:
-
- wm iconify .
- winfo viewable .
-
----- Result was:
-1
----- Result should have been (exact matching):
-0
-==== winfo-9.4 FAILED
-
-
-
-==== 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-iconify-3.1 iconify behavior FAILED
-==== Contents of test case:
-
- toplevel .t2
- wm geom .t2 -0+0
- update idletasks
- set result [winfo ismapped .t2]
- wm iconify .t2
- update idletasks
- lappend result [winfo ismapped .t2]
-
----- Result was:
-1 1
----- Result should have been (exact matching):
-1 0
-==== wm-iconify-3.1 FAILED
-
-
-
-==== wm-stackorder-3.1 unmapped toplevel FAILED
-==== Contents of test case:
-
- toplevel .t1 ; update
- toplevel .t2 ; update
- wm iconify .t1
- wm stackorder .
-
----- Result was:
-. .t1 .t2
----- Result should have been (exact matching):
-. .t2
-==== wm-stackorder-3.1 FAILED
-
-
-
-==== 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-transient-4.1 transient toplevel is withdrawn
- when mapped if toplevel is iconic FAILED
-==== Contents of test case:
-
- toplevel .top
- wm iconify .top
- update
- toplevel .subject
- wm transient .subject .top
- 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-4.2 already mapped transient toplevel
- is withdrawn if toplevel is iconic FAILED
-==== Contents of test case:
-
- toplevel .top
- raiseDelay
- wm iconify .top
- update idletasks
- toplevel .subject
- update idletasks
- wm transient .subject .top
- update idletasks
- list [wm state .subject] [winfo ismapped .subject]
-
----- Result was:
-normal 1
----- Result should have been (exact matching):
-withdrawn 0
-==== wm-transient-4.2 FAILED
-
-
-
-==== wm-transient-4.3 iconify/deiconify on the toplevel
- does a withdraw/deiconify on the transient FAILED
-==== Contents of test case:
-
- toplevel .top
- toplevel .subject
- update idletasks
- wm transient .subject .top
- wm iconify .top
- update idletasks
- lappend results [wm state .subject] [winfo ismapped .subject]
- wm deiconify .top
- update idletasks
- lappend results [wm state .subject] [winfo ismapped .subject]
-
----- Result was:
-normal 1 normal 1
----- Result should have been (exact matching):
-withdrawn 0 normal 1
-==== wm-transient-4.3 FAILED
-
-
-
-==== wm-transient-8.1 transient to withdrawn window, Bug 1163496 FAILED
-==== Contents of test case:
-
- # Verifies that transients stay on top of their toplevels, even if they were
- # made transients when those toplevels 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
-
-
-
-==== wm-state-2.8 state change after map FAILED
-==== Contents of test case:
-
- toplevel .t
- update
- wm state .t iconic
- wm state .t
-
----- Result was:
-normal
----- Result should have been (exact matching):
-iconic
-==== wm-state-2.8 FAILED
-
-
-
-==== wm-state-2.9 state change after map FAILED
-==== Contents of test case:
-
- toplevel .t
- update
- wm iconify .t
- wm state .t
-
----- Result was:
-normal
----- Result should have been (exact matching):
-iconic
-==== wm-state-2.9 FAILED
-
-xmfbox.test
-
-all.tcl: Total 9661 Passed 8656 Skipped 940 Failed 65
+all.tcl: Total 9681 Passed 8943 Skipped 663 Failed 75
Sourced 92 Test Files.
-Files with failing tests: canvText.test clrpick.test focus.test font.test pack.test place.test scrollbar.test textDisp.test textWind.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test
-Number of tests skipped for each constraint:
- 1
- !havePseudocolorVisual
-
- 14 altDisplay
- 29 aqua
- 5 aquaOrWin32
- 1 cliboardManagerPresent
- 10 emptyTest
- 125 fonts
- 1 fullutf
- 2 haveTruecolor24
- 7 knownBug
- 1 memory
- 136 nonPortable
- 63 nt
- 2 pressbutton
- 11 testmetrics
- 7 testwinevent
- 133 textfonts
- 1 userInteraction
- 340 win
- 51 winSend
-
-Tests running in interp: $(@D)/tktest
-Tests located in: $(SOURCE_DIR)/tests/ttk
-Tests running in: $(@D)
-Temporary files stored in $(@D)
-Test files sourced into current interpreter
-Running tests that match: *
-Skipping test files that match: l.*.test
-Only running test files that match: *.test
-checkbutton.test
-combobox.test
-entry.test
-
-
-==== entry-2.1.1 Create entry before scrollbar - scrollbar catches up FAILED
-==== Contents of test case:
-
- pack [ttk::entry .te -xscrollcommand [list .tsb set]] -expand true -fill both
- .te insert end [string repeat "abc" 50]
- catch {update} ; # error triggers because the -xscrollcommand callback
- # errors out: invalid command name ".tsb"
- pack [ttk::scrollbar .tsb -orient horizontal -command [list .te xview]] -expand false -fill x
- update ; # no error
- lappend res [expr [lindex [.tsb get] 1] < 1] ; # scrollbar did update
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== entry-2.1.1 FAILED
-
-image.test
-labelframe.test
-layout.test
-notebook.test
-panedwindow.test
-progressbar.test
-radiobutton.test
-scrollbar.test
-spinbox.test
-treetags.test
-treeview.test
-ttk.test
-validate.test
-vsapi.test
-
-all.tcl: Total 488 Passed 470 Skipped 17 Failed 1
+Files with failing tests: canvText.test clrpick.test entry.test focus.test font.test listbox.test pack.test panedwindow.test place.test scrollbar.test spinbox.test text.test textImage.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test
+all.tcl: Total 496 Passed 478 Skipped 17 Failed 1
Sourced 17 Test Files.
Files with failing tests: entry.test
-Number of tests skipped for each constraint:
- 2 NA
- 4 coreEntry
- 3 coreScrollbar
- 5 nyi
- 3 xpnative
--
Gitblit v1.9.3