Fixed bug [3554052fff] by applying [b28d8aaa7c] to core-8-5-branchbug_3554052fff

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/textTag.test b/tests/textTag.test
index dcec25d..be31ebb 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -599,6 +599,7 @@ set x3 [expr [lindex $c 0] + [lindex $c 2]/2]
 set y3 [expr [lindex $c 1] + [lindex $c 3]/2]
 
 test textTag-15.1 {TkTextBindProc} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     bind .t <ButtonRelease> {lappend x up}
     .t tag bind x <ButtonRelease> {lappend x x-up}
     .t tag bind y <ButtonRelease> {lappend x y-up}
@@ -618,6 +619,7 @@ test textTag-15.1 {TkTextBindProc} haveCourier12 {
     set x
 } {x-up up up y-up up}
 test textTag-15.2 {TkTextBindProc} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     catch {.t tag delete x}
     catch {.t tag delete y}
     .t tag bind x <Enter> {lappend x x-enter}
@@ -675,6 +677,7 @@ foreach tag [.t tag names] {
 }
 .t tag configure big -font $bigFont
 test textTag-16.1 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
     set x [.t index current]
     event gen .t <Motion> -x $x2 -y $y2
@@ -691,6 +694,7 @@ test textTag-16.1 {TkTextPickCurrent procedure} haveCourier12 {
     lappend x [.t index current]
 } {2.1 3.2 3.2 3.2 3.2 3.2 4.3}
 test textTag-16.2 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
     event gen .t <Motion> -x $x2 -y $y2
     set x [.t index current]
@@ -704,6 +708,7 @@ foreach i {a b c d} {
     .t tag bind $i <Leave> "lappend x leave-$i"
 }
 test textTag-16.3 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     foreach i {a b c d} {
 	.t tag remove $i 1.0 end
     }
@@ -722,6 +727,7 @@ test textTag-16.3 {TkTextPickCurrent procedure} haveCourier12 {
     set x
 } {enter-a enter-b | leave-b enter-c | leave-a leave-c}
 test textTag-16.4 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     foreach i {a b c d} {
 	.t tag remove $i 1.0 end
     }
@@ -742,6 +748,7 @@ foreach i {a b c d} {
     .t tag delete $i
 }
 test textTag-16.5 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     foreach i {a b c d} {
 	.t tag remove $i 1.0 end
     }
@@ -752,6 +759,7 @@ test textTag-16.5 {TkTextPickCurrent procedure} haveCourier12 {
     .t index current
 } {3.2}
 test textTag-16.6 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     foreach i {a b c d} {
 	.t tag remove $i 1.0 end
     }
@@ -763,6 +771,7 @@ test textTag-16.6 {TkTextPickCurrent procedure} haveCourier12 {
     .t index current
 } {3.1}
 test textTag-16.7 {TkTextPickCurrent procedure} haveCourier12 {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     foreach i {a b c d} {
 	.t tag remove $i 1.0 end
     }
@@ -785,6 +794,7 @@ test textTag-17.1 {insert procedure inserts tags} {
 catch {destroy .t}
 
 test textTag-18.1 {TkTextPickCurrent tag bindings} {
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
     text .t -width 30 -height 4 -relief sunken -borderwidth 10 \
       -highlightthickness 10 -pady 2
     pack .t