summaryrefslogtreecommitdiffstats
path: root/library/entry.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-08 21:50:06 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-08 21:50:06 (GMT)
commit8e14ee04b3964bb9118b78ee62722fbf9f2129cb (patch)
treeeb001f13d086e69bab191048fdc73f97cc539967 /library/entry.tcl
parent3ab946c3a13a9f42cf14322a908810eb56a2d4f5 (diff)
parent77e0e5439c5a1f5716149e2fa3ee0dcc8c63e56f (diff)
downloadtk-8e14ee04b3964bb9118b78ee62722fbf9f2129cb.zip
tk-8e14ee04b3964bb9118b78ee62722fbf9f2129cb.tar.gz
tk-8e14ee04b3964bb9118b78ee62722fbf9f2129cb.tar.bz2
Fixed entry (and final) part of bug [542199fff] - Double click on a lone character in an entry does not work
Diffstat (limited to 'library/entry.tcl')
-rw-r--r--library/entry.tcl10
1 files changed, 8 insertions, 2 deletions
diff --git a/library/entry.tcl b/library/entry.tcl
index f7170f7..6243d26 100644
--- a/library/entry.tcl
+++ b/library/entry.tcl
@@ -357,12 +357,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