Added opening last active project when project run

lib/procedure.tcl

@@ -312,7 +312,7 @@ proc SendEmail {mail} {
 }
 ## QUIT PROJECT MANAGER PROCEDURE ##
 proc Quit {} {
-    global workDir
+    global workDir activeProject
     set v [FileDialog tree close_all]
     if {$v == "cancel"} {
         return
@@ -325,6 +325,8 @@ proc Quit {} {
         while {[gets $file line]>=0} {
             if {[regexp -nocase -all -- {set topLevelGeometry} $line match]} {
                 puts $file1 "set topLevelGeometry \"[winfo geometry .]\""
+            } elseif {[regexp -nocase -all -- {set workingProject} $line match]} {
+                puts $file1 "set workingProject \"$activeProject\""
             } else {
                 puts $file1 "$line"
             }
@@ -660,19 +662,3 @@ proc GetExtention {node} {
     return $ext
 }
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-