Menu
▾
▴
[TCLCORE] Tk 8.6.15 failures on Windows with 150% scaling and 1920x1080 resolution
|
From: Harald O. <har...@el...> - 2024-09-18 21:58:48
|
Dear Tk team,
I retested tk 8.6.15 on travel, where I only had the small laptop screen.
I had 9 test failures. They are going away with the large screen.
Remark, that the computer should be booted on this screen, not only
switched to it. I think, this makes a difference.
While the test was running, I saw very small characters in text boxes
etc, like 4 points high. When the test is run on the large screen, they
are around 11 points high.
Is this normal behaviour, as some tests need a larger screen?
The failures are below.
MS-VC6.00 32 bit on MS-Win 10 64 bit.
Thank you for all,
Harald
----
==== 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 start
==== 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 start
==== 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-16.17 start
---- grid-16.18 start
---- grid-17.1 start
---- grid-18.1 start
---- grid-18.2 start
==== 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 start
==== 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.37 start
---- scrollbar-3.38 start
==== 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
==== text-10.38 TextWidgetCmd procedure, "count" option FAILED
==== Contents of test case:
.t configure -width 20 -height 10
update
.t insert end [string repeat "abcde " 50]\n
.t insert end [string repeat "fghij " 50]\n
.t insert end [string repeat "klmno " 50]
.t count -lines -chars -indices -displaylines 1.0 end
---- Result was:
3 903 903 39
---- Result should have been (exact matching):
3 903 903 45
==== text-10.38 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
==== 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-3.1 start
---- winWm-4.1 start
---- winWm-5.1 start
==== 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
==== treeview-identify-8 identify element FAILED
==== Contents of test case:
.tv configure -show {tree}
.tv insert branch 0 -id branch2 -open true
.tv insert branch2 0 -id branch3 -open true
.tv insert branch3 0 -id leaf3
ttk::style configure Treeview -indent 8m
update idletasks
identify* .tv {item element} 4m 5m 12m 15m 20m 25m
---- Result was:
branch text branch2 text branch3 text
---- Result should have been (glob matching):
branch *.indicator branch2 *.indicator branch3 *.indicator
==== treeview-identify-8 FAILED
|
