diff options
| -rw-r--r-- | tests/textTag.test | 10 |
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 |