From 447fca1b66bc21d70788fd24231df12ec053e5aa Mon Sep 17 00:00:00 2001 From: Stefan Frederik Date: Thu, 18 Mar 2021 17:13:36 +0100 Subject: [PATCH] Save file dialog: added delete file/dir button --- src/xschem.tcl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/xschem.tcl b/src/xschem.tcl index 614e1766..eb51b901 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -1344,12 +1344,18 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}} {init set myload_dir1 $d } } - label .dialog.buttons.mkdirlab -text { Mkdir: } + label .dialog.buttons.mkdirlab -text { New dir: } entry .dialog.buttons.newdir -width 16 button .dialog.buttons.mkdir -width 5 -text Create -command { load_file_dialog_mkdir [.dialog.buttons.newdir get] } - button .dialog.buttons.pwd -width 5 -text PWD -command { + 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 + } + button .dialog.buttons.pwd -text {Current file dir} -command { bind .dialog.l.paneright.pre {} .dialog.l.paneright.pre configure -background white set d [xschem get current_dirname] @@ -1363,7 +1369,7 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}} {init pack .dialog.buttons.home .dialog.buttons.up .dialog.buttons.pwd -side left pack .dialog.buttons.mkdirlab -side left pack .dialog.buttons.newdir -expand true -fill x -side left - pack .dialog.buttons.mkdir -side right + pack .dialog.buttons.rmdir .dialog.buttons.mkdir -side right pack .dialog.buttons_bot.ok .dialog.buttons_bot.cancel .dialog.buttons_bot.label -side left pack .dialog.buttons_bot.entry -side left -fill x -expand true pack .dialog.buttons_bot.all .dialog.buttons_bot.sym .dialog.buttons_bot.sch -side left