diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-10 09:05:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-10 09:05:52 (GMT) |
| commit | 9bb4984cdd2ade22a76663a8ec0122ccc0c16d64 (patch) | |
| tree | 101e4bb1904c9e988f3de88eea7f00fd7e93111a /library/entry.tcl | |
| parent | 2695bc632d5a2ea27a7145a659dac199eaa54d55 (diff) | |
| parent | 2cb17178d24e69583918c1496b879409b638827d (diff) | |
| download | tk-9bb4984cdd2ade22a76663a8ec0122ccc0c16d64.zip tk-9bb4984cdd2ade22a76663a8ec0122ccc0c16d64.tar.gz tk-9bb4984cdd2ade22a76663a8ec0122ccc0c16d64.tar.bz2 | |
Merge enhanced-index branch. Add two new functions ::tk::wordBreakBefore/::tk::wordBreakAfter
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index dc29418..a229fb7 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -376,17 +376,17 @@ proc ::tk::EntryMouseSelect {w x} { } word { if {$cur < $anchor} { - set before [tcl_wordBreakBefore [$w get] $cur] - set after [tcl_wordBreakAfter [$w get] $anchor-1] + set before [tk::wordBreakBefore [$w get] $cur] + set after [tk::wordBreakAfter [$w get] $anchor-1] } elseif {$cur > $anchor} { - set before [tcl_wordBreakBefore [$w get] $anchor] - set after [tcl_wordBreakAfter [$w get] $cur-1] + set before [tk::wordBreakBefore [$w get] $anchor] + set after [tk::wordBreakAfter [$w get] $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] + set before [tk::wordBreakBefore [$w get] $anchor] + set after [tk::wordBreakAfter [$w get] $anchor] } if {$before < 0} { set before 0 |