diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-03 14:19:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-03 14:19:17 (GMT) |
| commit | dcfc048bfc768826800705c75df17091a6b7d185 (patch) | |
| tree | 705ed74f3f5baf47e83f2ceee1a7e8bcc7fd0d38 | |
| parent | 6c0955542e2f1d4339450cbf3987c92cb32b9d2f (diff) | |
| download | tk-dcfc048bfc768826800705c75df17091a6b7d185.zip tk-dcfc048bfc768826800705c75df17091a6b7d185.tar.gz tk-dcfc048bfc768826800705c75df17091a6b7d185.tar.bz2 | |
unnecessary check for $last >= 0
| -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 3a63b17..e52a457 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -138,7 +138,7 @@ proc ::tk::MenuDup {src dst type} { # Copy the meny entries, if any set last [$src index last] - if {$last ne "none" && $last >= 0} { + if {$last ne "none"} { for {set i [$src cget -tearoff]} {$i <= $last} {incr i} { set cmd [list $dst add [$src type $i]] foreach option [$src entryconfigure $i] { |