новая сборка

debian/changelog

@@ -1,11 +1,12 @@
-projman (2.0.0-alpha19) stable; urgency=medium
+projman (2.0.0-alpha20) stable; urgency=medium
 
-  *  Небольшие исправления
+  *  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
 
- -- Sergey Kalinin <svk@nuk-svk.ru>  Thu, 30 Oct 2025 14:47:05 +0300
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Fri, 31 Oct 2025 18:56:38 +0300
 
 projman (2.0.0-alpha19) stable; urgency=medium
 
+  *  Переделал сигналы и сочетния
   *  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
   *  Добавлена передача сигналов для закрытия запущенного процесса
   *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
@@ -395,3 +396,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

lib/files.tcl

@@ -279,14 +279,16 @@ namespace eval FileOper {
                     -icon question -type yesnocancel \
                     -detail [::msgcat::mc "Do you want to save it?"]]
                 switch $answer {
-                    yes Save
+                    yes {Save close}
                     no {}
                     cancel {return "cancel"}
                 }
             }
         }
-        $nbEditor forget $nbItem
-        destroy $nbItem
+        if {[$nbEditor select] eq $nbItem} {
+            $nbEditor forget $nbItem
+            destroy $nbItem
+        }
         set treeItem "file::[string range $nbItem [expr [string last "." $nbItem] +1] end ]"
         if [$tree exists $treeItem] {
             # delete all functions from tree item
@@ -311,7 +313,7 @@ namespace eval FileOper {
         NB::NextTab $nbEditor 0
     }
     
-    proc Save {} {
+    proc Save {{type ""}} {
         global nbEditor tree env activeProject dir
 
         if [info exists activeProject] {
@@ -346,6 +348,12 @@ namespace eval FileOper {
         if {[file tail $filePath] eq "projman.ini"} {
             Config::read $dir(cfg)
         }
+        if [string match "*untitled*" $nbEditorItem] {
+            FileOper::Close
+            if {$type ne "close"} {
+                FileOper::Edit $filePath
+            }
+        }
     }
     
     proc SaveAll {} {

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: alpha19
-# Build: 30102025145246
+# Release: alpha20
+# Build: 31102025185656
 ######################################################
 
 # определим текущую версию, релиз и т.д.