diff options
author | fvogel <fvogelnew1@free.fr> | 2015-11-08 21:50:06 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-11-08 21:50:06 (GMT) |
commit | e34ce9c14352ff92bd3dc7c5e916b855ce5e0855 (patch) | |
tree | eb001f13d086e69bab191048fdc73f97cc539967 /library/entry.tcl | |
parent | 6709996ce64d8adb86276e974c83fd7c83bebfe5 (diff) | |
parent | cecdbbe2d4185ad06cbb98b87032933eced4a32d (diff) | |
download | tk-e34ce9c14352ff92bd3dc7c5e916b855ce5e0855.zip tk-e34ce9c14352ff92bd3dc7c5e916b855ce5e0855.tar.gz tk-e34ce9c14352ff92bd3dc7c5e916b855ce5e0855.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.tcl | 10 |
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 |