Some FileDialog fixes

2018-02-08 16:53:55 +03:00
parent d2a0e3fd31
commit fa64acd016
3 changed files with 35 additions and 35 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -192,7 +192,7 @@ proc MakeTGZ {} {
            ok {return 0}
        }
    }
-    FileDialog save_all
+    FileDialog tree save_all
    set file [open [file join $workDir $activeProject.proj] r]
    while {[gets $file line]>=0} {
        scan $line "%s" keyWord
@@ -404,7 +404,7 @@ proc SendEmail {mail} {
 }
 ## QUIT PROJECT MANAGER PROCEDURE ##
 proc Quit {} {
-    set v [FileDialog close_all]
+    set v [FileDialog tree close_all]
    if {$v == "cancel"} {
        return
    } else {