diff options
| author | dgp <dgp@noemail.net> | 2015-11-30 21:21:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2015-11-30 21:21:48 (GMT) |
| commit | b8eae37ad5537a43fbe0ec73a9731d20297e8f45 (patch) | |
| tree | 24ccb2318d04412685b1a4262df7c33df0864d34 /library | |
| parent | adeb66e054cbae955834c60dc493ea562ed005ed (diff) | |
| parent | d9f60d99f9d55649188bd72eff1769b26a986632 (diff) | |
| download | tk-b8eae37ad5537a43fbe0ec73a9731d20297e8f45.zip tk-b8eae37ad5537a43fbe0ec73a9731d20297e8f45.tar.gz tk-b8eae37ad5537a43fbe0ec73a9731d20297e8f45.tar.bz2 | |
merge 8.5
FossilOrigin-Name: 08fb5a442d0e08cc4b8306bda129f6b047ff3fe1
Diffstat (limited to 'library')
| -rw-r--r-- | library/entry.tcl | 10 | ||||
| -rw-r--r-- | library/tk.tcl | 1 |
2 files changed, 8 insertions, 3 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/library/tk.tcl b/library/tk.tcl index 64fb6f6..b971329 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -308,7 +308,6 @@ proc ::tk::EventMotifBindings {n1 dummy dummy} { event $op <<Cut>> <Control-Key-w> event $op <<Copy>> <Meta-Key-w> event $op <<Paste>> <Control-Key-y> - event $op <<Undo>> <Control-underscore> } #---------------------------------------------------------------------- |