Тесты сборки

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

.gitea/workflows/build.yml

@@ -6,12 +6,49 @@ jobs:
   Explore-Gitea-Actions:
     runs-on: tcl-tk-builder
     steps:
-      - name: Build the packages
+      - name: Build the DEB-packages
         run: |
           git clone ${{ vars.main_url }}${{ gitea.repository }}
           pwd
           cd projman/debian
           ./build-deb-projman.sh
+          cd ../openbsd
+          ./build-package-bsd.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
+          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 }}."
+
+      - name: Create release
+        run: |
+          # Создаем релиз через API
+          curl -X POST \
+            -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            -H "Content-Type: application/json" \
+            -d '{
+              "tag_name": "'"${{ gitea.ref_name }}"'",
+              "name": "Release '"${{ gitea.ref_name }}"'",
+              "body": "Automated release for '"${{ gitea.ref_name }}"'",
+              "draft": false,
+              "prerelease": false
+            }' \
+            "${{vars.main_url}}/api/v1/repos/${{ gitea.repository }}/releases"
+
+      - name: Get release ID
+        id: release_info
+        run: |
+          response=$(curl -s -u "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            "${{vars.main_url}}/api/v1/repos/${{ gitea.repository }}/releases/tags/${{ gitea.ref_name }}")
+          
+          echo "id=$(echo $response | jq -r '.id')" >> $GITHUB_OUTPUT
+
+      - name: Upload Linux package
+        run: |
+          curl --user "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            --upload-file "$(ls -1| grep projman | grep -E 'deb$')" \
+            "${{vars.main_url}}/api/v1/repos/${{ gitea.repository }}/releases/${{ steps.release_info.outputs.id }}/assets?name=$(ls -1| grep projman | grep -E 'deb$')"
+
+      - name: Upload OpenBSD package
+        run: |
+          curl --user "${{ secrets.USER }}:${{ secrets.API_TOKEN }}" \
+            --upload-file "$(ls -1| grep projman | grep -E 'tgz$')" \
+            "${{vars.main_url}}/api/v1/repos/${{ gitea.repository }}/releases/${{ steps.release_info.outputs.id }}/assets?name=$(ls -1| grep projman | grep -E '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,22 @@
+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
 
   *  Исправлен флаг модификации при открытии файла
@@ -22,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
 
@@ -448,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

@@ -6,7 +6,6 @@
 ######################################################
 # Editor module
 ######################################################
-
 namespace eval Editor {
     variable selectionTex
     # Set the editor option
@@ -447,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} {
@@ -461,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"
@@ -928,7 +927,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"
                 }
@@ -937,7 +938,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
@@ -1309,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
@@ -1394,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
@@ -1414,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} {
@@ -1455,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
@@ -1595,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,6 +1606,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
     }

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/gui.tcl

@@ -143,9 +143,14 @@ 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
 
 set frmTool [ttk::frame .frmBody.frmTool]
 ttk::panedwindow .frmBody.panel -orient horizontal -style TPanedwindow

lib/notebook.tcl

@@ -55,11 +55,15 @@ namespace eval NB {
             FileOper::Close $w
         } else {
             set txt [$w select].frmText.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
                 }
             }
         }
+    }
 
     proc NextTab {w step} {
         global tree
@@ -85,8 +89,13 @@ namespace eval NB {
         Tree::SelectItem $treeItemName
         
         set txt [$w select].frmText.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
             }
         }
+    }
 }

lib/procedure.tcl

@@ -1074,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
@@ -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: alpha23
-# Build: 21012026130048
+# 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.