Re: [TCLCORE] New tk failure textTag-18.1 on tk 8.6.8

[Brian G. <bri...@ea...>]

I think this test is suspect.  There's no certainty that an Enter event is NOT produced from the action of the first event gen statement since the initial position of the cursor is unknown:

event gen .t <Motion> -warp 1 -x 0 -y 0 ; update

I would try changing the test:

event gen .t <Motion> -warp 1 -x 0 -y 0 ; update ;# Initialize pointer location.
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 ;# Should be a no-op now because the previous event will essentially initialize the pointer location.

-Brian

On Jan 8, 2018, at 9:16 AM, Harald Oehlmann <har...@el...<mailto:har...@el...>> wrote:

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


------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org<http://Slashdot.org>! http://sdm.link/slashdot
_______________________________________________
Tcl-Core mailing list
Tcl...@li...<mailto:Tcl...@li...>
https://lists.sourceforge.net/lists/listinfo/tcl-core