Исправлено сохранение сессии в редакторе (открытие папки и файлов при следующем запуске)

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
 

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 ""

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

projman.tcl

@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 07122022142631
+# Build: 07122022155807
 ######################################################
 
 # определим текущую версию, релиз и т.д.