Переделал дилог навигации по переменным

2022-09-16 16:26:52 +03:00
parent 3689e582e7
commit bc432b8d84
2 changed files with 56 additions and 29 deletions
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -29,7 +29,11 @@ namespace eval NB {
    }

    proc PressTab {w x y} {
-        $w select [$w identify tab $x $y]
+        if {[$w identify tab $x $y] ne ""} {
+            $w select [$w identify tab $x $y]
+        } else {
+            return
+        }
        if {[$w identify $x $y] == "close_button"} {
            FileOper::Close
        } else {