<u>event-9</u>: Try an increase of the waiting time.

<u>textTag-16.2</u>:

For each of the following environnements :

  *  My Win10 at home (PASS)
  *  GitHub action (msvc) (PASS)
  *  GitHub action (gcc(all)) (FAIL)
  *  GitHub action (gcc(mem)) (PASS)

the debug output produced by the previous commit is always the same, independently of the PASS or FAIL test result :

Courier 12
-family {Courier New} -size 12 -weight normal -slant roman -underline 0 -overstrike 0
-ascent 14 -descent 4 -linespace 18 -fixed 1
Helvetica 24
-family Arial -size 24 -weight normal -slant roman -underline 0 -overstrike 0
-ascent 29 -descent 7 -linespace 36 -fixed 0
17,29 -- 27,47

Conclusion: this is not a font issue.

Let's try a different timing test then.

2 files changed, 3 insertions, 11 deletions

diff --git a/tests/event.test b/tests/event.test
index 4426425..5db33c5 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -876,8 +876,8 @@ test event-9 {no <Enter> event is generated for the container window when its
     pack [frame .top.f -bg green -width 50 -height 50] -anchor se -side bottom
     update
     event generate .top.f <Motion> -warp 1 -x 25 -y 25  ; # <Enter> sent to .top and .top.f
-    update idletasks ; after 50  ; # Win specific - wait for SendInput to be executed
-    update ; after 50 ; update
+    update idletasks ; after 500  ; # Win specific - wait for SendInput to be executed
+    update ; after 500 ; update
     destroy .top.f  ; # no <Enter> event sent
     update
     set res
diff --git a/tests/textTag.test b/tests/textTag.test
index 618b1cc..32c317b 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -1608,20 +1608,12 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
     wm geometry . +200+200 ; update
     event generate {} <Motion> -warp 1 -x 5 -y 5 ; update idletasks ; after 50
 } -body {
-# some debug info
-puts [.t cget -font]
-puts [font actual [.t cget -font]]
-puts [font metrics [.t cget -font]]
-puts $bigFont
-puts [font actual $bigFont]
-puts [font metrics $bigFont]
-puts "$x1,$y1 -- $x2,$y2"
     .t tag configure big -font $bigFont
     event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
     event gen .t <Motion> -x $x2 -y $y2
     set x [.t index current]
     .t tag add big 3.0
-    update ; after 50 ; update
+    after 50 ; update ; after 50 ; update
     lappend x [.t index current]
 } -cleanup {
     .t tag delete big