Re: [TCLCORE] Tcl/Tk 8.6.14 RC 1 macOS 14.3.1 Sonoma on M2

[Alexander S. <a.s...@gm...>]

Tcl 8.6.14rc1
all.tcl:        Total   47015   Passed  43841   Skipped 3174    Failed  0
all.tcl:        Total   792     Passed  726     Skipped 66      Failed  0
all.tcl:        Total   1       Passed  1       Skipped 0       Failed  0
all.tcl:        Total   13      Passed  13      Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   4       Passed  3       Skipped 1       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   161     Passed  158     Skipped 3       Failed  0
all.tcl:        Total   138     Passed  122     Skipped 16      Failed  0
all.tcl:        Total   47015   Passed  43841   Skipped 3174    Failed  0
all.tcl:        Total   792     Passed  726     Skipped 66      Failed  0
all.tcl:        Total   1       Passed  1       Skipped 0       Failed  0
all.tcl:        Total   13      Passed  13      Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   4       Passed  3       Skipped 1       Failed  0
all.tcl:        Total   0       Passed  0       Skipped 0       Failed  0
all.tcl:        Total   161     Passed  158     Skipped 3       Failed  0
all.tcl:        Total   138     Passed  122     Skipped 16      Failed  0

Tk 8.6.14rc1
==== wm-maxsize-1.7 maxsize must be <= screen size FAILED
==== Contents of test case:
    toplevel .t
    lassign [wm maxsize .t] t_width t_height
    set s_width [winfo screenwidth .t]
    set s_height [winfo screenheight .t]
    expr {($t_width <= $s_width) && ($t_height <= $s_height)}
---- Result was:
0
---- Result should have been (exact matching):
1
==== wm-maxsize-1.7 FAILED
all.tcl:        Total   9706    Passed  8498    Skipped 1207    Failed  1
all.tcl:        Total   499     Passed  484     Skipped 15      Failed  0
==== 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
==== wm-maxsize-1.7 maxsize must be <= screen size FAILED
==== Contents of test case:
    toplevel .t
    lassign [wm maxsize .t] t_width t_height
    set s_width [winfo screenwidth .t]
    set s_height [winfo screenheight .t]
    expr {($t_width <= $s_width) && ($t_height <= $s_height)}
---- Result was:
0
---- Result should have been (exact matching):
1
==== wm-maxsize-1.7 FAILED
all.tcl:        Total   9706    Passed  8497    Skipped 1207    Failed  2
all.tcl:        Total   499     Passed  484     Skipped 15      Failed  0