diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 07:54:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 07:54:09 (GMT) |
| commit | 202348c4be13073557525fd20809ae82079f1ac9 (patch) | |
| tree | bef096ca1d186f6f01399f17802eb1c9dcef6476 /library/tearoff.tcl | |
| parent | 44f33f818f8d5a9716f4e3277703f2f9beb8796f (diff) | |
| parent | e9dc305d78edf450789ae4494b6c44d7a2e0b65a (diff) | |
| download | tk-202348c4be13073557525fd20809ae82079f1ac9.zip tk-202348c4be13073557525fd20809ae82079f1ac9.tar.gz tk-202348c4be13073557525fd20809ae82079f1ac9.tar.bz2 | |
Merge trunk
Diffstat (limited to 'library/tearoff.tcl')
| -rw-r--r-- | library/tearoff.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tearoff.tcl b/library/tearoff.tcl index f4b6fe6..329796f 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -153,7 +153,7 @@ proc ::tk::MenuDup {src dst type} { # Copy tags to x, replacing each substring of src with dst. - while {[set index [string first $src $tags]] != -1} { + while {[set index [string first $src $tags]] >= 0} { if {$index > 0} { append x [string range $tags 0 $index-1]$dst } @@ -170,7 +170,7 @@ proc ::tk::MenuDup {src dst type} { # Copy script to x, replacing each substring of event with dst. - while {[set index [string first $event $script]] != -1} { + while {[set index [string first $event $script]] >= 0} { if {$index > 0} { append x [string range $script 0 $index-1] } |