Fixed Add new file if name was existing into tree

2018-02-24 12:22:08 +03:00
parent 5bb50aff06
commit 164317de93
5 changed files with 27 additions and 9 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -328,7 +328,9 @@ proc Quit {} {
            } elseif {[regexp -nocase -all -- {set workingProject} $line match]} {
               puts "set workingProject \"$activeProject\""
                puts $file1 "set workingProject \"$activeProject\""
+                puts "Current project - $activeProject"
            } else {
+                puts "> $line"
                puts $file1 "$line"
            }
        }
@@ -668,3 +670,4 @@ proc GetExtention {node} {



+