- Fixed edit files into root node from file browser tree

- Change "Delete project" dialog and procedure
2018-02-18 15:01:56 +03:00
parent 75f9860f63
commit d3add6984d
14 changed files with 644 additions and 552 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -326,6 +326,7 @@ proc Quit {} {
            if {[regexp -nocase -all -- {set topLevelGeometry} $line match]} {
                puts $file1 "set topLevelGeometry \"[winfo geometry .]\""
            } elseif {[regexp -nocase -all -- {set workingProject} $line match]} {
+               puts "set workingProject \"$activeProject\""
                puts $file1 "set workingProject \"$activeProject\""
            } else {
                puts $file1 "$line"
@@ -663,3 +664,5 @@ proc GetExtention {node} {
 }


+
+