make the "X" window button close the search dialog box, as Cancel (and Escape key) does

2023-07-14 00:06:39 +02:00 · 2023-07-14 00:06:39 +02:00 · 231f3a38d4
parent 19fbba5c60
commit 231f3a38d4
1 changed files with 1 additions and 0 deletions
--- 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}]