Fixed bug [1669632fff] cases (ii) and (iii) - Tolerate a shaky hand using the mouse

FossilOrigin-Name: 55133bde505fae9197c66f1ac05dc68c310e7baa

1 files changed, 4 insertions, 0 deletions

diff --git a/library/text.tcl b/library/text.tcl
index 792ee3b..68ca0f5 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -91,6 +91,10 @@ bind Text <Control-1> {
 	%W edit separator
     }
 }
+# stop an accidental double click triggering <Double-Button-1>
+bind Text <Double-Control-1> { # nothing }
+# stop an accidental movement triggering <B1-Motion>
+bind Text <Control-B1-Motion> { # nothing }
 bind Text <Left> {
     tk::TextSetCursor %W insert-1displayindices
 }