Новая сборка

debian/changelog

@@ -1,21 +1,17 @@
-<<<<<<< HEAD
-projman (2.0.0-alpha20) stable; urgency=medium
-=======
-projman (2.1.0-alpha0) stable; urgency=medium
+projman (2.0.0-alpha21) stable; urgency=medium
+
+  *  Исправил ошибку
+  *  Добавлены настройки путей к программам для выполнения редактируемых файлов для каждого поддержимаего типа. И использование этих настроек при выполнении файла.
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Wed,  3 Dec 2025 17:59:31 +0300
+
+projman (2.0.0-alpha20) stable; urgency=medium
 
-  *  Добавил вывод информации о версиях tcl и tk
   *  Добавил вывод номера версии tcl/tl в О Программе
 
- -- Sergey Kalinin <svkalinin@samsonpost.ru>  Mon, 10 Nov 2025 13:13:44 +0300
-
-projman (2.1.0-alpha0) stable; urgency=medium
-
-  *  Незначительные изменения
-
- -- Sergey Kalinin <svkalinin@samsonpost.ru>  Mon, 10 Nov 2025 13:00:43 +0300
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 03 Dec 2025 17:22:44 +0300
 
 projman (2.0.0-alpha19) stable; urgency=medium
->>>>>>> tcltk9.0
 
   *  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
   *  Добавил проверку пакета Img. И поправил проверку типов изображений
@@ -435,3 +431,5 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+
+

lib/procedure.tcl

@@ -258,11 +258,7 @@ namespace eval Help {
         set msg "Tcl/Tk project Manager\n\n"
         append msg  "Version: " $projman(Version) "\n" \
             "Release: " $projman(Release) "\n" \
-<<<<<<< HEAD
-            "Build: " $projman(Build) "\n\n" \
-=======
             "Build: " $projman(Build) "\n" \
->>>>>>> tcltk9.0
             "Tcl Version: " $tcl_version "\n" \
             "Tk Version: " $tk_version "\n\n" \
             "Author: " $projman(Author) "\n" \
@@ -915,17 +911,12 @@ proc Execute {filePath w activeEditor} {
     $txt insert end "[::msgcat::mc "Enter command for execute file"] $filePath >\n"
     set pos [$w.frame.text index insert]
     set lineNum [lindex [split $pos "."] 0]
-<<<<<<< HEAD
-    $txt insert 0.0 "======================================================================================\n"
-    $txt tag add bold $lineNum.0 $lineNum.end
-    Highlight::ExecuteColorized $txt
-=======
     $w.frame.text insert 0.0 "======================================================================================\n"
 
     # Added executor from config
     set fileType [string toupper [string trimleft [file extension $filePath] "."]]
-    if {[info exists cfgVariables(fileType)] == 0} {
-         $w.frame.text insert end "$cfgVariables($fileType) "
+    if {[info exists cfgVariables($fileType)] != 0 && $cfgVariables($fileType) ne ""} {
+         $w.frame.text insert end "$cfgVariables($fileType) %f"
     }
     unset fileType
     # $w.frame.text insert end [string toupper [string trimleft [file extension $filePath] "."]]
@@ -933,7 +924,7 @@ proc Execute {filePath w activeEditor} {
 
     $w.frame.text tag add bold $lineNum.0 $lineNum.end
     Highlight::ExecuteColorized $w.frame.text
->>>>>>> tcltk9.0
+
     # focus -force $w.frame.text
     
     # Привязки событий для защиты от редактирования

projman.tcl

@@ -1,6 +1,6 @@
 #!/bin/sh
 # Tcl ignores the next line -*- tcl -*- \
-exec wish9.0 "$0" -- "$@"
+exec wish8.6 "$0" -- "$@"
 
 ######################################################
 #        Tcl/Tk Project manager 2.0
@@ -8,15 +8,9 @@ exec wish9.0 "$0" -- "$@"
 # Author: Sergey Kalinin svk@nuk-svk.ru
 # Home page: https://nuk-svk.ru
 ######################################################
-<<<<<<< HEAD
 # Version: 2.0.0
-# Release: alpha20
-# Build: 07112025145212
-=======
-# Version: 2.1.0
-# Release: alpha0
-# Build: 10112025132121
->>>>>>> tcltk9.0
+# Release: alpha21
+# Build: 03122025180445
 ######################################################
 
 # определим текущую версию, релиз и т.д.