Исправил смену регистра в заголовках вкладок, тепеь имена файлов во вкладках как и должны быть.

Исправил обработку Return при использовании функции поиска и перехода по процеедурам/функциям/разделам внутри файла по нажатию Control-j

lib/editor.tcl

@@ -694,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"

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
                 }
             }