Незначительные изменения

debian/changelog

@@ -1,8 +1,29 @@
 projman (2.0.0-alpha20) 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>  Fri, 31 Oct 2025 18:56:38 +0300
+ -- Калинин Сергей Валерьевич <svk@nuk-svk.ru>  Thu, 30 Jan 2025 12:19:56 +0300
 
 projman (2.0.0-alpha19) stable; urgency=medium
 
@@ -396,4 +417,3 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
-

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]

lib/procedure.tcl

@@ -826,6 +826,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
@@ -845,35 +883,98 @@ proc Execute {filePath w activeEditor} {
     frame $w.frame -borderwidth 2 -relief ridge -background $cfgVariables(backGround)
     pack $w.frame -side top -fill both -expand true
     
-    
+    set txt $w.frame.text
-    ctext $w.frame.text -yscrollcommand "$w.frame.yscroll set" \
+    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)
+    -command "$txt yview" -background $cfgVariables(backGround)
-    Highlight::ExecuteColorized $w.frame.text
+    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 $txt <Return> [list Run $w $filePath]
-    bind $w.frame.text <Control-r> [list CloseExecuteDialog $w $activeEditor]
+    bind $txt <Control-r> [list CloseExecuteDialog $w $activeEditor]
-    bind $w.frame.text <Control-Cyrillic_er> [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)
+    $txt tag configure bold -font $cfgVariables(fontBold)
-    $w.frame.text tag configure error -font $cfgVariables(fontBold) -foreground red
+    $txt tag configure error -font $cfgVariables(fontBold) -foreground red
-    $w.frame.text tag add bold 0.0 0.end
+    $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"
+    $txt insert 0.0 "======================================================================================\n"
-    $w.frame.text tag add bold $lineNum.0 $lineNum.end
+    $txt tag add bold $lineNum.0 $lineNum.end
-    Highlight::ExecuteColorized $w.frame.text
+    Highlight::ExecuteColorized $txt
     # 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
 }
 
@@ -970,6 +1071,8 @@ proc SendSignal {pid signal} {
     }
 }
 
+
+
 # Правка файла настроек
 proc Settings {} {
     global dir

projman.tcl

@@ -10,7 +10,7 @@ exec wish8.6 "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha20
-# Build: 31102025185656
+# Build: 07112025145212
 ######################################################
 
 # определим текущую версию, релиз и т.д.