From dcfc048bfc768826800705c75df17091a6b7d185 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 3 Jan 2024 14:19:17 +0000
Subject: unnecessary check for $last >= 0

---
 library/tearoff.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]  {
-- 
cgit v0.12