Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке

Добавил поддержку С (подсветка, навигация)
Добавил копирование готовых пакетов
2026-02-06 18:42:47 +03:00 · 2026-02-06 18:03:04 +03:00 · 2026-02-06 15:22:39 +03:00 · 2026-02-06 15:12:38 +03:00 · 2026-02-06 14:07:53 +03:00 · 2026-02-06 13:57:07 +03:00
30 changed files with 2119 additions and 397 deletions
--- a/.gitea/workflows/build.yml
+++ b/.gitea/workflows/build.yml
@@ -1,17 +1,272 @@
-name: Gitea Actions Demo
-run-name: ${{ gitea.actor }} is testing out Gitea Actions 🚀
-on: [push]
+name: Build and Release
+on:
+  push:
+    branches:
+      - master
+      - main
+  workflow_dispatch:  # Ручной запуск

 jobs:
-  Explore-Gitea-Actions:
+  build:
    runs-on: tcl-tk-builder
    steps:
-      - name: Build the packages
+      - name: Клонирование
        run: |
-          git clone ${{ vars.main_url }}${{ gitea.repository }}
-          pwd
-          cd projman/debian
-          ./build-deb-projman.sh
-          cd ../../
-          curl --user ${{ vars.user}}:${{vars.api_token}} --upload-file "$(ls -1| grep projman | grep -E 'deb$')" ${{vars.main_url}}api/packages/${{vars.user}}/debian/pool/bookworm/main/upload
-      - run: echo "This job's status is ${{ job.status }}."
+          git clone "${{ vars.main_url }}${{ gitea.repository }}.git" .
+          
+      - name: Получение версии
+        id: get_version
+        run: |
+          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}"
+          echo "TAG=$TAG" >> $GITEA_ENV
+          echo "VERSION=$VERSION" >> $GITEA_ENV
+          echo "RELEASE=$RELEASE" >> $GITEA_ENV
+          
+          echo "Тег: $TAG"
+          echo "Версия: $VERSION"
+          echo "Ревизия: $RELEASE"
+
+      - 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 - $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 "=== Сборка RPM пакета ==="
+          cd ../redhat && ./build-rpm.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" -o -name "*projman*rpm" \) -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 "Собранные файлы:"
+          find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" -o -name "*projman*rpm"\) -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"
--- a/121
+++ b/121
@@ -1,4 +1,123 @@
-projman (2.0.0-alfa16)
+
+projman (2.0.0-beta1) stable; urgency=medium
+
+  *  Сделан вывод отладочной информации по запросу.
+  *  Добавлены параметры в файл конфигурации "debug" - включение или отключение отладки и "debugOut" - куда выводить информацию.
+  *  Переделка кода.
+  *  Добавлены процедуры проверки наличия параметров конфигурации в файле и устанвоки переменных по умолчанию.
+
+ -- svk <svk@nuk-svk.ru>  Wed, 21 Jan 2026 16:44:07 +0300
+
+projman (2.0.0-alpha24) stable; urgency=medium
+
+  *  Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
+  *  Исправил вставку кавычек при выделении текста
+  *  Исправил ошибку при отправке сигналов несуществующему процессу.
+  *  Уменьшил всплывающее меню: вынес менюшки Файл и Вид в подменю.
+  *  Изменил команду загрузки пакета в репу
+
+ -- svk <svk@nuk-svk.ru>  Wed, 21 Jan 2026 16:35:06 +0300
+
+projman (2.0.0-alpha23) stable; urgency=medium
+
+  *  Исправлен флаг модификации при открытии файла
+  *  Исправлена 'Отмена' до пустого файла. Внес исправления на основе изменений https://github.com/wandrien/projman
+  *  Исправлено поведение при сочетании клавиш Control-y (повторение последнего действия)
+
+ -- svk <svk@nuk-svk.ru>  Mon, 19 Jan 2026 14:49:29 +0300
+
+projman (2.0.0-alpha22) stable; urgency=medium
+
+  *  Исправил закрытие вкладок редактора и сохранение файла при разделении экрана.
+  *  Новая сборка
+
+ --  Sergey Kalinin <svk@nuk-svk.ru>  Wed,  3 Dec 2025 18:06:32 +0300
+
+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/tl в О Программе
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 03 Dec 2025 17:22:44 +0300
+
+projman (2.0.0-alpha19) stable; urgency=medium
+
+  *  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
+  *  Добавил проверку пакета Img. И поправил проверку типов изображений
+  *  Переделал сигналы и сочетания
+  *  Небольшие исправления
+  *  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
+  *  Добавлена передача сигналов для закрытия запущенного процесса
+  *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
+  *  Добавлен диалог настроек
+  *  Добавил псевдо-терминал
+  *  Добавлен диалог при открытии файлов отличных от текстовых
+  *  Поправил тему оформления
+  *  Исправлена работа в windows
+  *  Уменьшил колдичество выводимой отладочной информации
+  *  Добавлено определение пути до git в зависимости от платформы.
+  *  Исправлено создание файла конфигурации
+  *  Исправлено создание файла конфигурации. Добавлены номера версий в вызов tclsh8.6 и wish8.6. Убрана зависимость на Threads.
+  *  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
+  *  Bugfix release
+  *  Bug fix with varhelper
+  *  Added the "Open Recent" menu. The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories. The procedures for working with this list have also been added.
+  *  Косметические изменения.
+  *  Исправлены ошибки при вставке кавычек
+
+ -- Калинин Сергей Валерьевич <svk@nuk-svk.ru>  Thu, 30 Jan 2025 12:19:56 +0300
+
+projman (2.0.0-alpha19) stable; urgency=medium
+
+  *  Переделал сигналы и сочетния
+  *  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
+  *  Добавлена передача сигналов для закрытия запущенного процесса
+  *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
+  *  Добавлен диалог настроек
+  *  Добавил псевдо-терминал
+  *  Добавлен диалог при открытии файлов отличных от текстовых
+  *  Добавлен просмотр файлов изображений (png, bmp, gif, ppm, pgm)
+  *  Исправлена процедура опреления типа файла
+  *  Добавлены диалоги для подтверждения открытия больших файлов, и двоичных файлов.
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Wed, 29 Oct 2025 13:10:31 +0300
+
+projman (2.0.0-alpha18) stable; urgency=medium
+
+  *  Поправил тему оформления
+  *  Исправлена работа в windows
+  *  Уменьшил количество выводимой отладочной информации
+  *  Добавлено определение пути до git в зависимости от платформы.
+  *  Исправлено создание файла конфигурации
+  *  Добавлены номера версий в вызов tclsh8.6 и wish8.6.
+  *  Убрана зависимость на Threads.
+  *  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
+  *  Исправление работы процедуры varhelper
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 27 Oct 2025 14:05:40 +0300
+
+projman (2.0.0-alpha17) stable; urgency=medium
+
+  *  Added the "Open Recent" menu.
+  *  The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories.
+  *  The procedures for working with this list have also been added.
+  *  Новая сборка
+
+ -- svk <svk@nuk-svk.ru>  Sat, 18 Oct 2025 16:29:50 +0300
+
+projman (2.0.0-alpha17) stable; urgency=medium
+
+  *  Косметические изменения.
+  *  Исправлены ошибки при вставке кавычек
+  *  Обновить README.md
+
+ -- svk <svk@nuk-svk.ru>  Thu, 31 Oct 2024 19:48:30 +0300

 Sergey Kalinin <svk@nuk-svk.ru>  Thu, 22 Aug 2024 15:09:19 +0300
  -  changelog-gen.tcl: Добавлена генерация текстового журнала изменений
--- a/README.md
+++ b/README.md
@@ -158,6 +158,29 @@ Or type "projman" into terminal, Or choose the name of the program "Projman" on
 - Alt-S - Split the edited window horizontally
 - Alt-K - Open folder

+### Work with external tools
+ProjMan allows you to connect any external tools to the editor. To do this, you need to add an entry to the file ~/.config/projman/tools.ini.
+
+Calling an external program is available through the main and pop-up menus. To transfer the parameters, write the appropriate template in the file.
+ - %s - template for substituting selected text in the editor
+ - %f - template for substituting selected file\(s\) in the file tree
+
+When adding multiple %f templates, the corresponding number of files allocated in the tree will be substituted.
+
+```
+[TkDIFF]
+commandString=tkdiff %f %f
+description=TkDiff is a Tcl/Tk front-end to diff
+icon=
+shortCut=
+
+[VisualRegexp]
+commandString=tkregexp "%s"
+description=A graphical front-end to write/debug regular expression
+icon=
+shortCut=
+```
+
 ## Credits

 Sergey Kalinin - author
--- a/changelog-gen.tcl
+++ b/changelog-gen.tcl
@@ -106,14 +106,14 @@ proc ReadGitLog {} {
    }
 }

