Исправил сохранение открытого каталога в настройках

lib/config.tcl

@@ -87,6 +87,8 @@ proc Config::write {dir} {
     ini::set $cfgFile "GUI" geometry [wm geometry .]
     if {$activeProject ne ""} {
         ini::set $cfgFile "General" opened $activeProject
+    } else {
+        ini::set $cfgFile "General" opened ""
     }
     ini::commit $cfgFile
     ini::close $cfgFile

lib/files.tcl

@@ -61,7 +61,7 @@ namespace eval FileOper {
 
     proc CloseFolder {} {
         global tree nbEditor activeProject
-        set activeProject ""
+
         set treeItem [$tree selection]
         set parent [$tree parent $treeItem]
         while {$parent ne ""} {
@@ -80,6 +80,7 @@ namespace eval FileOper {
             }
             $tree delete $treeItem
         }
+        set activeProject ""
     }
 
     proc CloseAll {} {