diff options
Diffstat (limited to 'library/tk.tcl')
-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 } } |