Новая сборка

Исправлена отмена выдеоения при появлении окна с подсказками для автоввода.

debian/changelog

@@ -1,3 +1,11 @@
+projman (2.0.0-alpha17) stable; urgency=medium
+
+  *  Косметические изменения.
+  *  Исправлены ошибки при вставке кавычек
+  *  Обновить README.md
+
+ -- svk <svk@nuk-svk.ru>  Thu, 31 Oct 2024 19:48:30 +0300
+
 projman (2.0.0-alpha16) stable; urgency=medium
 
   *  build-deb-projman.sh: добавлена генерация changelog  из  git log
@@ -336,3 +344,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
  -- svkalinin <banzaj28@yandex.ru>  Thu,  5 Jul 2018 08:41:18 +0300
 
+

lib/editor.tcl

@@ -459,6 +459,11 @@ namespace eval Editor {
         # блокировка открытия диалога если запущен другой
         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]
 
@@ -883,20 +888,31 @@ namespace eval Editor {
         set lineNum [lindex [split $pos "."] 0]
         set posNum [lindex [split $pos "."] 1]
         set symbol [string trim [string trimleft $symbol "\\"]]
-        # puts "Selindex : $selIndex, cursor position: $pos"
+        puts "Selindex : $selIndex, cursor position: $pos, Symbol: $symbol"
         if {$selIndex != ""} {
             set lineBegin [lindex [split [lindex $selIndex 0] "."] 0]
             set posBegin [lindex [split [lindex $selIndex 0] "."] 1]
             set lineEnd [lindex [split [lindex $selIndex 1] "."] 0]
             set posEnd [lindex [split [lindex $selIndex 1] "."] 1]
-            # set selText [$txt get $lineBegin.$posBegin $lineEnd.$posEnd]
-            set selText $selectionText
-            # puts "Selected text: $selText, pos: $pos, lineBegin: $lineBegin, posBegin: $posBegin, pos end: $posEnd"
+            set selText [$txt get $lineBegin.$posBegin $lineEnd.$posEnd]
+            # set selText $selectionText
+            puts "Selected text: $selText, pos: $pos, lineBegin: $lineBegin, posBegin: $posBegin, pos end: $posEnd"
             if {$posNum == $posEnd} {
                 $txt insert $lineBegin.$posBegin "$symbol"
             }
             if {$posNum == $posBegin} {
-                $txt insert $lineBegin.$posEnd "$symbol"
+               if {$symbol == {"} || $symbol == {_}} {
+                    $txt insert $lineEnd.$posEnd "$selText$symbol"
+                } else {
+                    $txt insert $lineEnd.$posEnd "$symbol"
+                }
+            }
+            if {$symbol == "'"} {
+                if {$posBegin == 0} {
+                    $txt insert $pos "$symbol"
+                } else {
+                    $txt insert "$pos + 1 chars" "$symbol"
+                }
             }
             $txt highlight $lineBegin.$posBegin $lineEnd.end
             # $txt insert $lineBegin.[expr $posBegin + 1] "$symbol"

lib/msgs/ru.msg

@@ -27,7 +27,7 @@
 ::msgcat::mcset ru "Close" "Закрыть"
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close file" "Закрыть файл"
-::msgcat::mcset ru "Close folder" "Закрыть папку"
+::msgcat::mcset ru "Close folder" "Закрыть каталог"
 ::msgcat::mcset ru "Close Project Manager?" "Выйти из программы?"
 ::msgcat::mcset ru "Comments" "Коментарии"
 ::msgcat::mcset ru "Comment selected" "Закоментировать"
@@ -138,7 +138,7 @@
 ::msgcat::mcset ru "No" "Нет"
 ::msgcat::mcset ru "Open" "Открыть"
 ::msgcat::mcset ru "Open file" "Открыть файл"
-::msgcat::mcset ru "Open folder" "Открыть папку"
+::msgcat::mcset ru "Open folder" "Открыть каталог"
 ::msgcat::mcset ru "Open project" "Открыть проект"
 ::msgcat::mcset ru "Opened file in progress" "Открытие файла"
 ::msgcat::mcset ru "Operators" "Операторы"

projman.tcl

@@ -9,8 +9,8 @@ exec wish "$0" -- "$@"
 # Home page: https://nuk-svk.ru
 ######################################################
 # Version: 2.0.0
-# Release: alpha16
-# Build: 22082024151054
+# Release: alpha17
+# Build: 18102025162821
 ######################################################
 
 # определим текущую версию, релиз и т.д.