Новая сборка

debian/changelog

@@ -1,3 +1,13 @@
+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
 
   *  Исправлен флаг модификации при открытии файла

lib/editor.tcl

@@ -6,7 +6,6 @@
 ######################################################
 # Editor module
 ######################################################
-
 namespace eval Editor {
     variable selectionTex
     # Set the editor option
@@ -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
@@ -1604,7 +1605,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/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
+        puts "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
+            "SIGINT"  {catch {exec kill -INT $pid}}  ; # Ctrl+C
-            "SIGTERM" { exec kill -TERM $pid } ; # Завершение
+            "SIGTERM" {catch {exec kill -TERM $pid}} ; # Завершение
-            "SIGTSTP" { exec kill -TSTP $pid } ; # Ctrl+Z (приостановка)
+            "SIGTSTP" {catch {exec kill -TSTP $pid}} ; # Ctrl+Z (приостановка)
-            "SIGKILL" { exec kill -KILL $pid } ; # Принудительное завершение
+            "SIGKILL" {catch {exec kill -KILL $pid}} ; # Принудительное завершение
         }
     } else {
         # На Windows

projman.tcl

@@ -9,8 +9,8 @@ exec wish8.6 "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: alpha23
+# Release: alpha24
-# Build: 21012026130048
+# Build: 21012026163412
 ######################################################
 
 # определим текущую версию, релиз и т.д.