Fix [a9cf210a42]: Text select doesn't cover first character.

1 files changed, 18 insertions, 2 deletions

diff --git a/tests/text.test b/tests/text.test
index 3f03418..11d8b57 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6674,7 +6674,7 @@ test text-27.15b {<<Selection>> virtual event on <<PasteSelection>> inside widge
     bind .t <<Selection>> "set ::retval <<Selection>>_fired"
     update
     set ::retval no_<<Selection>>_event_fired
-    event generate .t <<PasteSelection>> -x 15 -y 3
+    event generate .t <<PasteSelection>> -x 15 -y [lindex [.t dlineinfo 1.0] 1]
     update
     set ::retval
 } -cleanup {
@@ -6688,7 +6688,7 @@ test text-27.15c {No <<Selection>> virtual event on <<PasteSelection>> outside w
     bind .t <<Selection>> "set ::retval <<Selection>>_fired"
     update
     set ::retval no_<<Selection>>_event_fired
-    event generate .t <<PasteSelection>> -x 15 -y 80
+    event generate .t <<PasteSelection>> -x 15 -y [lindex [.t dlineinfo 2.0] 1]
     update
     set ::retval
 } -cleanup {
@@ -7789,6 +7789,22 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup {
     interp bgerror {} $save
     unset -nocomplain save ::my_error
 } -result {}
+
+
+test text-38.1 {Extending selection with mouse going outside the widget - Bug a9cf210a42} -setup {
+    pack [text .t -width 40 -height 10]
+    for {set n 1} {$n <= 5} {incr n} {
+        .t insert end "This is line $i of text\n"
+    }
+    update
+} -body {
+    event generate .t <Button-1> -x 50 -y 50
+    event generate .t <B1-Motion> -x 50 -y -50
+    .t index sel.first
+} -cleanup {
+    destroy .t
+} -result {1.0}
+
 
 # cleanup
 cleanupTests