From 39a05589d95ac9864792887ef9c223fa8b09fbaa Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sun, 4 Oct 2015 14:07:49 +0000
Subject: Fixed bug [1669632fff] cases (ii) and (iii) - Tolerate a shaky hand
 using the mouse

---
 library/text.tcl | 4 ++++
 1 file changed, 4 insertions(+)

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
 }
-- 
cgit v0.12