Начало работы с внешними инструментами:

- Добавлено создание и работа (проверка параметров, сохранение) с файлом настроек tools.ini
- Добавлено создание меню 'Инструменты' как основного так и контекстного (всплывающего) на основе  tools.ini.

.gitea/workflows/build.yml

@@ -1,9 +1,10 @@
-name: Build and Create Tag Release
+name: Build and Release
 on:
   push:
     branches:
       - master
       - main
+  workflow_dispatch:  # Ручной запуск
 
 jobs:
   build:
@@ -19,56 +20,250 @@ jobs:
           VERSION=$(grep "Version" projman.tcl | head -1 | grep -o '[0-9.]\+[a-zA-Z0-9]*' || echo "1.0.0")
           RELEASE=$(grep "# Release" projman.tcl | tail -1 | awk '{print $NF}' || echo "$(date +%Y%m%d)")
           
-          # Создаем имя тега из версии
-          TAG="v${VERSION}-${RELEASE}"
+          # Создаем имя тега
+          TAG="v${VERSION}"
           echo "TAG=$TAG" >> $GITEA_ENV
           echo "VERSION=$VERSION" >> $GITEA_ENV
+          echo "RELEASE=$RELEASE" >> $GITEA_ENV
           
-          echo "Будет создан тег: $TAG"
+          echo "Тег: $TAG"
+          echo "Версия: $VERSION"
+          echo "Ревизия: $RELEASE"
 
-      - name: Создание тега в git
+      - name: Проверка существования тега
+        id: check_tag
         run: |
+          echo "Проверяем тег: $TAG"
+          
+          # Проверяем на удаленном сервере
+          if git ls-remote --tags origin "$TAG" 2>/dev/null | grep -q "$TAG"; then
+            echo "Тег $TAG уже существует на удаленном сервере"
+            echo "TAG_EXISTS_REMOTE=true" >> $GITEA_ENV
+          else
+            echo "Тег $TAG не существует на удаленном сервере"
+            echo "TAG_EXISTS_REMOTE=false" >> $GITEA_ENV
+          fi
+
+      - name: Создание тега (только если не существует)
+        if: env.TAG_EXISTS_REMOTE == 'false'
+        run: |
+          echo "Создаем новый тег: $TAG"
           git config user.email "svk@nuk-svk.ru"
           git config user.name "svk"
           
           # Создаем тег локально
-          git tag -a "$TAG" -m "Release $TAG"
+          git tag -a "$TAG" -m "Release $TAG - $RELEASE"
 
+          # Настраиваем URL для push
           git remote set-url origin "https://${{ secrets.USER }}:${{ secrets.API_TOKEN }}@git.nuk-svk.ru/${{ gitea.repository }}.git"
 
           # Пушим тег на сервер
           git push origin "$TAG"
+
       - name: Сборка пакетов
         run: |
+          echo "=== Сборка DEB пакета ==="
           cd debian && ./build-deb-projman.sh
+          
+          echo "=== Сборка OpenBSD пакета ==="
           cd ../openbsd && ./build-package-bsd.sh
           
