Сделан вывод отладочной информации по запросу. Переделка кода.

2026-01-22 17:30:11 +03:00
parent f9dbdf893d
commit 83d70ebd3f
7 changed files with 43 additions and 35 deletions
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -89,7 +89,7 @@ namespace eval NB {
        Tree::SelectItem $treeItemName
        
        set txt [$w select].frmText.t
-        puts "NextTab: [$w select]"
+        DebugPuts "NextTab: [$w select]"
        if {[winfo exists [$w select].frmText2] == 1} {
            focus -force [$w select].frmText2.frame.text.t
        } else {