From f265ae7f9741d5710decdabc637b2fa3ac105a0d Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Tue, 3 Nov 2015 10:45:05 +0000
Subject: Fixed entry part of bug [542199fff] - Double click on a lone
 character in an entry does not work

---
 library/entry.tcl | 10 ++++++++--
 tests/event.test  |  4 ++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/library/entry.tcl b/library/entry.tcl
index 382cc88..c3e573d 100644
--- a/library/entry.tcl
+++ b/library/entry.tcl
@@ -373,12 +373,18 @@ proc ::tk::EntryMouseSelect {w x} {
 	    }
 	}
 	word {
-	    if {$cur < [$w index anchor]} {
+	    if {$cur < $anchor} {
 		set before [tcl_wordBreakBefore [$w get] $cur]
 		set after [tcl_wordBreakAfter [$w get] [expr {$anchor-1}]]
-	    } else {
+	    } elseif {$cur > $anchor} {
 		set before [tcl_wordBreakBefore [$w get] $anchor]
 		set after [tcl_wordBreakAfter [$w get] [expr {$cur - 1}]]
+	    } else {
+		if {[$w index @$Priv(pressX)] < $anchor} {
+		      incr anchor -1
+		}
+		set before [tcl_wordBreakBefore [$w get] $anchor]
+		set after [tcl_wordBreakAfter [$w get] $anchor]
 	    }
 	    if {$before < 0} {
 		set before 0
diff --git a/tests/event.test b/tests/event.test
index fa75610..95be5f4 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -705,7 +705,7 @@ test event-7.1(double-click) {A double click on a lone character
     set result
 } {1.3 A 1.3 A}
 test event-7.2(double-click) {A double click on a lone character\
-	in an entry widget should select that character} {knownBug} {
+	in an entry widget should select that character} {
     destroy .t
     set t [toplevel .t]
     set e [entry $t.e]
@@ -766,7 +766,7 @@ test event-7.2(double-click) {A double click on a lone character\
     lappend result [_get_selection $e]
 
     set result
-} {3 A 4 A}
+} {4 A 4 A}
 
 # cleanup
 
-- 
cgit v0.12