Добавлен диалог сохранения файла при закрытии вкладки редактора и при выходе из программы если есть несохраненные файлы

lib/procedure.tcl

@@ -12,7 +12,11 @@
 proc Quit {} {
     global dir
     Config::write $dir(cfg)
-    exit
+    if {[FileOper::CloseAll] eq "cancel"} {
+        return "cancel"
+    } else {
+        exit
+    }
 }
 
 proc ViewFilesTree {} {
@@ -70,4 +74,3 @@ proc SetModifiedFlag {w} {
     $nbEditor tab $w -text $lbl
 }
 
-