From 281c38b32d1ff8c22d506d950bb853bac6ba7c6a Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Mon, 28 Apr 2025 00:48:01 +0200
Subject: [PATCH] register WM_DELETE_WINDOW action to correctly close bindkey
 window

---
 src/xschem.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 99f3d1d0..5953d825 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8551,9 +8551,10 @@ proc show_bindkeys {} {
         # set dark_colorscheme $save
         # xschem build_colors
 
-        bind .bk <ButtonPress> {xschem preview_window destroy .bk }
-        bind .bk <KeyPress> {xschem preview_window destroy .bk }
+        bind .bk <ButtonPress> {xschem preview_window destroy .bk}
+        bind .bk <KeyPress> {xschem preview_window destroy .bk}
         bind .bk <Expose> {xschem preview_window draw .bk }
+        wm protocol .bk WM_DELETE_WINDOW {xschem preview_window destroy .bk}
 }
 
 proc set_bindings {topwin} {