Add WM_DELETE_WINDOW action on load_file_dialog widget

2024-01-31 18:54:30 +01:00 · 2024-01-31 18:54:30 +01:00 · 304d42b928
parent 8f3e0be4fe
commit 304d42b928
1 changed files with 1 additions and 0 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -3531,6 +3531,7 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
    xschem preview_window destroy {} {}
    set $global_initdir \"\$file_dialog_dir1\"
  "
+  wm protocol .load WM_DELETE_WINDOW {.load.buttons_bot.cancel invoke}
  button .load.buttons.home -width 5 -text {Home} -command {
    bind .load.l.paneright.draw <Expose> {}
    .load.l.paneright.draw configure -background white