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

lib/files.tcl

@@ -233,10 +233,13 @@ namespace eval FileOper {
                 $tree delete $treeItem
             }
         }
+        if [info exists modified($nbItem)] {
             unset modified($nbItem)
+        }
         .frmStatus.lblPosition configure -text ""
         .frmStatus.lblEncoding configure -text ""
         .frmStatus.lblSize configure -text ""
+        NB::NextTab $nbEditor 0
     }
     
     proc Save {} {
@@ -439,10 +442,11 @@ namespace eval FileOper {
                 set res [SearchStringInFolder $str]
             }
         }
-        FindInFilesDialog $txt $res
+        if [FindInFilesDialog $txt $res] {
             .find.entryFind delete 0 end
             .find.entryFind insert end $str
         }
+    }
 
     proc ReplaceInFiles {} {
         global nbEditor

lib/gui.tcl

@@ -188,6 +188,7 @@ ttk::style layout TNotebook.Tab {
 bind TNotebook <Button-1> "catch {NB::PressTab %W %x %y}\;[bind TNotebook <Button-1>];break"
 # bind <<NotebookTabChanged>> "NB::PressTab %W %x %y"
 bind TNotebook <ButtonRelease-1> "NB::PressTab %W %x %y"
+# bind TNotebook <Control-w> FileOper::Close
 # bind . <Control-Tab> "NB::NextTab $nbEditor"
 bind . <Control-Next> "NB::NextTab $nbEditor 1"
 bind . <Control-Prior> "NB::NextTab $nbEditor -1"

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

lib/procedure.tcl

@@ -511,7 +511,7 @@ proc FindInFilesDialog {txt {args ""}} {
     }
     set win .find
         
-    if { [winfo exists $win] }  { destroy $win }
+    if { [winfo exists $win] }  { destroy $win; return false}
     toplevel $win
     wm transient $win .
     wm overrideredirect $win 1
@@ -639,6 +639,7 @@ proc FindInFilesDialog {txt {args ""}} {
         focus -force $win.entryFind
     }
     # $win.lBox focus I001
+    return true
 }
 
 proc ShowMessage {title msg} {