Исправлена работа в windows

2025-10-27 20:59:27 +03:00
parent 9b083515ba
commit 297d0f7420
4 changed files with 15 additions and 5 deletions
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -13,7 +13,9 @@ namespace eval NB {
    proc InsertItem {nb item type} {
        switch $type {
            file {
-                regsub -all {\.|/|\\|\s} $item "_" itemName
+                set item [string tolower $item]
+                regsub -all {\.|/|\\|\s|:} $item "_" itemName
+                # puts "$item -> $itemName"
                if [winfo exists $nb.$itemName] {
                    set fm $nb.$itemName
                } else {