diff --git a/.gitignore b/.gitignore index 28889f8..bd6d4c1 100644 --- a/.gitignore +++ b/.gitignore @@ -5,4 +5,6 @@ debian/projman.substvars debian/files debian/projman.debhelper.log debian/*.tmp -*.tmp \ No newline at end of file +debian/errors +*.tmp +errors \ No newline at end of file diff --git a/debian/changelog b/debian/changelog index 05c1a10..50326e9 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,9 +1,9 @@ projman (2.0.0-alpha19) stable; urgency=medium + * Добавлена передача сигналов для закрытия запущенного процесса * Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f * Добавлен диалог настроек * Добавил псевдо-терминал - * Исправлен changelog * Добавлен диалог при открытии файлов отличных от текстовых * Добавлен просмотр файлов изображений (png, bmp, gif, ppm, pgm) * Исправлена процедура опреления типа файла diff --git a/lib/editor.tcl b/lib/editor.tcl index dc592a0..cfa315c 100644 --- a/lib/editor.tcl +++ b/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 } } diff --git a/lib/procedure.tcl b/lib/procedure.tcl index 48a89b9..4a57d3e 100644 --- a/lib/procedure.tcl +++ b/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 [list Run $w $filePath] - bind $w.frame.text [list destroy $w] - bind $w.frame.text [list destroy $w] + bind $w.frame.text [list CloseExecuteDialog $w $activeEditor] + bind $w.frame.text [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" diff --git a/projman.tcl b/projman.tcl index 18e7299..d937268 100755 --- a/projman.tcl +++ b/projman.tcl @@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@" ###################################################### # Version: 2.0.0 # Release: alpha19 -# Build: 29102025214442 +# Build: 30102025125227 ###################################################### # определим текущую версию, релиз и т.д.