Исправил перевод (все равно какой-то кривой)

Reviewed-on: #10

.gitea/workflows/build.yml

@@ -68,6 +68,9 @@ jobs:
           echo "=== Сборка OpenBSD пакета ==="
           cd ../openbsd && ./build-package-bsd.sh
 
+          echo "=== Сборка RPM пакета ==="
+          cd ../redhat && ./build-rpm.sh
+
           echo "=== Собранные файлы ==="
           find . -maxdepth 1 -name "projman*" -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"
 
@@ -187,7 +190,7 @@ jobs:
           echo "ID релиза для загрузки: $REL_ID"
           
           # Находим все файлы projman
-          FILES=$(find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" \) -type f)
+          FILES=$(find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" -o -name "*projman*rpm" \) -type f)
           if [ -z "$FILES" ]; then
             echo "Нет файлов projman для загрузки"
             exit 0
@@ -227,9 +230,9 @@ jobs:
             echo "Ответ API: $API_RESPONSE"
             
             if [ "$HTTP_STATUS" = "201" ] || [ "$HTTP_STATUS" = "200" ]; then
-              echo "✅ Файл загружен: $FILENAME"
+              echo "Файл загружен: $FILENAME"
             else
-              echo "❌ ОШИБКА загрузки: $FILENAME"
+              echo "ОШИБКА загрузки: $FILENAME"
               echo "Детали: $API_RESPONSE"
             fi
             
@@ -266,4 +269,4 @@ jobs:
           fi
           
           echo "Собранные файлы:"
-          find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" \) -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"
+          find ../ -maxdepth 1 \( -name "*projman*deb" -o -name "*projman*tgz" -o -name "*projman*rpm"\) -type f | xargs ls -la 2>/dev/null || echo "Файлы не найдены"

CHANGELOG

@@ -1,3 +1,4 @@
+
 projman (2.0.0-beta1) stable; urgency=medium
 
   *  Сделан вывод отладочной информации по запросу.

README.md

@@ -17,6 +17,7 @@ Highlightning and source code navigation:
 * Markdown
 * YAML (Ansible support)
 * Lua
+* C
 
 Highlightning:
 

changelog-gen.tcl

@@ -106,9 +106,9 @@ proc ReadGitLog {} {
     }
 }
 
-proc StoreProjectInfo {timeStamp} {
+proc StoreProjectInfo {timeStamp changelogFormat} {
     global dir args
-    set cfgFile [open [file join $dir(cfg) $args(--project-name).conf]  "w+"]
+    set cfgFile [open [file join $dir(cfg) $args(--project-name).$changelogFormat.conf]  "w+"]
     puts $cfgFile "# set args(--project-version) \"$args(--project-version)\""
     puts $cfgFile "# set args(--project-release) \"$args(--project-release)\""
     puts $cfgFile "set lastCommitTimeStamp \"$timeStamp\""
@@ -141,37 +141,77 @@ proc GenerateChangelogDEB {} {
         set timeStamp [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
         # puts "> $commiter"
         if {$index == 0} {
-            puts "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
+            # puts "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
             append outText "$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n\n"
             set commiter [lindex $record 2]
-            StoreProjectInfo $timeStamp
+            StoreProjectInfo $timeStamp "deb"
          	  # puts "\n \[ [string trim $commiter] \]"
         }
         # puts ">> $commiter"
         if {$commiter ne [lindex $record 2]} {
-            puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+            # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
             append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
-            puts "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
+            # puts "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n"
             append outText "\n$args(--project-name) ($args(--project-version)-$args(--project-release)) stable; urgency=medium\n\n"
             set commiter [lindex $record 2]
             # puts "\n \[ [string trim $commiter] \]"
         }
         
         set commitTex [lindex $record 4]
-        puts "  * $commitTex"
+        # puts "  * $commitTex"
         append outText "  * $commitTex\n"
 
     }
-    puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+    # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
     append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
     return $outText
 }
 
 proc GenerateChangelogRPM {} {
-    puts "GenerateChangelogRPM"
+    global args
+    # puts "GenerateChangelogRPM"
+    set lastCommitTimeStamp ""
+    set commiter ""
+    set commitText ""
+    # ReadGitLog
+    set lst [lsort -integer -index 0 [ReadGitLog]]
+    # puts $lst
+    # exit
+    set outText ""
+    foreach l $lst {
+        set index [lindex $l 0]
+        set line [lindex $l 1]
+        # puts "$index - $line"
+        set record [split $line ","]
+        set timeStamp [string trim [lindex $record 1]]
+        set email [string trim [lindex $record 3]]
+        if {$lastCommitTimeStamp eq ""} {
+            set lastCommitTimeStamp [string trim [lindex $record 1]]
+        }
+        set timeStampForStore [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
+        set timeStamp [clock format [clock scan $timeStamp] -format {%a %b %e %Y}]
+        if {$index == 0} {
+            set commiter [lindex $record 2]
+            append outText "* $timeStamp [string trim $commiter] <$email> $args(--project-version)-$args(--project-release)\n"
+            StoreProjectInfo $timeStampForStore "rpm"
+        }
+        if {$commiter ne [lindex $record 2]} {
+            append outText "\n"
+            append outText "* $timeStamp [string trim $commiter] <$email> $args(--project-version)-$args(--project-release)\n"
+            set commiter [lindex $record 2]
+        }
         
+        set commitTex [lindex $record 4]
+        # puts "  * $commitTex"
+        append outText "    - $commitTex\n"
+
+    }
+    # puts "\n -- [string trim $commiter] <$email>  $timeStamp"
+    # append outText "\n -- [string trim $commiter] <$email>  $timeStamp\n"
+    return $outText
 }
 
+
 proc GenerateChangelogTXT {} {
     global args
     set lastCommitTimeStamp ""
@@ -189,14 +229,15 @@ proc GenerateChangelogTXT {} {
         if {$lastCommitTimeStamp eq ""} {
             set lastCommitTimeStamp [string trim [lindex $record 1]]
         }
-        set timeStamp [clock format [clock scan $timeStamp] -format {%a, %e %b %Y %H:%M:%S %z}]
+        # * Mon Nov 28 2022 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0
+        set timeStamp [clock format [clock scan $timeStamp] -format {%a %b %e %Y %H:%M:%S %z}]
         # puts "> $commiter"
         if {$index == 0} {
             append outText "$args(--project-name) ($args(--project-version)-$args(--project-release))\n"
             set commiter [lindex $record 2]
             puts "\n[string trim $commiter] <$email>  $timeStamp"
             append outText "\n[string trim $commiter] <$email>  $timeStamp\n"
-            StoreProjectInfo $timeStamp
+            StoreProjectInfo $timeStamp "txt"
         }
         if {$commiter ne [lindex $record 2]} {
             puts "\n[string trim $commiter] <$email>  $timeStamp"
@@ -254,6 +295,68 @@ proc StoreChangeLog {outText} {
     } else {
         set outFile [open $args(--out-file)  "w+"]
         puts $outFile $outText
+        puts $outText
+        close $outFile
+    }
+}
+
+proc StoreChangeLogRPM {outText} {
+    global args
+    if [file exists $args(--out-file)] {
+        file copy -force $args(--out-file) "$args(--out-file).tmp"
+
+        set fh [open $args(--out-file) r]
+        set lines [split [read $fh] "\n"]
+        close $fh
+        
+        set result [list]
+        set inserted false
+        
+        foreach line $lines {
+            lappend result $line
+            
+            if {!$inserted && $line eq "%changelog"} {
+                lappend result $outText
+                set inserted true
+            }
+        }
+        
+        set fh [open $args(--out-file) w]
+        puts $fh [join $result "\n"]
+        close $fh
+    }
+}
+
+proc StoreChangeLogRPM_ {outText} {
+    global args
+    
+    puts "Changelog generator write a file $args(--out-file)"
+    
+    if [file exists $args(--out-file)] {
+        file copy -force $args(--out-file) "$args(--out-file).tmp"
+        
+        set origOutFile [open "$args(--out-file).tmp"  "r"]
+        set origText [read $origOutFile]
+        close $origOutFile
+        
+        set outFile [open $args(--out-file)  "w"]
+        puts $outFile $outText
+        puts $outFile $origText
+        close $outFile
+        
+        if [info exists args(--last)] {
+            set outFile [open $args(--out-file)  "r+"]
+            puts $outFile $outText
+            close $outFile
+        } else {
+            set outFile [open $args(--out-file)  "w+"]
+            puts $outFile $outText
+            close $outFile
+        }
+    } else {
+        set outFile [open $args(--out-file)  "w+"]
+        puts $outFile $outText
+        puts $outText
         close $outFile
     }
 }
@@ -311,26 +414,43 @@ if ![info exists args(--project-release)] {
     exit
 }
 
-if [file exists [file join $dir(cfg) $args(--project-name).conf]] {
-    source [file join $dir(cfg) $args(--project-name).conf]
-}
+puts "Running chngelog generator with folowing options:\n"
 
 foreach arg [array names args] {
-    puts "$arg $args($arg)"
+    puts "\t$arg $args($arg)"
 }
 
 if [info exists args(--deb)] {
+    if [file exists [file join $dir(cfg) $args(--project-name).deb.conf]] {
+        source [file join $dir(cfg) $args(--project-name).deb.conf]
+    }
     set outText [GenerateChangelogDEB]
     if [info exists args(--out-file)] {
         StoreChangeLog $outText
+    } else {
+        puts $outText
     }
 }
 if [info exists args(--rpm)] {
-    GenerateChangelogRPM
+    if [file exists [file join $dir(cfg) $args(--project-name).rpm.conf]] {
+        source [file join $dir(cfg) $args(--project-name).rpm.conf]
+    }
+    set outText [GenerateChangelogRPM]
+    # puts $outText
+    if [info exists args(--out-file)] {
+        StoreChangeLogRPM $outText
+    } else {
+        puts $outText
+    }
 }
 if [info exists args(--txt)] {
+    if [file exists [file join $dir(cfg) $args(--project-name).txt.conf]] {
+        source [file join $dir(cfg) $args(--project-name).txt.conf]
+    }
     set outText [GenerateChangelogTXT]
     if [info exists args(--out-file)] {
         StoreChangeLog $outText
+    } else {
+        puts $outText
     }
 }

debian/changelog

@@ -1,5 +1,38 @@
+projman (2.0.0-beta5) stable; urgency=medium
+
+  *  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
+  *  Исправления работы с С
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Fri, 13 Feb 2026 11:27:41 +0300
+
+projman (2.0.0-beta4) stable; urgency=medium
+
+  *  Исправлено регулярное выражение для поиска переменных в коде на С.
+  *  Добавил экранирование '*' в имени функции для поиска.
+  *  Подкрректировал регулярки для работы с С.
+  *  Исиправил закрытие вкладки при отпускании кнопки мыши при нажатии на крестик.
+  *  Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке
+  *  Добавил поддержку С подсветка
+  *  Добавил копирование готовых пакетов
+  *  Откорректировал сборку рпм
+  *  Добавил сборку rpm. Исправил changelog-и
+
+ -- svk <svk@nuk-svk.ru>  Fri,  6 Feb 2026 14:07:53 +0300
+
+projman (2.0.0-beta3) stable; urgency=medium
+
+  *  changelog-gen: сделал вывод изменения в формате rpm.spec
+  *  Исправил смену регистра в заголовках вкладок
+  *  Добавил диалог вменю "Сохранить как"
+  *  Добавил проверки в диалог FileOper::SaveFile
+  *  Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль.
+  *  Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter. Исправил обработку клавиш Вверх Вниз Ввод Отмена в окне со списком вариантов.
+
+ -- svk <svk@nuk-svk.ru>  Thu, 29 Jan 2026 14:22:55 +0300
+
 projman (2.0.0-beta2) stable; urgency=medium
 
+  *  Добавлено подключение (bind) сочетания клавиш указанных в настройках инструментов.
   *  Добавлена динамическая генерация меню 'Инструменты'. Теперь новые внешние инструменты доступны сразу после сохранения файла настроек tools.ini в редакторе.
   *  Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.
   *  Добавлено редактирование настроек внешних инструментов. И пункт в меню 'Инструменты'->'Настройки'
@@ -485,3 +518,4 @@ projman (2.0.0-alfa0) stable; urgency=medium
 
 
 
+

lib/editor.tcl

@@ -402,236 +402,16 @@ namespace eval Editor {
         }
 
     }
-    proc VarHelperKey { widget K A } {
-        set win .varhelper
-        # if { [winfo exists $win] == 0 	} { return }
-        set ind [$win.lBox curselection]
-        # puts ">>>>>>>>>>>> VarHelperBind <<<<<<<<<<<<<<<<"
-        
-        switch -- $K {
-            Prior   {
-                set up   [expr [$win.lBox index active] - [$win.lBox cget -height]]
-                if { $up < 0 } { set up 0 }
-                $win.lBox activate $up
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $up $up
-            }
-            Next    {
-                set down [expr [$win.lBox index active] + [$win.lBox cget -height]]
-                if { $down >= [$win.lBox index end] }  { set down end }
-                $win.lBox activate $down
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $down $down
-            }
-            Up      {
-                set up   [expr [$win.lBox index active] - 1]
-                if { $up < 0 } { set up 0 }
-                $win.lBox activate $up
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $up $up
-            }
-            Down    {
-                set down [expr [$win.lBox index active] + 1]
-                if { $down >= [$win.lBox index end] }  { set down end }
-                $win.lBox activate $down
-                $win.lBox selection clear 0 end
-                $win.lBox selection set $down $down
-            }
-            Return  {
-                $widget delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
-                $widget insert "insert" [$win.lBox get [$win.lBox curselection]]
-                # eval [bind VarHelperBind <Escape>]
-                Editor::VarHelperEscape $widget
-            }
-            default {
-                $widget insert "insert" $A
-                # eval [bind VarHelperBind <Escape>]
-                Editor::VarHelperEscape $widget
-            }
-        }
-    } ;# proc auto_completition_key
-    proc VarHelperEscape {w} {
-        # puts ">>>>>>>>>>>> VarHelperEscape <<<<<<<<<<<<<<<<"
-        # bindtags $w [list [winfo parent $w] $w Text sysAfter all]
-        bindtags $w [list [winfo toplevel $w] $w Ctext sysAfter all]
-        catch { destroy .varhelper }
-        DebugPuts [bindtags $w]
-        DebugPuts [bind $w]
-
-    }
-    proc VarHelper {x y w word wordType} {
-        global editors lexers variables
-        variable txt 
-        variable win
-        # set txt $w.frmText.t
-        # блокировка открытия диалога если запущен другой
-        set txt $w
-        # set win .varhelper
-        # Проверяем если есть выделение то блокировать появление диалога
-        if {[$txt tag ranges sel] != ""} {
-            DebugPuts "You have selected text [$txt tag ranges sel]"
-            return            
-        }
-        # puts "$x $y $w $word $wordType"
-        set fileType [dict get $editors $txt fileType]
-
-        if {[dict exists $editors $txt variableList] != 0} {
-            set varList [dict get $editors $txt variableList]
-            # puts $varList
-        }
-        if {[dict exists $editors $txt procedureList] != 0} {
-            set procList [dict get $editors $txt procedureList]
-        }
-        # puts $procList
-        # puts ">>>>>>>[dict get $lexers $fileType commands]"
-        if {[dict exists $lexers $fileType commands] !=0} {
-            foreach i [dict get $lexers $fileType commands] {
-                # puts $i
-                lappend procList $i
-            }
-        }
-
-        # if {[dict exists $editors $txt variableList] == 0 && [dict exists $editors $txt procedureList] == 0} {
-            # return
-        # }
-        set findedVars ""
-        switch -- $wordType {
-            vars {
-                foreach i [lsearch -nocase -all $varList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $varList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-            procedure {
-                foreach i [lsearch -nocase -all $procList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $procList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-            default {
-                foreach i [lsearch -nocase -all $varList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $varList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-                foreach i [lsearch -nocase -all $procList $word*] {
-                    # puts [lindex $varList $i]
-                    set item [lindex [lindex $procList $i] 0]
-                    # puts $item
-                    if {[lsearch $findedVars $item] eq "-1"} {
-                        lappend findedVars $item
-                        # puts $item
-                    }
-                }
-            }
-        }
-        # unset item
-        # bindtags $txt [list VarHelperBind [winfo toplevel $txt] $txt Ctext sysAfter all]
-        # bindtags $txt.t [list VarHelperBind [winfo parent $txt.t] $txt.t Text sysAfter all]
-        # bind VarHelperBind <Escape> "Editor::VarHelperEscape $txt.t; break"
-            # # bindtags $txt.t {[list [winfo parent $txt.t] $txt.t Text sysAfter all]};
-            # # bindtags $txt {[list [winfo toplevel $txt] $txt Ctext sysAfter all]};
-            # # catch { destroy .varhelper }"
-        # bind VarHelperBind <Key> {Editor::VarHelperKey %W %K %A; break}
-        # 
-        if {$findedVars eq ""} {
-            return
-        }
-        # puts $findedVars
-        VarHelperDialog $x $y $w $word $findedVars
-
-    }
-
-    proc VarHelperDialog {x y w word findedVars} {
-        global editors lexers variables
-        variable txt 
-        variable win
-        # puts ">>>>>>>>>>>>>$x $y $w $word $findedVars"
-        # set txt $w.frmText.t
-        # блокировка открытия диалога если запущен другой
-        # if [winfo exists .findVariables] {
-           # return
-        # }
-        # if { [winfo exists $win] } { destroy $win }
-        set txt $w
-        set win .varhelper
-        # if {$findedVars eq ""} {
-            # return
-        # }
-        toplevel $win
-        wm transient $win .
-        wm overrideredirect $win 1
-        
-        listbox $win.lBox -width 30 -border 0
-        pack $win.lBox -expand true -fill y -side left
-        
-        foreach { item } $findedVars {
-            $win.lBox insert end $item
-        }
-        
-        catch { $win.lBox activate 0 ; $win.lBox selection set 0 0 }
-        
-        if { [set height [llength $findedVars]] > 10 } { set height 10 }
-        $win.lBox configure -height $height
-
-        # focus $win.lBox
-        
-        bind $win <Escape> {
-            destroy $Editor::win
-            focus -force $Editor::txt.t
-            break
-        }
-        bind $win.lBox <Escape> {
-            destroy $Editor::win
-            focus -force $Editor::txt.t
-            break
-        }
-        bind VarHelperBind <Control-Return> {
-            $Editor::txt delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
-            $Editor::txt insert "insert" [.varhelper.lBox get [.varhelper.lBox curselection]]
-            # eval [bind VarHelperBind <Escape>]
-            Editor::VarHelperEscape $Editor::txt
-            break
-        }
-
-        # Определям расстояние до края экрана (основного окна) и если
-        # оно меньше размера окна со списком то сдвигаем его вверх
-        set winGeomY [winfo reqheight $win]
-        set winGeomX [winfo reqwidth $win]
-
-        set topHeight [winfo height .]
-        set topWidth [winfo width .]
-        set topLeftUpperX [winfo x .]
-        set topLeftUpperY [winfo y .]
-        set topRightLowerX [expr $topLeftUpperX + $topWidth]
-        set topRightLowerY [expr $topLeftUpperY + $topHeight]
-        
-        if {[expr [expr $x + $winGeomX] > $topRightLowerX]} {
-            set x [expr $x - $winGeomX]
-        }
-        if {[expr [expr $y + $winGeomY] > $topRightLowerY]} {
-            set y [expr $y - $winGeomY]
-        }
-
-        wm geom $win +$x+$y 
-    }
 
     proc ReleaseKey {k txt fileType} {
-        global cfgVariables lexers
+        global cfgVariables lexers returnProcessed
+        # Если Return уже обработан в SelectFromList, пропускаем
+        # puts "$returnProcessed $k"
+        if {$k eq "Return" && [info exists returnProcessed]} {
+            unset returnProcessed
+            return
+        }
+        # 
         set pos [$txt index insert]
         set lineNum [lindex [split $pos "."] 0]
         set posNum [lindex [split $pos "."] 1]
@@ -645,8 +425,53 @@ namespace eval Editor {
         unset lpos
         $txt tag remove lightSelected 1.0 end
         
-        if { [winfo exists .varhelper] } { destroy .varhelper }
-        # puts $k
+        # Обработка ввода для показа окна с подсказками.
+        # if { [winfo exists .varhelper] } { destroy .varhelper }
+        # Флаг, нужно ли показывать новый список
+        set showNewList 1
+        
+        # Проверяем окно списка
+        if {[winfo exists .varhelper]} {
+            # Определяем, какая клавиша отпущена
+            switch -- $k {
+                Up - Down {
+                    # Стрелки - управление списком, окно остается
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Return {
+                    # Enter - выберет элемент, окно закроется в SelectFromList
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Escape {
+                    # Escape - закрыть окно
+                    destroy .varhelper
+                    set ::Helper::listActive 0
+                    Helper::VarHelperBindingsRestore $txt
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                Control_L - Control_R - Alt_L - Alt_R - Shift_L - Shift_R {
+                    # Модификаторы - окно остается
+                    # НЕ показываем новый список
+                    set showNewList 0
+                    return
+                }
+                default {
+                    # Любая другая клавиша (буквы, цифры, пробел, Tab и т.д.)
+                    # закрывает окно списка, но ПОКАЗЫВАЕМ новый список
+                    destroy .varhelper
+                    set ::Helper::listActive 0
+                    Helper::VarHelperBindingsRestore $txt
+                    # showNewList остается = 1 (показываем новый список)
+                }
+            }
+        }
+        
         switch $k {
             Return {
                 regexp {^(\s*)} [$txt get [expr $lineNum - 1].0 [expr $lineNum - 1].end] -> spaceStart
@@ -690,10 +515,68 @@ namespace eval Editor {
         if {$cfgVariables(variableHelper) eq "true"} {
             if {[dict exists $lexers $fileType variableSymbol] != 0} {
                 set varSymbol [dict get $lexers $fileType variableSymbol]
-                set lastSymbol [string last $varSymbol [$txt get $lineNum.0 $pos]]
+                set lineText [$txt get $lineNum.0 $pos]
+                # # Ищем переменную с помощью регулярного выражения
+                # # Паттерн ищет $ за которым идет имя переменной И курсор сразу после имени
+                # if {[regexp "(\\$)(\[a-zA-Z_:\]\[a-zA-Z0-9_:\]*)\$" $lineText -> symbol varName]} {
+                    # # Проверяем, что найденный $ - это действительно начало переменной
+                    # # (а не часть строки или другого символа)
+                    # DebugPuts "Found variable: $symbol$varName"
+                    # 
+                    # # Дополнительная проверка: перед $ не должно быть обратного слэша (экранирование)
+                    # set posOfVarSymbol [string last $varSymbol $lineText]
+                    # if {$posOfVarSymbol > 0} {
+                        # set charBefore [string index $lineText [expr {$posOfVarSymbol - 1}]]
+                        # if {$charBefore eq "\\"} {
+                            # DebugPuts "Dollar sign is escaped, skipping"
+                            # return
+                        # }
+                    # }
+                    # Helper::VarHelper $box_x $box_y $txt $varName vars
+                # }
+                DebugPuts "Line text: '$lineText'"
+                
+                # Проверяем, есть ли $ в строке
+                set lastSymbol [string last $varSymbol $lineText]
                 if {$lastSymbol ne "-1"} {
-                    set word  [string trim [$txt get $lineNum.[expr $lastSymbol + 1] $pos]]
-                    Editor::VarHelper $box_x $box_y $txt $word vars
+                    # Проверяем экранирование
+                    if {$lastSymbol > 0} {
+                        set charBefore [string index $lineText [expr {$lastSymbol - 1}]]
+                        if {$charBefore eq "\\"} {
+                            DebugPuts "Dollar sign is escaped, skipping"
+                            return
+                        }
+                    }
+                    # Берем текст после $
+                    set afterDollar [string range $lineText [expr {$lastSymbol + 1}] end]
+                    DebugPuts "Text after $varSymbol: '$afterDollar'"
+                    # Если после $ ничего нет (только что ввели $) - показываем все переменные
+                    if {$afterDollar eq ""} {
+                        DebugPuts "Just typed $varSymbol, showing all variables"
+                        Helper::VarHelper $box_x $box_y $txt "" vars
+                        return
+                    }
+                    # Проверяем, что введено после $
+                    if {[regexp {^([a-zA-Z_:][a-zA-Z0-9_:]*)?$} $afterDollar -> varName]} {
+                        # Вариант 1: regexp с концом строки - курсор сразу после (возможного) имени
+                        DebugPuts "Cursor after variable name (or $varSymbol only): '$varName'"
+                        Helper::VarHelper $box_x $box_y $txt $varName vars
+                    } elseif {[regexp {^([a-zA-Z_:][a-zA-Z0-9_:]*)} $afterDollar -> varName]} {
+                        # Вариант 2: есть имя переменной, но курсор не обязательно сразу после
+                        DebugPuts "Found variable name: '$varName'"
+                        # Проверяем позицию курсора
+                        set varEndPos [expr {[string length $varName] + 1}] ; # +1 для $
+                        
+                        if {$varEndPos == [string length $lineText]} {
+                            # Курсор сразу после имени
+                            Helper::VarHelper $box_x $box_y $txt $varName vars
+                        } else {
+                            DebugPuts "Cursor not immediately after variable name, skipping"
+                        }
+                    } else {
+                        # После $ что-то недопустимое (например, цифра, скобка и т.д.)
+                        DebugPuts "Invalid characters after $varSymbol"
+                    }
                 }
             } else {
                 set ind [$txt search -backwards -regexp {\W} $pos {insert linestart}]
@@ -705,8 +588,9 @@ namespace eval Editor {
                     # set ind [$txt search -backwards -regexp {^} $pos {insert linestart}]
                     set word [$txt get {insert linestart} $pos]
                 }
+                DebugPuts "> Extracted word: '$word'"
                 if {$word ne ""} {
-                    Editor::VarHelper $box_x $box_y $txt $word {}
+                    Helper::VarHelper $box_x $box_y $txt $word {}
                 }
             }
         }
@@ -722,7 +606,7 @@ namespace eval Editor {
                 set word [$txt get {insert linestart} $pos]
             }
             if {$word ne ""} {
-                Editor::VarHelper $box_x $box_y $txt $word procedure
+                Helper::VarHelper $box_x $box_y $txt $word procedure
             }
         }
     }
@@ -797,7 +681,7 @@ namespace eval Editor {
         bind $txt <Control-Cyrillic_em> "Editor::SelectionPaste $txt"
         bind $txt <Control-l> "SearchVariable $txt; break"
         bind $txt <Control-Cyrillic_de> "SearchVariable $txt; break"
-        bind $txt <Control-i> "ImageBase64Encode $txt"
+        bind $txt <Control-i> "ImageBase64Encode"
         bind $txt <Control-Cyrillic_sha> "ImageBase64Encode $txt"
         bind $txt <Control-bracketleft> "Editor::InsertTabular $txt"
         bind $txt <Control-bracketright> "Editor::DeleteTabular $txt"
@@ -810,7 +694,7 @@ namespace eval Editor {
         bind $txt <<Modified>> "SetModifiedFlag $w $nb auto"
         bind $txt <Control-u> "Editor::SearchBrackets %W"
         bind $txt <Control-Cyrillic_ghe> "Editor::SearchBrackets %W"
-        bind $txt <Control-J> "catch {Editor::GoToFunction $txt}"
+        bind $txt <Control-J> "catch {Editor::GoToFunction $txt}; break"
         bind $txt <Control-j> "catch {Editor::GoToFunction $txt}; break"
         bind $txt <Control-y> {Redo; break}
         bind $txt <Control-Cyrillic_o> "catch {Editor::GoToFunction $txt}; break"
@@ -818,6 +702,7 @@ namespace eval Editor {
         bind $txt <Alt-odiaeresis>  "$txt delete {insert wordstart} {insert wordend}"
         bind $txt <Alt-Cyrillic_tse> "$txt delete {insert wordstart} {insert wordend}"
         bind $txt <Alt-r>           "$txt delete {insert linestart} {insert lineend + 1char}"
+        bind $txt <Alt-Cyrillic_ka> "$txt delete {insert linestart} {insert lineend + 1char}"
         bind $txt <Alt-ecircumflex> "$txt delete {insert linestart} {insert lineend + 1char}"
         bind $txt <Alt-Cyrillic_er> "$txt delete {insert linestart} {insert lineend + 1char}"
         bind $txt <Alt-b> "$txt delete {insert linestart} insert"
@@ -862,6 +747,20 @@ namespace eval Editor {
         bind $txt <Control-r> "Editor::SplitEditorForExecute $w $fileType $nb "
         bind $txt <Control-Cyrillic_ka> "Editor::SplitEditorForExecute $w $fileType $nb "
 
+        bind $txt <Control-Shift-U> {SelectionToUpperCase %W}
+        bind $txt <Control-Shift-u> {SelectionToUpperCase %W}
+        bind $txt <Control-Shift-L> {SelectionToLowerCase %W}
+        bind $txt <Control-Shift-l> {SelectionToLowerCase %W}
+        bind $txt <Control-Shift-T> {SelectionToTitleCase %W}
+        bind $txt <Control-Shift-t> {SelectionToTitleCase %W}
+        bind $txt <Control-Shift-Y> {SelectionToSentenceCase %W}
+        bind $txt <Control-Shift-y> {SelectionToSentenceCase %W}
+        bind $txt <Control-Shift-I> {SelectionToggleCase %W}
+        bind $txt <Control-Shift-i> {SelectionToggleCase %W}
+
+        # bind $txt <Shift-Control-s> FileOper::Close
+        # bind $txt <Shift-Control-Cyrillic_es> "FileOper::Close saveas"
+
         # bind $txt.t <KeyRelease> "Editor::ReleaseKey %K $txt.t $fileType"
         # bind $txt.t <KeyPress> "Editor::PressKey %K $txt.t"
         # bind $txt <KeyRelease> "Editor::Key %k %K" 
@@ -990,9 +889,15 @@ namespace eval Editor {
         for {set lineNumber 0} {$lineNumber <= [$txt count -lines 0.0 end]} {incr lineNumber} {
             set line [$txt get $lineNumber.0 $lineNumber.end]
             # Выбираем процедуры (функции, классы и т.д.)
+            # DebugPuts "Editor::RedaStructure: file type $fileType"
+            
             if {[dict exists $lexers $fileType procRegexpCommand] != 0 } {
+                # regexp -nocase -all -line -- {^\s*(?:(\w+)\s+)+(\w+)\s*\((.*?)\)\s*(?:;|\{)} $line match returns procName params
+                # regexp -nocase -all -line -lineanchor -linestop -- {^\s*(?:(\w+)\s+)+(\w+)\s*\((.*?)(,|\))} $line match v1 v2 v3 v4
                 if {[eval [dict get $lexers $fileType procRegexpCommand]]} {
+                    DebugPuts "Editor::RedaStructure: regexp = [dict get $lexers $fileType procRegexpCommand]"
                     set procName_ [string trim $procName]
+                    DebugPuts "Editor::RedaStructure: find the proc $procName_"
                     if {$treeItemName ne ""} {
                         Tree::InsertItem $tree $treeItemName $procName_  "procedure" "$procName_ ($params)"
                     }

lib/files.tcl

@@ -364,7 +364,7 @@ namespace eval FileOper {
             set nbEditorWindow "[lindex $str 0].[lindex $str 1].[lindex $str 2]"
             # puts "FileOper::Save: current window $nbEditorWindow"
         }
-        # puts "FileOper::Save: $nbEditorWindow"
+
         set nbEditorItem [$nbEditorWindow select]
         DebugPuts "Saved editor text: $nbEditorItem"
         if [string match "*untitled*" $nbEditorItem] {
@@ -382,7 +382,14 @@ namespace eval FileOper {
             set treeItem "file::[string range $nbEditorItem [expr [string last "." $nbEditorItem] +1] end ]"
             set filePath [Tree::GetItemID $tree $treeItem]
         }
+        if {![winfo exists $nbEditorItem.frmText.t]} {
+            DebugPuts "winfo exists $nbEditorWindow.frmText.t equal [winfo exists $nbEditorWindow.frmText.t]"
+            return
+        }
         set editedText [$nbEditorItem.frmText.t get 0.0 end]
+        if {$type eq "saveas"} {set filePath [FileOper::SaveDialog]}
+        if {$filePath eq "cancel"} {return}
+        DebugPuts "FileOper::Save $filePath"
         set f [open $filePath "w+"]
         puts -nonewline $f $editedText
         # puts "$f was saved"
@@ -397,7 +404,7 @@ namespace eval FileOper {
             Tools::GetMenu .popup.tools
             Tools::GetMenu .frmMenu.mnuTools.m
         }
-        if [string match "*untitled*" $nbEditorItem] {
+        if {[string match "*untitled*" $nbEditorItem] || $type eq "saveas"} {
             FileOper::Close
             if {$type ne "close"} {
                 FileOper::Edit $filePath
@@ -628,4 +635,28 @@ namespace eval FileOper {
         # puts [$txt get [$txt tag ranges sel]]
     # }
 
+    proc SaveDialog {} {
+        global env project activeProject
+        if [info exists activeProject] {
+            set dir $activeProject
+        } else {
+            set dir $env(HOME)
+        }
+        set fileName [tk_getSaveFile -initialdir $dir -filetypes $::types -parent .]
+        if {$fileName eq ""} {return "cancel"}
+        set fullPath [file join $dir $fileName]
+        set file [string range $fullPath [expr [string last "/" $fullPath]+1] end]
+        DebugPuts "FileOper::SaveDialog $fileName $fullPath"
+        regsub -all "." $file "_" node
+        set dir [file dirname $fullPath]
+        set file [file tail $fullPath]
+        set name [file rootname $file]
+        set ext [string range [file extension $file] 1 end]
+        if {$fullPath != ""} {
+            # puts $fullPath
+            return $fullPath
+        } else {
+            return
+        }
+    }
 }

lib/gui.tcl

@@ -236,8 +236,8 @@ ttk::style layout TNotebook.Tab {
     }
 }
 bind TNotebook <Button-1> "catch {NB::PressTab %W %x %y}\;[bind TNotebook <Button-1>];break"
-# bind <<NotebookTabChanged>> "NB::PressTab %W %x %y"
-bind TNotebook <ButtonRelease-1> "NB::PressTab %W %x %y"
+bind <<NotebookTabChanged>> "catch {NB::PressTab %W %x %y}\;[bind TNotebook <Button-1>];break"
+# bind TNotebook <ButtonRelease-1> "NB::PressTab %W %x %y"
 # bind TNotebook <Control-w> FileOper::Close
 # bind . <Control-Tab> "NB::NextTab $nbEditor"
 bind . <Control-Next> "NB::NextTab $nbEditor 1"

lib/helper.tcl

@@ -0,0 +1,339 @@
+namespace eval Helper {
+    variable ::originalBindings {}
+    # Флаг, указывающий, что окно со списком активно
+    variable ::listActive 0
+    # Переменная для отслеживания предыдущего ввода (чтобы не обновлять список без необходимости)
+    variable ::previousInput ""
+    
+    proc VarHelperKey { widget K A } {
+        set win .varhelper
+        DebugPuts "Helper::VarHelperKey: K=$K, A='$A'"
+        
+        # Проверяем, существует ли окно списка
+        if {![winfo exists $win]} {
+            DebugPuts "Window doesn't exist, restoring bindings"
+            Helper::VarHelperBindingsRestore $widget
+            set ::listActive 0
+            return
+        }
+
+        switch -- $K {
+            <Up> {
+                DebugPuts "Processing Up arrow"
+                # Перемещаем выбор вверх
+                set current [$win.lBox curselection]
+                DebugPuts "Current selection: $current"
+                
+                if {$current ne "" && $current > 0} {
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set [expr {$current - 1}]
+                    $win.lBox activate [expr {$current - 1}]
+                    $win.lBox see [expr {$current - 1}]
+                } elseif {[$win.lBox size] > 0} {
+                    # Если ничего не выбрано, выбираем последний элемент
+                    set last [expr {[$win.lBox size] - 1}]
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set $last
+                    $win.lBox activate $last
+                    $win.lBox see $last
+                }
+                return -code break
+            }
+            <Down> {
+                DebugPuts "Processing Down arrow"
+                # Перемещаем выбор вниз
+                set current [$win.lBox curselection]
+                set size [$win.lBox size]
+                DebugPuts "Current selection: $current, size: $size"
+                
+                if {$current ne "" && $current < $size - 1} {
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set [expr {$current + 1}]
+                    $win.lBox activate [expr {$current + 1}]
+                    $win.lBox see [expr {$current + 1}]
+                } elseif {$size > 0} {
+                    # Если ничего не выбрано, выбираем первый элемент
+                    $win.lBox selection clear 0 end
+                    $win.lBox selection set 0
+                    $win.lBox activate 0
+                    $win.lBox see 0
+                }
+                return -code break
+            }
+            <Return> {
+                DebugPuts "Processing Return"
+                Helper::SelectFromList $widget
+                return -code break
+            }
+            <Escape> {
+                DebugPuts "Processing Escape"
+                # Закрываем окно списка
+                wm withdraw $win
+                set ::listActive 0
+                Helper::VarHelperBindingsRestore $widget
+                set ::previousInput ""
+                focus $widget
+                return -code break
+            }
+            default {
+                DebugPuts "Default case for K=$K, A='$A'"
+                # Для печатных символов
+                if {$A ne ""} {
+                    DebugPuts "Inserting character '$A' and restoring bindings"
+                    # Восстанавливаем привязки перед вставкой
+                    Helper::VarHelperBindingsRestore $widget
+                    # Вставляем символ
+                    $widget insert "insert" $A
+                }
+                return -code break
+            }
+        }
+    }
+
+    proc VarHelper {x y w word wordType} {
+        global editors lexers variables
+        variable txt 
+        variable win
+        
+        DebugPuts "=== VarHelper called: word='$word', wordType='$wordType' ==="
+        
+        set txt $w
+        # Проверяем если есть выделение то блокировать появление диалога
+        if {[$txt tag ranges sel] != ""} {
+            DebugPuts "You have selected text [$txt tag ranges sel]"
+            return            
+        }
+        
+        set fileType [dict get $editors $txt fileType]
+
+        if {[dict exists $editors $txt variableList] != 0} {
+            set varList [dict get $editors $txt variableList]
+        } else {
+            set varList {}
+        }
+        if {[dict exists $editors $txt procedureList] != 0} {
+            set procList [dict get $editors $txt procedureList]
+        } else {
+            set procList {}
+        }
+        
+        if {[dict exists $lexers $fileType commands] != 0} {
+            foreach i [dict get $lexers $fileType commands] {
+                lappend procList $i
+            }
+        }
+
+        set findedVars ""
+        switch -- $wordType {
+            vars {
+                foreach i [lsearch -nocase -all $varList $word*] {
+                    set item [lindex [lindex $varList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+            procedure {
+                foreach i [lsearch -nocase -all $procList $word*] {
+                    set item [lindex [lindex $procList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+            default {
+                foreach i [lsearch -nocase -all $varList $word*] {
+                    set item [lindex [lindex $varList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+                foreach i [lsearch -nocase -all $procList $word*] {
+                    set item [lindex [lindex $procList $i] 0]
+                    if {[lsearch $findedVars $item] eq "-1"} {
+                        lappend findedVars $item
+                    }
+                }
+            }
+        }
+        
+        DebugPuts "Found [llength $findedVars] items: $findedVars"
+        
+        if {$findedVars eq ""} {
+            DebugPuts "No items found, returning"
+            return
+        }
+        
+        VarHelperDialog $x $y $w $word $findedVars
+    }
+
+    proc VarHelperDialog {x y w word findedVars} {
+        variable txt 
+        variable win
+
+        set txt $w
+        set win .varhelper
+        
+        DebugPuts "VarHelperDialog called with [llength $findedVars] items"
+        
+        # Если окно уже существует, уничтожаем его
+        if {[winfo exists $win]} {
+            DebugPuts "Window already exists, destroying it"
+            destroy $win
+            Helper::VarHelperBindingsRestore $txt
+        }
+        
+        toplevel $win
+        wm transient $win .
+        wm overrideredirect $win 1
+        
+        listbox $win.lBox -width 30 -border 0
+        pack $win.lBox -expand true -fill y -side left
+        
+        foreach item $findedVars {
+            $win.lBox insert end $item
+        }
+        
+        DebugPuts "Listbox created with [llength $findedVars] items"
+        
+        # Выбираем первый элемент
+        if {[llength $findedVars] > 0} {
+            $win.lBox selection set 0
+            $win.lBox activate 0
+        }
+        
+        if {[set height [llength $findedVars]] > 10} { 
+            set height 10 
+        }
+        $win.lBox configure -height $height
+
+        Helper::VarHelperBindingsSetup $w
+        
+        # Привязка для закрытия окна списка
+        bind $win <Destroy> [list apply {{win txt} {
+            set ::listActive 0
+            Helper::VarHelperBindingsRestore $txt
+            set ::previousInput ""
+        }} $win $txt.t]
+
+        # Определяем расстояние до края экрана (основного окна) и если
+        # оно меньше размера окна со списком то сдвигаем его вверх
+        set winGeomY [winfo reqheight $win]
+        set winGeomX [winfo reqwidth $win]
+
+        set topHeight [winfo height .]
+        set topWidth [winfo width .]
+        set topLeftUpperX [winfo x .]
+        set topLeftUpperY [winfo y .]
+        set topRightLowerX [expr $topLeftUpperX + $topWidth]
+        set topRightLowerY [expr $topLeftUpperY + $topHeight]
+        
+        if {[expr $x + $winGeomX] > $topRightLowerX} {
+            set x [expr $x - $winGeomX]
+        }
+        if {[expr $y + $winGeomY] > $topRightLowerY} {
+            set y [expr $y - $winGeomY]
+        }
+        set ::listActive 1
+        DebugPuts "Showing window at +$x+$y"
+        wm geom $win +$x+$y 
+    }
+
+    proc VarHelperBindingsSetup {txt} {
+        DebugPuts "Setting up bindings for $txt"
+        
+        # Сбрасываем сохраненные привязки
+        set ::originalBindings {}
+        
+        # Список событий для перехвата
+        set events {<Up> <Down> <Return>}
+        
+        # Сохраняем и заменяем привязки
+        foreach event $events {
+            # Получаем текущую привязку
+            set original [bind $txt $event]
+            DebugPuts "  Saving binding for $event: '$original'"
+            
+            # Сохраняем оригинал
+            lappend ::originalBindings [list $event $original]
+            
+            # Устанавливаем новую привязку
+            bind $txt $event [list Helper::VarHelperKey $txt $event %A]
+        }
+    }
+
+    # Восстановление оригинальных привязок
+    proc VarHelperBindingsRestore {txt} {
+        DebugPuts "Restoring bindings for $txt"
+        DebugPuts "Have [llength $::originalBindings] bindings to restore"
+        
+        if {![info exists ::originalBindings]} {
+            DebugPuts "  No original bindings stored"
+            # Очищаем наши привязки
+            foreach event {<Up> <Down> <Return>} {
+                bind $txt $event {}
+            }
+            return
+        }
+
+        # Восстанавливаем оригинальные привязки
+        foreach binding $::originalBindings {
+            set event [lindex $binding 0]
+            set command [lindex $binding 1]
+            DebugPuts "  Restoring $event: '$command'"
+            
+            if {$command eq ""} {
+                bind $txt $event {}
+            } else {
+                bind $txt $event $command
+            }
+        }
+
+        # Очищаем сохраненные привязки
+        set ::originalBindings {}
+    }
+
+    proc SelectFromList {txt} {
+        global returnProcessed editors lexers
+        set win .varhelper
+        # puts "[dict get $editors $txt fileType]"
+        # puts "[dict get $lexers [dict get $editors $txt fileType] variableSymbol]"
+        
+        if {![winfo exists $win]} {
+            return
+        }
+        set selected [$win.lBox curselection]
+        if {$selected ne ""} {
+            set text [string trim [$win.lBox get $selected]]
+            # DebugPuts "[dict exists $lexers [dict get $editors $txt fileType] variableSymbol]"
+            if [dict exists $lexers [dict get $editors $txt fileType] variableSymbol] {
+                set varSymbol [dict get $lexers [dict get $editors $txt fileType] variableSymbol]
+            } else {
+                set varSymbol ""
+            }
+            # Опеределяем что символ перед позицией вставки равен символу переменной из настроек lexers
+            # если равен то вставляем выбранное из списка сразу за ним
+            # если нет то удаляем введенный текст до этого символа и вставляем выбранное из списка
+            if {[$txt get "insert - 1 char" "insert"] eq $varSymbol} {
+                $txt insert "insert" $text
+            } else {
+                $txt delete "insert - 1 chars wordstart" "insert wordend - 1 chars"
+                $txt insert "insert" $text
+            }        
+            # Закрываем окно
+            destroy $win
+            set ::listActive 0
+            Helper::VarHelperBindingsRestore $txt
+            set ::previousInput ""
+
+            # Устанавливаем флаг, что Return уже обработан
+            set returnProcessed 1
+            # after 10 {catch {unset returnProcessed}}
+            
+            focus $txt.t
+        }
+    }
+    proc DebugPuts {msg} {
+        puts "DEBUG: $msg"
+    }
+}

lib/highlight.tcl

@@ -210,5 +210,24 @@ namespace eval Highlight {} {
         ctext::addHighlightClass $txt compile_errors #ff5050 {error Error ERROR invalid undefined cannot}
         ctext::addHighlightClassForRegexp $txt url lightblue {\w+://\w.+\w+}
     }
-
+    proc C {txt} {
+        global lexers
+        ctext::addHighlightClassForRegexp $txt flags orange {-+[a-zA-Z\-_]+}
+        ctext::addHighlightClassForRegexp $txt arrows orange {(->)|(-<)}
+        ctext::addHighlightClass $txt stackControl #19a2a6 [dict get $lexers C commands]
+        ctext::addHighlightClass $txt types #7187d5 {string int int16 int32 int64 float bool byte size_t void char uint32_t uint32}
+        ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\&"
+        ctext::addHighlightClassWithOnlyCharStart $txt vars #4471ca "\*"
+        # ctext::addHighlightClassForRegexp $txt vars_extended #4471ca {\$\{[a-zA-Z0-9\_\-:\./\$\{\}]+\}}
+        ctext::addHighlightClass $txt variable_funcs gold {var type struct}
+        ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
+        ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
+        ctext::addHighlightClassForRegexp $txt comments #666666 {(//|/\*)[^\n\r]*}    
+        ctext::addHighlightClassForSpecialChars $txt qoute #b84a0c {"'`}
+        ctext::addHighlightClass $txt bool #3e803b {nil false true NULL TRUE FALSE}
+        ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
+        ctext::addHighlightClassForRegexp $txt macros #f88ffb {#\w+}
+        ctext::addHighlightClassForRegexp $txt include #68ceff {<[\w./_-]+?>}
+    }
+    proc H {txt} {Highlight::C $txt}
 }

lib/image_library.tcl

@@ -1947,3 +1947,24 @@ image create photo settings_24x24 -data {
     3W5MPksIPgdckHTF1XAMeCrpRXAexPT6yYSddEj6eKSJJmk3IcFGqWby51AbSvpeqr+KPjcKC7GT
     hfgXbteIc85F7RUAAAAASUVORK5CYII=
 }
+image create photo c_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAYAAAB/9ZQ7AAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dE
+    APgAjwD7QQHXygAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB+oCBg8YOxzsqLgAAABWSURB
+    VCjPY2AgATDCGFeLi/+jS2r39jJiKIYp1O7tZUDSjKGBCYdtyCbCbWTB5T6oiShOYyHWT7icgRPg
+    VHy1uPg/eggRY/J/YsMZRR0jLlNweZI2AAAzbhnP2WkKCAAAAABJRU5ErkJggg==
+}
+image create photo h_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAYAAAB/9ZQ7AAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAZiS0dE
+    AAAAAAAA+UO7fwAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB+oCBg8iNd79W8YAAABJSURB
+    VCjPY2AgB1wtLv5/tbj4Pz41TKQYSJJiRmRnYFOg3dvLSLTJyIawYDEJWSGM+Z+BgYGRCY/zGOkX
+    GkwMFID/UExIjDAAAEu2FECKwea9AAAAAElFTkSuQmCC
+}
+image create photo cpp_16x12 -data {
+    iVBORw0KGgoAAAANSUhEUgAAAAsAAAANCAMAAABIK2QJAAAAAXNSR0IB2cksfwAAAARnQU1BAACx
+    jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAA9QTFRF
+    AAAAzAAAAAAA////////6rs+vwAAAAF0Uk5TAEDm2GYAAAABYktHRACIBR1IAAAACXBIWXMAAAsT
+    AAALEwEAmpwYAAAAB3RJTUUH6gIGDxU21/OqSAAAADVJREFUCNd9jUEOACAIw7D7/58VmNF4sAco
+    CbCIm5FsBTwsd+kmgVQu87p3OLfg/9AJJPFhAjDkAJmwKBolAAAAAElFTkSuQmCC
+}

lib/lexers.tcl

@@ -104,5 +104,29 @@ dict set lexers LUA procFindString {function\s*?PROCNAME}
 dict set lexers LUA procRegexpCommand {regexp -nocase -all -- {^(local|)\s*?(function)\s([a-zA-Z0-9\-_:]+?)\s+\((.+?)\)} $line match v1 keyWord procName params}
 dict set lexers LUA varRegexpCommand {regexp -nocase -all -- {^(\s*?)([a-zA-Z0-9\-_\.]+)\s+=\s+(.+?)(\s*$|--)} $line match indent varName varValue lineEnd}
 
+#--------------------------------------------------
+# C
+dict set lexers C commentSymbol {//}
+dict set lexers C commentMultilineSymbolBegin {/*}
+dict set lexers C commentMultilineSymbolEnd {*/}
+dict set lexers C procFindString {(\w+)\s+(PROCNAME)\s*\((.*?)(,|\))(\W|$)}
+dict set lexers C procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\*\w+|\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+# dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
+# dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*?var\s+([a-zA-Z0-9\-_$]+)\s+(.+?)(\s*$)} $line match varName varType lineEnd}
+dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*(\w+\s+)+(?:[*\s]+)?(\w+)\s*[=;,\[]} $line match varType varName}
+dict set lexers C commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
+
+#--------------------------------------------------
+# H
+dict set lexers H commentSymbol {//}
+dict set lexers H commentMultilineSymbolBegin {/*}
+dict set lexers H commentMultilineSymbolEnd {*/}
+# dict set lexers C procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers H procFindString {^\s*(?:(\w+)\s+)+(PROCNAME)\s*\((.*?)(,|\))}
+dict set lexers H procRegexpCommand {regexp -nocase -all -line -- {^(?:(\w+)\s+)+(\*\w+|\w+)\s*\((.*?)(,|\))} $line match returns procName params v4}
+# dict set lexers C procRegexpCommand {regexp -nocase -all -- {\s*?func\s*?(\(\w+\s*?\**?\w+\)|)\s*?(\w+)\((.*?)\)\s+?([a-zA-Z0-9\{\}\[\]\(\)-_.]*?|)\s*?\{} $line match linkName procName params returns}
+dict set lexers C varRegexpCommand {regexp -nocase -all -line -- {^\s*(\w+\s+)+(?:[*\s]+)?(\w+)\s*[=;,\[]} $line match varType varName}
+dict set lexers H commands {auto break case const continue default do else enum extern for goto if inline  int long register restrict return signed sizeof static struct switch typedef typeof typeof_unqual union unsigned void volatile while}
+
 # -------------------------------------------------
 dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}

lib/menu.tcl

@@ -20,6 +20,7 @@ proc GetFileMenu {m} {
     }
     $m add command -label [::msgcat::mc "Save file"] -command {FileOper::Save}\
         -accelerator "Ctrl+S"
+    $m add command -label [::msgcat::mc "Save as"] -command {FileOper::Save saveas}
     $m add command -label [::msgcat::mc "Close file"] -command {FileOper::Close}\
         -accelerator "Ctrl+w"
     $m add command -label [::msgcat::mc "Close all"] -command {FileOper::CloseAll}
@@ -68,6 +69,15 @@ proc GetEditMenu {m} {
     -accelerator "Ctrl+F"
     # $m add command -label [::msgcat::mc "Replace"] -command Replace\
     # -accelerator "Ctrl+R"
+
+    $m add separator
+    menu $m.convertCase
+    $m add cascade -label [::msgcat::mc "Convert case"] -menu $m.convertCase
+    GetConvertCaseMenu $m.convertCase
+    menu $m.convertNamingStyle
+    $m add cascade -label [::msgcat::mc "Convert naming style"] -menu $m.convertNamingStyle
+    GetConvertIdentCaseMenu $m.convertNamingStyle
+
     $m add separator
     $m add command -label [::msgcat::mc "Find in files"] -command "FileOper::FindInFiles"\
     -accelerator "Ctrl+Shift+F"
@@ -137,3 +147,47 @@ proc GetHelpMenu {m} {
 proc PopupMenu {x y} {
     tk_popup .popup $x $y
 }
+
+# ============================================================
+# 2026 Vadim Ushakov <wandrien.dev@gmail.com>
+proc GetConvertCaseMenu {m} {
+    $m add command -label [::msgcat::mc "UPPER CASE"] -command SelectionToUpperCase\
+        -accelerator "Ctrl+Shift+U"
+    $m add command -label [::msgcat::mc "lower case"] -command SelectionToLowerCase\
+        -accelerator "Ctrl+Shift+L"
+    $m add command -label [::msgcat::mc "Title Case"] -command SelectionToTitleCase\
+        -accelerator "Ctrl+Shift+T"
+    $m add command -label [::msgcat::mc "Sentence case"] -command SelectionToSentenceCase\
+        -accelerator "Ctrl+Shift+Y"
+    $m add command -label [::msgcat::mc "iNVERT CASE"] -command SelectionToggleCase\
+        -accelerator "Ctrl+Shift+I"
+}
+proc GetConvertIdentCaseMenu {m} {
+    $m add command -label [::msgcat::mc "flatcase"] -command SelectionToFlatCase
+    $m add command -label [::msgcat::mc "UPPERCASE"] -command SelectionToUpperFlatCase
+
+    $m add separator
+
+    $m add command -label [::msgcat::mc "camelCase"] -command SelectionToCamelCase
+    $m add command -label [::msgcat::mc "PascalCase"] -command SelectionToPascalCase
+
+    $m add separator
+
+    $m add command -label [::msgcat::mc "snake_case"] -command SelectionToSnakeCase
+    $m add command -label [::msgcat::mc "SCREAMING_SNAKE_CASE"] -command SelectionToScreamingSnakeCase
+    $m add command -label [::msgcat::mc "camel_Snake_Case"] -command SelectionToCamelSnakeCase
+    $m add command -label [::msgcat::mc "Title_Case"] -command SelectionToTitleSnakeCase
+
+    $m add separator
+
+    $m add command -label [::msgcat::mc "kebab-case"] -command SelectionToKebabCase
+    $m add command -label [::msgcat::mc "SCREAMING-KEBAB-CASE"] -command SelectionToScreamingKebabCase
+    $m add command -label [::msgcat::mc "Train-Case"] -command SelectionToTrainCase
+
+    $m add separator
+
+    $m add command -label [::msgcat::mc "space separated"] -command SelectionToWords
+}
+# 2026 Vadim Ushakov <wandrien.dev@gmail.com>
+# ============================================================
+

lib/msgs/en.msg

@@ -185,4 +185,23 @@
 ::msgcat::mcset en "Word wrapping"
 ::msgcat::mcset en "Work dir"
 
+::msgcat::mcset en "Convert case"
+::msgcat::mcset en "Convert naming style"
+::msgcat::mcset en "UPPER CASE"
+::msgcat::mcset en "lower case"
+::msgcat::mcset en "Title Case"
+::msgcat::mcset en "Sentence case"
+::msgcat::mcset en "iNVERT CASE"
+::msgcat::mcset en "flatcase"
+::msgcat::mcset en "UPPERCASE"
+::msgcat::mcset en "camelCase"
+::msgcat::mcset en "PascalCase"
+::msgcat::mcset en "snake_case"
+::msgcat::mcset en "SCREAMING_SNAKE_CASE"
+::msgcat::mcset en "camel_Snake_Case"
+::msgcat::mcset en "Title_Case"
+::msgcat::mcset en "kebab-case"
+::msgcat::mcset en "SCREAMING-KEBAB-CASE"
+::msgcat::mcset en "Train-Case"
+::msgcat::mcset en "space separated"
 

lib/msgs/ru.msg

@@ -234,3 +234,23 @@
 ::msgcat::mcset ru "Editors word wrapping" "Перенос слов в редакторе"
 ::msgcat::mcset ru "Work dir" "Рабочий каталог"
 ::msgcat::mcset ru "Yes" "Да"
+
+::msgcat::mcset ru "Convert case" "Изменить регистр"
+::msgcat::mcset ru "Convert naming style" "Изменить стиль написания"
+::msgcat::mcset ru "UPPER CASE" "ЗАГЛАВНЫЕ БУКВЫ"
+::msgcat::mcset ru "lower case" "строчные буквы"
+::msgcat::mcset ru "Title Case" "С Заглавной Буквы"
+::msgcat::mcset ru "Sentence case" "Предложение с заглавной"
+::msgcat::mcset ru "iNVERT CASE" "иНВЕРТИРОВАННЫЙ РЕГИСТР"
+::msgcat::mcset ru "flatcase" "строчныебуквы"
+::msgcat::mcset ru "UPPERCASE" "ЗАГЛАВНЫЕБУКВЫ"
+::msgcat::mcset ru "camelCase" "camelCase"
+::msgcat::mcset ru "PascalCase" "PascalCase"
+::msgcat::mcset ru "snake_case" "строчные_буквы"
+::msgcat::mcset ru "SCREAMING_SNAKE_CASE" "ЗАГЛАВНЫЕ_БУКВЫ"
+::msgcat::mcset ru "camel_Snake_Case" "camel_Snake_Case"
+::msgcat::mcset ru "Title_Case" "С_Заглавной_Через_Подчеркивание"
+::msgcat::mcset ru "kebab-case" "строчные-буквы"
+::msgcat::mcset ru "SCREAMING-KEBAB-CASE" "ЗАГЛАВНЫЕ-БУКВЫ"
+::msgcat::mcset ru "Train-Case" "С-Заглавной-Через-Дефис"
+::msgcat::mcset ru "space separated" "разделить пробелом"

lib/notebook.tcl

@@ -13,6 +13,7 @@ namespace eval NB {
     proc InsertItem {nb item type} {
         switch $type {
             file {
+                set titleFileName [file tail $item]
                 set item [string tolower $item]
                 regsub -all {\.|/|\\|\s|:} $item "_" itemName
                 # puts "$item -> $itemName"
@@ -21,7 +22,7 @@ namespace eval NB {
                 } else {
                     set fm [ttk::frame $nb.$itemName]
                     pack $fm -side top -expand true -fill both
-                    $nb add $fm -text [file tail $item];# -image close_12x12 -compound right
+                    $nb add $fm -text $titleFileName;# -image close_12x12 -compound right
                     $nb select $fm
                 }
             }

lib/procedure.tcl

@@ -1135,18 +1135,74 @@ proc ExecutorCommandPathSetting {fileType} {
     }
 }
 
-# -----------
-# Thanks https://github.com/wandrien/
+# =====================================================================
+# 2026 Vadim Ushakov <wandrien.dev@gmail.com>
 # https://github.com/wandrien/projman/commit/22f6e235c3532c20573d44ee7eaaaa1fb56ad544
-proc SendEventToLatestTxtWidget {ev} {
+proc ReplaceSelection {w newText} {
+    set selStart [$w index sel.first]
+
+    # Сохраняем и отключаем auto-separators
+    set autoSep [$w cget -autoseparators]
+    $w configure -autoseparators 0
+    
+    # Замена текста как атомарный блок в Undo-стеке
+    $w edit separator
+    $w delete sel.first sel.last
+    $w insert $selStart $newText
+    $w edit separator
+    
+    # Восстанавливаем autoseparators
+    $w configure -autoseparators $autoSep
+    
+    # Восстанавливаем выделение на новом тексте
+    set selEnd [$w index "$selStart + [string length $newText] chars"]
+    $w tag add sel $selStart $selEnd
+    
+    # Если ctext поддерживает подсветку - обновляем её
+    catch {$w highlight $selStart $selEnd}
+}
+
+proc HasSelection {w} {
+    set ranges [$w tag ranges sel]
+    return [expr {$ranges ne ""}]
+}
+
+proc GetLatestTxtWidget {} {
     global latestTxtWidget
     if {$latestTxtWidget eq ""} {
-        return
+        # pass
     } elseif {[winfo exists $latestTxtWidget] && [winfo class $latestTxtWidget] eq "Ctext"} {
-        event generate ${latestTxtWidget}.t $ev
+        # pass
     } else {
         set latestTxtWidget ""
     }
+    return $latestTxtWidget
+}
+
+proc ChoiceTxtWidgetOrLatest {{w ""}} {
+    if {$w ne ""} {
+        return $w
+    }
+    return [GetLatestTxtWidget]
+}
+
+proc ProcessSelection {handle {w ""}} {
+    set w [ChoiceTxtWidgetOrLatest $w]
+    if {$w eq ""} {
+        return
+    }
+    if {![HasSelection $w]} {
+        return
+    }
+    set text [$w get sel.first sel.last]
+    ReplaceSelection $w [$handle $text]
+}
+
+proc SendEventToLatestTxtWidget {ev} {
+    set w [GetLatestTxtWidget]
+    if {$w ne ""} {
+        event generate $w.t $ev
+    }
 }
 
 proc Cut {} { SendEventToLatestTxtWidget <<Cut>> }
@@ -1154,7 +1210,8 @@ proc Copy {} { SendEventToLatestTxtWidget <<Copy>> }
 proc Paste {} { SendEventToLatestTxtWidget <<Paste>> }
 proc Undo {} { SendEventToLatestTxtWidget <<Undo>> }
 proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
-# ------------
+# 2026 Vadim Ushakov <wandrien.dev@gmail.com>
+# =====================================================================
 
 proc DebugPuts {msg} {
     global cfgVariables

lib/text_case.tcl

@@ -0,0 +1,302 @@
+# Copyright 2026 Vadim Ushakov <wandrien.dev@gmail.com>
+
+proc SelectionToUpperCase {{w ""}} {
+    ProcessSelection TextToUpperCase $w
+}
+
+proc SelectionToLowerCase {{w ""}} {
+    ProcessSelection TextToLowerCase $w
+}
+
+proc SelectionToTitleCase {{w ""}} {
+    ProcessSelection TextToTitleCase $w
+}
+
+proc SelectionToggleCase {{w ""}} {
+    ProcessSelection TextToggleCase $w
+}
+
+proc SelectionToSentenceCase {{w ""}} {
+    ProcessSelection TextToSentenceCase $w
+}
+
+################################################################################
+
+proc TextToUpperCase {text} {
+    return [string toupper $text]
+}
+
+proc TextToLowerCase {text} {
+    return [string tolower $text]
+}
+
+proc TextToTitleCase {text} {
+    set result ""
+    set wordStart 1
+
+    foreach char [split $text ""] {
+        if {[string is alpha $char]} {
+            if {$wordStart} {
+                append result [string toupper $char]
+                set wordStart 0
+            } else {
+                append result [string tolower $char]
+            }
+        } else {
+            append result $char
+            if {[string is space $char] || $char in {- _ . , ; : ! ? ( ) [ ]}} {
+                set wordStart 1
+            }
+        }
+    }
+
+    return $result
+}
+
+proc TextToSentenceCase {text} {
+    set text [TextToLowerCase $text]
+    set result ""
+    set sentenceStart 1
+    set afterPunctuation 0
+
+    foreach char [split $text ""] {
+        if {[string is alpha $char]} {
+            if {$sentenceStart} {
+                append result [TextToUpperCase $char]
+                set sentenceStart 0
+            } else {
+                append result $char
+            }
+            set afterPunctuation 0
+        } elseif {$char in {. ! ?}} {
+            append result $char
+            set afterPunctuation 1
+        } elseif {[string is space $char]} {
+            append result $char
+            if {$afterPunctuation} {
+                set sentenceStart 1
+            }
+        } else {
+            append result $char
+            set afterPunctuation 0
+        }
+    }
+
+    return $result
+}
+
+proc TextToggleCase {text} {
+    set result ""
+
+    foreach char [split $text ""] {
+        if {[string is upper $char]} {
+            append result [TextToLowerCase $char]
+        } elseif {[string is lower $char]} {
+            append result [TextToUpperCase $char]
+        } else {
+            append result $char
+        }
+    }
+
+    return $result
+}
+
+################################################################################
+# Identifier case conversion
+################################################################################
+
+proc IsIdentSeparator {char} {
+    expr {$char eq "_" || $char eq "-" || [string is space $char]}
+}
+proc IsUpperChar {c} { string is upper -strict $c }
+proc IsLowerChar {c} { string is lower -strict $c }
+proc IsAlphaChar {c} { string is alpha -strict $c }
+proc IsDigitChar {c} { string is digit -strict $c }
+
+# Граница внутри "слитного" идентификатора (camel/pascal/акронимы/цифры):
+#  - lower -> Upper    : twoWords
+#  - digit <-> alpha   : word2Word, word2, 2word
+#  - "HTTPServer"      : HTTP | Server (между P и S, т.к. S Upper и дальше lower)
+proc IdentHasBoundary {prev cur next} {
+    set prevLower [IsLowerChar $prev]
+    set prevUpper [IsUpperChar $prev]
+    set prevAlpha [IsAlphaChar $prev]
+    set prevDigit [IsDigitChar $prev]
+
+    set curUpper  [IsUpperChar $cur]
+    set curAlpha  [IsAlphaChar $cur]
+    set curDigit  [IsDigitChar $cur]
+
+    set nextLower 0
+    if {$next ne ""} {
+        set nextLower [IsLowerChar $next]
+    }
+
+    if {$prevLower && $curUpper} {
+        return 1
+    }
+    if {($prevAlpha && $curDigit) || ($prevDigit && $curAlpha)} {
+        return 1
+    }
+    if {$prevUpper && $curUpper && $nextLower} {
+        return 1
+    }
+    return 0
+}
+
+# Главная стадия №1: распознать границы частей и вернуть список частей.
+proc IdentSplit {text} {
+    set parts {}
+    set token ""
+
+    set len [string length $text]
+    for {set i 0} {$i < $len} {incr i} {
+        set c [string index $text $i]
+
+        if {[IsIdentSeparator $c]} {
+            if {$token ne ""} {
+                lappend parts $token
+                set token ""
+            }
+            continue
+        }
+
+        if {$token ne ""} {
+            set prev [string index $text [expr {$i-1}]]
+            if {$i+1 < $len} {
+                set next [string index $text [expr {$i+1}]]
+            } else {
+                set next ""
+            }
+
+            if {[IdentHasBoundary $prev $c $next]} {
+                lappend parts $token
+                set token ""
+            }
+        }
+
+        append token $c
+    }
+
+    if {$token ne ""} {
+        lappend parts $token
+    }
+
+    return $parts
+}
+
+# Применение капитализации к одной части
+proc IdentPartLower {p} { string tolower $p }
+proc IdentPartUpper {p} { string toupper $p }
+proc IdentPartTitle {p} {
+    if {$p eq ""} { return "" }
+    set p [string tolower $p]
+    set first [string index $p 0]
+    set rest  [string range $p 1 end]
+    return "[string toupper $first]$rest"
+}
+
+proc IdentJoinAll {parts sep how} {
+    set out ""
+    set first 1
+    foreach p $parts {
+        if {!$first} { append out $sep } else { set first 0 }
+        switch -- $how {
+            lower { append out [IdentPartLower $p] }
+            upper { append out [IdentPartUpper $p] }
+            title { append out [IdentPartTitle $p] }
+            default { error "Unknown case '$how'" }
+        }
+    }
+    return $out
+}
+
+proc IdentJoinFirstRest {parts sep firstHow restHow} {
+    if {[llength $parts] == 0} { return "" }
+
+    set out ""
+    set i 0
+    foreach p $parts {
+        if {$i > 0} { append out $sep }
+        if {$i == 0} {
+            set how $firstHow
+        } else {
+            set how $restHow
+        }
+        switch -- $how {
+            lower { append out [IdentPartLower $p] }
+            upper { append out [IdentPartUpper $p] }
+            title { append out [IdentPartTitle $p] }
+            default { error "Unknown case '$how'" }
+        }
+        incr i
+    }
+    return $out
+}
+
+################################################################################
+# Stage №2: parts -> target representation
+################################################################################
+
+proc IdentToFlatCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "" lower]   ;# twowords / flatcase
+}
+
+proc IdentToUpperFlatCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "" upper]   ;# TWOWORDS / UPPERCASE
+}
+
+proc IdentToCamelCase {text} {
+    return [IdentJoinFirstRest [IdentSplit $text] "" lower title] ;# twoWords
+}
+
+proc IdentToPascalCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "" title]   ;# TwoWords
+}
+
+proc IdentToSnakeCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "_" lower]  ;# two_words
+}
+
+proc IdentToScreamingSnakeCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "_" upper]  ;# TWO_WORDS
+}
+
+proc IdentToCamelSnakeCase {text} {
+    return [IdentJoinFirstRest [IdentSplit $text] "_" lower title] ;# two_Words
+}
+
+proc IdentToTitleSnakeCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "_" title]  ;# Two_Words (Title_Case)
+}
+
+proc IdentToKebabCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "-" lower]  ;# two-words
+}
+
+proc IdentToScreamingKebabCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "-" upper]  ;# TWO-WORDS
+}
+
+proc IdentToTrainCase {text} {
+    return [IdentJoinAll [IdentSplit $text] "-" title]  ;# Two-Words
+}
+
+proc IdentToWords {text} {
+    return [IdentJoinAll [IdentSplit $text] " " lower]  ;# two words (space separated)
+}
+
+################################################################################
+
+proc SelectionToFlatCase {{w ""}}            { ProcessSelection IdentToFlatCase $w }
+proc SelectionToUpperFlatCase {{w ""}}       { ProcessSelection IdentToUpperFlatCase $w }
+proc SelectionToCamelCase {{w ""}}           { ProcessSelection IdentToCamelCase $w }
+proc SelectionToPascalCase {{w ""}}          { ProcessSelection IdentToPascalCase $w }
+proc SelectionToSnakeCase {{w ""}}           { ProcessSelection IdentToSnakeCase $w }
+proc SelectionToScreamingSnakeCase {{w ""}}  { ProcessSelection IdentToScreamingSnakeCase $w }
+proc SelectionToCamelSnakeCase {{w ""}}      { ProcessSelection IdentToCamelSnakeCase $w }
+proc SelectionToTitleSnakeCase {{w ""}}      { ProcessSelection IdentToTitleSnakeCase $w }
+proc SelectionToKebabCase {{w ""}}           { ProcessSelection IdentToKebabCase $w }
+proc SelectionToScreamingKebabCase {{w ""}}  { ProcessSelection IdentToScreamingKebabCase $w }
+proc SelectionToTrainCase {{w ""}}           { ProcessSelection IdentToTrainCase $w }
+proc SelectionToWords {{w ""}}               { ProcessSelection IdentToWords $w }

lib/tools.tcl

@@ -124,6 +124,7 @@ proc Tools::GetMenu {m} {
         if {[info exists cmd] == 1 && $cmd ne ""} {
             if {[info exists shortCut] == 1 && $shortCut ne ""} {
                 $m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"]
+                bind . <$shortCut>  "[list Tools::Execute "$toolName"]; break"
             } else {
                 $m add command -label $toolName -command [list Tools::Execute "$toolName"]
             }

lib/tree.tcl

@@ -132,8 +132,10 @@ namespace eval Tree {
                 $nbEditor select $nbItem
                 set txt $nbItem.frmText.t
                 set findString [dict get $lexers [dict get $editors $txt fileType] procFindString]
+                DebugPuts "Tree::PressItem: $findString\n values: $values"
+                regsub -all {\*} $values {\\*} values
                 regsub -all {PROCNAME} $findString $values str
-
+                DebugPuts "Tree::PressItem: $str"
                 Editor::FindFunction $txt "$str"
             }
         }

projman.tcl

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

redhat/build-rpm.sh

@@ -18,6 +18,8 @@ cp projman.tcl projman
 sed -i "s+^set\ dir(lib)+set\ dir(lib)\ /usr/share/projman/lib ;#+g" projman
 sed -i "s+\[pwd\]+/usr/share/projman+g" projman
 
+./changelog-gen.tcl  --project-name projman --project-version ${VERSION} --project-release ${RELEASE} --out-file redhat/projman.spec --rpm --last
+
 CUR_DIR=$(pwd)
 
 cd ../
@@ -31,12 +33,12 @@ cp redhat/projman.spec ${RPM_BUILD_DIR}/SPECS/projman.spec
 sed -i "s/.*Version:.*/Version:\t${VERSION}/" ${RPM_BUILD_DIR}/SPECS/projman.spec
 sed -i "s/.*Release:.*/Release:\t${RELEASE}/" ${RPM_BUILD_DIR}/SPECS/projman.spec
 
-rpmbuild -ba "${RPM_BUILD_DIR}/SPECS/projman.spec"
+fakeroot rpmbuild -ba "${RPM_BUILD_DIR}/SPECS/projman.spec"
 
-# cp ${RPM_BUILD_DIR}/RPMS/noarch/projman-${VERSION}-${RELEASE}.noarch.rpm /files/
-# cp ${RPM_BUILD_DIR}/SRPMS/projman-${VERSION}-${RELEASE}.src.rpm /files/
+cp ${RPM_BUILD_DIR}/RPMS/noarch/projman-${VERSION}-${RELEASE}.noarch.rpm  ../
+cp ${RPM_BUILD_DIR}/SRPMS/projman-${VERSION}-${RELEASE}.src.rpm ../
 
 rm -v projman
 rm -r -v ${RPM_BUILD_DIR}/SPECS/projman.spec
 rm -r -v ${RPM_BUILD_DIR}/SOURCES/projman-${VERSION}-${RELEASE}.tar.gz
-rm -r -v ${RPM_BUILD_DIR}/BUILD/projman
+#rm -r -v ${RPM_BUILD_DIR}/BUILD/projman

redhat/projman.spec

@@ -6,7 +6,7 @@ License:        GPL
 Group:          Development/Tcl
 Url:            https://nuk-svk.ru
 BuildArch:      noarch
-Source:         %name-%version-%release.tar.gz
+Source:         %{name}-%{version}-%{release}.tar.gz
 Requires:       tcl, tk, tklib, tcllib
 
 %description
@@ -16,40 +16,230 @@ This a editor for programming in TCL/Tk (and other language). It includes a file
 Интегрированная среда для программирования на Tcl/Tk. Включает в себя - менеджер проектов, полнофункциональный редактор, систему навигации по файлам и структуре файлов и многое другое.
 
 %prep
-%setup -n %name
+%setup -n %{name}
 
 %build
+# Пустая секция, если сборка не требуется
 
 %install
-mkdir -p $RPM_BUILD_ROOT%_bindir
-mkdir -p $RPM_BUILD_ROOT%_datadir/%name/lib/msgs
-mkdir -p $RPM_BUILD_ROOT%_datadir/%name/theme
-mkdir -p $RPM_BUILD_ROOT%{_datarootdir}/applications
+# Создаем директории
+mkdir -p %{buildroot}%{_bindir}
+mkdir -p %{buildroot}%{_datadir}/%{name}/lib/msgs
+mkdir -p %{buildroot}%{_datadir}/%{name}/theme
+mkdir -p %{buildroot}%{_datadir}/applications
+mkdir -p %{buildroot}%{_iconsdir}/hicolor/48x48/apps
 
-install -p -m755 projman $RPM_BUILD_ROOT%_bindir/%name
-install -p -m755 tkregexp.tcl $RPM_BUILD_ROOT%_bindir/tkregexp
+# Копируем исполняемые файлы
+install -p -m755 projman %{buildroot}%{_bindir}/%{name}
+install -p -m755 tkregexp.tcl %{buildroot}%{_bindir}/tkregexp
+install -p -m755 changelog-gen.tcl %{buildroot}%{_bindir}/changeloggen
 
-# install -p -m644 *.tcl $RPM_BUILD_ROOT%_datadir/%name/
-install -p -m644 lib/*.tcl $RPM_BUILD_ROOT%_datadir/%name/lib/
-install -p -m644 lib/msgs/*.* $RPM_BUILD_ROOT%_datadir/%name/lib/msgs/
-install -p -m644 theme/*.tcl $RPM_BUILD_ROOT%_datadir/%name/theme
-install -p -m644 projman.desktop	$RPM_BUILD_ROOT%{_datarootdir}/applications
+# Копируем библиотеки и ресурсы
+install -p -m644 lib/*.tcl %{buildroot}%{_datadir}/%{name}/lib/
+install -p -m644 lib/msgs/*.* %{buildroot}%{_datadir}/%{name}/lib/msgs/
+install -p -m644 theme/*.tcl %{buildroot}%{_datadir}/%{name}/theme
 
+# Копируем .desktop файл
+install -p -m644 projman.desktop %{buildroot}%{_datadir}/applications/
+
+# Копируем иконку в правильное место
+install -p -m644 projman.png %{buildroot}%{_iconsdir}/hicolor/48x48/apps/projman.png
+
+# Обновляем кэш иконок (опционально для Debian)
 %post
-%update_menus
+if [ $1 -eq 1 ] ; then
+    if [ -x /usr/bin/gtk-update-icon-cache ]; then
+        /usr/bin/gtk-update-icon-cache -q %{_iconsdir}/hicolor || :
+    fi
+fi
 
 %postun
-%clean_menus
+if [ $1 -eq 0 ] ; then
+    if [ -x /usr/bin/gtk-update-icon-cache ]; then
+        /usr/bin/gtk-update-icon-cache -q %{_iconsdir}/hicolor || :
+    fi
+fi
 
 %files
-%doc INSTALL CHANGELOG TODO LICENSE README.md
-%_bindir/%name
-%_bindir/tkregexp
-%_datarootdir/applications/%name.desktop
-%_datadir/%name
-
+%doc CHANGELOG TODO LICENSE README.md
+%{_bindir}/%{name}
+%{_bindir}/tkregexp
+%{_bindir}/changeloggen
+%{_datadir}/applications/projman.desktop
+%{_datadir}/%{name}
+%{_iconsdir}/hicolor/48x48/apps/projman.png
 
 %changelog
-* Mon Nov 28 2022 Sergey Kalinin <svk@nuk-svk.ru> 2.0.0
-    - Initial release
+* Tue Feb 17 2026 Sergey Kalinin <svkalinin@samsonpost.ru> 2.0.0-beta5
+    -  Добавил код из https://github.com/wandrien/projman/tree/master для работы с выделенным текстом. И внес изменения в связи с этим.
+    -  Исправления работы с С
+
+* Fri Feb 13 2026 svk <svk@nuk-svk.ru> 2.0.0-beta4
+    -  Исправлено регулярное выражение для поиска переменных в коде на С.
+    -  Добавил экранирование '*' в имени функции для поиска.
+    -  Подкрректировал регулярки для работы с С.
+    -  Исправил закрытие вкладки при отпускании кнопки мыши при нажатии на крестик.
+    -  Добавил иконки для 'c' и 'h'. Добавил сочитание Alt-R в русской раскладке
+    -  Добавил поддержку С (подсветка)
+    -  Добавил копирование готовых пакетов
+
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  Откорректировал сборку рпм
+
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  Добавил сборку rpm. Исправил changelog-и
+
+* Fri Feb  6 2026 svk <svk@nuk-svk.ru> 2.0.0-beta3
+    -  changelog-gen: сделал вывод изменения в формате rpm.spec
+    -  Исправил смену регистра в заголовках вкладок
+    -  Добавил проверки в диалог FileOper::SaveFile
+    -  Добавил диалог 'Сохранить как'
+    -  Добавил проверку на наличие символа переменной.
+    -  Исправил работу со списком переменных из всплывающего окна. Теперь там можно выбрать из списка стрелками и вставить по Enter.
+    -  Вынес код связанный с обработкой подсказок при вводе переменных и процедур в отдельный модуль. Исправил недоработку при выборе варианта из списка и вставке его в текст. Исправил обработку клавиш Ввер Вниз Ввод Отмена в окне со списком вариантов.
+
+* Tue Jan 27 2026 svk <svk@nuk-svk.ru> 2.0.0-beta2
+    -  Добавлено подключение (bind) сочетания клавишь указанных в настройках инструментов.
+    -  Добавлена динамическая генерация меню 'Инструменты'. Теперь новые внешние инструменты доступны сразу после сохранения файла настроек tools.ini в редакторе.
+    -  2-я бета
+    -  Исправлена ошибка с некорректным определением виджета в процедуре получения выделенного текста.
+    -  Добавлено редактирование настроек внешних инструментов. И пункт в меню 'Инструменты'->'Настройки'
+    -  Исправление ошибки с запуском внешних программ.
+    -  Добавлено определение путей до внешних программ при подключении к редактору.
+    -  Сделана обработка шаблонов командной строки и запуск внешних инструментов.
+    -  Добавлен tkregexp для установки в /usr/bin
+    -  Добавлена сборка пакетов для openbsd
+
+* Wed Jan 21 2026 svk <svk@nuk-svk.ru> 2.0.0-beta1
+    -  Сделан вывод отладочной информации по запросу. Переделка кода.
+    -  Добавлены процедуры проверки наличия параметров конфигурации
+    -  Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
+    -  Исправил вставку кавычек при выделении текста
+    -  Исправил ошибку при отправке сигналов несуществующему процессу.
+    -  Уменьшил всплывающее меню: вынес менюшки Файл и Вид в подменю.
+    -  Изменил команду загрузки пакета в репу
+    -  Исправлено поведение при сочетании клавиш Control-y (повторение последнего действия)
+    -  Исправлен флаг модификации при открытии файла
+    -  Исправил закрытие вкладок редактора и сохранение файла при разделении экрана.
+    -  Добавлены настройки путей к программам для выполнения редактируемых файлов для каждого поддержимаего типа. И использование этих настроек при выполнении файла.
+    -  Добавил вывод информации о версиях tcl и tk
+    -  Добавил вывод номера версии tcl/tl в О Программе
+    -  Исправил сохранение и закрытие нового файла. Теперь при сохранении файл будет переоткрыт под новым именем.
+    -  Добавил проверку пакета Img. И поправил проверку типов изображений
+    -  Переделал сигналы и сочетния
+    -  Добавлен перевод фокуса ввода на прежнее окно после закрытия диалога выполнения.
+    -  Добавлена передача сигналов для закрытия запущенного процесса
+    -  Добавлен диалог настроек
+    -  Добавил псевдо-терминал
+    -  Добавлен диалог при открытии файлов отличных от текстовых
+    -  Поправил тему оформления
+    -  Исправлена работа в 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.
+    -  Косметические изменения.
+    -  Исправлены ошибки при вставке кавычек
+    -  changelog-gen.tcl: Добавлена генерация текстового журнала изменений
+    -  build-deb-projman.sh: добавлена генерация changelog  из  git log
+    -  changelog-gen.tcl: Вывод в файл вынесен в отдельную процедуру
+    -  changelog-gen.tcl: Добавлено создание резервной копии выходного файла. Исправлен вывод в файл.
+    -  changelog-gen.tcl: Добавлены опции командной строки
+    -  Добавлен запуск changelog-gen при сборке пакета
+    -  Добавлено чстение журнала начиная с определенной даты
+    -  Генерация списка изменений для debian приведена к корректному виду
+    -  Исправлен фокус при создании нового файла. #3
+    -  Исправлена неправильная замена выражение при поиске
+    -  Реализовал базовые функции генератора журнала изменений
+    -  Добавлена иконка для jinja template
+    -  Исправил остатки слияния веток
+    -  Исправлено некорректное определение типа файла при открытии.
+    -  Исправил открытие файлов с разными путями (~/ ./ ../)
+    -  Добавил изображений программы
+    -  Исправлена ошибка при создании нового файла.
+    -  Добавил пиктограммы файлов
+    -  Исправил процедуру Files::CloseAll ('Закрыть всё')
+    -  Добавлена поддержка Lua
+    -  Исправлена процедура (рас)комментирования
+    -  Исправил ошибку при выходе в процедуре (Congig::Write)
+    -  Добавил раскраски в ruby
+    -  Добавлена возможность многострочных комментариев
+    -  В Ruby lexer добавлен поиск переменных коде.
+    -  Немного почистил. Добавлен поиск переменных по питоньим исходникам (lexer)
+    -  Изменения в подсветке для INI
+    -  Добавил подсветку для Desktop и Spec  файлов
+    -  Добавил вывод отладочной инфы в процедуру
+    -  Исправил подсветку комментариев в TCL
+    -  Оптимизация процедур
+    -  Добавлена подсветка и навигация по HTML. Исправлена подсветка XML
+    -  Добавил иконку для изображений
+    -  Добавил иконки для perl
+    -  Исправлена подсветка и навигация по коду для Ruby
+    -  Исправлено сохранение сессии в редакторе (открытие папки и файлов при следующем запуске)
+    -  Добавлена новая секция UserSession
+    -  Исправление ошибки при открытии файла
+    -  Добавлена поддержка INI-файлов (подсветка
+    -  Добавлена поддержка perl
+    -  Добавил икогнку для файлов git
+    -  Добавлены иконки для ключей и сертификатов. Изменен поиск иконки (вощзвращает теерь с размером)
+    -  Реализован двухпанельный режим работы (вертиикальное разделение)
+    -  Исправлена  ошибка при открытии ansible.cfg
+    -  Добавил деактивацию кнопки 'Создать репу' если не выбран активный проект (не открыто ни одного каталога/папки)
+    -  Добавлены команды git init и git config (зачаток). Изменен диалог клонирования репозитория (добавлена кнопка Создать репозиторий)
+    -  Исправил ошибку git при открытии файла или каталога если репозиторий не инициализирован (нет .git  каталога внутри проекта)
+    -  Добавил скриты сборки rpm
+    -  Добавлено обрамление выделенного текста прии нажатии '_' в markdown
+    -  Исправление подсветки
+    -  Добавлена поддержка markdown (подсветка
+    -  Исправлена ошибка с закрытием файлов в редакторе при закрытии папки
+    -  Переделана процедура определения активного проекта. Исправлено определение ветки git. Теперь можно нормально работать в двух и более открытых проектах (каталогах/папках)
+    -  Доделан вид диалога поиска по файлам
+    -  Исправлен поиск имени функции
+    -  Добавлен диалог клонирования репозитория
+    -  Добавил разделитель
+    -  Исправлено переключение вкладок при закрытии
+    -  Исправлено закрытиие вкладки Git  по нажатию соотв. кнопки в панели инструментов
+    -  Добавлен пункт 'Закрыть всё'
+    -  Исправлено соответствие открытого файла в редакторе и выделение этого файла в дереве
+    -  Исправлено переключение отображения панели (лево/право) в без перезапуска программы.
+    -  Украшательства интерфейса - Реакция на нажатие кнопки в панели инструментов теперь зависит от контекста
+    -  Добавлено включение отключение отображения Меню
+    -  Добавлено копирование текущей строки в буфер по Atl+Y
+    -  Исправлена ошибка с отображением файловой панели
+    -  Добавлены и исправлены функции отображения меню
+    -  Добавлен параметр statusBarShow - показ строки статуса
+    -  Добавлены переводы
+    -  Добавлена проверка параметров вызова файл или просто строка
+    -  Добавлен вывод сообщений об ошибке в диалоге
+    -  Добавлено обновления списка файлов в дереве
+    -  Добавлена процедура вывода информационного сообщения
+    -  Добавлена команда Git::Reset (git reset _file_) на кнопке в диалоге. Для отмены 'git add'
+    -  Добавлена кнопка Обновление в диалог работы с Git
+    -  Исправление процедуры поиска наименования функции
+    -  Фиксы диалога работы с Git (работа с выделенными файлами в списках)
+    -  Фиксы и тесты работы с git
+    -  Исправление выборанескольких файлов в диалоге Git
+    -  Исправление рег. выражения чтения файлов командой git status
+    -  Исправлено рег. выпражение определения mime типа файла
+    -  Добавил очистку текстовых полей при добавлении файлов в коммит
+    -  Исправрелдение Git::Commit (индексация всех файлов в проекте)
+    -  Исправления глюков
+    -  Украшательства строки статуса
+    -  Добавлен просмотрщик изображений
+    -  Добавил рамку кону ввода номера
+    -  Добавлен диалог перехода по номеру строки Ctrl-G
+    -  Добавлено определение типа файла
+    -  Добавил удаление артефактов сборки пакета
+    -  Новая сборка
+    -  Добавлена подсветка имен файлов в выводе git show
+    -  Небольшие правки в подсказках по переменным
+    -  Исправлена подсветка SHELL переменных а YAML файлах (ansible
+
+
+
+