diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-24 11:33:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-24 11:33:57 (GMT) |
| commit | d6d676512fab10d31a6fc83012b29505d11a3a89 (patch) | |
| tree | 8e0ed84ad47ded94e29b608e9e48af9cd3ac39c8 /library | |
| parent | 787ed6db2a4b2c37ff8cd6bd62ba11fb5dd893db (diff) | |
| download | tk-d6d676512fab10d31a6fc83012b29505d11a3a89.zip tk-d6d676512fab10d31a6fc83012b29505d11a3a89.tar.gz tk-d6d676512fab10d31a6fc83012b29505d11a3a89.tar.bz2 | |
more progress
Diffstat (limited to 'library')
| -rw-r--r-- | library/tk.tcl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index dd16793..6828465 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -725,9 +725,6 @@ if {[info commands ::tk::endOfCluster] eq ""} { set start [expr {$start+1}] } set start [expr {$start+1}] - if {[string index $str $start] eq {^}} { - set start [expr {$start+1}];# For demo purposes only - } return $start } } @@ -739,12 +736,6 @@ if {[info commands ::tk::startOfCluster] eq ""} { if {$start < 0} { return -1; } - if {[string index $str $start] eq {^}} { - set start [expr {$start-1}];# For demo purposes only - } - if {[string length [string index $str [expr {$start-1}]]] > 1} { - return [expr {$start-1}] - } return $start } } |