|
From: François V. <fvo...@fr...> - 2017-12-21 19:14:46
|
Le 21/12/2017 16:40, Harald Oehlmann a écrit :
> New failures:
>
> Tk: imgPNG-3.1
This is a test newly added. It uses a newly added image. Suspect this
image file could be missing from the distribution or installation?
Can you check that you have an image named (iDOT.png) in the same tests
folder named "tests" that contains the imgPNG.test file?
If the image is missing, that's the cause.
If it's present then please provide the output of:
set filename XXXXX ; # replace XXXXX by full pathname of file iDOT.png
image create photo -file $fileName ; # what is the error triggered
here?
> textTag-18.1
> ==== 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
Surprising.
Are you sure this fails repeatably (an event is missing, did you fiddle
with the computer while the tests were running?) ?
Are you sure it didn't fail with the previous release?
Thanks,
Francois
|