|
From: Harald O. <har...@el...> - 2018-01-08 17:17:13
|
François,
I did the usual testing of the tcl/tk8.6.8 today.
Unfortunately, textTag-18.1 failed as with the rc.
Here is the log:
==== 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
I am ready for any action:
- ignore it
- make additional tests
- send you the binaries (tcl and tk build folders as zip)
- start a ticket
For the records:
tcl/tk 8.5.8 dist in folder c:\test
O/S: WIndows 10 64bit GER
Compiler: MS.VC6++ with PSDK 2003SP1
Command line:
nmake -f makefile.vc test TCLDIR=c:\test\tcl8.6.8 TESTFLAGS="-verbose
bte" > testlog_tk8.6.8.txt 2>&1
This test never failed for other Tk versions on my radar (
http://wiki.tcl.tk/37529 )
Thank you,
Harald
|