summaryrefslogtreecommitdiffstats
path: root/library/entry.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-03 10:45:05 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-03 10:45:05 (GMT)
commitf265ae7f9741d5710decdabc637b2fa3ac105a0d (patch)
tree4f1eada5ffa4f95c4c20cd70f45299a9e410a18c /library/entry.tcl
parent55fc97d827d04fb3bc87f34f5aba3ded5a7471eb (diff)
downloadtk-f265ae7f9741d5710decdabc637b2fa3ac105a0d.zip
tk-f265ae7f9741d5710decdabc637b2fa3ac105a0d.tar.gz
tk-f265ae7f9741d5710decdabc637b2fa3ac105a0d.tar.bz2
Fixed entry part of bug [542199fff] - Double click on a lone character in an entry does not workbug_542199fff
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 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