diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-20 13:09:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-20 13:09:44 (GMT) |
| commit | 44720928401709bc3af20910b12e56431c7c064c (patch) | |
| tree | 6e606b7d90323bb0a2cda907d8ab948def915e69 /library/tearoff.tcl | |
| parent | 2cb17178d24e69583918c1496b879409b638827d (diff) | |
| parent | 9156b7cd683e89196e7badedbdcfc6f20c54aaeb (diff) | |
| download | tk-44720928401709bc3af20910b12e56431c7c064c.zip tk-44720928401709bc3af20910b12e56431c7c064c.tar.gz tk-44720928401709bc3af20910b12e56431c7c064c.tar.bz2 | |
Merge 8.7. Eliminate more use of "none" in menu library code (since it isn't used any more)
Diffstat (limited to 'library/tearoff.tcl')
| -rw-r--r-- | library/tearoff.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tearoff.tcl b/library/tearoff.tcl index 605074f..c368da2 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -135,7 +135,7 @@ proc ::tk::MenuDup {src dst type} { } eval $cmd set last [$src index last] - if {$last eq "none" || $last eq ""} { + if {$last < 0} { return } for {set i [$src cget -tearoff]} {$i <= $last} {incr i} { |