diff --git a/lib/editor.tcl b/lib/editor.tcl
index a10a97b..3c5d72a 100644
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -590,7 +590,7 @@ namespace eval Editor {
         $txt tag remove lightSelected 1.0 end
         
         if { [winfo exists .varhelper] } { destroy .varhelper }
-        puts $k
+        # puts $k
         switch $k {
             Return {
                 regexp {^(\s*)} [$txt get [expr $lineNum - 1].0 [expr $lineNum - 1].end] -> spaceStart
@@ -1477,6 +1477,7 @@ namespace eval Editor {
             ImageViewer $fileFullPath $itemName $fr
         } else {
             set frmText [Editor::EditorWidget $fr $fileType $nb]
+            dict set editors $frmText.t fileFullPath $fileFullPath
         }
         $fr.panelTxt add $frmText -weight 0
 
diff --git a/lib/files.tcl b/lib/files.tcl
index 925ffba..2a85df4 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -211,7 +211,7 @@ namespace eval FileOper {
     }
 
     proc Close {} {
-        global nbEditor modified tree
+        global nbEditor modified tree editors
         set nbItem [$nbEditor select]
 	    # puts "close tab $nbItem"
     	   
@@ -246,6 +246,8 @@ namespace eval FileOper {
         if [info exists modified($nbItem)] {
             unset modified($nbItem)
         }
+        # puts $nbItem
+        set editors [dict remove $editors $nbItem.frmText.t]
         .frmStatus.lblPosition configure -text ""
         .frmStatus.lblEncoding configure -text ""
         .frmStatus.lblSize configure -text ""
diff --git a/lib/tree.tcl b/lib/tree.tcl
index 340bc25..35ada20 100644
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -82,7 +82,7 @@ namespace eval Tree {
         set key [lindex [split $id "::"] 0]
         if {$values eq "" || $key eq ""} {return}
         
-        puts "$key $tree $values"
+        # puts "$key $tree $values"
         switch $key {
             directory {
                 FileOper::ReadFolder  $values             
@@ -104,7 +104,7 @@ namespace eval Tree {
         set key [lindex [split $id "::"] 0]
         if {$values eq "" || $key eq ""} {return}
         
-        puts "$key $tree $values"
+        # puts "$key $tree $values"
         switch -regexp $key {
             directory {
                 FileOper::ReadFolder  $values
diff --git a/projman.tcl b/projman.tcl
index a8f6256..de051dd 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 07122022142631
+# Build: 07122022155807
 ######################################################
 
 # определим текущую версию, релиз и т.д.