From 7d4c208027d5e3cb86ea5cfec0e62dd54710974e Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Thu, 18 Mar 2021 17:16:46 +0100
Subject: [PATCH] Save file dialog: added delete file/dir button

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index eb51b901..9408f3e1 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1350,10 +1350,11 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}} {init
     load_file_dialog_mkdir [.dialog.buttons.newdir get]
   }
   button .dialog.buttons.rmdir -width 5 -text Delete -command { 
-    load_file_dialog_mkdir [.dialog.buttons.newdir get]
-    file delete "${myload_dir1}/[.dialog.buttons.newdir get]"
-    setglob ${myload_dir1}
-    myload_set_colors2
+    if { [.dialog.buttons.newdir get] ne {} } {
+      file delete "${myload_dir1}/[.dialog.buttons.newdir get]"
+      setglob ${myload_dir1}
+      myload_set_colors2
+    }
   }
   button .dialog.buttons.pwd -text {Current file dir} -command {
     bind .dialog.l.paneright.pre <Expose> {}