Фиксы

2022-11-11 12:59:24 +03:00
parent 934c3b1e4d
commit 970990bc54
2 changed files with 5 additions and 0 deletions
--- 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