From 2e86614c31b751328dc0c834987c032e02c76017 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Wed, 26 Mar 2025 01:18:31 +0100
Subject: [PATCH] Esc destroys .ctxmenu

---
 src/xschem.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index b11139ac..f9985762 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8575,7 +8575,9 @@ global env has_x OS autofocus_mainwindow
       bind $topwin <ButtonPress> "xschem callback %W %T %x %y 0 %b 0 %s"
     }
     bind $topwin <ButtonRelease> "xschem callback %W %T %x %y 0 %b 0 %s"
-    bind $topwin <KeyPress> "xschem callback %W %T %x %y %N 0 0 %s"
+    bind $topwin <KeyPress> "
+      if {{%K} eq {Escape}} { destroy .ctxmenu }
+      xschem callback %W %T %x %y %N 0 0 %s"
     bind $topwin <KeyRelease> "xschem callback %W %T %x %y %N 0 0 %s"
     if {$autofocus_mainwindow} {
       bind $topwin <Motion> "focus $topwin; xschem callback %W %T %x %y 0 0 0 %s"