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

Исправил обработку Return при использовании функции поиска и перехода по процеедурам/функциям/разделам внутри файла по нажатию Control-j
This commit is contained in:
svk
2026-02-05 18:49:28 +03:00
parent 3860db2c26
commit 7511a5445e
2 changed files with 3 additions and 2 deletions

View File

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