From a2880d5dd6f9430c7d2ca3c7e1db8d23d04176ea Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 7 Dec 2022 16:00:04 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=BE=20=D1=81=D0=BE=D1=85=D1=80=D0=B0=D0=BD=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D1=81=D0=B5=D1=81=D1=81=D0=B8=D0=B8=20?=
 =?UTF-8?q?=D0=B2=20=D1=80=D0=B5=D0=B4=D0=B0=D0=BA=D1=82=D0=BE=D1=80=D0=B5?=
 =?UTF-8?q?=20(=D0=BE=D1=82=D0=BA=D1=80=D1=8B=D1=82=D0=B8=D0=B5=20=D0=BF?=
 =?UTF-8?q?=D0=B0=D0=BF=D0=BA=D0=B8=20=D0=B8=20=D1=84=D0=B0=D0=B9=D0=BB?=
 =?UTF-8?q?=D0=BE=D0=B2=20=D0=BF=D1=80=D0=B8=20=D1=81=D0=BB=D0=B5=D0=B4?=
 =?UTF-8?q?=D1=83=D1=8E=D1=89=D0=B5=D0=BC=20=D0=B7=D0=B0=D0=BF=D1=83=D1=81?=
 =?UTF-8?q?=D0=BA=D0=B5)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/editor.tcl | 3 ++-
 lib/files.tcl  | 4 +++-
 lib/tree.tcl   | 4 ++--
 projman.tcl    | 2 +-
 4 files changed, 8 insertions(+), 5 deletions(-)

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
 ######################################################
 
 # определим текущую версию, релиз и т.д.