From 7511a5445eb65e333928f6beb8f9fd99316bf234 Mon Sep 17 00:00:00 2001
From: svk <svk@nuk-svk.ru>
Date: Thu, 5 Feb 2026 18:49:28 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?=
 =?UTF-8?q?=D0=BB=20=D1=81=D0=BC=D0=B5=D0=BD=D1=83=20=D1=80=D0=B5=D0=B3?=
 =?UTF-8?q?=D0=B8=D1=81=D1=82=D1=80=D0=B0=20=D0=B2=20=D0=B7=D0=B0=D0=B3?=
 =?UTF-8?q?=D0=BE=D0=BB=D0=BE=D0=B2=D0=BA=D0=B0=D1=85=20=D0=B2=D0=BA=D0=BB?=
 =?UTF-8?q?=D0=B0=D0=B4=D0=BE=D0=BA,=20=D1=82=D0=B5=D0=BF=D0=B5=D1=8C=20?=
 =?UTF-8?q?=D0=B8=D0=BC=D0=B5=D0=BD=D0=B0=20=D1=84=D0=B0=D0=B9=D0=BB=D0=BE?=
 =?UTF-8?q?=D0=B2=20=D0=B2=D0=BE=20=D0=B2=D0=BA=D0=BB=D0=B0=D0=B4=D0=BA?=
 =?UTF-8?q?=D0=B0=D1=85=20=D0=BA=D0=B0=D0=BA=20=D0=B8=20=D0=B4=D0=BE=D0=BB?=
 =?UTF-8?q?=D0=B6=D0=BD=D1=8B=20=D0=B1=D1=8B=D1=82=D1=8C.=20=D0=98=D1=81?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B0=D0=B2=D0=B8=D0=BB=20=D0=BE=D0=B1=D1=80=D0=B0?=
 =?UTF-8?q?=D0=B1=D0=BE=D1=82=D0=BA=D1=83=20Return=20=D0=BF=D1=80=D0=B8=20?=
 =?UTF-8?q?=D0=B8=D1=81=D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=D0=BE=D0=B2=D0=B0?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B8=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D0=B8?=
 =?UTF-8?q?=20=D0=BF=D0=BE=D0=B8=D1=81=D0=BA=D0=B0=20=D0=B8=20=D0=BF=D0=B5?=
 =?UTF-8?q?=D1=80=D0=B5=D1=85=D0=BE=D0=B4=D0=B0=20=D0=BF=D0=BE=20=D0=BF?=
 =?UTF-8?q?=D1=80=D0=BE=D1=86=D0=B5=D0=B5=D0=B4=D1=83=D1=80=D0=B0=D0=BC/?=
 =?UTF-8?q?=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=8F=D0=BC/=D1=80=D0=B0?=
 =?UTF-8?q?=D0=B7=D0=B4=D0=B5=D0=BB=D0=B0=D0=BC=20=D0=B2=D0=BD=D1=83=D1=82?=
 =?UTF-8?q?=D1=80=D0=B8=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=20=D0=BF=D0=BE=20?=
 =?UTF-8?q?=D0=BD=D0=B0=D0=B6=D0=B0=D1=82=D0=B8=D1=8E=20Control-j?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/editor.tcl   | 2 +-
 lib/notebook.tcl | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/editor.tcl b/lib/editor.tcl
index 1a2ebc5..a7c6a6f 100644
--- a/lib/editor.tcl
+++ b/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"
diff --git a/lib/notebook.tcl b/lib/notebook.tcl
index 91cd555..9ade731 100644
--- a/lib/notebook.tcl
+++ b/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
                 }
             }