Re: [TCLCORE] Tk 9.0.2 Release Candidate

[Harald O. <har...@el...>]

Am 26.06.2025 um 20:16 schrieb Donald G Porter via Tcl-Core:
> 
> Now available at
> 
> https://sourceforge.net/projects/tcl/files/Tcl/9.0.2/
> 
> is an RC0 candidate source code distribution pre-release of Tk 9.0.2
Thanks, great. Here is the test result with:
MS-WIN 11 64bit GER,MS-VS2022.

TCL&Tk&bundled packages:Build and install: clean
Test with large application: ok

Test suite:
TCL: only test exec-bug-4f0b5767ac fails.

This is due to a localization issue.
The winget returns a German message, while the test result expects an 
English one, see below. Probably, only the word "Windows" may be tested...

==== exec-bug-4f0b5767ac exec App Execution Alias FAILED
==== Contents of test case:

     exec winget --info

---- Result was:
Windows-Paket-Manager v1.11.400
...
---- Result should have been (glob matching):
Windows Package Manager*
==== exec-bug-4f0b5767ac FAILED

Tk test is more complicated.
I had to press the enter button in one dialog test and there was a bg 
error message box. 18 tests failed.
I suppose, I am working on my laptop in a hotel and the scaling factor 
is quite custom. The scaling is set in the windows system to 150%.

The test report is as follows:

==== frame-12.3 FrameWorldChanged procedure FAILED
==== Contents of test case:

     # Check reaction on font change
     font create myfont -family courier -size 10
     labelframe .f -font myfont -text Mupp
     place .f -x 0 -y 0 -width 40 -height 40
     pack [frame .f.f] -fill both -expand 1
     update
     set h1 [font metrics myfont -linespace]
     set y1 [winfo y .f.f]
     font configure myfont -size 20
     update  ; # services the "TheWorldHasChanged" event, queues 
"TkWorldChanged" events
     update  ; # services the queued "TkWorldChanged" events
     set h2 [font metrics myfont -linespace]
     set y2 [winfo y .f.f]
     expr {($h2 - $h1) - ($y2 - $y1)}

---- Result was:
20
---- Result should have been (exact matching):
0
==== frame-12.3 FAILED

==== frame-14.1 labelframe labelwidget option FAILED
==== Contents of test case:

     # Test that label is moved in stacking order
     label .l -text Mupp -font {helvetica 8}
     labelframe .f -labelwidget .l
     pack .f
     frame .f.f -width 50 -height 50
     pack .f.f
     update
     list [winfo children .] [winfo width .f]  [expr {[winfo height .f] 
- [winfo height .l]}]

---- Result was:
{.f .l} 57 52
---- Result should have been (exact matching):
{.f .l} 54 52
==== frame-14.1 FAILED

==== grid-16.11 layout uniform (shrink) FAILED
==== Contents of test case:

     frame .f1 -width 75 -height 50
     frame .f2 -width 100 -height 95
     grid .f1 .f2 -sticky news
     grid columnconfigure . {0 1} -uniform a
     grid columnconfigure . 0 -weight 1
     update
     set res {}
     lappend res [grid bbox . 0 0] [grid bbox . 1 0]
     grid propagate . 0
     . configure -width 150 -height 95
     update
     lappend res [grid bbox . 0 0] [grid bbox . 1 0]

---- Result was:
{0 0 100 95} {100 0 100 95} {0 0 76 95} {76 0 100 95}
---- Result should have been (exact matching):
{0 0 100 95} {100 0 100 95} {0 0 50 95} {50 0 100 95}
==== grid-16.11 FAILED

==== grid-16.13 layout span FAILED
==== Contents of test case:

     frame .f1 -width 24 -height 20
     frame .f2 -width 38 -height 20
     frame .f3 -width 150 -height 20
     grid .f1 - - .f2
     grid .f3 - - -
     set res {}
     foreach w {{0 1 0 0} {0 0 1 0} {1 3 4 0} {1 2 1 2} {1 1 1 12}} {
	for {set c 0} {$c < 4} {incr c} {
	    grid columnconfigure . $c -weight [lindex $w $c]
	}
	update
	set res2 {}
	for {set c 0} {$c <= 4} {incr c} {
	    lappend res2 [lindex [grid bbox . $c 0] 2]
	}
	lappend res $res2
     }
     return $res
     # The last result below should ideally be 8 8 8 126 but the current
     # implementation is not exact enough.

---- Result was:
{0 138 0 38 0} {0 0 138 38 0} {17 52 69 38 0} {22 47 22 85 0} {8 10 11 
147 0}
---- Result should have been (exact matching):
{0 112 0 38 0} {0 0 112 38 0} {14 42 56 38 0} {18 38 18 76 0} {7 8 9 126 0}
==== grid-16.13 FAILED

