From 8de8ec16be65d143c763b451cf6c8d55b407d4e5 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Tue, 20 Dec 2022 12:38:22 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?=
 =?UTF-8?q?=D0=BB=20=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4=D1=83=D1=80=D1=83?=
 =?UTF-8?q?=20Files::CloseAll=20('=D0=97=D0=B0=D0=BA=D1=80=D1=8B=D1=82?=
 =?UTF-8?q?=D1=8C=20=D0=B2=D1=81=D1=91')?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 INSTALL       | 9 ---------
 lib/files.tcl | 9 ++++-----
 2 files changed, 4 insertions(+), 14 deletions(-)
 delete mode 100644 INSTALL

diff --git a/INSTALL b/INSTALL
deleted file mode 100644
index 2c2c5dc..0000000
--- a/INSTALL
+++ /dev/null
@@ -1,9 +0,0 @@
-######################################################
-#	Tcl/Tk Project manager 2.0
-#	Distributed under GNU Public License
-# Author: Sergey Kalinin svk@nuk-svl.ru
-# Home page: https://nuk-svk.ru
-######################################################
-
-
-
diff --git a/lib/files.tcl b/lib/files.tcl
index a1c106c..430e1e4 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -201,11 +201,10 @@ namespace eval FileOper {
         if {[lsearch -exact [.frmWork.panelNB panes] .frmWork.nbEditor2] != -1} {
             .frmWork.panelNB forget .frmWork.nbEditor2
         }
-        foreach nbItem [array names modified] {
-            if {[info exists modified($nbItem)] == 1 && $modified($nbItem) eq "true"} {
-                catch {$nbEditor select $nbItem}
-                # puts "close tab $nbItem"
-                if {[Close] eq "cancel"} {return "cancel"}
+        foreach nbItem [$nbEditor tabs] {
+            catch {$nbEditor select $nbItem}
+            if {[Close] eq "cancel"} {
+                return "cancel"
             }
         }
     }