From fb90e616387370c03c9651085685fcdfe4899399 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 1 Jan 2024 23:43:43 +0000
Subject: missing ')'

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

diff --git a/library/menu.tcl b/library/menu.tcl
index 1fb6e78..f6ec29a 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -658,7 +658,7 @@ proc ::tk::MenuInvoke {w buttonRelease} {
 	}
     } else {
 	set activeindex [$w index active]
-	if {$Priv(popup) eq "" || (($activeindex ne "none") && ($activeindex >= 0)} {
+	if {($Priv(popup) eq "") || (($activeindex ne "none") && ($activeindex >= 0))} {
 	    MenuUnpost $w
 	}
 	uplevel #0 [list $w invoke active]
-- 
cgit v0.12