Тесты сборки

Добавлена новая секця и два новых парметра в конфиг, для вывода отладочной информации.

.gitea/workflows/build.yml

@@ -1,17 +1,74 @@
-name: Gitea Actions Demo
-run-name: ${{ gitea.actor }} is testing out Gitea Actions 🚀
-on: [push]
+name: Build and Create Tag Release
+on:
+  push:
+    branches:
+      - master
+      - main
 
 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 ${{secrets.USER}}:${{secrets.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}-${RELEASE}"
+          echo "TAG=$TAG" >> $GITEA_ENV
+          echo "VERSION=$VERSION" >> $GITEA_ENV
+          
+          echo "Будет создан тег: $TAG"
+
+      - name: Создание тега в git
+        run: |
+          git config user.email "svk@nuk-svk.ru"
+          git config user.name "svk"
+          
+          # Создаем тег локально
+          git tag -a "$TAG" -m "Release $TAG"
+
+          git remote set-url origin "https://${{ secrets.USER }}:${{ secrets.API_TOKEN }}@git.nuk-svk.ru/${{ gitea.repository }}.git"
+          
+          # Пушим тег на сервер
+          git push origin "$TAG"
+      - name: Сборка пакетов
+        run: |
+          cd debian && ./build-deb-projman.sh
+          cd ../openbsd && ./build-package-bsd.sh
+          
+          echo "Собранные файлы:"
+          ls -la projman*
+
+      - name: Создание релиза с тегом
+        run: |
+          echo "Создаем релиз для тега: $TAG"
+          
+          curl -X POST \
+            -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            -H "Content-Type: application/json" \
+            -d '{
+              "tag_name": "'"$TAG"'",
+              "name": "Projman '"$VERSION"'",
+              "body": "## Информация о сборке\n\n- Версия: '"$VERSION"'\n- Дата: '"$(date)"'\n- Коммит: '"$(git rev-parse --short HEAD)"'",
+              "draft": false,
+              "prerelease": false
+            }' \
+            "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases"
+
+      - name: Загрузка файлов
+        run: |
+          # Загружаем все файлы projman*
+          curl -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              --upload-file "../projman_2.0.0-beta1_amd64.deb" \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/tags/$TAG/assets?name=../projman_2.0.0-beta1_amd64.deb"
+          curl -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+              --upload-file "../projman-2.0.0beta1.tgz" \
+              "${{ vars.main_url }}api/v1/repos/${{ gitea.repository }}/releases/tags/$TAG/assets?name=../projman-2.0.0beta1.tgz"
+

CHANGELOG

@@ -1,4 +1,122 @@
-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: Добавлена генерация текстового журнала изменений

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"

debian/changelog

@@ -1,3 +1,12 @@
+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
 
   *  Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
@@ -32,7 +41,7 @@ projman (2.0.0-alpha21) stable; urgency=medium
 
 projman (2.0.0-alpha20) stable; urgency=medium
 
-  *  Добавил вывод номера версии tcl/tl в О Программе
+  *  Добавление вывод номера версии tcl/tl в О Программе
 
  -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 03 Dec 2025 17:22:44 +0300
 
@@ -458,3 +467,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

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"
+
+            }
+        }
+    }
+}

lib/editor.tcl