+          echo "=== Собранные файлы ==="
+          find . -maxdepth 1 -name "projman*" -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"
+
+      - name: Проверка существования релиза
+        id: check_release
+        run: |
+          # Проверяем, существует ли уже релиз для этого тега
+          RESPONSE=$(curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/tags/$TAG" || echo "{}")
+          
+          echo "Ответ API проверки релиза: $RESPONSE"
+          
+          # Извлекаем id релиза - первый id в JSON
+          if echo "$RESPONSE" | grep -q '"id"'; then
+            # Извлекаем только первый id (id релиза), игнорируем id автора
+            # Используем awk для точного извлечения
+            REL_ID=$(echo "$RESPONSE" | awk -F'"id":' '{print $2}' | awk -F',' '{print $1}' | head -1 | tr -d ' ')
+            echo "Релиз уже существует. ID: $REL_ID"
+            echo "RELEASE_EXISTS=true" >> $GITEA_ENV
+            
+            # Очищаем и сохраняем REL_ID в файл
+            echo -n "$REL_ID" | tr -d '\n' > /tmp/rel_id.txt
+          else
+            echo "Релиз не существует"
+            echo "RELEASE_EXISTS=false" >> $GITEA_ENV
+            echo -n "" > /tmp/rel_id.txt
+          fi
+
+      - name: Создание или обновление релиза
+        id: create_release
+        run: |
+          # Читаем REL_ID из файла и очищаем от лишних символов
+          REL_ID=$(cat /tmp/rel_id.txt 2>/dev/null | tr -d '\n\r ' || echo "")
+          
+          echo "=== Работа с релизом для тега $TAG ==="
+          echo "RELEASE_EXISTS: $RELEASE_EXISTS"
+          echo "REL_ID: '$REL_ID'"
+          
+          RELEASE_BODY="## Projman $VERSION
+          
+          **Ревизия:** $RELEASE
+          **Дата сборки:** $(date)
+          **Коммит:** $(git rev-parse --short HEAD)"
+
+
+          # Экранируем переносы строк для JSON
+          ESCAPED_BODY=$(echo "$RELEASE_BODY" | sed ':a;N;$!ba;s/\n/\\n/g')
+          
+          if [ "$RELEASE_EXISTS" = "true" ] && [ -n "$REL_ID" ]; then
+            echo "Обновляем существующий релиз ID: $REL_ID"
+            
+            # Обновляем существующий релиз
+            RESPONSE=$(curl -s -X PATCH \
+              -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              -H "Content-Type: application/json" \
+              -d '{
+                "name": "Projman '"$VERSION"'",
+                "body": "'"$ESCAPED_BODY"'",
+                "draft": false,
+                "prerelease": false
+              }' \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID")
+              
+            echo "Ответ обновления релиза: $RESPONSE"
+            
+            # Проверяем ответ
+            if echo "$RESPONSE" | grep -q '"id"'; then
+              echo "Релиз успешно обновлен"
+            else
+              echo "ОШИБКА: Не удалось обновить релиз"
+              echo "Ответ: $RESPONSE"
+              exit 1
+            fi
+            
+          else
+            echo "Создаем новый релиз"
+            
+            # Создаем новый релиз
+            RESPONSE=$(curl -s -X POST \
+              -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              -H "Content-Type: application/json" \
+              -d '{
+                "tag_name": "'"$TAG"'",
+                "name": "Projman '"$VERSION"'",
+                "body": "'"$ESCAPED_BODY"'",
+                "draft": false,
+                "prerelease": false
+              }' \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases")
+            
+            echo "Ответ создания релиза: $RESPONSE"
+            
+            # Получаем ID нового релиза
+            NEW_REL_ID=$(echo "$RESPONSE" | awk -F'"id":' '{print $2}' | awk -F',' '{print $1}' | head -1 | tr -d ' ')
+            if [ -n "$NEW_REL_ID" ]; then
+              echo "Новый ID релиза: $NEW_REL_ID"
+              echo -n "$NEW_REL_ID" > /tmp/rel_id.txt
+            else
+              echo "ОШИБКА: Не удалось получить ID релиза из ответа"
+              echo "Ответ: $RESPONSE"
+              echo -n "" > /tmp/rel_id.txt
+              exit 1
+            fi
+          fi
+
+      - name: Загрузка файлов в релиз
+        run: |
+          # Читаем REL_ID из файла и очищаем
+          REL_ID=$(cat /tmp/rel_id.txt 2>/dev/null | tr -d '\n\r ' || echo "")
+          
+          if [ -z "$REL_ID" ]; then
+            echo "Нет ID релиза, пропускаем загрузку файлов"
+            exit 0
+          fi
+          
+          echo "=== Загрузка файлов в релиз ==="
+          echo "ID релиза для загрузки: $REL_ID"
+          
+          # Находим все файлы projman
+          FILES=$(find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" \) -type f)
+          if [ -z "$FILES" ]; then
+            echo "Нет файлов projman для загрузки"
+            exit 0
+          fi
+          
+          echo "Найдены файлы:"
+          echo "$FILES"
+          
+          # Сначала проверим существующие ассеты
+          echo "=== Проверяем существующие ассеты ==="
+          curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID/assets" | \
+            jq -r '.[].name' 2>/dev/null || echo "Не удалось получить список ассетов"
+          
+          # Загружаем каждый файл
+          for FILE in $FILES; do
+            FILENAME=$(basename "$FILE")
+            echo "Загружаем: $FILENAME"
+            
+            # Используем правильный endpoint для загрузки ассетов
+            UPLOAD_URL="${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID/assets"
+            
+            echo "URL загрузки: $UPLOAD_URL?name=$FILENAME"
+            
+            # Загружаем файл
+            RESPONSE=$(curl -s -w "\nHTTP_STATUS:%{http_code}" \
+              --user "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              -H "Content-Type: application/octet-stream" \
+              -X POST \
+              --data-binary @"$FILE" \
+              "$UPLOAD_URL?name=$FILENAME")
+            
+            HTTP_STATUS=$(echo "$RESPONSE" | grep "HTTP_STATUS:" | cut -d':' -f2)
+            API_RESPONSE=$(echo "$RESPONSE" | grep -v "HTTP_STATUS:")
+            
+            echo "Статус: $HTTP_STATUS"
+            echo "Ответ API: $API_RESPONSE"
+            
+            if [ "$HTTP_STATUS" = "201" ] || [ "$HTTP_STATUS" = "200" ]; then
+              echo "✅ Файл загружен: $FILENAME"
+            else
+              echo "❌ ОШИБКА загрузки: $FILENAME"
+              echo "Детали: $API_RESPONSE"
+            fi
+            
+            echo "---"
+          done
+          
+          # Проверяем итоговый список ассетов
+          echo "=== Итоговый список ассетов ==="
+          curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID/assets" | \
+            jq -r '.[] | "\(.name) - \(.browser_download_url)"' 2>/dev/null || \
+            curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID/assets" | \
+              grep -o '"name":"[^"]*"' | cut -d'"' -f4
+
+      - name: Финализация
+        run: |
+          # Читаем REL_ID из файла
+          REL_ID=$(cat /tmp/rel_id.txt 2>/dev/null | tr -d '\n\r ' || echo "")
+          
+          echo "=== Сборка завершена ==="
+          echo "Тег: $TAG"
+          echo "Версия: $VERSION"
+          echo "Ревизия: $RELEASE"
+          echo "ID релиза: $REL_ID"
+          
+          if [ -n "$REL_ID" ]; then
+            echo "Проверяем файлы в релизе..."
+            curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/$REL_ID/assets" | \
+              grep -o '"name":"[^"]*"' | cut -d'"' -f4 || echo "Не удалось получить список файлов"
+          else
+            echo "Релиз не был создан или ID не получен"
+          fi
+          
           echo "Собранные файлы:"
-          ls -la projman*
-
-      - name: Создание релиза с тегом
-        run: |
-          echo "Создаем релиз для тега: $TAG"
-          
-          curl -X POST \
-            -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
-            -H "Content-Type: application/json" \
-            -d '{
-              "tag_name": "'"$TAG"'",
-              "name": "Projman '"$VERSION"'",
-              "body": "## Информация о сборке\n\n- Версия: '"$VERSION"'\n- Дата: '"$(date)"'\n- Коммит: '"$(git rev-parse --short HEAD)"'",
-              "draft": false,
-              "prerelease": false
-            }' \
-            "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases"
-
-      - name: Загрузка файлов
-        run: |
-          # Загружаем все файлы projman*
-          curl -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
-              --upload-file "../projman_2.0.0-beta1_amd64.deb" \
-              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/tags/$TAG/assets?name=../projman_2.0.0-beta1_amd64.deb"
-          curl -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
-              --upload-file "../projman-2.0.0beta1.tgz" \
-              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/tags/$TAG/assets?name=../projman-2.0.0beta1.tgz"
-
+          find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" \) -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"

lib/gui.tcl

@@ -135,7 +135,11 @@ GetEditMenu [menu .frmMenu.mnuEdit.m]
 ttk::menubutton .frmMenu.mnuView -text [::msgcat::mc "View"] -menu .frmMenu.mnuView.m
 GetViewMenu [menu .frmMenu.mnuView.m]
 
-pack .frmMenu.mnuFile .frmMenu.mnuEdit .frmMenu.mnuView -side left
+ttk::menubutton .frmMenu.mnuTools -text [::msgcat::mc "Tools"] -menu .frmMenu.mnuTools.m
+Tools::GetMenu [menu .frmMenu.mnuTools.m]
+
+
+pack .frmMenu.mnuFile .frmMenu.mnuEdit .frmMenu.mnuView .frmMenu.mnuTools -side left
 
 ttk::menubutton .frmMenu.mnuHelp -text [::msgcat::mc "Help"] -menu .frmMenu.mnuHelp.m
 GetHelpMenu [menu .frmMenu.mnuHelp.m]
@@ -151,6 +155,9 @@ GetFileMenu .popup.file
 menu .popup.view
 .popup add cascade -label [::msgcat::mc "View"] -menu .popup.view 
 GetViewMenu .popup.view
+menu .popup.tools
+.popup add cascade -label [::msgcat::mc "Tools"] -menu .popup.tools
+Tools::GetMenu .popup.tools
 
 set frmTool [ttk::frame .frmBody.frmTool]
 ttk::panedwindow .frmBody.panel -orient horizontal -style TPanedwindow

lib/msgs/en.msg

@@ -174,6 +174,7 @@
 ::msgcat::mcset en "Title normal"
 ::msgcat::mcset en "Title modify"
 ::msgcat::mcset en "Toolbar"
+::msgcat::mcset en "Tools"
 ::msgcat::mcset en "Undo"
 ::msgcat::mcset en "Update"
 ::msgcat::mcset en "Variables"
@@ -185,4 +186,3 @@
 ::msgcat::mcset en "Work dir"
 
 
-

lib/msgs/ru.msg

@@ -214,6 +214,7 @@
 ::msgcat::mcset ru "Title normal" "Файл нормальный"
 ::msgcat::mcset ru "Title modify" "Файл изменен"
 ::msgcat::mcset ru "Toolbar" "Панель инструментов"
+::msgcat::mcset ru "Tools" "Инструменты"
 ::msgcat::mcset ru "User name" "Имя пользователя"
 ::msgcat::mcset ru "Undo" "Отменить"
 ::msgcat::mcset ru "Update" "Обновить"

lib/tools.tcl

@@ -0,0 +1,150 @@
+##################################################################
+# tools.tcl - this file implements the logic of working
+#             with external tools.
+##################################################################
+# svk, 01/2026
+##################################################################
+
+namespace eval Tools {} {
+    variable toolsINISections
+    variable toolsVariables
+}
+
+set ::toolsDefault "\[VisualRegexp\]
+commandString=tkregexp %
+description'A graphical front-end to write/debug regular expression
+icon=
+shortCut=
+\[TkDIFF\]
+commandString=tkdiff %f %f
+description=TkDiff is a Tcl/Tk front-end to diff
+icon=
+shortCut=
+"
+# Создание файла настроек внешних инструментов
+proc Tools::Create {dir} {
+    set toolsFile [open [file join $dir tools.ini]  "w+"]
+    puts $toolsFile $::toolsDefault
+    close $toolsFile
+}
+
+proc Tools::Read {dir} {
+    set toolsFile [ini::open [file join $dir tools.ini] "r"]
+    foreach section [ini::sections $toolsFile] {
+        foreach key [ini::keys $toolsFile $section] {
+            lappend ::toolsINIsections($section) $key
+            dict set ::toolsVariables $section $key [ini::value $toolsFile $section $key]
+            DebugPuts "Tools::Read: $toolsFile $section $key = [ini::value $toolsFile $section $key]"
+        }
+    }
+    ini::close $toolsFile
+}
+
+proc Tools::Write {dir} {
+    set toolsFile [ini::open [file join $dir tools.ini] "w"]
+    foreach section  [array names ::toolsINIsections] {
+        dict for {key value} [dict get $::toolsVariables $section] {
+            DebugPuts "Tools::write: $section $key = $value"
+            # ini::set $toolsFile $section $key [dict get $::toolsVariables $section $key]
+            ini::set $toolsFile $section $key $value
+        }
+    }
+    ini::commit $toolsFile
+    ini::close $toolsFile
+}
+
+# Добавление перменной в список 
+# если отсутствует нужная секция то она будет добавлена.
+proc Tools::AddVariable {key value section} {
+    # Проверяем, существует ли уже такая переменная
+    if {[info exists ::toolsVariables($key)]} {
+        DebugPuts "The variable '$key' already exists: "
+        return 0
+    }
+    # Добавляем в массив переменных
+    # set ::toolsVariables($key) $value
+    dict set ::toolsVariables $section $key $value
+    # Добавляем в список ключей секции
+    if {[dict exists $::toolsVariables $key]} {
+        # Проверяем, нет ли уже такого ключа в секции
+        if {[lsearch -exact $::toolsINIsections($section) $key] == -1} {
+            lappend ::toolsINIsections($section) $key
+        }
+    } else {
+        set ::toolsINIsections($section) [list $key]
+    }
+    DebugPuts "Tools::AddVariable: The variable '$key' has been added to the '$section' array 'toolsVariables' with value '$value'"
+    
+    return 1
+}
+
+# Проверяем наличие переменных в tools.ini на основе "эталонного" списка 
+# и выставляем значение по умолчанию если в конфиге переменной нет
+proc Tools::CheckVariables {} {
+    set valList [split $::toolsDefault "\n"]
+    foreach item $valList {
+        if {[regexp -nocase -all -- {\[(\w+)\]} $item -> v1]} {
+            set section $v1
+        }
+        if {[regexp {^([^=]+)=(.*)$} $item -> key value]} {
+            # puts "$section $key $value >> [dict get $::toolsVariables $section $key]"
+            # if {[dict get $::toolsVariables $section $key] eq ""} 
+            if ![dict exists $::toolsVariables $section $key] {
+                DebugPuts "Error in Tools::CheckVariables: variable $section $key not found"
+                Tools::AddVariable "$key" "$value" "$section"
+                # DebugPuts "Tools::CheckVariables: The variable toolsVariables $key setting to default value \"$value\""
+            }
+        }
+    }
+    foreach id [dict keys $::toolsVariables] {
+        DebugPuts "Tools::CheckVariables: config parameters for $id [dict get $::toolsVariables $id]!"
+    }
+    # DebugPuts "toolsVariables dict keys: [dict keys $::toolsVariables]"
+}
+
+proc Tools::GetMenu {m} {
+    global cfgVariables toolsVariables
+    foreach toolName [dict keys $toolsVariables] {
+        dict for {key value} [dict get $toolsVariables $toolName] {
+            DebugPuts "GetToolsMenu $key $value"
+            if {$key eq "commandString"} {
+                set cmd "$value"
+            }
+            if {$key eq "shortCut"} {
+                set shortCut "$value"
+            }
+        }
+        if {[info exists cmd] == 1 && $cmd ne ""} {
+            if {[info exists shortCut] == 1 && $shortCut ne ""} {
+                $m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"]
+            } else {
+                $m add command -label $toolName -command [list Tools::Execute "$toolName"]
+            }
+        }
+    }
+}
+
+proc Tools::Execute {toolName} {
+    global cfgVariables toolsVariables
+    if ![dict exists $::toolsVariables $toolName commandString] {
+        DebugPuts "Tools::Execute: command for $toolName not found"
+        return
+    } else {
+        set command [dict get $::toolsVariables $toolName commandString]
+        DebugPuts "Tools::Execute: command for $toolName as $command"
+    }
+    # 1. Определять текущий файл
+    # 2. Определять выделен ли текст в открытом редакторе
+    # 3. Опеределять сколько файлов выделено в дереве
+    # 4. Заменяем знак %f на имя текущего файла (файлов)
+    # regsub -all "%f" $command "$filePath" fullCommand
+    # 5. Заменяем %s на выделенный в редакторе текст 
+    # 6. Заменяем %d на текущий каталог(и), если он выделен в дереве,
+    #    и если не выделено то корневой открытый в дереве
+    # 7. Проверять команды на доступность в системе и подставлять полный путь к команде
+    #    если в конфиге не указан полный путь.
+    set pipe [open "|$command" "r"]
+    fileevent $pipe readable
+    fconfigure $pipe -buffering none -blocking no
+}
+

openbsd/build-package-bsd.sh

@@ -49,7 +49,6 @@ cat > ${WORK_DIR}/${PKG_FULLNAME}/+CONTENTS << EOF
 @depend devel/tklib:tklib-*:tcl-*
 @comment Editor for Tcl/Tk and other languages.
 @arch amd64
-@wantlib pthread
 @ignore
 @cwd /usr/local
 EOF
@@ -78,7 +77,7 @@ Supported languages for highlighting and navigation:
 Tcl/Tk, GO, Perl, Python, Ruby, Shell (BASH), Markdown, YAML (Ansible), Lua.
 EOF
 
-(cd ${WORK_DIR} && tar -czf ../../../${PKG_FULLNAME}.tgz ${PKG_FULLNAME}/)
+(cd ${WORK_DIR}/${PKG_FULLNAME}/ && pwd && ls -1 && tar -czf ../../../../${PKG_FULLNAME}.tgz .)
 
 echo "Package created: ${PKG_FULLNAME}.tgz"
 

projman.tcl

@@ -114,13 +114,22 @@ foreach modFile [lsort [glob -nocomplain [file join $dir(theme) *]]] {
 }
 
 
-# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
-if {[file exists [file join $dir(cfg) projman.ini]] ==0} {
+# загружаем пользовательский конфиг, если он отсутствует или пустой, то копируем дефолтный
+if {[file exists [file join $dir(cfg) projman.ini]] == 0 || [file size [file join $dir(cfg) projman.ini]] == 0} {
     Config::create $dir(cfg)
 }
 Config::read $dir(cfg)
 Config::CheckVariables
 
+# загружаем пользовательский конфиг для инстурментов, если он отсутствует или пустой, то копируем дефолтный
+if {[file exists [file join $dir(cfg) tools.ini]] == 0 || [file size [file join $dir(cfg) tools.ini]] == 0} {
+    Tools::Create $dir(cfg)
+}
+# Читаем настройки для внешних инструментов
+Tools::Read $dir(cfg)
+Tools::CheckVariables
+Tools::Write $dir(cfg)
+
 ::msgcat::mclocale $cfgVariables(locale)
 
 if [::msgcat::mcload [file join $dir(lib) msgs]] {