-proc StoreProjectInfo {timeStamp} {
+proc StoreProjectInfo {timeStamp changelogFormat} {
    global dir args
-    set cfgFile [open [file join $dir(cfg) $args(--project-name).conf]  "w+"]
+    set cfgFile [open [file join $dir(cfg) $args(--project-name).$changelogFormat.conf]  "w+"]
    puts $cfgFile "# set args(--project-version) \"$args(--project-version)\""
    puts $cfgFile "# set args(--project-release) \"$args(--project-release)\""
    puts $cfgFile "set lastCommitTimeStamp \"$timeStamp\""
    puts $cfgFile "set lastCommitTimeStampSec [clock scan $timeStamp]"
-    close $cfgFile   
+    close $cfgFile
 }


@@ -141,37 +141,77 @@ proc GenerateChangelogDEB {} {
        set timeStamp [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
        # puts "> $commiter"
        if {$index == 0} {
-            puts "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
+            # puts "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
            append outText "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n\n"
            set commiter [lindex $record 2]
-            StoreProjectInfo $timeStamp
+            StoreProjectInfo $timeStamp "deb"
         	  # puts "\n \[ [string trim $commiter] \]"
        }
        # puts ">> $commiter"
        if {$commiter ne [lindex $record 2]} {
-            puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+            # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
            append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
-            puts "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
+            # puts "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
            append outText "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n\n"
            set commiter [lindex $record 2]
            # puts "\n \[ [string trim $commiter] \]"
        }
        
        set commitTex [lindex $record 4]
-        puts "  * $commitTex"
+        # puts "  * $commitTex"
        append outText "  * $commitTex\n"

    }
-    puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+    # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
    append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
    return $outText
 }

 proc GenerateChangelogRPM {} {
-    puts "GenerateChangelogRPM"
-    
+    global args
+    # puts "GenerateChangelogRPM"
+    set lastCommitTimeStamp ""
+    set commiter ""
+    set commitText ""
+    # ReadGitLog
+    set lst [lsort -integer -index 0 [ReadGitLog]]
+    # puts $lst
+    # exit
+    set outText ""
+    foreach l $lst {
+        set index [lindex $l 0]
+        set line [lindex $l 1]
+        # puts "$index - $line"
+        set record [split $line ","]
+        set timeStamp [string trim [lindex $record 1]]
+        set email [string trim [lindex $record 3]]
+        if {$lastCommitTimeStamp eq ""} {
+            set lastCommitTimeStamp [string trim [lindex $record 1]]
+        }
+        set timeStampForStore [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
+        set timeStamp [clock format [clock scan $timeStamp] -format {%a %b %e %Y}]
+        if {$index == 0} {
+            set commiter [lindex $record 2]
+            append outText "* $timeStamp [string trim $commiter] <$email> $args(--project-version)-$args(--project-release)\n"
+            StoreProjectInfo $timeStampForStore "rpm"
+        }
+        if {$commiter ne [lindex $record 2]} {
+            append outText "\n"
+            append outText "* $timeStamp [string trim $commiter] <$email> $args(--project-version)-$args(--project-release)\n"
+            set commiter [lindex $record 2]
+        }
+        
+        set commitTex [lindex $record 4]
+        # puts "  * $commitTex"
+        append outText "    - $commitTex\n"
+
+    }
+    # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+    # append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
+    return $outText
 }

+
 proc GenerateChangelogTXT {} {
    global args
    set lastCommitTimeStamp ""
@@ -189,14 +229,15 @@ proc GenerateChangelogTXT {} {
        if {$lastCommitTimeStamp eq ""} {
            set lastCommitTimeStamp [string trim [lindex $record 1]]
        }
-        set timeStamp [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
+        # * Mon Nov 28 2022 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0
+        set timeStamp [clock format [clock scan $timeStamp] -format {%a %b %e %Y %H:%M:%S %z}]
        # puts "> $commiter"
        if {$index == 0} {
            append outText "$args(--project-name) ($args(--project-version)-$args(--project-release))\n"
            set commiter [lindex $record 2]
            puts "\n[string trim $commiter] <$email>  $timeStamp"
            append outText "\n[string trim $commiter] <$email>  $timeStamp\n"
-            StoreProjectInfo $timeStamp
+            StoreProjectInfo $timeStamp "txt"
        }
        if {$commiter ne [lindex $record 2]} {
            puts "\n[string trim $commiter] <$email>  $timeStamp"
@@ -254,6 +295,68 @@ proc StoreChangeLog {outText} {
    } else {
        set outFile [open $args(--out-file)  "w+"]
        puts $outFile $outText
+        puts $outText
+        close $outFile
+    }
+}
+
+proc StoreChangeLogRPM {outText} {
+    global args
+    if [file exists $args(--out-file)] {
+        file copy -force $args(--out-file) "$args(--out-file).tmp"
+
+        set fh [open $args(--out-file) r]
+        set lines [split [read $fh] "\n"]
+        close $fh
+        
+        set result [list]
+        set inserted false
+        
+        foreach line $lines {
+            lappend result $line
+            
+            if {!$inserted && $line eq "%changelog"} {
+                lappend result $outText
+                set inserted true
+            }
+        }
+        
+        set fh [open $args(--out-file) w]
+        puts $fh [join $result "\n"]
+        close $fh
+    }
+}
+
+proc StoreChangeLogRPM_ {outText} {
+    global args
+    
+    puts "Changelog generator write a file $args(--out-file)"
+    
+    if [file exists $args(--out-file)] {
+        file copy -force $args(--out-file) "$args(--out-file).tmp"
+        
+        set origOutFile [open "$args(--out-file).tmp"  "r"]
+        set origText [read $origOutFile]
+        close $origOutFile
+        
+        set outFile [open $args(--out-file)  "w"]
+        puts $outFile $outText
+        puts $outFile $origText
+        close $outFile
+        
+        if [info exists args(--last)] {
+            set outFile [open $args(--out-file)  "r+"]
+            puts $outFile $outText
+            close $outFile
+        } else {
+            set outFile [open $args(--out-file)  "w+"]
+            puts $outFile $outText
+            close $outFile
+        }
+    } else {
+        set outFile [open $args(--out-file)  "w+"]
+        puts $outFile $outText
+        puts $outText
        close $outFile
    }
 }
@@ -311,26 +414,43 @@ if ![info exists args(--project-release)] {
    exit
 }

-if [file exists [file join $dir(cfg) $args(--project-name).conf]] {
-    source [file join $dir(cfg) $args(--project-name).conf]
-}
+puts "Running chngelog generator with folowing options:\n"

 foreach arg [array names args] {
-    puts "$arg $args($arg)"
+    puts "\t$arg $args($arg)"
 }

 if [info exists args(--deb)] {
+    if [file exists [file join $dir(cfg) $args(--project-name).deb.conf]] {
+        source [file join $dir(cfg) $args(--project-name).deb.conf]
+    }
    set outText [GenerateChangelogDEB]
    if [info exists args(--out-file)] {
        StoreChangeLog $outText
+    } else {
+        puts $outText
    }
 }
 if [info exists args(--rpm)] {
-    GenerateChangelogRPM
+    if [file exists [file join $dir(cfg) $args(--project-name).rpm.conf]] {
+        source [file join $dir(cfg) $args(--project-name).rpm.conf]
+    }
+    set outText [GenerateChangelogRPM]
+    # puts $outText
+    if [info exists args(--out-file)] {
+        StoreChangeLogRPM $outText
+    } else {
+        puts $outText
+    }
 }
 if [info exists args(--txt)] {
+    if [file exists [file join $dir(cfg) $args(--project-name).txt.conf]] {
+        source [file join $dir(cfg) $args(--project-name).txt.conf]
+    }
    set outText [GenerateChangelogTXT]
    if [info exists args(--out-file)] {
        StoreChangeLog $outText
+    } else {
+        puts $outText
    }
 }
--- a/debian/build-deb-projman.sh
+++ b/debian/build-deb-projman.sh
@@ -3,7 +3,7 @@
 cd ../

 VERSION=$(grep Version projman.tcl | grep -oE '\b[0-9]{1,2}\.[0-9]{1,2}\.[0-9]{1,2}\b')
-RELEASE=$(grep Release projman.tcl | grep -oE '[0-9A-Za-z]+$')
+RELEASE=$(grep "# Release" projman.tcl | grep -oE '[0-9A-Za-z]+$')
 BUILD_DATE=$(date +%d%m%Y%H%M%S)
 TXT="# Build: ${BUILD_DATE}"
 echo "$VERSION, $RELEASE, $BUILD_DATE"
@@ -11,6 +11,7 @@ sed -i "/# Build:.*/c$TXT" projman.tcl

 cp projman.tcl projman
 cp changelog-gen.tcl changelog-gen
+cp tkregexp.tcl tkregexp

 ./changelog-gen.tcl  --project-name projman --project-version ${VERSION} --project-release ${RELEASE} --out-file debian/changelog --deb --last

@@ -25,5 +26,5 @@ dpkg-buildpackage -d

 #cp ../projman_${VERSION}-${RELEASE}_amd64.deb /files/

-rm -v projman changelog-gen
+rm -v projman changelog-gen tkregexp
 rm -r -v debian/{projman,.debhelper}
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,24 +1,107 @@
-projman (2.1.0-alpha0) stable; urgency=medium
+projman (2.0.0-beta3) stable; urgency=medium

-  *  Добавил вывод информации о версиях tcl и tk
-  *  Добавил вывод номера версии tcl/tl в О Программе
+  *  changelog-gen: сделал вывод изменения в формате rpm.spec
+  *  Исправил смену регистра в заголовках вкладок
+  *  Добавил диалог вменю "Сохранить как"
+  *  Добавил проверки в диалог FileOper::SaveFile
+  *  Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль.
+  *  Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter. Исправил обработку клавиш Вверх Вниз Ввод Отмена в окне со списком вариантов.

- -- Sergey Kalinin <svkalinin@samsonpost.ru>  Mon, 10 Nov 2025 13:13:44 +0300
+ -- svk <svk@nuk-svk.ru>  Thu, 29 Jan 2026 14:22:55 +0300

-projman (2.1.0-alpha0) stable; urgency=medium
+projman (2.0.0-beta2) stable; urgency=medium

-  *  Незначительные изменения
+  *  Добавлено подключение (bind) сочетания клавиш указанных в настройках инструментов.
+  *  Добавлена динамическая генерация меню 'Инструменты'. Теперь новые внешние инструменты доступны сразу после сохранения файла настроек tools.ini в редакторе.
+  *  Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.
+  *  Добавлено редактирование настроек внешних инструментов. И пункт в меню 'Инструменты'->'Настройки'
+  *  Исправление ошибки с запуском внешних программ.
+  *  Добавлено определение путей до внешних программ при подключении к редактору.
+  *  Сделана обработка шаблонов командной строки и запуск внешних инструментов.
+  *  Добавлен tkregexp для установки в /usr/bin
+  *  Начало работы с внешними инструментами: - Добавлено создание и работа (проверка параметров
+  *  Исправлен скрипт сборки бсд-пакета
+  *  Добавлена сборка пакетов для openbsd

- -- Sergey Kalinin <svkalinin@samsonpost.ru>  Mon, 10 Nov 2025 13:00:43 +0300
+ -- svk <svk@nuk-svk.ru>  Tue, 27 Jan 2026 16:44:48 +0300
+
+projman (2.0.0-beta1) stable; urgency=medium
+
+  *  Сделан вывод отладочной информации по запросу.
+  *  Добавлены параметры в файл конфигурации "debug" - включение или отключение отладки и "debugOut" - куда выводить информацию.
+  *  Переделка кода.
+  *  Добавлены процедуры проверки наличия параметров конфигурации в файле и устанвоки переменных по умолчанию.
+
+ -- svk <svk@nuk-svk.ru>  Wed, 21 Jan 2026 16:44:07 +0300
+
+projman (2.0.0-alpha24) stable; urgency=medium
+
+  *  Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
+  *  Исправил вставку кавычек при выделении текста
+  *  Исправил ошибку при отправке сигналов несуществующему процессу.
+  *  Уменьшил всплывающее меню: вынес менюшки Файл и Вид в подменю.
+  *  Изменил команду загрузки пакета в репу
+
+ -- svk <svk@nuk-svk.ru>  Wed, 21 Jan 2026 16:35:06 +0300
+
+projman (2.0.0-alpha23) stable; urgency=medium
+
+  *  Исправлен флаг модификации при открытии файла
+  *  Исправлена 'Отмена' до пустого файла. Внес исправления на основе изменений https://github.com/wandrien/projman
+  *  Исправлено поведение при сочетании клавиш Control-y (повторение последнего действия)
+
+ -- svk <svk@nuk-svk.ru>  Mon, 19 Jan 2026 14:49:29 +0300
+
+projman (2.0.0-alpha22) stable; urgency=medium
+
+  *  Исправил закрытие вкладок редактора и сохранение файла при разделении экрана.
+  *  Новая сборка
+
+ --  Sergey Kalinin <svk@nuk-svk.ru>  Wed,  3 Dec 2025 18:06:32 +0300
+
+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/tl в О Программе
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 03 Dec 2025 17:22:44 +0300

 projman (2.0.0-alpha19) stable; urgency=medium

+  *  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
+  *  Добавил проверку пакета Img. И поправил проверку типов изображений
+  *  Переделал сигналы и сочетания
  *  Небольшие исправления
+  *  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
+  *  Добавлена передача сигналов для закрытия запущенного процесса
+  *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
+  *  Добавлен диалог настроек
+  *  Добавил псевдо-терминал
+  *  Добавлен диалог при открытии файлов отличных от текстовых
+  *  Поправил тему оформления
+  *  Исправлена работа в windows
+  *  Уменьшил колдичество выводимой отладочной информации
+  *  Добавлено определение пути до git в зависимости от платформы.
+  *  Исправлено создание файла конфигурации
+  *  Исправлено создание файла конфигурации. Добавлены номера версий в вызов tclsh8.6 и wish8.6. Убрана зависимость на Threads.
+  *  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
+  *  Bugfix release
+  *  Bug fix with varhelper
+  *  Added the "Open Recent" menu. The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories. The procedures for working with this list have also been added.
+  *  Косметические изменения.
+  *  Исправлены ошибки при вставке кавычек

- -- Sergey Kalinin <svk@nuk-svk.ru>  Thu, 30 Oct 2025 14:47:05 +0300
+ -- Калинин Сергей Валерьевич <svk@nuk-svk.ru>  Thu, 30 Jan 2025 12:19:56 +0300

 projman (2.0.0-alpha19) stable; urgency=medium

+  *  Переделал сигналы и сочетния
  *  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
  *  Добавлена передача сигналов для закрытия запущенного процесса
  *  Изменил виджет текста в окне псевдо-терминала. Добавил подстановку имени файла к командную строку по шаблону %f
@@ -409,3 +492,8 @@ projman (2.0.0-alfa0) stable; urgency=medium



+
+
+
+
+
--- a/debian/install
+++ b/debian/install
@@ -1,5 +1,6 @@
 projman		/usr/bin/
 changelog-gen		/usr/bin/
+tkregexp /usr/bin
 lib/*.tcl	/usr/share/projman/lib
 lib/msgs/*	/usr/share/projman/lib/msgs
 theme	/usr/share/projman/
--- a/0
+++ b/0
--- a/lib/config.tcl
+++ b/lib/config.tcl
@@ -75,6 +75,9 @@ RB=ruby
 HTM=firefox
 HTML=firefox
 LUA=lua
+\[Debug\]
+debug=false
+debugOut=stdout
 "
 proc Config::create {dir} {
    set cfgFile [open [file join $dir projman.ini]  "w+"]
@@ -131,3 +134,49 @@ proc Config::write {dir} {
    ini::commit $cfgFile
    ini::close $cfgFile
 }
+
+# Добавление перменной в список 
+# если отсутствует нужная секция то она будет добавлена.
+proc Config::AddVariable {key value section} {
+    # Проверяем, существует ли уже такая переменная
+    if {[info exists ::cfgVariables($key)]} {
+        DebugPuts "The variable '$key' already exists: $::cfgVariables($key)"
+        return 0
+    }
+    
+    # Добавляем в массив переменных
+    set ::cfgVariables($key) $value
+    
+    # Добавляем в список ключей секции
+    if {[info exists ::cfgINIsections($section)]} {
+        # Проверяем, нет ли уже такого ключа в секции
+        if {[lsearch -exact $::cfgINIsections($section) $key] == -1} {
+            lappend ::cfgINIsections($section) $key
+        }
+    } else {
+        set ::cfgINIsections($section) [list $key]
+    }
+    DebugPuts "Config::AddVariable: The variable '$key' has been added to the array 'cfgVariables'"
+    
+    return 1
+}
+
+# Проверяем наличие переменных в конфиге на основе "эталонного" списка 
+# и выставляем значение по умолчанию если в конфиге переменной нет
+proc Config::CheckVariables {} {
+    set valList [split $::configDefault "\n"]
+    foreach item $valList {
+        if {[regexp -nocase -all -- {\[(\w+)\]} $item -> v1]} {
+            set section $v1
+        }
+        if {[regexp {^([^=]+)=(.*)$} $item -> var value]} {
+            if ![info exists ::cfgVariables($var)] {
+                DebugPuts "Error in Config::CheckVariables: variable ::cfgVariables($var) not found"
+                # set ::cfgVariables($var) $value
+                DebugPuts "Config::CheckVariables: The variable cfgVariables($var) setting to default value \"$value\""
+                Config::AddVariable "$var" "$value" "$section"
+
+            }
+        }
+    }
+}
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -6,7 +6,6 @@
 ######################################################
 # Editor module
 ######################################################
-
 namespace eval Editor {
    variable selectionTex
    # Set the editor option
@@ -17,7 +16,7 @@ namespace eval Editor {
            $node.frmText.t configure -$optionName $value
        }
    }
-    
+
    # Comment one string or selected string
    proc Comment {txt fileType} {
        global lexers cfgVariables
@@ -364,15 +363,24 @@ namespace eval Editor {
        }
    }

-    proc SelectionGet {txt} {
-        variable selectionText
+    proc SelectionGet {{txt ""}} {
+        global nbEditor
+        variable selectionText ""
+        if {$txt eq ""} {
+            DebugPuts "Editor::SelectionGet: [focus]"
+            set txt [focus]
+            if {![string match -nocase "*text*" $txt]} {
+                return ""
+            }
+        }        
        set selBegin [lindex [$txt tag ranges sel] 0]
        set selEnd [lindex [$txt tag ranges sel] 1]
        if {$selBegin ne "" && $selEnd ne ""} {
            set selectionText [$txt get $selBegin $selEnd]
        }
+        return $selectionText
    }
-    
+
    proc SelectionHighlight {txt} {
        variable selectionText
        $txt tag remove lightSelected 1.0 end 
@@ -394,236 +402,16 @@ namespace eval Editor {
        }

    }
-    proc VarHelperKey { widget K A } {
-        set win .varhelper
-        # if { [winfo exists $win] == 0 	} { return }
-        set ind [$win.lBox curselection]
-        # puts ">>>>>>>>>>>> VarHelperBind <<<<<<<<<<<<<<<<"
-        
-        switch -- $K {
-            Prior   {
-                set up   [expr [$win.lBox index active] - [$win.lBox cget -height]]
-                if { $up < 0 } { set up 0 }
-                $win.lBox activate $up
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $up $up
-            }
-            Next    {
-                set down [expr [$win.lBox index active] + [$win.lBox cget -height]]
-                if { $down >= [$win.lBox index end] }  { set down end }
-                $win.lBox activate $down
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $down $down
-            }
-            Up      {
-                set up   [expr [$win.lBox index active] - 1]
-                if { $up < 0 } { set up 0 }
-                $win.lBox activate $up
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $up $up
-            }
-            Down    {
-                set down [expr [$win.lBox index active] + 1]
-                if { $down >= [$win.lBox index end] }  { set down end }
-                $win.lBox activate $down
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $down $down
-            }
-            Return  {
-                $widget delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
-                $widget insert "insert" [$win.lBox get [$win.lBox curselection]]
-                # eval [bind VarHelperBind <Escape>]
-                Editor::VarHelperEscape $widget
-            }
-            default {
-                $widget insert "insert" $A
-                # eval [bind VarHelperBind <Escape>]
-                Editor::VarHelperEscape $widget
-            }
-        }
-    } ;# proc auto_completition_key
-    proc VarHelperEscape {w} {
-        # puts ">>>>>>>>>>>> VarHelperEscape <<<<<<<<<<<<<<<<"
-        # bindtags $w [list [winfo parent $w] $w Text sysAfter all]
-        bindtags $w [list [winfo toplevel $w] $w Ctext sysAfter all]
-        catch { destroy .varhelper }
-        puts [bindtags $w]
-        puts [bind $w]

-    }
-    proc VarHelper {x y w word wordType} {
-        global editors lexers variables
-        variable txt 
-        variable win
-        # set txt $w.frmText.t
-        # блокировка открытия диалога если запущен другой
-        set txt $w
-        # set win .varhelper
-        # Проверяем если есть выделение то блокировать появление диалога
-        if {[$txt tag ranges sel] != ""} {
-            puts "You have selected text [$txt tag ranges sel]"
-            return            
-        }
-        # puts "$x $y $w $word $wordType"
-        set fileType [dict get $editors $txt fileType]
-
-        if {[dict exists $editors $txt variableList] != 0} {
-            set varList [dict get $editors $txt variableList]
-            # puts $varList
-        }
-        if {[dict exists $editors $txt procedureList] != 0} {
-            set procList [dict get $editors $txt procedureList]
-        }
-        # puts $procList
-        # puts ">>>>>>>[dict get $lexers $fileType commands]"
-        if {[dict exists $lexers $fileType commands] !=0} {
-            foreach i [dict get $lexers $fileType commands] {
-                # puts $i
-                lappend procList $i
-            }
-        }
-
-        # if {[dict exists $editors $txt variableList] == 0 && [dict exists $editors $txt procedureList] == 0} {
-            # return
-        # }
-        set findedVars ""
-        switch -- $wordType {
-            vars {
-                foreach i [lsearch -nocase -all $varList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $varList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-            procedure {
-                foreach i [lsearch -nocase -all $procList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $procList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-            default {
-                foreach i [lsearch -nocase -all $varList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $varList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-                foreach i [lsearch -nocase -all $procList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $procList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-        }
-        # unset item
-        # bindtags $txt [list VarHelperBind [winfo toplevel $txt] $txt Ctext sysAfter all]
-        # bindtags $txt.t [list VarHelperBind [winfo parent $txt.t] $txt.t Text sysAfter all]
-        # bind VarHelperBind <Escape> "Editor::VarHelperEscape $txt.t; break"
-            # # bindtags $txt.t {[list [winfo parent $txt.t] $txt.t Text sysAfter all]};
-            # # bindtags $txt {[list [winfo toplevel $txt] $txt Ctext sysAfter all]};
-            # # catch { destroy .varhelper }"
-        # bind VarHelperBind <Key> {Editor::VarHelperKey %W %K %A; break}
-        # 
-        if {$findedVars eq ""} {
+    proc ReleaseKey {k txt fileType} {
+        global cfgVariables lexers returnProcessed
+        # Если Return уже обработан в SelectFromList, пропускаем
+        # puts "$returnProcessed $k"
+        if {$k eq "Return" && [info exists returnProcessed]} {
+            unset returnProcessed
            return
        }
-        # puts $findedVars
-        VarHelperDialog $x $y $w $word $findedVars
-
-    }
-
-    proc VarHelperDialog {x y w word findedVars} {
-        global editors lexers variables
-        variable txt 
-        variable win
-        # puts ">>>>>>>>>>>>>$x $y $w $word $findedVars"
-        # set txt $w.frmText.t
-        # блокировка открытия диалога если запущен другой
-        # if [winfo exists .findVariables] {
-           # return
-        # }
-        # if { [winfo exists $win] } { destroy $win }
-        set txt $w
-        set win .varhelper
-        # if {$findedVars eq ""} {
-            # return
-        # }
-        toplevel $win
-        wm transient $win .
-        wm overrideredirect $win 1
-        
-        listbox $win.lBox -width 30 -border 0
-        pack $win.lBox -expand true -fill y -side left
-        
-        foreach { item } $findedVars {
-            $win.lBox insert end $item
-        }
-        
-        catch { $win.lBox activate 0 ; $win.lBox selection set 0 0 }
-        
-        if { [set height [llength $findedVars]] > 10 } { set height 10 }
-        $win.lBox configure -height $height
-
-        # focus $win.lBox
-        
-        bind $win <Escape> {
-            destroy $Editor::win
-            focus -force $Editor::txt.t
-            break
-        }
-        bind $win.lBox <Escape> {
-            destroy $Editor::win
-            focus -force $Editor::txt.t
-            break
-        }
-        bind VarHelperBind <Control-Return> {
-            $Editor::txt delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
-            $Editor::txt insert "insert" [.varhelper.lBox get [.varhelper.lBox curselection]]
-            # eval [bind VarHelperBind <Escape>]
-            Editor::VarHelperEscape $Editor::txt
-            break
-        }
-
-        # Определям расстояние до края экрана (основного окна) и если
-        # оно меньше размера окна со списком то сдвигаем его вверх
-        set winGeomY [winfo reqheight $win]
-        set winGeomX [winfo reqwidth $win]
-
-        set topHeight [winfo height .]
-        set topWidth [winfo width .]
-        set topLeftUpperX [winfo x .]
-        set topLeftUpperY [winfo y .]
-        set topRightLowerX [expr $topLeftUpperX + $topWidth]
-        set topRightLowerY [expr $topLeftUpperY + $topHeight]
-        
-        if {[expr [expr $x + $winGeomX] > $topRightLowerX]} {
-            set x [expr $x - $winGeomX]
-        }
-        if {[expr [expr $y + $winGeomY] > $topRightLowerY]} {
-            set y [expr $y - $winGeomY]
-        }
-
-        wm geom $win +$x+$y 
-    }
-    
-    proc ReleaseKey {k txt fileType} {
-        global cfgVariables lexers
+        # 
        set pos [$txt index insert]
        set lineNum [lindex [split $pos "."] 0]
        set posNum [lindex [split $pos "."] 1]
@@ -637,8 +425,53 @@ namespace eval Editor {
        unset lpos
        $txt tag remove lightSelected 1.0 end
        
-        if { [winfo exists .varhelper] } { destroy .varhelper }
-        # puts $k
+        # Обработка ввода для показа окна с подсказками.
+        # if { [winfo exists .varhelper] } { destroy .varhelper }
+        # Флаг, нужно ли показывать новый список
+        set showNewList 1
+        
+        # Проверяем окно списка
+        if {[winfo exists .varhelper]} {
+            # Определяем, какая клавиша отпущена
+            switch -- $k {
+                Up - Down {
+                    # Стрелки - управление списком, окно остается
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Return {
+                    # Enter - выберет элемент, окно закроется в SelectFromList
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Escape {
+                    # Escape - закрыть окно
+                    destroy .varhelper
+                    set ::Helper::listActive 0
+                    Helper::VarHelperBindingsRestore $txt
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Control_L - Control_R - Alt_L - Alt_R - Shift_L - Shift_R {
+                    # Модификаторы - окно остается
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                default {
+                    # Любая другая клавиша (буквы, цифры, пробел, Tab и т.д.)
+                    # закрывает окно списка, но ПОКАЗЫВАЕМ новый список
+                    destroy .varhelper
+                    set ::Helper::listActive 0
+                    Helper::VarHelperBindingsRestore $txt
+                    # showNewList остается = 1 (показываем новый список)
+                }
+            }
+        }
+        
        switch $k {
            Return {
                regexp {^(\s*)} [$txt get [expr $lineNum - 1].0 [expr $lineNum - 1].end] -> spaceStart
@@ -682,10 +515,68 @@ namespace eval Editor {
        if {$cfgVariables(variableHelper) eq "true"} {
            if {[dict exists $lexers $fileType variableSymbol] != 0} {
                set varSymbol [dict get $lexers $fileType variableSymbol]
-                set lastSymbol [string last $varSymbol [$txt get $lineNum.0 $pos]]
+                set lineText [$txt get $lineNum.0 $pos]
+                # # Ищем переменную с помощью регулярного выражения
+                # # Паттерн ищет $ за которым идет имя переменной И курсор сразу после имени
+                # if {[regexp "(\\$)(\[a-zA-Z_:\]\[a-zA-Z0-9_:\]*)\$" $lineText -> symbol varName]} {
+                    # # Проверяем, что найденный $ - это действительно начало переменной
+                    # # (а не часть строки или другого символа)
+                    # DebugPuts "Found variable: $symbol$varName"
+                    # 
+                    # # Дополнительная проверка: перед $ не должно быть обратного слэша (экранирование)
+                    # set posOfVarSymbol [string last $varSymbol $lineText]
+                    # if {$posOfVarSymbol > 0} {
+                        # set charBefore [string index $lineText [expr {$posOfVarSymbol - 1}]]
+                        # if {$charBefore eq "\\"} {
+                            # DebugPuts "Dollar sign is escaped, skipping"
+                            # return
+                        # }
+                    # }
+                    # Helper::VarHelper $box_x $box_y $txt $varName vars
+                # }
+                DebugPuts "Line text: '$lineText'"
+                
+                # Проверяем, есть ли $ в строке
+                set lastSymbol [string last $varSymbol $lineText]
                if {$lastSymbol ne "-1"} {
-                    set word  [string trim [$txt get $lineNum.[expr $lastSymbol + 1] $pos]]
-                    Editor::VarHelper $box_x $box_y $txt $word vars
+                    # Проверяем экранирование
+                    if {$lastSymbol > 0} {
+                        set charBefore [string index $lineText [expr {$lastSymbol - 1}]]
+                        if {$charBefore eq "\\"} {
+                            DebugPuts "Dollar sign is escaped, skipping"
+                            return
+                        }
+                    }
+                    # Берем текст после $
+                    set afterDollar [string range $lineText [expr {$lastSymbol + 1}] end]
+                    DebugPuts "Text after $varSymbol: '$afterDollar'"
+                    # Если после $ ничего нет (только что ввели $) - показываем все переменные
+                    if {$afterDollar eq ""} {
+                        DebugPuts "Just typed $varSymbol, showing all variables"
+                        Helper::VarHelper $box_x $box_y $txt "" vars
+                        return
+                    }
+                    # Проверяем, что введено после $
+                    if {[regexp {^([a-zA-Z_:][a-zA-Z0-9_:]*)?$} $afterDollar -> varName]} {
+                        # Вариант 1: regexp с концом строки - курсор сразу после (возможного) имени
+                        DebugPuts "Cursor after variable name (or $varSymbol only): '$varName'"
+                        Helper::VarHelper $box_x $box_y $txt $varName vars
+                    } elseif {[regexp {^([a-zA-Z_:][a-zA-Z0-9_:]*)} $afterDollar -> varName]} {
+                        # Вариант 2: есть имя переменной, но курсор не обязательно сразу после
+                        DebugPuts "Found variable name: '$varName'"
+                        # Проверяем позицию курсора
+                        set varEndPos [expr {[string length $varName] + 1}] ; # +1 для $
+                        
+                        if {$varEndPos == [string length $lineText]} {
+                            # Курсор сразу после имени
+                            Helper::VarHelper $box_x $box_y $txt $varName vars
+                        } else {
+                            DebugPuts "Cursor not immediately after variable name, skipping"
+                        }
+                    } else {
+                        # После $ что-то недопустимое (например, цифра, скобка и т.д.)
+                        DebugPuts "Invalid characters after $varSymbol"
+                    }
                }
            } else {
                set ind [$txt search -backwards -regexp {\W} $pos {insert linestart}]
@@ -697,8 +588,9 @@ namespace eval Editor {
                    # set ind [$txt search -backwards -regexp {^} $pos {insert linestart}]
                    set word [$txt get {insert linestart} $pos]
                }
+                DebugPuts "> Extracted word: '$word'"
                if {$word ne ""} {
-                    Editor::VarHelper $box_x $box_y $txt $word {}
+                    Helper::VarHelper $box_x $box_y $txt $word {}
                }
            }
        }
@@ -714,7 +606,7 @@ namespace eval Editor {
                set word [$txt get {insert linestart} $pos]
            }
            if {$word ne ""} {
-                Editor::VarHelper $box_x $box_y $txt $word procedure
+                Helper::VarHelper $box_x $box_y $txt $word procedure
            }
        }
    }
@@ -789,26 +681,28 @@ namespace eval Editor {
        bind $txt <Control-Cyrillic_em> "Editor::SelectionPaste $txt"
        bind $txt <Control-l> "SearchVariable $txt; break"
        bind $txt <Control-Cyrillic_de> "SearchVariable $txt; break"
-        bind $txt <Control-i> "ImageBase64Encode $txt"
+        bind $txt <Control-i> "ImageBase64Encode"
        bind $txt <Control-Cyrillic_sha> "ImageBase64Encode $txt"
        bind $txt <Control-bracketleft> "Editor::InsertTabular $txt"
        bind $txt <Control-bracketright> "Editor::DeleteTabular $txt"
        bind $txt <Control-comma> "Editor::Comment $txt $fileType"
        bind $txt <Control-period> "Editor::Uncomment $txt $fileType"
        bind $txt <Control-eacute> Find
-        bind $txt <Insert> {OverWrite}
+        # bind $txt <Insert> {OverWrite}
        bind $txt <ButtonRelease-1> "Editor::SearchBrackets $txt"
        bind $txt <Button-1><ButtonRelease-1> "Editor::SelectionHighlight $txt"
-        bind $txt <<Modified>> "SetModifiedFlag $w $nb"
+        bind $txt <<Modified>> "SetModifiedFlag $w $nb auto"
        bind $txt <Control-u> "Editor::SearchBrackets %W"
        bind $txt <Control-Cyrillic_ghe> "Editor::SearchBrackets %W"
-        bind $txt <Control-J> "catch {Editor::GoToFunction $txt}"
+        bind $txt <Control-J> "catch {Editor::GoToFunction $txt}; break"
        bind $txt <Control-j> "catch {Editor::GoToFunction $txt}; break"
+        bind $txt <Control-y> {Redo; break}
        bind $txt <Control-Cyrillic_o> "catch {Editor::GoToFunction $txt}; break"
        bind $txt <Alt-w>           "$txt delete {insert wordstart} {insert wordend}"
        bind $txt <Alt-odiaeresis>  "$txt delete {insert wordstart} {insert wordend}"
        bind $txt <Alt-Cyrillic_tse> "$txt delete {insert wordstart} {insert wordend}"
        bind $txt <Alt-r>           "$txt delete {insert linestart} {insert lineend + 1char}"
+        bind $txt <Alt-Cyrillic_ka> "$txt delete {insert linestart} {insert lineend + 1char}"
        bind $txt <Alt-ecircumflex> "$txt delete {insert linestart} {insert lineend + 1char}"
        bind $txt <Alt-Cyrillic_er> "$txt delete {insert linestart} {insert lineend + 1char}"
        bind $txt <Alt-b> "$txt delete {insert linestart} insert"
@@ -852,6 +746,8 @@ namespace eval Editor {
        }
        bind $txt <Control-r> "Editor::SplitEditorForExecute $w $fileType $nb "
        bind $txt <Control-Cyrillic_ka> "Editor::SplitEditorForExecute $w $fileType $nb "
+        # bind $txt <Shift-Control-s> FileOper::Close
+        # bind $txt <Shift-Control-Cyrillic_es> "FileOper::Close saveas"

        # bind $txt.t <KeyRelease> "Editor::ReleaseKey %K $txt.t $fileType"
        # bind $txt.t <KeyPress> "Editor::PressKey %K $txt.t"
@@ -927,7 +823,9 @@ namespace eval Editor {
            }
            if {$posNum == $posBegin} {
               if {$symbol == {"} || $symbol == {_}} {
-                    $txt insert $lineEnd.$posEnd "$selText$symbol"
+                    $txt tag remove sel $lineBegin.$posBegin $lineEnd.$posEnd
+                    $txt insert $lineEnd.$posEnd "$symbol"
+                     # $txt tag add sel "$lineBegin.$posBegin + 1 char" "$lineEnd.$posEnd + 1 char"
                } else {
                    $txt insert $lineEnd.$posEnd "$symbol"
                }
@@ -936,7 +834,7 @@ namespace eval Editor {
                if {$posBegin == 0} {
                    $txt insert $pos "$symbol"
                } else {
-                    $txt insert "$pos + 1 chars" "$symbol"
+                    $txt insert "$pos + 0 chars" "$symbol"
                }
            }
            $txt highlight $lineBegin.$posBegin $lineEnd.end
@@ -965,7 +863,7 @@ namespace eval Editor {
        set nbEditorItem [NB::InsertItem $nbEditor $fileFullPath "file"]
        # puts "$nbEditorItem, $nbEditor"
        Editor $fileFullPath $nbEditor $nbEditorItem
-        SetModifiedFlag $nbEditorItem $nbEditor
+        SetModifiedFlag $nbEditorItem $nbEditor force
        focus -force $nbEditorItem.frmText.t.t
    }
    
@@ -979,9 +877,15 @@ namespace eval Editor {
        for {set lineNumber 0} {$lineNumber <= [$txt count -lines 0.0 end]} {incr lineNumber} {
            set line [$txt get $lineNumber.0 $lineNumber.end]
            # Выбираем процедуры (функции, классы и т.д.)
+            # DebugPuts "Editor::RedaStructure: file type $fileType"
+            
            if {[dict exists $lexers $fileType procRegexpCommand] != 0 } {
+                # regexp -nocase -all -line -- {^\s*(?:(\w+)\s+)+(\w+)\s*\((.*?)\)\s*(?:;|\{)} $line match returns procName params
+                # regexp -nocase -all -line -lineanchor -linestop -- {^\s*(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match v1 v2 v3 v4
                if {[eval [dict get $lexers $fileType procRegexpCommand]]} {
+                    DebugPuts "Editor::RedaStructure: regexp = [dict get $lexers $fileType procRegexpCommand]"
                    set procName_ [string trim $procName]
+                    DebugPuts "Editor::RedaStructure: find the proc $procName_"
                    if {$treeItemName ne ""} {
                        Tree::InsertItem $tree $treeItemName $procName_  "procedure" "$procName_ ($params)"
                    }
@@ -1308,7 +1212,7 @@ namespace eval Editor {
        }
        ttk::button $win.bBackward -state disable -image backward_20x20 -command "puts $replaceString"
        ttk::button $win.bDone -image done_20x20 -state disable -command {
-            puts "$findString -> $replaceString, $regexpSet"
+            DebugPuts "$findString -> $replaceString, $regexpSet"
        }
        ttk::button $win.bDoneAll -image doneall_20x20 -command {
            Editor::FindReplaceText $Editor::txt "$findString" "$replaceString" $regexpSet
@@ -1378,6 +1282,7 @@ namespace eval Editor {
            return
        }
        set frmText [Editor::EditorWidget $w $fileType $nb]
+        # puts "Editor::SplitEditorH: w - $w"
        $frmText.t insert end [$w.frmText.t get 0.0 end]

        # $w.panelTxt add $w.frmText -weight 0  
@@ -1392,7 +1297,7 @@ namespace eval Editor {
        global cfgVariables
        regsub -all {\.|/|\\|\s|:} $fileFullPath "_" itemName
        set itemName ".frmWork.nbEditor2.$itemName"
-        # puts $itemName
+        DebugPuts "Editor::SplitEditoprV: nb item - $itemName"
        if {[winfo exists $itemName] == 1} {
            .frmWork.nbEditor2 forget $itemName
            destroy $itemName
@@ -1412,7 +1317,7 @@ namespace eval Editor {
        # grid columnconfigure .frmWork .frmWork.nbEditor2 -weight 1
        # grid rowconfigure .frmWork .frmWork.nbEditor2 -weight 1
        .frmWork.panelNB add .frmWork.nbEditor2 -weight 0
-        puts [FileOper::Edit $fileFullPath .frmWork.nbEditor2]
+        DebugPuts [FileOper::Edit $fileFullPath .frmWork.nbEditor2]
    }
    
    proc GoToLineNumber {text lineNumber} {
@@ -1453,7 +1358,7 @@ namespace eval Editor {
        bind $win.ent <Return> {
            set lineNumber [.gotoline.ent get]
            # $txt see insert $lineNumber
-            puts $Editor::txt
+            DebugPuts $Editor::txt
            $Editor::txt mark set insert $lineNumber.0
            $Editor::txt see insert
            focus $Editor::txt.t
@@ -1593,7 +1498,7 @@ namespace eval Editor {
            puts $fileFullPath
        }
        # puts [$w.panelTxt panes]
-        puts "$w $fileType $nb $fileFullPath"
+        DebugPuts "$w $fileType $nb $fileFullPath"
        if [winfo exists $w.frmText2] {
            $w.panelTxt forget $w.frmText2
            destroy $w.frmText2
@@ -1603,6 +1508,7 @@ namespace eval Editor {

        set frmText [ttk::frame $w.frmText2 -border 1]
        $w.panelTxt add $frmText -weight 1
+        # puts "SplitEditorForExecute: $w"
        # focus -force $frmText.t.t
        Execute $fileFullPath $frmText $w
    }
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -65,7 +65,7 @@ namespace eval FileOper {
        catch $cmd pipe
        # puts $pipe
        if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
-            puts "$fType $fExt $fCharset"
+            DebugPuts "$fType $fExt $fCharset"
        }
        switch $opt {
            "charset" {
@@ -77,7 +77,7 @@ namespace eval FileOper {
        # линуксовый file не всегда корректно определяет тип файла
        # используем пакет из tcl
        lassign [::fileutil::fileType $fileFullPath] fType fBinaryType fBinaryInterp
-        puts "File type is $fType, $fBinaryType, $fBinaryInterp"
+        DebugPuts "File type is $fType, $fBinaryType, $fBinaryInterp"
        set ext [string tolower [file extension $fileFullPath]]
        
        # Установка корректного типа для svg
@@ -99,7 +99,7 @@ namespace eval FileOper {
                set fBinaryType "binary"
            }
        }
-        puts "File type is $fType, $fBinaryType, $fBinaryInterp, $ext"
+        DebugPuts "File type is $fType, $fBinaryType, $fBinaryInterp, $ext"

        switch $fType {
            "binary" {
@@ -298,9 +298,13 @@ namespace eval FileOper {
        }
    }

-    proc Close {} {
+    proc Close {{nbEditorWindow ""}} {
        global nbEditor modified tree editors
-        set nbItem [$nbEditor select]
+        if {$nbEditorWindow eq ""} {
+            set nbEditorWindow $nbEditor
+        }
+        set nbItem [$nbEditorWindow select]
+        # puts "Procedure FileOper::Close: item - $nbItem"
 	    # puts "close tab $nbItem"
    	   
        if {$nbItem == ""} {return}
@@ -310,14 +314,16 @@ namespace eval FileOper {
                    -icon question -type yesnocancel \
                    -detail [::msgcat::mc "Do you want to save it?"]]
                switch $answer {
-                    yes Save
+                    yes {Save close $nbEditorWindow}
                    no {}
                    cancel {return "cancel"}
                }
            }
        }
-        $nbEditor forget $nbItem
-        destroy $nbItem
+        if {[$nbEditorWindow select] eq $nbItem} {
+            $nbEditorWindow 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
@@ -339,10 +345,11 @@ namespace eval FileOper {
        .frmStatus.lblPosition configure -text ""
        .frmStatus.lblEncoding configure -text ""
        .frmStatus.lblSize configure -text ""
-        NB::NextTab $nbEditor 0
+        
+        NB::NextTab $nbEditorWindow 0
    }
    
-    proc Save {} {
+    proc Save {{type ""} {nbEditorWindow ""}} {
        global nbEditor tree env activeProject dir

        if [info exists activeProject] {
@@ -351,8 +358,15 @@ namespace eval FileOper {
            set dirProject $env(HOME)
        }
        
-        set nbEditorItem [$nbEditor select]
-        # puts "Saved editor text: $nbEditorItem"
+        if {$nbEditorWindow eq ""} {
+            set nbEditorWindow $nbEditor
+            set str [split [focus] "."]
+            set nbEditorWindow "[lindex $str 0].[lindex $str 1].[lindex $str 2]"
+            # puts "FileOper::Save: current window $nbEditorWindow"
+        }
+
+        set nbEditorItem [$nbEditorWindow select]
+        DebugPuts "Saved editor text: $nbEditorItem"
        if [string match "*untitled*" $nbEditorItem] {
            set filePath [tk_getSaveFile -initialdir $dirProject -filetypes $::types -parent .]
            if {$filePath eq ""} {
@@ -360,7 +374,7 @@ namespace eval FileOper {
            }
            # set fileName [string range $filePath [expr [string last "/" $filePath]+1] end]
            set fileName [file tail $filePath]
-            $nbEditor tab $nbEditorItem -text $fileName
+            $nbEditorWindow tab $nbEditorItem -text $fileName
            # set treeitem [Tree::InsertItem $tree {} $filePath "file" $fileName]
            set lblName "lbl[string range $nbEditorItem [expr [string last "." $nbEditorItem] +1] end]"
            $nbEditorItem.header.$lblName configure -text $filePath
@@ -368,15 +382,34 @@ namespace eval FileOper {
            set treeItem "file::[string range $nbEditorItem [expr [string last "." $nbEditorItem] +1] end ]"
            set filePath [Tree::GetItemID $tree $treeItem]
        }
+        if {![winfo exists $nbEditorItem.frmText.t]} {
+            DebugPuts "winfo exists $nbEditorWindow.frmText.t equal [winfo exists $nbEditorWindow.frmText.t]"
+            return
+        }
        set editedText [$nbEditorItem.frmText.t get 0.0 end]
+        if {$type eq "saveas"} {set filePath [FileOper::SaveDialog]}
+        if {$filePath eq "cancel"} {return}
+        DebugPuts "FileOper::Save $filePath"
        set f [open $filePath "w+"]
        puts -nonewline $f $editedText
        # puts "$f was saved"
        close $f
-        ResetModifiedFlag $nbEditorItem $nbEditor
+        ResetModifiedFlag $nbEditorItem $nbEditorWindow
        if {[file tail $filePath] eq "projman.ini"} {
            Config::read $dir(cfg)
        }
+        if {[file tail $filePath] eq "tools.ini"} {
+            Tools::Read $dir(cfg)
+            Tools::CheckVariables
+            Tools::GetMenu .popup.tools
+            Tools::GetMenu .frmMenu.mnuTools.m
+        }
+        if {[string match "*untitled*" $nbEditorItem] || $type eq "saveas"} {
+            FileOper::Close
+            if {$type ne "close"} {
+                FileOper::Edit $filePath
+            }
+        }
    }
    
    proc SaveAll {} {
@@ -469,7 +502,7 @@ namespace eval FileOper {
        set txt $itemName.frmText.t
        if ![string match "*untitled*" $itemName] {
            set file [open "$fileFullPath" r]
-            $txt insert end [chan read -nonewline $file]  
+            $txt insert end [chan read -nonewline $file]
            close $file
        }
        # Delete emty last line
@@ -477,12 +510,17 @@ namespace eval FileOper {
            $txt delete {end-1 line} end
            # puts ">[$txt get {end-1 line} end]<"
        }
+        # ------------
+        # Thanks https://github.com/wandrien/
+        # https://github.com/wandrien/projman/commit/7d5539ac2031fbdcb0f4a97465ff19d0c348cf33
+        $txt edit reset
+        # -----------
        $txt see 1.0
    }
    
    proc Edit {fileFullPath {nbEditor .frmWork.nbEditor}} {
        global tree
-        puts "$fileFullPath"
+        DebugPuts "$fileFullPath"
        if {[file exists $fileFullPath] == 0} {
            return false
        } else {
@@ -596,5 +634,29 @@ namespace eval FileOper {
        # set selEnd [lindex [$txt tag ranges sel] 1]
        # puts [$txt get [$txt tag ranges sel]]
    # }
-    
+
+    proc SaveDialog {} {
+        global env project activeProject
+        if [info exists activeProject] {
+            set dir $activeProject
+        } else {
+            set dir $env(HOME)
+        }
+        set fileName [tk_getSaveFile -initialdir $dir -filetypes $::types -parent .]
+        if {$fileName eq ""} {return "cancel"}
+        set fullPath [file join $dir $fileName]
+        set file [string range $fullPath [expr [string last "/" $fullPath]+1] end]
+        DebugPuts "FileOper::SaveDialog $fileName $fullPath"
+        regsub -all "." $file "_" node
+        set dir [file dirname $fullPath]
+        set file [file tail $fullPath]
+        set name [file rootname $file]
+        set ext [string range [file extension $file] 1 end]
+        if {$fullPath != ""} {
+            # puts $fullPath
+            return $fullPath
+        } else {
+            return
+        }
+    }
 }
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -23,7 +23,7 @@ namespace eval Git {
            }
            if {[catch {exec {*}$cmd} git_path]} {
                puts "Git не найден в системе"
-                set cfgVariables(gitCommand) "Git not found"
+                set cfgVariables(gitCommand) ""
                return
            }
            set git_path [string trim $git_path]
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -25,8 +25,8 @@ bind . <Control-q> Quit
 bind . <Control-Q> Quit
 bind . <Control-Cyrillic_shorti> Quit
 bind . <Control-eacute> Quit
-bind . <Insert> Add
-bind . <Delete> Del
+# bind . <Insert> Add
+# bind . <Delete> Del
 bind . <F1> ShowHelpDialog
 bind . <Control-n> Editor::New
 bind . <Control-N> Editor::New
@@ -62,6 +62,21 @@ bind . <Alt-Cyrillic_el> {
    }
 }

+# -------------
+# Thanks https://github.com/wandrien/
+# https://github.com/wandrien/projman/commit/22f6e235c3532c20573d44ee7eaaaa1fb56ad544
+event add <<Copy>>  <Control-Insert>
+event add <<Paste>> <Shift-Insert>
+event add <<Cut>>   <Shift-Delete>
+
+set latestTxtWidget {}
+bind all <FocusIn> {
+    if {[winfo class %W] eq "Ctext"} {
+        global latestTxtWidget
+        set latestTxtWidget %W
+    }
+}
+# ---------
 bind . <Control-s> {FileOper::Save}
 bind . <Control-S> {FileOper::Save}
 bind . <Control-Cyrillic_hardsign> {FileOper::Save}
@@ -120,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]
@@ -128,9 +147,17 @@ pack .frmMenu.mnuHelp -side right

 # PopUP menu
 menu .popup
-GetFileMenu .popup
 GetEditMenu .popup
-GetViewMenu .popup
+.popup add separator
+menu .popup.file
+.popup add cascade -label [::msgcat::mc "File"] -menu .popup.file
+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
--- a/lib/helper.tcl
+++ b/lib/helper.tcl
@@ -0,0 +1,339 @@
+namespace eval Helper {
+    variable ::originalBindings {}
+    # Флаг, указывающий, что окно со списком активно
+    variable ::listActive 0
+    # Переменная для отслеживания предыдущего ввода (чтобы не обновлять список без необходимости)
+    variable ::previousInput ""
+    
+    proc VarHelperKey { widget K A } {
+        set win .varhelper
+        DebugPuts "Helper::VarHelperKey: K=$K, A='$A'"
+        
+        # Проверяем, существует ли окно списка
+        if {![winfo exists $win]} {
+            DebugPuts "Window doesn't exist, restoring bindings"
+            Helper::VarHelperBindingsRestore $widget
+            set ::listActive 0
+            return
+        }
+
+        switch -- $K {
+            <Up> {
+                DebugPuts "Processing Up arrow"
+                # Перемещаем выбор вверх
+                set current [$win.lBox curselection]
+                DebugPuts "Current selection: $current"
+                
+                if {$current ne "" && $current > 0} {
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set [expr {$current - 1}]
+                    $win.lBox activate [expr {$current - 1}]
+                    $win.lBox see [expr {$current - 1}]
+                } elseif {[$win.lBox size] > 0} {
+                    # Если ничего не выбрано, выбираем последний элемент
+                    set last [expr {[$win.lBox size] - 1}]
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set $last
+                    $win.lBox activate $last
+                    $win.lBox see $last
+                }
+                return -code break
+            }
+            <Down> {
+                DebugPuts "Processing Down arrow"
+                # Перемещаем выбор вниз
+                set current [$win.lBox curselection]
+                set size [$win.lBox size]
+                DebugPuts "Current selection: $current, size: $size"
+                
+                if {$current ne "" && $current < $size - 1} {
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set [expr {$current + 1}]
+                    $win.lBox activate [expr {$current + 1}]
+                    $win.lBox see [expr {$current + 1}]
+                } elseif {$size > 0} {
+                    # Если ничего не выбрано, выбираем первый элемент
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set 0
+                    $win.lBox activate 0
+                    $win.lBox see 0
+                }
+                return -code break
+            }
+            <Return> {
+                DebugPuts "Processing Return"
+                Helper::SelectFromList $widget
+                return -code break
+            }
+            <Escape> {
+                DebugPuts "Processing Escape"
+                # Закрываем окно списка
+                wm withdraw $win
+                set ::listActive 0
+                Helper::VarHelperBindingsRestore $widget
+                set ::previousInput ""
+                focus $widget
+                return -code break
+            }
+            default {
+                DebugPuts "Default case for K=$K, A='$A'"
+                # Для печатных символов
+                if {$A ne ""} {
+                    DebugPuts "Inserting character '$A' and restoring bindings"
+                    # Восстанавливаем привязки перед вставкой
+                    Helper::VarHelperBindingsRestore $widget
+                    # Вставляем символ
+                    $widget insert "insert" $A
+                }
+                return -code break
+            }
+        }
+    }
+
+    proc VarHelper {x y w word wordType} {
+        global editors lexers variables
+        variable txt 
+        variable win
+        
+        DebugPuts "=== VarHelper called: word='$word', wordType='$wordType' ==="
+        
+        set txt $w
+        # Проверяем если есть выделение то блокировать появление диалога
+        if {[$txt tag ranges sel] != ""} {
+            DebugPuts "You have selected text [$txt tag ranges sel]"
+            return            
+        }
+        
+        set fileType [dict get $editors $txt fileType]
+
+        if {[dict exists $editors $txt variableList] != 0} {
+            set varList [dict get $editors $txt variableList]
+        } else {
+            set varList {}
+        }
+        if {[dict exists $editors $txt procedureList] != 0} {
+            set procList [dict get $editors $txt procedureList]
+        } else {
+            set procList {}
+        }
+        
+        if {[dict exists $lexers $fileType commands] != 0} {
+            foreach i [dict get $lexers $fileType commands] {
+                lappend procList $i
+            }
+        }
+
+        set findedVars ""
+        switch -- $wordType {
+            vars {
+                foreach i [lsearch -nocase -all $varList $word*] {
+                    set item [lindex [lindex $varList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+            procedure {
+                foreach i [lsearch -nocase -all $procList $word*] {
+                    set item [lindex [lindex $procList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+            default {
+                foreach i [lsearch -nocase -all $varList $word*] {
+                    set item [lindex [lindex $varList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+                foreach i [lsearch -nocase -all $procList $word*] {
+                    set item [lindex [lindex $procList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+        }
+        
+        DebugPuts "Found [llength $findedVars] items: $findedVars"
+        
+        if {$findedVars eq ""} {
+            DebugPuts "No items found, returning"
+            return
+        }
+        
+        VarHelperDialog $x $y $w $word $findedVars
+    }
+
+    proc VarHelperDialog {x y w word findedVars} {
+        variable txt 
+        variable win
+
+        set txt $w
+        set win .varhelper
+        
+        DebugPuts "VarHelperDialog called with [llength $findedVars] items"
+        
+        # Если окно уже существует, уничтожаем его
+        if {[winfo exists $win]} {
+            DebugPuts "Window already exists, destroying it"
+            destroy $win
+            Helper::VarHelperBindingsRestore $txt
+        }
+        
+        toplevel $win
+        wm transient $win .
+        wm overrideredirect $win 1
+        
+        listbox $win.lBox -width 30 -border 0
+        pack $win.lBox -expand true -fill y -side left
+        
+        foreach item $findedVars {
+            $win.lBox insert end $item
+        }
+        
+        DebugPuts "Listbox created with [llength $findedVars] items"
+        
+        # Выбираем первый элемент
+        if {[llength $findedVars] > 0} {
+            $win.lBox selection set 0
+            $win.lBox activate 0
+        }
+        
+        if {[set height [llength $findedVars]] > 10} { 
+            set height 10 
+        }
+        $win.lBox configure -height $height
+
+        Helper::VarHelperBindingsSetup $w
+        
+        # Привязка для закрытия окна списка
+        bind $win <Destroy> [list apply {{win txt} {
+            set ::listActive 0
+            Helper::VarHelperBindingsRestore $txt
+            set ::previousInput ""
+        }} $win $txt.t]
+
+        # Определяем расстояние до края экрана (основного окна) и если
+        # оно меньше размера окна со списком то сдвигаем его вверх
+        set winGeomY [winfo reqheight $win]
+        set winGeomX [winfo reqwidth $win]
+
+        set topHeight [winfo height .]
+        set topWidth [winfo width .]
+        set topLeftUpperX [winfo x .]
+        set topLeftUpperY [winfo y .]
+        set topRightLowerX [expr $topLeftUpperX + $topWidth]
+        set topRightLowerY [expr $topLeftUpperY + $topHeight]
+        
+        if {[expr $x + $winGeomX] > $topRightLowerX} {
+            set x [expr $x - $winGeomX]
+        }
+        if {[expr $y + $winGeomY] > $topRightLowerY} {
+            set y [expr $y - $winGeomY]
+        }
+        set ::listActive 1
+        DebugPuts "Showing window at +$x+$y"
+        wm geom $win +$x+$y 
+    }
+
+    proc VarHelperBindingsSetup {txt} {
+        DebugPuts "Setting up bindings for $txt"
+        
+        # Сбрасываем сохраненные привязки
+        set ::originalBindings {}
+        
+        # Список событий для перехвата
+        set events {<Up> <Down> <Return>}
+        
+        # Сохраняем и заменяем привязки
+        foreach event $events {
+            # Получаем текущую привязку
+            set original [bind $txt $event]
+            DebugPuts "  Saving binding for $event: '$original'"
+            
+            # Сохраняем оригинал
+            lappend ::originalBindings [list $event $original]
+            
+            # Устанавливаем новую привязку
+            bind $txt $event [list Helper::VarHelperKey $txt $event %A]
+        }
+    }
+
+    # Восстановление оригинальных привязок
+    proc VarHelperBindingsRestore {txt} {
+        DebugPuts "Restoring bindings for $txt"
+        DebugPuts "Have [llength $::originalBindings] bindings to restore"
+        
+        if {![info exists ::originalBindings]} {
+            DebugPuts "  No original bindings stored"
+            # Очищаем наши привязки
+            foreach event {<Up> <Down> <Return>} {
+                bind $txt $event {}
+            }
+            return
+        }
+
+        # Восстанавливаем оригинальные привязки
+        foreach binding $::originalBindings {
+            set event [lindex $binding 0]
+            set command [lindex $binding 1]
+            DebugPuts "  Restoring $event: '$command'"
+            
+            if {$command eq ""} {
+                bind $txt $event {}
+            } else {
+                bind $txt $event $command
+            }
+        }
+
+        # Очищаем сохраненные привязки
+        set ::originalBindings {}
+    }
+
+    proc SelectFromList {txt} {
+        global returnProcessed editors lexers
+        set win .varhelper
+        # puts "[dict get $editors $txt fileType]"
+        # puts "[dict get $lexers [dict get $editors $txt fileType] variableSymbol]"
+        
+        if {![winfo exists $win]} {
+            return
+        }
+        set selected [$win.lBox curselection]
+        if {$selected ne ""} {
+            set text [string trim [$win.lBox get $selected]]
+            # DebugPuts "[dict exists $lexers [dict get $editors $txt fileType] variableSymbol]"
+            if [dict exists $lexers [dict get $editors $txt fileType] variableSymbol] {
+                set varSymbol [dict get $lexers [dict get $editors $txt fileType] variableSymbol]
+            } else {
+                set varSymbol ""
+            }
+            # Опеределяем что символ перед позицией вставки равен символу переменной из настроек lexers
+            # если равен то вставляем выбранное из списка сразу за ним
+            # если нет то удаляем введенный текст до этого символа и вставляем выбранное из списка
+            if {[$txt get "insert - 1 char" "insert"] eq $varSymbol} {
+                $txt insert "insert" $text
+            } else {
+                $txt delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
+                $txt insert "insert" $text
+            }        
+            # Закрываем окно
+            destroy $win
+            set ::listActive 0
+            Helper::VarHelperBindingsRestore $txt
+            set ::previousInput ""
+
+            # Устанавливаем флаг, что Return уже обработан
+            set returnProcessed 1
+            # after 10 {catch {unset returnProcessed}}
+            
+            focus $txt.t
+        }
+    }
+    proc DebugPuts {msg} {
+        puts "DEBUG: $msg"
+    }
+}
--- a/lib/highlight.tcl
+++ b/lib/highlight.tcl
@@ -210,5 +210,24 @@ namespace eval Highlight {} {
        ctext::addHighlightClass $txt compile_errors #ff5050 {error Error ERROR invalid undefined cannot}
        ctext::addHighlightClassForRegexp $txt url lightblue {\w+://\w.+\w+}
    }
-
+    proc C {txt} {
+        global lexers
+        ctext::addHighlightClassForRegexp $txt flags orange {-+[a-zA-Z\-_]+}
+        ctext::addHighlightClassForRegexp $txt arrows orange {(->)|(-<)}
+        ctext::addHighlightClass $txt stackControl #19a2a6 [dict get $lexers C commands]
+        ctext::addHighlightClass $txt types #7187d5 {string int int16 int32 int64 float bool byte size_t void char uint32_t uint32}
+        ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\&"
+        ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\*"
+        # ctext::addHighlightClassForRegexp $txt vars_extended #4471ca {\$\{[a-zA-Z0-9\_\-:\./\$\{\}]+\}}
+        ctext::addHighlightClass $txt variable_funcs gold {var type struct}
+        ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
+        ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
+        ctext::addHighlightClassForRegexp $txt comments #666666 {(//|/\*)[^\n\r]*}    
+        ctext::addHighlightClassForSpecialChars $txt qoute #b84a0c {"'`}
+        ctext::addHighlightClass $txt bool #3e803b {nil false true NULL TRUE FALSE}
+        ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
+        ctext::addHighlightClassForRegexp $txt macros #f88ffb {#\w+}
+        ctext::addHighlightClassForRegexp $txt include #68ceff {<[\w./_-]+?>}
+    }
+    proc H {txt} {Highlight::C $txt}
 }
--- a/lib/image_library.tcl
+++ b/lib/image_library.tcl
@@ -1947,3 +1947,24 @@ image create photo settings_24x24 -data {
    3W5MPksIPgdckHTF1XAMeCrpRXAexPT6yYSddEj6eKSJJmk3IcFGqWby51AbSvpeqr+KPjcKC7GT
    hfgXbteIc85F7RUAAAAASUVORK5CYII=
 }
+image create photo c_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAYAAAB/9ZQ7AAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dE
+    APgAjwD7QQHXygAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB+oCBg8YOxzsqLgAAABWSURB
+    VCjPY2AgATDCGFeLi/+jS2r39jJiKIYp1O7tZUDSjKGBCYdtyCbCbWTB5T6oiShOYyHWT7icgRPg
+    VHy1uPg/eggRY/J/YsMZRR0jLlNweZI2AAAzbhnP2WkKCAAAAABJRU5ErkJggg==
+}
+image create photo h_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAYAAAB/9ZQ7AAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dE
+    AAAAAAAA+UO7fwAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB+oCBg8iNd79W8YAAABJSURB
+    VCjPY2AgB1wtLv5/tbj4Pz41TKQYSJJiRmRnYFOg3dvLSLTJyIawYDEJWSGM+Z+BgYGRCY/zGOkX
+    GkwMFID/UExIjDAAAEu2FECKwea9AAAAAElFTkSuQmCC
+}
+image create photo cpp_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAMAAABIK2QJAAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAA9QTFRF
+    AAAAzAAAAAAA////////6rs+vwAAAAF0Uk5TAEDm2GYAAAABYktHRACIBR1IAAAACXBIWXMAAAsT
+    AAALEwEAmpwYAAAAB3RJTUUH6gIGDxU21/OqSAAAADVJREFUCNd9jUEOACAIw7D7/58VmNF4sAco
+    CbCIm5FsBTwsd+kmgVQu87p3OLfg/9AJJPFhAjDkAJmwKBolAAAAAElFTkSuQmCC
+}
--- a/lib/imgviewer.tcl
+++ b/lib/imgviewer.tcl
@@ -19,7 +19,7 @@ proc ImageViewer {f w node} {
    #$w.scrwin setwidget $w.scrwin.f
    openImg $f $w.f.c $node
 }
-        
+ 
 proc openImg {fn w node} {
    global im1 factor
    set im1 [image create photo -file $fn]
--- a/lib/lexers.tcl
+++ b/lib/lexers.tcl
@@ -104,5 +104,27 @@ dict set lexers LUA procFindString {function\s*?PROCNAME}
 dict set lexers LUA procRegexpCommand {regexp -nocase -all -- {^(local|)\s*?(function)\s([a-zA-Z0-9\-_:]+?)\s+\((.+?)\)} $line match v1 keyWord procName params}
 dict set lexers LUA varRegexpCommand {regexp -nocase -all -- {^(\s*?)([a-zA-Z0-9\-_\.]+)\s+=\s+(.+?)(\s*$|--)} $line match indent varName varValue lineEnd}

+#--------------------------------------------------
+# C
+dict set lexers C commentSymbol {//}
+dict set lexers C commentMultilineSymbolBegin {/*}
+dict set lexers C commentMultilineSymbolEnd {*/}
+dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+# dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
+# dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
+dict set lexers C commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
+
+#--------------------------------------------------
+# H
+dict set lexers C commentSymbol {//}
+dict set lexers C commentMultilineSymbolBegin {/*}
+dict set lexers C commentMultilineSymbolEnd {*/}
+dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+# dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
+# dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
+dict set lexers C commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
+
 # -------------------------------------------------
 dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}
--- a/lib/menu.tcl
+++ b/lib/menu.tcl
@@ -20,6 +20,7 @@ proc GetFileMenu {m} {
    }
    $m add command -label [::msgcat::mc "Save file"] -command {FileOper::Save}\
        -accelerator "Ctrl+S"
+    $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas}
    $m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\
        -accelerator "Ctrl+w"
    $m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}
--- a/lib/msgs/en.msg
+++ b/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"


-
--- a/lib/msgs/ru.msg
+++ b/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" "Обновить"
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -13,6 +13,7 @@ namespace eval NB {
    proc InsertItem {nb item type} {
        switch $type {
            file {
+                set titleFileName [file tail $item]
                set item [string tolower $item]
                regsub -all {\.|/|\\|\s|:} $item "_" itemName
                # puts "$item -> $itemName"
@@ -21,7 +22,7 @@ namespace eval NB {
                } else {
                    set fm [ttk::frame $nb.$itemName]
                    pack $fm -side top -expand true -fill both
-                    $nb add $fm -text [file tail $item];# -image close_12x12 -compound right
+                    $nb add $fm -text $titleFileName;# -image close_12x12 -compound right
                    $nb select $fm
                }
            }
@@ -32,7 +33,7 @@ namespace eval NB {
                set fm [ttk::frame $nb.$item]
                pack $fm -side top -expand true -fill both
                $nb add $fm -text Git;# -image close_12x12 -compound right
-                $nb select $fm                
+                $nb select $fm
            }
        }
        # puts "NB item - $fm"
@@ -51,11 +52,16 @@ namespace eval NB {
            return
        }
        if {[$w identify $x $y] == "close_button"} {
-            FileOper::Close
+            # puts "NB::PressTab: w - $w"
+            FileOper::Close $w
        } else {
            set txt [$w select].frmText.t
-            if [winfo exists $txt] {
-                focus -force $txt.t
+            if {[winfo exists [$w select].frmText2] == 1} {
+                focus -force [$w select].frmText2.frame.text.t
+            } else {
+                if [winfo exists $txt] {
+                    focus -force $txt.t
+                }
            }
        }
    }
@@ -63,7 +69,12 @@ namespace eval NB {
    proc NextTab {w step} {
        global tree
        set i [expr [$w index end] - 1]
+        # puts "NB::NextTab $w"
        if {[$w select] eq ""} {
+            # puts "NB::NextTab no items availabels"
+            if {$w eq ".frmWork.nbEditor2"} {
+                .frmWork.panelNB forget .frmWork.nbEditor2
+            }
            return
        }
        set nbItemIndex [$w index [$w select]]
@@ -75,13 +86,17 @@ namespace eval NB {
            $w select [expr $nbItemIndex + $step]
        }
        set nbItem [string trimleft [$w select] "$w."]
-        # puts  $nbItem
        append treeItemName "file" "::" $nbItem
        Tree::SelectItem $treeItemName
        
        set txt [$w select].frmText.t
-        if [winfo exists $txt] {
-            focus -force $txt.t
+        DebugPuts "NextTab: [$w select]"
+        if {[winfo exists [$w select].frmText2] == 1} {
+            focus -force [$w select].frmText2.frame.text.t
+        } else {
+            if [winfo exists $txt] {
+                focus -force $txt.t
+            }
        }
    }
 }
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -195,9 +195,19 @@ proc ResetModifiedFlag {w nbEditor} {
    # puts "ResetModifiedFlag: $lbl"
    $nbEditor tab $w -text $lbl
 }
-proc SetModifiedFlag {w nbEditor} {
+proc SetModifiedFlag {w nbEditor flag} {
    global modified
-    #$w.frmText.t edit modified false
+    # ------------
+    # Thanks https://github.com/wandrien/
+    # https://github.com/wandrien/projman/commit/04e5c892ae06d3e013472d292cd4435804184f6b
+    if {$flag eq "force"} {
+        $w.frmText.t edit modified true
+    } else {
+        if {![$w.frmText.t edit modified]} {
+            return
+        }
+    }
+    # ---------
    set modified($w) "true"
    set lbl [$nbEditor tab $w -text]
    # puts "SetModifiedFlag: $w; $modified($w); >$lbl<"
@@ -828,6 +838,44 @@ proc MakeTGZ {} {
    }
 }

+
+# Процедура для проверки, находится ли редактирование в последней строке
+proc IsLastLine {widget} {
+    set current_line [lindex [split [$widget index insert] .] 0]
+    set last_line [lindex [split [$widget index end-1c] .] 0]
+    return [expr {$current_line == $last_line}]
+}
+
+# Процедура для проверки выделения в последней строке
+proc IsSelectionInLastLine {widget} {
+    if {![$widget tag ranges sel]} {
+        return 0
+    }
+    
+    set last_line [lindex [split [$widget index end-1c] .] 0]
+    set sel_start_line [lindex [split [$widget index sel.first] .] 0]
+    set sel_end_line [lindex [split [$widget index sel.last] .] 0]
+    
+    return [expr {$sel_start_line == $last_line && $sel_end_line == $last_line}]
+}
+
+# Процедура-обертка для проверки последней строки
+proc CheckLastLineAndRun {txt w filePath} {
+    # Проверяем, находится ли курсор в последней строке
+    set current_line [lindex [split [$txt index insert] .] 0]
+    set last_line [lindex [split [$txt index end-1c] .] 0]
+    
+    if {$current_line == $last_line} {
+        # Разрешаем выполнение в последней строке
+        $txt insert insert "\n"
+        Run $w $filePath
+    } else {
+        # Запрещаем в других строках
+        bell
+        $txt mark set insert end
+    }
+}
+
 ## MAKE PROJ PROCEDURE (RUNNING PROJECT) ##
 proc Execute {filePath w activeEditor} {
    global activeProject cfgVariables
@@ -847,37 +895,38 @@ proc Execute {filePath w activeEditor} {
    frame $w.frame -borderwidth 2 -relief ridge -background $cfgVariables(backGround)
    pack $w.frame -side top -fill both -expand true
    
-    
-    ctext $w.frame.text -yscrollcommand "$w.frame.yscroll set" \
+    set txt $w.frame.text
+    ctext $txt -yscrollcommand "$w.frame.yscroll set" -linemap 0 \
    -bg $cfgVariables(backGround) -fg $cfgVariables(foreground) \
-    -relief sunken -wrap word -highlightthickness 0 -font $cfgVariables(font)\
+    -relief sunken -wrap word -highlightthickness 0 -font $cfgVariables(font) \
    -selectborderwidth 0 -selectbackground $cfgVariables(selectbg) -width 10 -height 10
+
    scrollbar $w.frame.yscroll -relief sunken -borderwidth {1} -width {10} -takefocus 0 \
-    -command "$w.frame.text yview" -background $cfgVariables(backGround)
-    Highlight::ExecuteColorized $w.frame.text
+    -command "$txt yview" -background $cfgVariables(backGround)
+    Highlight::ExecuteColorized $txt
    
-    pack $w.frame.text -side left -fill both -expand true
+    pack $txt -side left -fill both -expand true
    pack $w.frame.yscroll -side left -fill y 
    
-    bind $w.frame.text <Return> [list Run $w $filePath]
-    bind $w.frame.text <Control-r> [list CloseExecuteDialog $w $activeEditor]
-    bind $w.frame.text <Control-Cyrillic_er> [list CloseExecuteDialog $w $activeEditor]
+    bind $txt <Return> [list Run $w $filePath]
+    bind $txt <Control-r> [list CloseExecuteDialog $w $activeEditor]
+    bind $txt <Control-Cyrillic_er> [list CloseExecuteDialog $w $activeEditor]
    # focus -force $w.frmBtn.btnOk
    # $noteBook raise $node
    # insert debug data into text widget #
-    $w.frame.text tag configure bold -font $cfgVariables(fontBold)
-    $w.frame.text tag configure error -font $cfgVariables(fontBold) -foreground red
-    $w.frame.text tag add bold 0.0 0.end
+    $txt tag configure bold -font $cfgVariables(fontBold)
+    $txt tag configure error -font $cfgVariables(fontBold) -foreground red
+    $txt tag add bold 0.0 0.end

-    $w.frame.text insert end "[::msgcat::mc "Enter command for execute file"] $filePath >\n"
+    $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]
    $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] "."]]
@@ -885,7 +934,70 @@ proc Execute {filePath w activeEditor} {

    $w.frame.text tag add bold $lineNum.0 $lineNum.end
    Highlight::ExecuteColorized $w.frame.text
+
    # focus -force $w.frame.text
+    
+    # Привязки событий для защиты от редактирования
+    # bind $txt <KeyPress> {
+        # if {![IsLastLine %W]} {
+            # break
+        # }
+    # }
+    # bind $txt <KeyPress-Return> {
+        # # Разрешаем Enter только в последней строке
+        # if {![IsLastLine %W]} {
+            # break
+        # } else {
+            # list Run $w $filePath
+        # }
+    # }
+    # bind $txt <KeyPress-Return> [list CheckLastLineAndRun $txt $w $filePath]
+    # 
+    # bind $txt <BackSpace> {
+        # if {[%W tag ranges sel] ne ""} {
+            # if {![IsSelectionInLastLine %W]} {
+                # break
+            # }
+        # } else {
+            # if {![IsLastLine %W]} {
+                # break
+            # }
+        # }
+    # }
+    # bind $txt <Delete> {
+        # if {[%W tag ranges sel] ne ""} {
+            # if {![IsSelectionInLastLine %W]} {
+                # break
+            # }
+        # } else {
+            # if {![IsLastLine %W]} {
+                # break
+            # }
+        # }
+    # }
+    # # Защита от вставки
+    # bind $txt <<Paste>> {
+        # if {[%W tag ranges sel] ne ""} {
+            # if {![IsSelectionInLastLine %W]} {
+                # break
+            # }
+        # } else {
+            # if {![IsLastLine %W]} {
+                # break
+            # }
+        # }
+    # }
+    # # Защита от вырезания
+    # bind $txt <<Cut>> {
+        # if {[%W tag ranges sel] ne ""} {
+            # if {![IsSelectionInLastLine %W]} {
+                # break
+            # }
+        # } else {
+            # break
+        # }
+    # }
+    
    focus -force $w.frame.text.t
 }

@@ -962,10 +1074,10 @@ proc SendSignal {pid signal} {
    if {$tcl_platform(platform) eq "unix"} {
        # На Unix-системах
        switch -- $signal {
-            "SIGINT" { exec kill -INT $pid }  ; # Ctrl+C
-            "SIGTERM" { exec kill -TERM $pid } ; # Завершение
-            "SIGTSTP" { exec kill -TSTP $pid } ; # Ctrl+Z (приостановка)
-            "SIGKILL" { exec kill -KILL $pid } ; # Принудительное завершение
+            "SIGINT"  {catch {exec kill -INT $pid}}  ; # Ctrl+C
+            "SIGTERM" {catch {exec kill -TERM $pid}} ; # Завершение
+            "SIGTSTP" {catch {exec kill -TSTP $pid}} ; # Ctrl+Z (приостановка)
+            "SIGKILL" {catch {exec kill -KILL $pid}} ; # Принудительное завершение
        }
    } else {
        # На Windows
@@ -982,6 +1094,8 @@ proc SendSignal {pid signal} {
    }
 }

+
+
 # Правка файла настроек
 proc Settings {} {
    global dir
@@ -1000,11 +1114,11 @@ proc ExecutorCommandPathSetting {fileType} {
        } else {
            set cmd "which $cfgVariables($fileType)"
        }
-        puts "ExecutorCommandPathSetting $fileType"
-        puts [catch {exec {*}$cmd} executor_path]
-        puts "executor_path $executor_path"
+        DebugPuts "ExecutorCommandPathSetting $fileType"
+        DebugPuts [catch {exec {*}$cmd} executor_path]
+        DebugPuts "executor_path $executor_path"
        if {[catch {exec {*}$cmd} executor_path]} {
-            puts "Программа $cfgVariables($fileType) для выполнения файлов $fileType не найдена в системе"
+            DebugPuts "Программа $cfgVariables($fileType) для выполнения файлов $fileType не найдена в системе"
            set cfgVariables($fileType) ""
            return
        }
@@ -1013,10 +1127,50 @@ proc ExecutorCommandPathSetting {fileType} {
        
        # puts "Git найден: $first_path"
        set cfgVariables($fileType) $first_path
-        puts "first_path $first_path"
+        DebugPuts "first_path $first_path"
    }
    if {[info exists cfgVariables($fileType)] == 0} {
        set cfgVariables($fileType) ""
-        puts $cfgVariables($fileType)
+        DebugPuts $cfgVariables($fileType)
+    }
+}
+
+# -----------
+# Thanks https://github.com/wandrien/
+# https://github.com/wandrien/projman/commit/22f6e235c3532c20573d44ee7eaaaa1fb56ad544
+proc SendEventToLatestTxtWidget {ev} {
+    global latestTxtWidget
+    if {$latestTxtWidget eq ""} {
+        return
+    } elseif {[winfo exists $latestTxtWidget] && [winfo class $latestTxtWidget] eq "Ctext"} {
+        event generate ${latestTxtWidget}.t $ev
+    } else {
+        set latestTxtWidget ""
+    }
+}
+
+proc Cut {} { SendEventToLatestTxtWidget <<Cut>> }
+proc Copy {} { SendEventToLatestTxtWidget <<Copy>> }
+proc Paste {} { SendEventToLatestTxtWidget <<Paste>> }
+proc Undo {} { SendEventToLatestTxtWidget <<Undo>> }
+proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
+# ------------
+
+proc DebugPuts {msg} {
+    global cfgVariables
+    if ![info exists cfgVariables(debug)] {
+        return 0
+    }
+    if ![info exists cfgVariables(debugOut)] {
+        return 0
+    }
+    if {$cfgVariables(debug) eq "true"} {
+        if {$cfgVariables(debugOut) eq "stdout"} {
+            puts "$msg"
+        } elseif {$cfgVariables(debugOut) ne "" } {
+            set logFile [open $cfgVariables(debugOut) "a+"]
+            puts $logFile $::configDefault
+            close $logFile
+        }
    }
 }
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -0,0 +1,220 @@
+##################################################################
+# 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 \"%s\"
+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 ::toolsVariables ""
+    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
+    set count [$m index end]
+    if {$count != "none"} {
+        for {set i $count} {$i >= 0} {incr i -1} {
+            $m delete $i
+        }
+    }
+    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"]
+                bind . <$shortCut>  "[list Tools::Execute "$toolName"]; break"
+            } else {
+                $m add command -label $toolName -command [list Tools::Execute "$toolName"]
+            }
+        }
+    }
+    $m add separator
+    $m add command -label "[::msgcat::mc "Settings"]" -command Tools::Settings
+}
+
+proc Tools::CommandPathSettings {command} {
+    global tcl_platform
+    if [file exists $command] {return $command}
+    
+    if {$tcl_platform(platform) eq "windows"} {
+        set cmd "where $command)"
+    } else {
+        set cmd "which $command"
+    }
+    DebugPuts [catch {exec {*}$cmd} toolsPath]
+    DebugPuts "executor_path $toolsPath"
+    if {[catch {exec {*}$cmd} toolsPath]} {
+        DebugPuts "Tools::CommandPathSettings: Программа $command не найдена в системе"
+        return ""
+    }
+    set fullPath [string trim $toolsPath]
+    set firstPath [lindex [split $toolsPath "\n"] 0]
+
+    DebugPuts "Tools::CommandPathSettings: executable path $fullPath"
+    return $fullPath
+}
+
+proc Tools::Execute {toolName} {
+    global cfgVariables toolsVariables tree
+    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"
+    }
+    # 7. Проверять команды на доступность в системе и подставлять полный путь к команде
+    #    если в конфиге не указан полный путь.
+    # Проверем наличие внешгних программ в системе
+    set cmd [lindex [split $command " "] 0]
+    if [file exists $cmd] {
+        set fullCommand $command
+    } else {
+        set fullPathToExec [Tools::CommandPathSettings "$cmd"]
+        set fullCommand [lreplace [split $command " "] 0 0 $fullPathToExec]
+    }
+    if {$fullPathToExec eq ""} {
+        DebugPuts "Tools::Execute: $command not found"
+        return
+    } else {
+        DebugPuts "Tools::Execute: $fullPathToExec, $fullCommand"
+    }
+    # 2. Определять выделен ли текст в открытом редакторе
+    # 5. Заменяем %s на выделенный в редакторе текст 
+    set selectedText [Editor::SelectionGet]
+    if {$selectedText ne ""} {
+        regsub -all "%s" $fullCommand "$selectedText" fullCommand
+        DebugPuts "Tools::Execute:  selected text \"$selectedText\", command \"$fullCommand\""
+    }
+
+    # 1. Определять текущий файл
+    # 3. Опеределять сколько файлов выделено в дереве
+    # 4. Заменяем знак %f на имя текущего файла (файлов)
+    # regsub -all "%f" $command "$filePath" fullCommand
+    set filesList [Tree::GetSelectedItemValues $tree]
+    if {$filesList ne ""} {
+        foreach file $filesList {
+            # Если больше нет %f для замены, выходим из цикла
+            if {![string match "*%f*" $fullCommand]} break
+            set fullCommand [regsub {%f} $fullCommand $file]
+        }
+    }
+
+    # 6. Заменяем %d на текущий каталог(и), если он выделен в дереве,
+    #    и если не выделено то корневой открытый в дереве
+    DebugPuts "Tools::Execute: $fullCommand"
+
+    set pipe [open "|$fullCommand" "r"]
+    fileevent $pipe readable
+    fconfigure $pipe -buffering none -blocking no
+}
+
+# Правка файла настроек
+proc Tools::Settings {} {
+    global dir
+    
+    FileOper::Edit [file join $dir(cfg) tools.ini]
+    # Config::read $dir(cfg)
+}
--- a/lib/tree.tcl
+++ b/lib/tree.tcl
@@ -99,6 +99,7 @@ namespace eval Tree {
    proc PressItem {tree} {
        global nbEditor lexers editors activeProject
        set id [$tree selection]
+        if {[llength $id] > 1} {return}
        $tree tag remove selected
        $tree item $id -tags selected
        SetActiveProject [GetItemID $tree [GetUpperItem $tree $id]]
@@ -106,7 +107,7 @@ namespace eval Tree {
        set key [lindex [split $id "::"] 0]
        if {$values eq "" || $key eq ""} {return}
        
-        puts "$key $tree $values"
+        DebugPuts "$key $tree $values"
        switch -regexp $key {
            directory {
                FileOper::ReadFolder  $values
@@ -114,7 +115,7 @@ namespace eval Tree {
            }
            file {
                set v [FileOper::Edit $values $nbEditor]
-                puts $v
+                DebugPuts $v
                if {$v eq false} {
                    $tree delete $id
                }
@@ -160,5 +161,12 @@ namespace eval Tree {
            GetUpperItem $tree $parent
        }
    }
-    
+
+    proc GetSelectedItemValues {tree} {
+        set valuesList ""
+        foreach itemID [$tree selection] {
+            lappend valuesList [GetItemID $tree $itemID]
+        }
+        return $valuesList
+    }
 }
--- a/openbsd/build-package-bsd.sh
+++ b/openbsd/build-package-bsd.sh
@@ -0,0 +1,84 @@
+#!/bin/bash
+# create-openbsd-pkg.sh
+
+PKG_NAME="projman"
+WORK_DIR=projman_openbsd
+VERSION=$(grep Version ../projman.tcl | grep -oE '\b[0-9]{1,2}\.[0-9]{1,2}\.[0-9]{1,2}\b')
+RELEASE=$(grep "# Release" ../projman.tcl | grep -oE '[0-9A-Za-z]+$')
+BUILD_DATE=$(date +%d%m%Y%H%M%S)
+TXT="# Build: ${BUILD_DATE}"
+echo "$VERSION, $RELEASE, $BUILD_DATE"
+
+PKG_VERSION="${VERSION}${RELEASE}"
+PKG_FULLNAME="${PKG_NAME}-${PKG_VERSION}"
+
+mkdir -p ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin
+mkdir -p ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman
+mkdir -p ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/man/man1
+
+cp -r ../lib ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp -r ../theme ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp ../projman.tcl ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman
+cp ../changelog-gen.tcl ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/changeloggen
+cp ../tkregexp.tcl ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/tkregexp
+cp ../LICENSE ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp ../README.md ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp ../CHANGELOG ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp ../projman.desktop ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+cp ../projman.png ${WORK_DIR}/${PKG_FULLNAME}/usr/local/share/projman/
+
+sed -i "/# Build:.*/c$TXT"  ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman
+
+# ./changelog-gen.tcl  --project-name projman --project-version ${VERSION} --project-release ${RELEASE} --out-file debian/changelog --deb --last
+
+sed -i "s+^set\ dir(lib)+set\ dir(lib)\ /usr/local/share/projman/lib ;#+g"  ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman
+   
+sed -i "s+\[pwd\]+/usr/local/share/projman+g"  ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman
+
+# cat > ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman << 'EOF'
+# #!/bin/sh
+# exec /usr/local/bin/wish8.6 "/usr/local/share/projman/projman.tcl" "$@"
+# EOF
+# chmod +x ${WORK_DIR}/${PKG_FULLNAME}/usr/local/bin/projman
+
+cat > ${WORK_DIR}/${PKG_FULLNAME}/+CONTENTS << EOF
+@name ${PKG_NAME}-${PKG_VERSION}
+@version ${PKG_VERSION}
+@depend lang/tk:tk-*:tcl-*
+@depend devel/tcllib:tcllib-*:tcl-*
+@depend devel/tklib:tklib-*:tcl-*
+@comment Editor for Tcl/Tk and other languages.
+@arch amd64
+@ignore
+@cwd /usr/local
+EOF
+
+(cd ${WORK_DIR}/${PKG_FULLNAME}/usr/local && find . -type f | sed 's/^\.\///') | while read file; do
+    echo "$file" >> ${WORK_DIR}/${PKG_FULLNAME}/+CONTENTS
+done
+
+cat >> ${WORK_DIR}/${PKG_FULLNAME}/+CONTENTS << 'EOF'
+@exec mkdir -p /var/log/projman 2>/dev/null || true
+@exec echo "Package ${PKG_NAME} installed successfully"
+@unexec rm -rf /var/log/projman 2>/dev/null || true
+EOF
+
+echo "ProjMan is a code editor writen in TCL/Tk" > ${WORK_DIR}/${PKG_FULLNAME}/+COMMENT
+
+cat > ${WORK_DIR}/${PKG_FULLNAME}/+DESC << 'EOF'
+ProjMan (also known as "Tcl/Tk Project Manager") is a feature-rich editor
+for programming in Tcl/Tk and other languages.
+
+It includes a source editor with syntax highlighting and
+code navigation, a context-sensitive help system, Git support, a
+pseudo-terminal, image viewer and much more.
+
+Supported languages for highlighting and navigation:
+Tcl/Tk, GO, Perl, Python, Ruby, Shell (BASH), Markdown, YAML (Ansible), Lua.
+EOF
+
+(cd ${WORK_DIR}/${PKG_FULLNAME}/ && pwd && ls -1 && tar -czf ../../../../${PKG_FULLNAME}.tgz .)
+
+echo "Package created: ${PKG_FULLNAME}.tgz"
+
+rm -rf ${WORK_DIR}
--- a/projman.tcl
+++ b/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,9 +8,9 @@ exec wish9.0 "$0" -- "$@"
 # Author: Sergey Kalinin svk@nuk-svk.ru
 # Home page: https://nuk-svk.ru
 ######################################################
-# Version: 2.1.0
-# Release: alpha0
-# Build: 10112025132121
+# Version: 2.0.0
+# Release: beta3
+# Build: 06022026152138
 ######################################################

 # определим текущую версию, релиз и т.д.
@@ -34,7 +34,6 @@ while {[gets $f line] >=0} {
 }
 close $f

-
 package require msgcat
 package require inifile
 package require ctext
@@ -49,7 +48,7 @@ proc PackagePresent {pkg} {
    foreach item [package names] {
        # puts [string match -nocase Img $item]
        if {[string match -nocase Img $item] == 1} {
-            puts "The $pkg package was found"
+            # puts "The $pkg package was found"
            return true
        }
    }
@@ -70,7 +69,7 @@ if { $::argc > 0 } {
    foreach arg $::argv {
        lappend opened $arg
    }
-    puts $opened
+    # puts $opened
 }


@@ -98,7 +97,7 @@ source [file join $dir(lib) config.tcl]
 foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
    if {[file tail $modFile] ne "gui.tcl" && [file tail $modFile] ne "config.tcl"} {
        source $modFile
-        puts "Loading module $modFile"
+        # puts "Loading module $modFile"
    }
 }

@@ -107,26 +106,36 @@ set dir(theme) "[file join $dir(root) theme]"
 foreach modFile [lsort [glob -nocomplain [file join $dir(theme) *]]] {
    if [file isdirectory $modFile] {
        source $modFile/[file tail $modFile].tcl
-        puts "Loading theme $modFile.tcl"
+        # puts "Loading theme $modFile.tcl"
    } elseif {[file extension $modFile] eq ".tcl"} {
        source $modFile
-        puts "Loading theme $modFile"
+        # puts "Loading theme $modFile"
    }
 }


-# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
-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]] {
    puts "Load locale messages... OK"
 }
-puts "Setting the locale... [::msgcat::mclocale]"
+DebugPuts "Setting the locale... [::msgcat::mclocale]"

 source [file join $dir(lib) gui.tcl]

--- a/redhat/build-rpm.sh
+++ b/redhat/build-rpm.sh
@@ -18,6 +18,8 @@ cp projman.tcl projman
 sed -i "s+^set\ dir(lib)+set\ dir(lib)\ /usr/share/projman/lib ;#+g" projman
 sed -i "s+\[pwd\]+/usr/share/projman+g" projman

+./changelog-gen.tcl  --project-name projman --project-version ${VERSION} --project-release ${RELEASE} --out-file redhat/projman.spec --rpm --last
+
 CUR_DIR=$(pwd)

 cd ../
@@ -31,12 +33,12 @@ cp redhat/projman.spec ${RPM_BUILD_DIR}/SPECS/projman.spec
 sed -i "s/.*Version:.*/Version:\t${VERSION}/" ${RPM_BUILD_DIR}/SPECS/projman.spec
 sed -i "s/.*Release:.*/Release:\t${RELEASE}/" ${RPM_BUILD_DIR}/SPECS/projman.spec

-rpmbuild -ba "${RPM_BUILD_DIR}/SPECS/projman.spec"
+fakeroot rpmbuild -ba "${RPM_BUILD_DIR}/SPECS/projman.spec"

-# cp ${RPM_BUILD_DIR}/RPMS/noarch/projman-${VERSION}-${RELEASE}.noarch.rpm /files/
-# cp ${RPM_BUILD_DIR}/SRPMS/projman-${VERSION}-${RELEASE}.src.rpm /files/
+cp ${RPM_BUILD_DIR}/RPMS/noarch/projman-${VERSION}-${RELEASE}.noarch.rpm  ../
+cp ${RPM_BUILD_DIR}/SRPMS/projman-${VERSION}-${RELEASE}.src.rpm ../

 rm -v projman
 rm -r -v ${RPM_BUILD_DIR}/SPECS/projman.spec
 rm -r -v ${RPM_BUILD_DIR}/SOURCES/projman-${VERSION}-${RELEASE}.tar.gz
-rm -r -v ${RPM_BUILD_DIR}/BUILD/projman
+#rm -r -v ${RPM_BUILD_DIR}/BUILD/projman
--- a/redhat/projman.spec
+++ b/redhat/projman.spec
@@ -6,7 +6,7 @@ License:        GPL
 Group:          Development/Tcl
 Url:            https://nuk-svk.ru
 BuildArch:      noarch
-Source:         %name-%version-%release.tar.gz
+Source:         %{name}-%{version}-%{release}.tar.gz
 Requires:       tcl, tk, tklib, tcllib

 %description
@@ -16,40 +16,216 @@ This a editor for programming in TCL/Tk (and other language). It includes a file
 Интегрированная среда для программирования на Tcl/Tk. Включает в себя - менеджер проектов, полнофункциональный редактор, систему навигации по файлам и структуре файлов и многое другое.

 %prep
-%setup -n %name
+%setup -n %{name}

 %build
+# Пустая секция, если сборка не требуется

 %install
-mkdir -p $RPM_BUILD_ROOT%_bindir
-mkdir -p $RPM_BUILD_ROOT%_datadir/%name/lib/msgs
-mkdir -p $RPM_BUILD_ROOT%_datadir/%name/theme
-mkdir -p $RPM_BUILD_ROOT%{_datarootdir}/applications
+# Создаем директории
+mkdir -p %{buildroot}%{_bindir}
+mkdir -p %{buildroot}%{_datadir}/%{name}/lib/msgs
+mkdir -p %{buildroot}%{_datadir}/%{name}/theme
+mkdir -p %{buildroot}%{_datadir}/applications
+mkdir -p %{buildroot}%{_iconsdir}/hicolor/48x48/apps

-install -p -m755 projman $RPM_BUILD_ROOT%_bindir/%name
-install -p -m755 tkregexp.tcl $RPM_BUILD_ROOT%_bindir/tkregexp
+# Копируем исполняемые файлы
+install -p -m755 projman %{buildroot}%{_bindir}/%{name}
+install -p -m755 tkregexp.tcl %{buildroot}%{_bindir}/tkregexp
+install -p -m755 changelog-gen.tcl %{buildroot}%{_bindir}/changeloggen

-# install -p -m644 *.tcl $RPM_BUILD_ROOT%_datadir/%name/
-install -p -m644 lib/*.tcl $RPM_BUILD_ROOT%_datadir/%name/lib/
-install -p -m644 lib/msgs/*.* $RPM_BUILD_ROOT%_datadir/%name/lib/msgs/
-install -p -m644 theme/*.tcl $RPM_BUILD_ROOT%_datadir/%name/theme
-install -p -m644 projman.desktop	$RPM_BUILD_ROOT%{_datarootdir}/applications
+# Копируем библиотеки и ресурсы
+install -p -m644 lib/*.tcl %{buildroot}%{_datadir}/%{name}/lib/
+install -p -m644 lib/msgs/*.* %{buildroot}%{_datadir}/%{name}/lib/msgs/
+install -p -m644 theme/*.tcl %{buildroot}%{_datadir}/%{name}/theme

+# Копируем .desktop файл
+install -p -m644 projman.desktop %{buildroot}%{_datadir}/applications/
+
+# Копируем иконку в правильное место
+install -p -m644 projman.png %{buildroot}%{_iconsdir}/hicolor/48x48/apps/projman.png
+
+# Обновляем кэш иконок (опционально для Debian)
 %post
-%update_menus
+if [ $1 -eq 1 ] ; then
+    if [ -x /usr/bin/gtk-update-icon-cache ]; then
+        /usr/bin/gtk-update-icon-cache -q %{_iconsdir}/hicolor || :
+    fi
+fi

 %postun
-%clean_menus
+if [ $1 -eq 0 ] ; then
+    if [ -x /usr/bin/gtk-update-icon-cache ]; then
+        /usr/bin/gtk-update-icon-cache -q %{_iconsdir}/hicolor || :
+    fi
+fi

 %files
-%doc INSTALL CHANGELOG TODO LICENSE README.md
-%_bindir/%name
-%_bindir/tkregexp
-%_datarootdir/applications/%name.desktop
-%_datadir/%name
-
+%doc CHANGELOG TODO LICENSE README.md
+%{_bindir}/%{name}
+%{_bindir}/tkregexp
+%{_bindir}/changeloggen
+%{_datadir}/applications/projman.desktop
+%{_datadir}/%{name}
+%{_iconsdir}/hicolor/48x48/apps/projman.png

 %changelog
-* Mon Nov 28 2022 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0
-    - Initial release
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  Откорректировал сборку рпм
+
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  Добавил сборку rpm. Исправил changelog-и
+
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  changelog-gen: сделал вывод изменения в формате rpm.spec
+    -  Исправил смену регистра в заголовках вкладок
+    -  Добавил проверки в диалог FileOper::SaveFile
+    -  Добавил диалог 'Сохранить как'
+    -  Добавил проверку на наличие символа переменной.
+    -  Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter.
+    -  Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль. Исправил недоработку при выборе варианта из списка и вставке его в текст. Исправил обработку клавиш Ввер Вниз Ввод Отмена в окне со списком вариантов.
+
+* Tue Jan 27 2026 svk <svk@nuk-svk.ru> 2.0.0-beta2
+    -  Добавлено подключение (bind) сочетания клавишь указанных в настройках инструментов.
+    -  Добавлена динамическая генерация меню 'Инструменты'. Теперь новые внешние инструменты доступны сразу после сохранения файла настроек tools.ini в редакторе.
+    -  2-я бета
+    -  Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.
+    -  Добавлено редактирование настроек внешних инструментов. И пункт в меню 'Инструменты'->'Настройки'
+    -  Исправление ошибки с запуском внешних программ.
+    -  Добавлено определение путей до внешних программ при подключении к редактору.
+    -  Сделана обработка шаблонов командной строки и запуск внешних инструментов.
+    -  Добавлен tkregexp для установки в /usr/bin
+    -  Добавлена сборка пакетов для openbsd
+
+* Wed Jan 21 2026 svk <svk@nuk-svk.ru> 2.0.0-beta1
+    -  Сделан вывод отладочной информации по запросу. Переделка кода.
+    -  Добавлены процедуры проверки наличия параметров конфигурации
+    -  Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
+    -  Исправил вставку кавычек при выделении текста
+    -  Исправил ошибку при отправке сигналов несуществующему процессу.
+    -  Уменьшил всплывающее меню: вынес менюшки Файл и Вид в подменю.
+    -  Изменил команду загрузки пакета в репу
+    -  Исправлено поведение при сочетании клавиш Control-y (повторение последнего действия)
+    -  Исправлен флаг модификации при открытии файла
+    -  Исправил закрытие вкладок редактора и сохранение файла при разделении экрана.
+    -  Добавлены настройки путей к программам для выполнения редактируемых файлов для каждого поддержимаего типа. И использование этих настроек при выполнении файла.
+    -  Добавил вывод информации о версиях tcl и tk
+    -  Добавил вывод номера версии tcl/tl в О Программе
+    -  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
+    -  Добавил проверку пакета Img. И поправил проверку типов изображений
+    -  Переделал сигналы и сочетния
+    -  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
+    -  Добавлена передача сигналов для закрытия запущенного процесса
+    -  Добавлен диалог настроек
+    -  Добавил псевдо-терминал
+    -  Добавлен диалог при открытии файлов отличных от текстовых
+    -  Поправил тему оформления
+    -  Исправлена работа в windows
+    -  Уменьшил колдичество выводимой отладочной информации
+    -  Добавлено определение пути до git в зависимости от платформы.
+    -  Исправлено создание файла конфигурации
+    -  Исправлено создание файла конфигурации. Добавлены номера версий в вызов tclsh8.6 и wish8.6. Убрана зависимостить на Threads.
+    -  Исправлено чтение структуры проекта при открытии из меню 'Открыть недавнее'
+    -  Bugfix release
+    -  Bug fix with varhelper
+    -  Added the "Open Recent" menu. The "recentlyEditedFolders" option in the configuration file contains a list of recently opened directories. The procedures for working with this list have also been added.
+    -  Косметические изменения.
+    -  Исправлены ошибки при вставке кавычек
+    -  changelog-gen.tcl: Добавлена генерация текстового журнала изменений
+    -  build-deb-projman.sh: добавлена генерация changelog  из  git log
+    -  changelog-gen.tcl: Вывод в файл вынесен в отдельную процедуру
+    -  changelog-gen.tcl: Добавлено создание резервной копии выходного файла. Исправлен вывод в файл.
+    -  changelog-gen.tcl: Добавлены опции командной строки
+    -  Добавлен запуск changelog-gen при сборке пакета
+    -  Добавлено чстение журнала начиная с определенной даты
+    -  Генерация списка изменений для debian приведена к корректному виду
+    -  Исправлен фокус при создании нового файла. #3
+    -  Исправлена неправильная замена выражение при поиске
+    -  Реализовал базовые функции генератора журнала изменений
+    -  Добавлена иконка для jinja template
+    -  Исправил остатки слияния веток
+    -  Исправлено некорректное определение типа файла при открытии.
+    -  Исправил открытие файлов с разными путями (~/ ./ ../)
+    -  Добавил изображений программы
+    -  Исправлена ошибка при создании нового файла.
+    -  Добавил пиктограммы файлов
+    -  Исправил процедуру Files::CloseAll ('Закрыть всё')
+    -  Добавлена поддержка Lua
+    -  Исправлена процедура (рас)комментирования
+    -  Исправил ошибку при выходе в процедуре (Congig::Write)
+    -  Добавил раскраски в ruby
+    -  Добавлена возможность многострочных комментариев
+    -  В Ruby lexer добавлен поиск переменных коде.
+    -  Немного почистил. Добавлен поиск переменных по питоньим исходникам (lexer)
+    -  Изменения в подсветке для INI
+    -  Добавил подсветку для Desktop и Spec  файлов
+    -  Добавил вывод отладочной инфы в процедуру
+    -  Исправил подсветку комментариев в TCL
+    -  Оптимизация процедур
+    -  Добавлена подсветка и навигация по HTML. Исправлена подсветка XML
+    -  Добавил иконку для изображений
+    -  Добавил иконки для perl
+    -  Исправлена подсветка и навигация по коду для Ruby
+    -  Исправлено сохранение сессии в редакторе (открытие папки и файлов при следующем запуске)
+    -  Добавлена новая секция UserSession
+    -  Исправление ошибки при открытии файла
+    -  Добавлена поддержка INI-файлов (подсветка
+    -  Добавлена поддержка perl
+    -  Добавил икогнку для файлов git
+    -  Добавлены иконки для ключей и сертификатов. Изменен поиск иконки (вощзвращает теерь с размером)
+    -  Реализован двухпанельный режим работы (вертиикальное разделение)
+    -  Исправлена  ошибка при открытии ansible.cfg
+    -  Добавил деактивацию кнопки 'Создать репу' если не выбран активный проект (не открыто ни одного каталога/папки)
+    -  Добавлены команды git init и git config (зачаток). Изменен диалог клонирования репозитория (добавлена кнопка Создать репозиторий)
+    -  Исправил ошибку git при открытии файла или каталога если репозиторий не инициализирован (нет .git  каталога внутри проекта)
+    -  Добавил скриты сборки rpm
+    -  Добавлено обрамление выделенного текста прии нажатии '_' в markdown
+    -  Исправление подсветки
+    -  Добавлена поддержка markdown (подсветка
+    -  Исправлена ошибка с закрытием файлов в редакторе при закрытии папки
+    -  Переделана процедура определения активного проекта. Исправлено определение ветки git. Теперь можно нормально работать в двух и более открытых проектах (каталогах/папках)
+    -  Доделан вид диалога поиска по файлам
+    -  Исправлен поиск имени функции
+    -  Добавлен диалог клонирования репозитория
+    -  Добавил разделитель
+    -  Исправлено переключение вкладок при закрытии
+    -  Исправлено закрытиие вкладки Git  по нажатию соотв. кнопки в панели инструментов
+    -  Добавлен пункт 'Закрыть всё'
+    -  Исправлено соответствие открытого файла в редакторе и выделение этого файла в дереве
+    -  Исправлено переключение отображения панели (лево/право) в без перезапуска программы.
+    -  Украшательства интерфейса - Реакция на нажатие кнопки в панели инструментов теперь зависит от контекста
+    -  Добавлено включение отключение отображения Меню
+    -  Добавлено копирование текущей строки в буфер по Atl+Y
+    -  Исправлена ошибка с отображением файловой панели
+    -  Добавлены и исправлены функции отображения меню
+    -  Добавлен параметр statusBarShow - показ строки статуса
+    -  Добавлены переводы
+    -  Добавлена проверка параметров вызова файл или просто строка
+    -  Добавлен вывод сообщений об ошибке в диалоге
+    -  Добавлено обновления списка файлов в дереве
+    -  Добавлена процедура вывода информационного сообщения
+    -  Добавлена команда Git::Reset (git reset _file_) на кнопке в диалоге. Для отмены 'git add'
+    -  Добавлена кнопка Обновление в диалог работы с Git
+    -  Исправление процедуры поиска наименования функции
+    -  Фиксы диалога работы с Git (работа с выделенными файлами в списках)
+    -  Фиксы и тесты работы с git
+    -  Исправление выборанескольких файлов в диалоге Git
+    -  Исправление рег. выражения чтения файлов командой git status
+    -  Исправлено рег. выпражение определения mime типа файла
+    -  Добавил очистку текстовых полей при добавлении файлов в коммит
+    -  Исправрелдение Git::Commit (индексация всех файлов в проекте)
+    -  Исправления глюков
+    -  Украшательства строки статуса
+    -  Добавлен просмотрщик изображений
+    -  Добавил рамку кону ввода номера
+    -  Добавлен диалог перехода по номеру строки Ctrl-G
+    -  Добавлено определение типа файла
+    -  Добавил удаление артефактов сборки пакета
+    -  Новая сборка
+    -  Добавлена подсветка имен файлов в выводе git show
+    -  Небольшие правки в подсказках по переменным
+    -  Исправлена подсветка SHELL переменных а YAML файлах (ansible
+
+
+

--- a/theme/black.tcl
+++ b/theme/black.tcl
@@ -124,7 +124,7 @@ namespace eval ttk::theme::black {
            -foreground [list selected $colors(-selectfg)] \
            -highlightbackground [list selected $colors(-lighter)]
    }
-  puts [ttk::style element names]
+  # puts [ttk::style element names]
 }

 # A few tricks for Tablelist.
Author	SHA1	Message	Date
svk	723426b1d6	Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке	2026-02-06 18:42:47 +03:00
svk	c8547ec45b	Добавил поддержку С (подсветка, навигация)	2026-02-06 18:03:04 +03:00
svk	e83507eb9b	Добавил копирование готовых пакетов All checks were successful Build and Release / build (push) Successful in 24s Details	2026-02-06 15:22:39 +03:00
svk	382e62df95	Откорректировал сборку рпм All checks were successful Build and Release / build (push) Successful in 31s Details	2026-02-06 15:12:38 +03:00
svk	7d0b40d651	Добавил сборку rpm. Исправил changelog-и Some checks failed Build and Release / build (push) Failing after 1m8s Details	2026-02-06 14:07:53 +03:00
svk	2877ebc8a2	changelog-gen: исправил дату еще раз	2026-02-06 13:57:07 +03:00
svk	04ba6663ee	changelog-gen: исправил формат даты для сохранения	2026-02-06 13:31:38 +03:00
svk	676a0e6185	changelog-gen: доделал генерацию списка изменений для rmp.spec	2026-02-06 12:40:46 +03:00
svk	5dc1da5dbf	Правка changelog	2026-02-06 12:12:36 +03:00
svk	7511a5445e	Исправил смену регистра в заголовках вкладок, тепеь имена файлов во вкладках как и должны быть. Исправил обработку Return при использовании функции поиска и перехода по процеедурам/функциям/разделам внутри файла по нажатию Control-j	2026-02-05 18:49:28 +03:00
svk	3860db2c26	Новая сборка All checks were successful Build and Release / build (push) Successful in 20s Details	2026-01-30 14:10:22 +03:00
svk	bded0b22b1	Правка	2026-01-30 14:08:05 +03:00
svk	478f1d156f	Добавил проверки в диалог FileOper::SaveFile	2026-01-30 14:07:14 +03:00
svk	e86b600cd9	Добавил диалог 'Сохранить как' All checks were successful Build and Release / build (push) Successful in 24s Details	2026-01-30 13:47:05 +03:00
svk	c4923c5871	Merge pull request 'beta3' (#9 ) from beta3 into master All checks were successful Build and Release / build (push) Successful in 23s Details Reviewed-on: #9	2026-01-29 16:07:40 +03:00
svk	c2d128dd42	Новая сборка	2026-01-29 16:00:03 +03:00
svk	166cd5f4d8	Добавил проверку на наличие символа переменной.	2026-01-29 15:57:16 +03:00
svk	782ed0298a	Выпуск 3-й беты	2026-01-29 14:58:09 +03:00
svk	3de27dac4f	Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter.	2026-01-29 14:22:55 +03:00
svk	1c7c2ec90e	Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль. Исправил недоработку при выборе варианта из списка и вставке его в текст. Исправил обработку клавиш Ввер Вниз Ввод Отмена в окне со списком вариантов.	2026-01-28 19:38:50 +03:00
svk	dee9141e91	Merge pull request 'beta2' (#8 ) from beta2 into master All checks were successful Build and Release / build (push) Successful in 24s Details Reviewed-on: #8	2026-01-28 12:45:47 +03:00
svk	1b6493d3a8	Новая сборка	2026-01-28 12:43:25 +03:00
svk	36d1940c7b	Небольшая правка	2026-01-28 12:42:05 +03:00
svk	c69db69c69	Сборка beta2	2026-01-28 12:35:44 +03:00
svk	c74fa5b113	Добавлено подключение (bind) сочетания клавишь указанных в настройках инструментов.	2026-01-28 12:26:53 +03:00
svk	e21995d13e	Сборка бета2	2026-01-27 17:37:10 +03:00
svk	26546dfe27	Добавлена динамическая генерация меню 'Инструменты'. Теперь новые внешние инструменты доступны сразу после сохранения файла настроек tools.ini в редакторе.	2026-01-27 17:31:39 +03:00
svk	a974068883	2-я бета	2026-01-27 16:44:48 +03:00
svk	d13a4adba5	Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.	2026-01-27 16:40:24 +03:00
svk	2dd7b7239e	Добавлено редактирование настроек внешних инструментов. И пункт в меню 'Инструменты'->'Настройки'	2026-01-27 16:25:22 +03:00
svk	4b09b1e97d	Исправление ошибки с запуском внешних программ.	2026-01-27 16:16:53 +03:00
svk	807131eee2	Добавлено определение путей до внешних программ при подключении к редактору.	2026-01-27 15:26:59 +03:00
svk	aaa027398a	Сделана обработка шаблонов командной строки и запуск внешних инструментов.	2026-01-27 14:22:55 +03:00
svk	bc2808c3e4	Добавлен tkregexp для установки в /usr/bin	2026-01-27 14:22:12 +03:00
svk	1758afd100	Начало работы с внешними инструментами: - Добавлено создание и работа (проверка параметров, сохранение) с файлом настроек tools.ini - Добавлено создание меню 'Инструменты' как основного так и контекстного (всплывающего) на основе tools.ini.	2026-01-26 19:46:01 +03:00
svk	c2ebf1e724	Исправлен скрипт сборки бсд-пакета All checks were successful Build and Release / build (push) Successful in 30s Details	2026-01-23 14:00:49 +03:00
svk	72a23954f6	Тесты сборки All checks were successful Build and Release / build (push) Successful in 21s Details	2026-01-22 22:07:34 +03:00
svk	f865cc2b5e	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 22:05:56 +03:00
svk	6fd0d2a77b	Тесты сборки All checks were successful Build and Release / build (push) Successful in 22s Details	2026-01-22 22:04:14 +03:00
svk	ebc2e2eef8	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 22:02:55 +03:00
svk	b12273809b	Тесты сборки All checks were successful Build and Release / build (push) Successful in 22s Details	2026-01-22 21:59:31 +03:00
svk	611ed34dc1	Тесты сборки All checks were successful Build and Release / build (push) Successful in 21s Details	2026-01-22 21:55:40 +03:00
svk	d4b7e4e453	Тесты сборки Some checks failed Build and Release / build (push) Failing after 19s Details	2026-01-22 21:52:47 +03:00
svk	80d7fc1256	Тесты сборки Some checks failed Build and Release / build (push) Failing after 17s Details	2026-01-22 21:42:34 +03:00
svk	2e5c7640e5	Тесты сборки Some checks failed Build and Release / build (push) Failing after 17s Details	2026-01-22 21:41:04 +03:00
svk	0c3ef13f25	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 21:38:44 +03:00
svk	6f858814ce	Тесты сборки Some checks failed Build and Release / build (push) Failing after 17s Details	2026-01-22 21:36:36 +03:00
svk	5f8f7a64c3	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 21:33:58 +03:00
svk	a6ad7c7720	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 21:31:13 +03:00
svk	ff1e9dcf8e	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 21:28:21 +03:00
svk	c26301d611	Тесты сборки Some checks failed Build and Release / build (push) Failing after 17s Details	2026-01-22 21:25:03 +03:00
svk	faaecbb271	Тесты сборки Some checks failed Build and Release / build (push) Failing after 18s Details	2026-01-22 21:18:59 +03:00
svk	d60bef5de3	Тесты сборки Some checks failed Build and Release / build (push) Failing after 19s Details	2026-01-22 21:10:56 +03:00
svk	b8ada446e1	Тесты сборки Some checks failed Build and Create Tag Release / build (push) Failing after 9s Details	2026-01-22 21:07:33 +03:00
svk	47f1473167	Тесты сборки Some checks failed Build and Create Tag Release / build (push) Failing after 18s Details	2026-01-22 21:06:17 +03:00
svk	72101c90d5	Тесты сборки Some checks failed Build and Create Tag Release / build (push) Failing after 12s Details	2026-01-22 21:03:55 +03:00
svk	261dc38748	Тесты сборки Some checks failed Build and Create Tag Release / build (push) Failing after 12s Details	2026-01-22 21:02:54 +03:00
svk	e20cb3464f	Тесты сборки All checks were successful Simple Release / build (push) Successful in 17s Details	2026-01-22 20:59:04 +03:00
svk	d4ed578178	Тесты сборки Some checks failed Simple Release / build (push) Failing after 19s Details	2026-01-22 20:55:46 +03:00
svk	46017d027a	Тесты сборки All checks were successful Simple Release / build (push) Successful in 17s Details	2026-01-22 20:52:47 +03:00
svk	d4d38e26ce	Тесты сборки	2026-01-22 20:51:35 +03:00
svk	a2c525ecd1	Тесты сборки	2026-01-22 20:50:36 +03:00
svk	f743c47d6b	Тесты сборки Some checks failed Сборка Projman / build (push) Failing after 16s Details	2026-01-22 20:48:40 +03:00
svk	08ba3678f8	Тесты сборки Some checks failed Сборка Projman / build (push) Failing after 16s Details	2026-01-22 20:46:48 +03:00
svk	9cc837bdd8	Тесты сборки All checks were successful Сборка Projman / build (push) Successful in 15s Details	2026-01-22 20:42:53 +03:00
svk	9eb32586c7	Тесты сборки Some checks failed Сборка Projman / build (push) Failing after 9s Details	2026-01-22 20:40:38 +03:00
svk	ff18a032f4	Тесты сборки All checks were successful Сборка Projman / build (push) Successful in 15s Details	2026-01-22 20:38:00 +03:00
svk	debcffb9a2	Тесты сборки Some checks failed Gitea Actions / Explore-Gitea-Actions (push) Failing after 10s Details	2026-01-22 20:35:54 +03:00
svk	9c15f23987	Тесты сборки Some checks failed Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled Details	2026-01-22 20:31:16 +03:00
svk	5f89f0ce31	Тесты сборки Some checks failed Gitea Actions Demo / Explore-Gitea-Actions (push) Failing after 16s Details	2026-01-22 20:25:21 +03:00
svk	6ec850c77c	Тесты сборки All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 21s Details	2026-01-22 20:17:30 +03:00
svk	7def13e265	Добавлена сборка пакетов для openbsd	2026-01-22 20:16:00 +03:00
svk	cf41075f42	Добавлена сборка пакетов для openbsd	2026-01-22 20:15:16 +03:00
svk	4f0e746128	Релиз 1-й бета версии All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 19s Details	2026-01-22 17:58:15 +03:00
svk	bc706ab410	Исправление ошибок	2026-01-22 17:48:59 +03:00
svk	83d70ebd3f	Сделан вывод отладочной информации по запросу. Переделка кода.	2026-01-22 17:30:11 +03:00
svk	f9dbdf893d	Добавлены процедуры проверки наличия параметров конфигурации, и установки значений по умолчанию в случае их отсутствия в файле конфигурации. Добавлена новая секця и два новых парметра в конфиг, для вывода отладочной информации.	2026-01-22 16:55:17 +03:00
svk	f1fcd09f89	Новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 15s Details	2026-01-21 16:44:07 +03:00
svk	cdb47df781	Исправил ошибку.	2026-01-21 16:41:45 +03:00
svk	d7e681c607	Новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 19s Details	2026-01-21 16:35:56 +03:00
svk	978482c2ae	Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).	2026-01-21 16:33:50 +03:00
svk	8435bf0254	Исправил вставку кавычек при выделении текста	2026-01-21 16:31:59 +03:00
svk	604175491a	Исправил ошибку при отправке сигналов несуществующему процессу.	2026-01-21 15:40:33 +03:00
svk	9ff7fa815f	Уменьшил всплывающее меню: вынес менюшки Файл и Вид в подменю.	2026-01-21 15:33:12 +03:00
svk	1a490afe44	Изменил команду загрузки пакета в репу All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 17s Details	2026-01-21 13:44:27 +03:00
svk	78107b529f	Новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 16s Details	2026-01-21 13:13:06 +03:00
svk	781352b249	Исправлено поведение при сочетании клавиш Control-y (повторение последнего действия)	2026-01-21 13:00:38 +03:00
svk	478a583c3a	Новая сборка	2026-01-21 12:27:18 +03:00
svk	4f01a1fbd7	Исправлен флаг модификации при открытии файла, исправлена 'Отмена' до пустого файла. Внес исправления на основе изменений https://github.com/wandrien/projman	2026-01-21 12:24:08 +03:00
svk	96dd7a1b4b	Изменил почту All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 20s Details	2026-01-21 11:58:50 +03:00
Sergey Kalinin	4b2adb3299	Новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 20s Details	2026-01-19 14:49:29 +03:00
Sergey Kalinin	0c4928c224	Исправил закрытие вкладок редактора и сохранение файла при разделении экрана. All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 23s Details	2026-01-19 14:43:31 +03:00
Sergey Kalinin	eb6b2c6f53	Новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 17s Details	2025-12-03 18:06:32 +03:00
Sergey Kalinin	aa9bb03cc2	Исправил ошибку	2025-12-03 18:02:13 +03:00
Sergey Kalinin	bcc3460e06	Исправил ошибку	2025-12-03 17:59:31 +03:00
Sergey Kalinin	1385c91255	Исправления после слияния	2025-12-03 17:33:06 +03:00
Sergey Kalinin	ead8267d61	Изменения перед слиянием Some checks failed Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled Details	2025-12-03 17:09:42 +03:00
Sergey Kalinin	45cbd7845b	Добавил вывод информации о версиях tcl и tk Some checks failed Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled Details	2025-11-10 13:18:26 +03:00
Sergey Kalinin	ef87b88156	Незначительные изменения Some checks failed Gitea Actions Demo / Explore-Gitea-Actions (push) Has been cancelled Details	2025-11-10 13:00:43 +03:00
Sergey Kalinin	264368c61f	новая сборка All checks were successful Gitea Actions Demo / Explore-Gitea-Actions (push) Successful in 17s Details	2025-10-31 19:01:41 +03:00
Sergey Kalinin	c38dffeeb9	Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.	2025-10-31 18:56:38 +03:00