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

2022-11-23 12:50:07 +03:00
parent 8402409489
commit dbb8c3f911
4 changed files with 14 additions and 5 deletions
--- a/lib/procedure.tcl
+++ b/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} {