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/text.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/text.tcl')
| -rw-r--r-- | library/text.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/text.tcl b/library/text.tcl index 5824690..1648677 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -575,8 +575,8 @@ proc ::tk::TextSelectTo {w x y {extend 0}} { } # Now find word boundaries - set first [TextPrevPos $w "$first + 1c" tcl_wordBreakBefore] - set last [TextNextPos $w "$last - 1c" tcl_wordBreakAfter] + set first [TextPrevPos $w "$first + 1c" tk::wordBreakBefore] + set last [TextNextPos $w "$last - 1c" tk::wordBreakAfter] } line { # Set initial range based only on the anchor |