Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.

.gitignore

@@ -5,4 +5,6 @@ debian/projman.substvars
 debian/files
 debian/projman.debhelper.log
 debian/*.tmp
-*.tmp
+debian/errors
+*.tmp
+errors

debian/changelog

@@ -1,9 +1,9 @@
 projman (2.0.0-alpha19) stable; urgency=medium
 
+  *  Добавлена передача сигналов для закрытия запущенного процесса
   *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
   *  Добавлен диалог настроек
   *  Добавил псевдо-терминал
-  *  Исправлен  changelog
   *  Добавлен диалог при открытии файлов отличных от текстовых
   *  Добавлен просмотр файлов изображений (png, bmp, gif, ppm, pgm)
   *  Исправлена процедура опреления типа файла

lib/editor.tcl

@@ -1602,7 +1602,7 @@ namespace eval Editor {
         set frmText [ttk::frame $w.frmText2 -border 1]
         $w.panelTxt add $frmText -weight 1
         # focus -force $frmText.t.t
-        Execute $fileFullPath $frmText
+        Execute $fileFullPath $frmText $w
     }
 
 }

lib/procedure.tcl

@@ -827,7 +827,7 @@ proc MakeTGZ {} {
 }
 
 ## MAKE PROJ PROCEDURE (RUNNING PROJECT) ##
-proc Execute {filePath w} {
+proc Execute {filePath w activeEditor} {
     global activeProject cfgVariables
     if {$activeProject == ""} {
         set answer [tk_messageBox\
@@ -858,8 +858,8 @@ proc Execute {filePath w} {
     pack $w.frame.yscroll -side left -fill y 
     
     bind $w.frame.text <Return> [list Run $w $filePath]
-    bind $w.frame.text <Control-r> [list destroy $w]
-    bind $w.frame.text <Control-Cyrillic_er> [list destroy $w]
+    bind $w.frame.text <Control-r> [list CloseExecuteDialog $w $activeEditor]
+    bind $w.frame.text <Control-Cyrillic_er> [list CloseExecuteDialog $w $activeEditor]
     # focus -force $w.frmBtn.btnOk
     # $noteBook raise $node
     # insert debug data into text widget #
@@ -877,6 +877,11 @@ proc Execute {filePath w} {
     focus -force $w.frame.text.t
 }
 
+proc CloseExecuteDialog {w activeEditor} {
+    destroy $w
+    focus $activeEditor.frmText.t.t
+}
+
 proc Run {w filePath} {
     # Получаем индекс конца последней строки
     set endIndex [$w.frame.text index "end-1c"];  # или "end-1l lineend"

projman.tcl

@@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha19
-# Build: 29102025214442
+# Build: 30102025125227
 ######################################################
 
 # определим текущую версию, релиз и т.д.