Фиксы

2022-11-11 12:59:24 +03:00
parent 934c3b1e4d
commit 970990bc54
2 changed files with 5 additions and 0 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -220,6 +220,8 @@ namespace eval FileOper {
        }
        unset modified($nbItem)
        .frmStatus.lblPosition configure -text ""
+        .frmStatus.lblEncoding configure -text ""
+        .frmStatus.lblSize configure -text ""
    }
    
    proc Save {} {
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -189,6 +189,9 @@ proc FindVariablesDialog {txt args} {
    set y   [expr [lindex $box 1] + [winfo rooty $txt] + [lindex $box 3] ]

    set win .findVariables
+    if [winfo exists .varhelper] {
+       destroy .varhelper
+    }

    if { [winfo exists $win] }  { destroy $win }
    toplevel $win