diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-24 14:03:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-24 14:03:35 (GMT) |
commit | 60091ce863fdbfbf444d6970d44fb50166ccd6fe (patch) | |
tree | 01d9762601541ddc55b930c28b3d547c496b3d67 /library/tearoff.tcl | |
parent | e59d11829980b85d1a4c263d108f0a601fce5e5b (diff) | |
parent | 5a024656faa09acb77aa34603e41b1cd5e38fbe5 (diff) | |
download | tk-60091ce863fdbfbf444d6970d44fb50166ccd6fe.zip tk-60091ce863fdbfbf444d6970d44fb50166ccd6fe.tar.gz tk-60091ce863fdbfbf444d6970d44fb50166ccd6fe.tar.bz2 |
Merge 8.6. Change macro names
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 4c8b404..dece4df 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] } |