Re: [TCLCORE] Tcl / Tk 8.6.8 Release Candidates

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

Dear Donald,

big christmas present to the community ! Now it compiles well.

Here are the test differences compared to tcl 8.6.7, details below:

New failures:

Tk: imgPNG-3.1, textTag-18.1

Still failing:
Tcl: cmdAH-25.3.1 fCmd-9.9 fCmd-9.11 iortrans-11.1 iortrans-11.2 winFCmd-2.8
iTCL: sfbug-254 sfbug-257
Tk: winfont-2.7 winfont-2.8 winfont-2.9

Thank you, great !

Harald

-- Details --

==== imgPNG-3.1 reading image with unknown ancillary chunk - bug
[1c659ef0f1] FAILED
==== Contents of test case:

    # the image contains an unknown chunk iDOT
    # since the name of this chunk starts with a lowercase letter,
    # it's an ancillary chunk that shall not trigger an error
    catch {set i [image create photo -file $fileName]}

---- Result was:
1
---- Result should have been (exact matching):
0
---- Test cleanup failed:
image "image19" doesn't exist
---- errorInfo(cleanup): image "image19" doesn't exist
    while executing
"image delete $i"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): TK LOOKUP IMAGE image19
==== imgPNG-3.1 FAILED

==== textTag-18.1 TkTextPickCurrent tag bindings FAILED
==== Contents of test case:

    text .t -width 30 -height 4 -relief sunken -borderwidth 10
-highlightthickness 10 -pady 2
    pack .t

    .t insert end " Tag here " TAG " no tag here"
    .t tag configure TAG -borderwidth 4 -relief raised
    .t tag bind TAG <Enter>  {lappend res "%x %y tag-Enter"}
    .t tag bind TAG <Leave>  {lappend res "%x %y tag-Leave"}
    bind .t <Enter> {lappend res Enter}
    bind .t <Leave> {lappend res Leave}

    set res {}
    # Bindings must not trigger on the widget border, only over
    # the actual tagged characters themselves.
    event gen .t <Motion> -warp 1 -x 0 -y 0 ; update
    event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
    event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
    event gen .t <Motion> -warp 1 -x 20 -y 20 ; update
    event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
    event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
    return $res

---- Result was:
{25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
---- Result should have been (exact matching):
Enter {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
==== textTag-18.1 FAILED