Posted to tcl by apn at Sat Feb 17 11:40:57 GMT 2018view raw

  1. Tests running in interp: d:/src/tcltk/868/tk/win/Release_AMD64_VC1912/tktest.exe
  2. Tests located in: D:/src/tcltk/868/tk/tests
  3. Tests running in: D:/src/tcltk/868/tk/win
  4. Temporary files stored in D:/src/tcltk/868/tk/win
  5. Test files sourced into current interpreter
  6. Running tests that match: *
  7. Skipping test files that match: l.*.test
  8. Only running test files that match: textTag.test
  9. Tests began at Sat Feb 17 17:07:38 +0530 2018
  10. textTag.test
  11.  
  12.  
  13. ==== textTag-18.1 TkTextPickCurrent tag bindings FAILED
  14. ==== Contents of test case:
  15.  
  16. text .t -width 30 -height 4 -relief sunken -borderwidth 10 -highlightthickness 10 -pady 2
  17. pack .t
  18.  
  19. .t insert end " Tag here " TAG " no tag here"
  20. .t tag configure TAG -borderwidth 4 -relief raised
  21. .t tag bind TAG <Enter> {lappend res "%x %y tag-Enter"}
  22. .t tag bind TAG <Leave> {lappend res "%x %y tag-Leave"}
  23. bind .t <Enter> {lappend res Enter}
  24. bind .t <Leave> {lappend res Leave}
  25.  
  26. set res {}
  27. # Bindings must not trigger on the widget border, only over
  28. # the actual tagged characters themselves.
  29. event gen .t <Motion> -warp 1 -x 0 -y 0 ; update
  30. event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
  31. event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
  32. event gen .t <Motion> -warp 1 -x 20 -y 20 ; update
  33. event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
  34. event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
  35. return $res
  36.  
  37. ---- Result was:
  38. {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
  39. ---- Result should have been (exact matching):
  40. Enter {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
  41. ==== textTag-18.1 FAILED
  42.  
  43.  
  44. Tests ended at Sat Feb 17 17:07:39 +0530 2018
  45. all.tcl: Total 174 Passed 173 Skipped 0 Failed 1