Исправлено переключение вкладок при закрытии

2022-11-23 12:50:07 +03:00
parent 8402409489
commit dbb8c3f911
4 changed files with 14 additions and 5 deletions
--- a/lib/notebook.tcl
+++ b/lib/notebook.tcl
@@ -61,6 +61,9 @@ namespace eval NB {
    proc NextTab {w step} {
        global tree
        set i [expr [$w index end] - 1]
+        if {[$w select] eq ""} {
+            return
+        }
        set nbItemIndex [$w index [$w select]]
        if {$nbItemIndex eq 0 && $step eq "-1"} {
            $w select $i