From 231f3a38d4aa33fcf08780caca60a82763049cd4 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 14 Jul 2023 00:06:39 +0200
Subject: [PATCH] make the "X" window button close the search dialog box, as
 Cancel (and Escape key) does

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 7abfbd1f..ea139f49 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -3659,6 +3659,7 @@ proc property_search {} {
     focus  .dialog
     bind .dialog <Escape> {.dialog.but.cancel invoke}
     bind .dialog <Return> {.dialog.but.ok invoke}
+    wm protocol .dialog WM_DELETE_WINDOW {.dialog.but.cancel invoke} 
     grab set .dialog
     tkwait window .dialog
     xschem set semaphore [expr {[xschem get semaphore] -1}]