diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-27 22:49:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-27 22:49:01 (GMT) |
| commit | bc74c207e53af84feac0f27e007bf9ff2282cc63 (patch) | |
| tree | 3a1b53a15fde5f0cb4668086f1c15eae26ece5cc /library/tk.tcl | |
| parent | 2333c3419bc229caab17d889c3919d31a4f2f497 (diff) | |
| parent | 748f5f9a656f5a308c1296c9217e47cb4fbe9db7 (diff) | |
| download | tk-bc74c207e53af84feac0f27e007bf9ff2282cc63.zip tk-bc74c207e53af84feac0f27e007bf9ff2282cc63.tar.gz tk-bc74c207e53af84feac0f27e007bf9ff2282cc63.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index cccf56e..1f7e787 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -744,8 +744,6 @@ if {[info commands ::tk::startOfNextWord] eq ""} { proc ::tk::startOfNextWord {str start {locale {}}} { if {$start < 0} { set start -1 - } elseif {[string match end-* $start]} { - set start [expr {[string length $str]-1-[string range $start 4 end]}] } set start [tcl_startOfNextWord $str $start] if {$start < 0} { @@ -758,8 +756,6 @@ if {[info commands ::tk::startOfPreviousWord] eq ""} { proc ::tk::startOfPreviousWord {str start {locale {}}} { if {$start < 0} { set start -1 - } elseif {[string match end-* $start]} { - set start [expr {[string length $str]-1-[string range $start 4 end]}] } set start [tcl_startOfPreviousWord $str $start] if {$start < 0} { @@ -772,8 +768,6 @@ if {[info commands ::tk::wordBreakBefore] eq ""} { proc ::tk::wordBreakBefore {str start {locale {}}} { if {$start < 0} { set start -1 - } elseif {[string match end-* $start]} { - set start [expr {[string length $str]-1-[string range $start 4 end]}] } set start [tcl_wordBreakBefore $str $start] if {$start < 0} { @@ -786,8 +780,6 @@ if {[info commands ::tk::wordBreakAfter] eq ""} { proc ::tk::wordBreakAfter {str start {locale {}}} { if {$start < 0} { set start -1 - } elseif {[string match end-* $start]} { - set start [expr {[string length $str]-1-[string range $start 4 end]}] } set start [tcl_wordBreakAfter $str $start] if {$start < 0} { @@ -807,9 +799,6 @@ if {[info commands ::tk::endOfCluster] eq ""} { } elseif {$start >= [string length $str]} { return "" } - if {[string length [string index $str $start]] > 1} { - incr start - } incr start return $start } @@ -825,9 +814,6 @@ if {[info commands ::tk::startOfCluster] eq ""} { } elseif {$start >= [string length $str]} { return [string length $str] } - if {[string length [string index $str $start]] < 1} { - incr start -1 - } if {$start < 0} { return "" } |