summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/textTag.test19
1 files changed, 12 insertions, 7 deletions
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
-
-
-
-
-