summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/textTag.test10
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