Добавлен интерфейс работы с Git

2022-10-19 09:05:55 +03:00
parent e5e0ad299f
commit 400b41aa1e
7 changed files with 243 additions and 66 deletions
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -24,6 +24,9 @@ namespace eval NB {
                }
            }
            git {
+                if [winfo exists $nb.$item] {
+                    return $nb.$item
+                }
                set fm [ttk::frame $nb.$item]
                pack $fm -side top -expand true -fill both
                $nb add $fm -text Git;# -image close_12x12 -compound right
@@ -44,7 +47,9 @@ namespace eval NB {
            FileOper::Close
        } else {
            set txt [$w select].frmText.t
-            focus -force $txt.t
+            if [winfo exists $txt] {
+                focus -force $txt.t
+            }
        }
    }