From ed1149edb2779cd68cbfc7cc157219687626f9d5 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 3 Jan 2025 13:09:18 +0100
Subject: [PATCH] dirty hack to make a click on an open menu close it

---
 src/xschem.tcl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 4ecd9dd8..1efcc2a9 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8827,6 +8827,21 @@ if { [info exists has_x]} {
     }
   }
 }
+
+# This is a dirty hack to make a click on an open menu close it.
+# not guaranteed to work on future tk versions
+bind Menu <Button> {
+    if {$tk::Priv(menuBar) ne {}} {
+        tk::MenuEscape %W
+        set Priv(menuBar) {}
+        set Priv(focus) {}
+        unset -nocomplain Priv(menuActivated)
+        %W activate none
+    } else {
+        tk::MenuButtonDown %W
+    }
+}
+
 set OS [lindex $tcl_platform(os) 0]
 set env(LC_ALL) C
 # tcl variable XSCHEM_LIBRARY_PATH  should already be set in xschemrc