==== grid-16.14 layout span FAILED
==== Contents of test case:

     frame .f1 -width 110 -height 20
     frame .f2 -width 38 -height 20
     frame .f3 -width 150 -height 20
     grid .f1 - - .f2
     grid .f3 - - -
     set res {}
     foreach w {{0 1 0 0} {0 0 1 0} {1 3 4 0} {1 2 1 3} {1 1 1 12}} {
	for {set c 0} {$c < 4} {incr c} {
	    grid columnconfigure . $c -weight [lindex $w $c]
	}
	update
	set res2 {}
	for {set c 0} {$c <= 4} {incr c} {
	    lappend res2 [lindex [grid bbox . $c 0] 2]
	}
	lappend res $res2
     }
     return $res

---- Result was:
{0 138 0 38 0} {0 0 138 38 0} {17 52 69 38 0} {30 63 31 52 0} {37 39 39 
61 0}
---- Result should have been (exact matching):
{0 112 0 38 0} {0 0 112 38 0} {14 42 56 38 0} {27 55 28 40 0} {36 37 37 
40 0}
==== grid-16.14 FAILED

==== grid-16.15 layout span FAILED
==== Contents of test case:

     frame .f1 -width 24 -height 20
     frame .f2 -width 38 -height 20
     frame .f3 -width 150 -height 20
     grid .f1 - - .f2
     grid x .f3 - -
     set res {}
     foreach w {{0 1 0 0} {0 0 1 0} {1 0 1 0} {0 0 0 0} {1 0 0 6}} {
	for {set c 0} {$c < 4} {incr c} {
	    grid columnconfigure . $c -weight [lindex $w $c]
	}
	update
	set res2 {}
	for {set c 0} {$c <= 4} {incr c} {
	    lappend res2 [lindex [grid bbox . $c 0] 2]
	}
	lappend res $res2
     }
     return $res

---- Result was:
{0 138 0 38 0} {0 0 138 38 0} {13 0 125 38 0} {0 37 37 76 0} {3 12 12 149 0}
---- Result should have been (exact matching):
{0 112 0 38 0} {0 0 112 38 0} {0 0 112 38 0} {0 37 37 76 0} {0 12 12 126 0}
==== grid-16.15 FAILED

==== grid-16.16 layout span FAILED
==== Contents of test case:

     frame .f1 -width 64 -height 20
     frame .f2 -width 38 -height 20
     frame .f3 -width 150 -height 20
     frame .f4 -width 15 -height 20
     frame .f5 -width 18 -height 20
     frame .f6 -width 20 -height 20
     grid .f1 - x .f2
     grid .f3 - - -
     grid .f4 .f5 .f6
     set res {}
     foreach w {{1 1 5 1} {0 0 1 0} {1 3 4 0} {1 2 1 2} {1 1 1 12}} {
	for {set c 0} {$c < 4} {incr c} {
	    grid columnconfigure . $c -weight [lindex $w $c]
	}
	update
	set res2 {}
	for {set c 0} {$c <= 4} {incr c} {
	    lappend res2 [lindex [grid bbox . $c 0] 2]
	}
	lappend res $res2
     }
     return $res

---- Result was:
{33 37 59 47 0} {30 34 74 38 0} {25 52 61 38 0} {29 48 33 66 0} {31 36 
24 85 0}
---- Result should have been (exact matching):
{30 34 43 43 0} {30 34 48 38 0} {22 42 48 38 0} {25 39 29 57 0} {30 34 
22 64 0}
==== grid-16.16 FAILED

==== grid-18.2 test support for minreqsize FAILED
==== Contents of test case:

     toplevel .pack
     wm geometry .pack {}
     frame .pack.l -width 150 -height 100
     labelframe .pack.lf -labelwidget .pack.l
     pack .pack.lf -fill both -expand 1
     frame .pack.lf.f -width 20 -height 25
     grid .pack.lf.f
     update
     set res [list [winfo geometry .pack.lf]]
     .pack.lf configure -labelanchor ws
     update
     lappend res [winfo geometry .pack.lf]
     destroy .pack
     return $res

---- Result was:
176x127+0+0 176x112+0+0
---- Result should have been (exact matching):
162x127+0+0 172x112+0+0
==== grid-18.2 FAILED

==== pack-19.2 test support for minreqsize FAILED
==== Contents of test case:

     wm geometry .pack {}
     frame .pack.l -width 150 -height 100
     labelframe .pack.lf -labelwidget .pack.l
     pack .pack.lf -fill both -expand 1
     frame .pack.lf.f -width 20 -height 25
     pack .pack.lf.f
     update
     set res [list [winfo geometry .pack.lf]]
     .pack.lf configure -labelanchor ws
     update
     lappend res [winfo geometry .pack.lf]

---- Result was:
176x127+0+0 176x112+0+0
---- Result should have been (exact matching):
162x127+0+0 172x112+0+0
==== pack-19.2 FAILED