@@ -446,8 +446,8 @@ namespace eval Editor {
         # 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]
+        DebugPuts [bindtags $w]
+        DebugPuts [bind $w]
 
     }
     proc VarHelper {x y w word wordType} {
@@ -460,7 +460,7 @@ namespace eval Editor {
         # set win .varhelper
         # Проверяем если есть выделение то блокировать появление диалога
         if {[$txt tag ranges sel] != ""} {
-            puts "You have selected text [$txt tag ranges sel]"
+            DebugPuts "You have selected text [$txt tag ranges sel]"
             return            
         }
         # puts "$x $y $w $word $wordType"
@@ -1310,7 +1310,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
@@ -1395,7 +1395,7 @@ namespace eval Editor {
         global cfgVariables
         regsub -all {\.|/|\\|\s|:} $fileFullPath "_" itemName
         set itemName ".frmWork.nbEditor2.$itemName"
-        puts "Editor::SplitEditoprV: nb item - $itemName"
+        DebugPuts "Editor::SplitEditoprV: nb item - $itemName"
         if {[winfo exists $itemName] == 1} {
             .frmWork.nbEditor2 forget $itemName
             destroy $itemName
@@ -1415,7 +1415,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} {
@@ -1456,7 +1456,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
@@ -1596,7 +1596,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
@@ -1605,7 +1605,8 @@ namespace eval Editor {
         }
 
         set frmText [ttk::frame $w.frmText2 -border 1]
-        puts "SplitEditorForExecute: $w"
+        $w.panelTxt add $frmText -weight 1
+        # puts "SplitEditorForExecute: $w"
         # focus -force $frmText.t.t
         Execute $fileFullPath $frmText $w
     }

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" {
@@ -366,7 +366,7 @@ namespace eval FileOper {
         }
         # puts "FileOper::Save: $nbEditorWindow"
         set nbEditorItem [$nbEditorWindow select]
-        puts "Saved editor text: $nbEditorItem"
+        DebugPuts "Saved editor text: $nbEditorItem"
         if [string match "*untitled*" $nbEditorItem] {
             set filePath [tk_getSaveFile -initialdir $dirProject -filetypes $::types -parent .]
             if {$filePath eq ""} {
@@ -507,7 +507,7 @@ namespace eval FileOper {
     
     proc Edit {fileFullPath {nbEditor .frmWork.nbEditor}} {
         global tree
-        puts "$fileFullPath"
+        DebugPuts "$fileFullPath"
         if {[file exists $fileFullPath] == 0} {
             return false
         } else {

lib/notebook.tcl

@@ -89,7 +89,7 @@ namespace eval NB {
         Tree::SelectItem $treeItemName
         
         set txt [$w select].frmText.t
-        puts "NextTab: [$w select]"
+        DebugPuts "NextTab: [$w select]"
         if {[winfo exists [$w select].frmText2] == 1} {
             focus -force [$w select].frmText2.frame.text.t
         } else {

lib/procedure.tcl

@@ -1114,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
         }
@@ -1127,11 +1127,11 @@ 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)
     }
 }
 
@@ -1155,3 +1155,22 @@ 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
+        }
+    }
+}

lib/tree.tcl

@@ -106,7 +106,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 +114,7 @@ namespace eval Tree {
             }
             file {
                 set v [FileOper::Edit $values $nbEditor]
-                puts $v
+                DebugPuts $v
                 if {$v eq false} {
                     $tree delete $id
                 }

openbsd/build-package-bsd.sh

@@ -0,0 +1,85 @@
+#!/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
+@wantlib pthread
+@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} && tar -czf ../../../${PKG_FULLNAME}.tgz ${PKG_FULLNAME}/)
+
+echo "Package created: ${PKG_FULLNAME}.tgz"
+
+rm -rf ${WORK_DIR}

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: alpha24
-# Build: 21012026163412
+# Release: beta1
+# Build: 22012026174911
 ######################################################
 
 # определим текущую версию, релиз и т.д.
@@ -48,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
         }
     }
@@ -69,7 +69,7 @@ if { $::argc > 0 } {
     foreach arg $::argv {
         lappend opened $arg
     }
-    puts $opened
+    # puts $opened
 }
 
 
@@ -97,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"
     }
 }
 
@@ -106,10 +106,10 @@ 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"
     }
 }
 
@@ -119,13 +119,14 @@ if {[file exists [file join $dir(cfg) projman.ini]] ==0} {
     Config::create $dir(cfg)
 }
 Config::read $dir(cfg)
+Config::CheckVariables
 
 ::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]
 

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.