Исправлена ошибка с закрытием файлов в редакторе при закрытии папки

lib/files.tcl

@@ -157,26 +157,30 @@ namespace eval FileOper {
             set treeItem $parent
             set parent [$tree parent $treeItem]
         }
+        set upper [Tree::GetUpperItem $tree $treeItem]
         if {$parent eq "" && [string match "directory::*" $treeItem] == 1} {
             # puts "tree root item: $treeItem"
+            set proj [string trimleft $upper "directory::"]
             foreach nbItem [$nbEditor tabs] {
                 set item [string trimleft [file extension $nbItem] "."]
-                # puts $item
+                # puts "$upper $item"
+                if [string match "$proj*" $item] {
                     if [$tree exists "file::$item"] {
                         $nbEditor select $nbItem
                         Close
                     }
                 }
+            }
             set nextProj [$tree next $treeItem]
             # puts $nextProj
             set prevProj [$tree prev $treeItem]
             # puts $prevProj
             if {$nextProj ne ""} {
                 SetActiveProject [$tree item $nextProj -values]
-                puts $activeProject
+                # puts $activeProject
             } elseif {$prevProj ne ""} {
                 SetActiveProject [$tree item $prevProj -values]
-                puts $activeProject
+                # puts $activeProject                
             } else {
                 unset activeProject
                 .frmStatus.lblGitLogo configure -image pixel