From f2aec7d50500a8c5a76875c1b27ad19ae7235fdd Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Thu, 2 Apr 2009 09:40:55 +0000
Subject: Ensure the pointer begins outside the window for all the tests
 checking Enter/Leave motion events.

---
 ChangeLog          |  2 ++
 tests/textTag.test | 19 ++++++++++++-------
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6459029..5563dc3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2009-04-02  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
+	* tests/textTag.test: Ensure the pointer begins outside the window
+	for all the tests checking Enter/Leave motion events.
 	* library/demos/pendulum.tcl: use unicode labels
 	* library/demos/knightstour.tcl: use polygon knight on x11.
 
diff --git a/tests/textTag.test b/tests/textTag.test
index 94c6dbf..4f43f6b 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: textTag.test,v 1.15 2008/12/12 00:09:38 nijtmans Exp $
+# RCS: @(#) $Id: textTag.test,v 1.16 2009/04/02 09:41:06 patthoyts Exp $
 
 package require tcltest 2.2
 namespace import ::tcltest::*
@@ -42,7 +42,6 @@ bOy GIrl .#@? x_yz
 !@#$%
 Line 7"
 
-
 test textTag-1.1 {tag configuration options} -constraints {
     haveCourier12
 } -body {
@@ -1338,6 +1337,7 @@ set y3 [expr [lindex $c 1] + [lindex $c 3]/2]
 
 test textTag-15.1 {TkTextBindProc} -constraints haveCourier12 -setup {
     .t tag delete x y
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     bind .t <ButtonRelease> {lappend x up}
     .t tag bind x <ButtonRelease> {lappend x x-up}
@@ -1362,6 +1362,7 @@ test textTag-15.1 {TkTextBindProc} -constraints haveCourier12 -setup {
 
 test textTag-15.2 {TkTextBindProc} -constraints haveCourier12 -setup {
     .t tag delete x y
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag bind x <Enter> {lappend x x-enter}
     .t tag bind x <ButtonPress> {lappend x x-down}
@@ -1389,6 +1390,7 @@ test textTag-15.2 {TkTextBindProc} -constraints haveCourier12 -setup {
 
 test textTag-15.3 {TkTextBindProc} -constraints haveCourier12 -setup {
     .t tag delete x y
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag bind x <Enter> {lappend x x-enter}
     .t tag bind x <Any-ButtonPress-1> {lappend x x-down}
@@ -1423,6 +1425,7 @@ test textTag-16.1 {TkTextPickCurrent procedure} -constraints {
     haveCourier12 
 } -setup {
     .t tag delete {*}[.t tag names]
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
     set x [.t index current]
@@ -1444,6 +1447,7 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
     haveCourier12 
 } -setup {
     .t tag delete {*}[.t tag names]
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag configure big -font $bigFont
     event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
@@ -1462,6 +1466,7 @@ test textTag-16.3 {TkTextPickCurrent procedure} -constraints {
     foreach i {a b c d} {
         .t tag remove $i 1.0 end
     }
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     foreach i {a b c d} {
         .t tag bind $i <Enter> "lappend x enter-$i"
@@ -1490,6 +1495,7 @@ test textTag-16.4 {TkTextPickCurrent procedure} -constraints {
     foreach i {a b c d} {
         .t tag remove $i 1.0 end
     }
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     foreach i {a b c d} {
         .t tag bind $i <Enter> "lappend x enter-$i"
@@ -1517,6 +1523,7 @@ test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
     }
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag configure big -font $bigFont
     event gen .t <Motion> -x $x1 -y $y1
@@ -1534,6 +1541,7 @@ test textTag-16.6 {TkTextPickCurrent procedure} -constraints {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
     }
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag configure big -font $bigFont
     event gen .t <Motion> -x $x1 -y $y1
@@ -1552,6 +1560,7 @@ test textTag-16.7 {TkTextPickCurrent procedure} -constraints {
     foreach i {big a b c d} {
         .t tag remove $i 1.0 end
     }
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     .t tag configure big -font $bigFont
     .t tag bind a <Enter> {.t tag add big 3.0 3.2}
@@ -1581,6 +1590,7 @@ test textTag-17.1 {insert procedure inserts tags} -setup {
 
 test textTag-18.1 {TkTextPickCurrent tag bindings} -setup {
     destroy .t
+    event generate {} <Motion> -warp 1 -x -1 -y -1; update
 } -body {
     text .t -width 30 -height 4 -relief sunken -borderwidth 10 \
       -highlightthickness 10 -pady 2
@@ -1612,8 +1622,3 @@ destroy .t
 # cleanup
 cleanupTests
 return
-
-
-
-
-
-- 
cgit v0.12