==== scrollbar-3.35 ScrollbarWidgetCmd procedure, "fraction" option FAILED
==== Contents of test case:

     format {%.6g} [.s fraction 4 21]

---- Result was:
0
---- Result should have been (exact matching):
-0.0340136
==== scrollbar-3.35 FAILED

==== scrollbar-3.36 ScrollbarWidgetCmd procedure, "fraction" option FAILED
==== Contents of test case:

     format {%.6g} [.s fraction 4 179]

---- Result was:
1
---- Result should have been (exact matching):
1.04082
==== scrollbar-3.36 FAILED

==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option FAILED
==== Contents of test case:

     format {%.6g} [.s fraction 4 178]

---- Result was:
1
---- Result should have been (exact matching):
1.03401
==== scrollbar-3.38 FAILED

==== scrollbar-6.27 ScrollbarPosition procedure FAILED
==== Contents of test case:

     .s identify [expr {[winfo width .s] / 2}] [expr {int(.4 / [.s delta 
0 1])
						 + [testmetrics cyvscroll .s]}]

---- Result was:
slider
---- Result should have been (exact matching):
trough2
==== scrollbar-6.27 FAILED

==== textImage-4.2 alignment checking - baseline FAILED
==== Contents of test case:

     catch {
	image create photo small -width 5 -height 5
	small put red -to 0 0 4 4
	image create photo large -width 50 -height 50
	large put green -to 0 0 50 50
     }
     font create test_font2 -size 5
     text .t -font test_font2 -bd 0 -highlightthickness 0 -padx 0 -pady 0
     pack .t
     .t image create end -image large
     .t image create end -image small -align baseline
     .t insert end test
     update
     # Sizes larger than 25 can be too big and lead to a negative 'norm',
     # at least on Windows XP with certain settings.
     foreach size {10 15 20 25} {
	font configure test_font2 -size $size
	array set Metrics [font metrics test_font2]
	update  ; # services the idle "TheWorldHasChanged" event, queues 
"TkWorldChanged" events
	update  ; # services the queued "TkWorldChanged" events
	foreach {x y w h} [.t bbox small] {}
	set norm [expr {
		(([image height large] - $Metrics(-linespace))/2
		+ $Metrics(-ascent) - [image height small] - $y)
	}]
	lappend result "$size $norm"
     }
     return $result

---- Result was:
{10 0} {15 0} {20 0} {25 -4}
---- Result should have been (exact matching):
{10 0} {15 0} {20 0} {25 0}
==== textImage-4.2 FAILED

==== winDialog-5.16 GetFileName: parent FAILED
==== Contents of test case:

#        case FILE_PARENT:

     toplevel .t
     set x 0
     testDialog launch {tk_getOpenFile -parent .t -title Parent; set x 1}
     testDialog onDisplay {
	destroy .t
     }
     return $x

---- Result was:
0
---- Result should have been (exact matching):
1
==== winDialog-5.16 FAILED

==== winWm-2.4 TkpWmSetState FAILED
==== Contents of test case:

     toplevel .t
     wm geometry .t 150x50+10+10
     update
     lappend result [list [wm state .t] [wm geometry .t]]
     wm iconify .t
     update
     lappend result [list [wm state .t] [wm geometry .t]]
     wm geometry .t 200x50+10+10
     update
     lappend result [list [wm state .t] [wm geometry .t]]
     wm deiconify .t
     update
     lappend result [list [wm state .t] [wm geometry .t]]

---- Result was:
{normal 176x50+10+10} {iconic 176x50+10+10} {iconic 176x50+10+10} 
{normal 200x50+10+10}
---- Result should have been (exact matching):
{normal 150x50+10+10} {iconic 150x50+10+10} {iconic 150x50+10+10} 
{normal 200x50+10+10}
==== winWm-2.4 FAILED

==== winWm-5.1 UpdateGeometryInfo: menu resizing FAILED
==== Contents of test case:

     toplevel .t
     frame .t.f -width 150 -height 50 -background red
     pack .t.f
     update
     set result [winfo height .t]
     menu .t.m
     .t.m add command -label foo
     .t configure -menu .t.m
     update
     lappend result [winfo height .t]
     .t.m add command -label "thisisreallylong"
     .t.m add command -label "thisisreallylong"
     update
     lappend result [winfo height .t]

---- Result was:
50 50 0
---- Result should have been (exact matching):
50 50 31
==== winWm-5.1 FAILED

==== wm-geometry-2.1 setting values FAILED
==== Contents of test case:

     wm geometry .t 150x150+50+50
     update
     set result [wm geometry .t]
     wm geometry .t {}
     update
     return [list $result [string equal [wm geometry .t] $result]]

---- Result was:
176x150+50+50 0
---- Result should have been (glob matching):
150x150+*+* 0
==== wm-geometry-2.1 FAILED

Sorry,
Harald