Фиксы

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 {} {

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