diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 08:41:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-30 08:41:11 (GMT) |
| commit | 4d69269d94dcc7bd42e420cb36faf0e703e7c9a9 (patch) | |
| tree | 9574180f3fc9efb7c6afc2ce5b58074aa2efa9a0 /library/tk.tcl | |
| parent | ce86b59a3171bcce43aaeb65728730cc72200ed8 (diff) | |
| download | tk-4d69269d94dcc7bd42e420cb36faf0e703e7c9a9.zip tk-4d69269d94dcc7bd42e420cb36faf0e703e7c9a9.tar.gz tk-4d69269d94dcc7bd42e420cb36faf0e703e7c9a9.tar.bz2 | |
slightly simpler
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index b28cf12..9a3aa38 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -753,9 +753,9 @@ if {[info commands ::tk::endOfCluster] eq ""} { return "" } if {[string length [string index $str $start]] > 1} { - set start [expr {$start+1}] + incr start } - set start [expr {$start+1}] + incr start return $start } } @@ -771,7 +771,7 @@ if {[info commands ::tk::startOfCluster] eq ""} { return [string length $str] } if {[string length [string index $str $start]] < 1} { - set start [expr {$start-1}] + incr start -1 } if {$start < 0} { return "" |