register WM_DELETE_WINDOW action to correctly close bindkey window

2025-04-28 00:48:01 +02:00 · 2025-04-28 00:48:01 +02:00 · 281c38b32d
parent d3b5e999f4
commit 281c38b32d
1 changed files with 3 additions and 2 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -8554,6 +8554,7 @@ proc show_bindkeys {} {
        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} {