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

2022-12-07 16:00:04 +03:00
parent 9099d4ad61
commit a2880d5dd6
4 changed files with 8 additions and 5 deletions
--- 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 ""