svk/projman
svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Фиксы

Browse Source
This commit is contained in:
svkalinin 2022-11-11 12:59:24 +03:00
parent 934c3b1e4d
commit 970990bc54
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/files.tcl
View File

@ -220,6 +220,8 @@ namespace eval FileOper {
} }
unset modified($nbItem) unset modified($nbItem)
.frmStatus.lblPosition configure -text "" .frmStatus.lblPosition configure -text ""
.frmStatus.lblEncoding configure -text ""
.frmStatus.lblSize configure -text ""
} }
proc Save {} { proc Save {} {

3
lib/procedure.tcl
View File

@ -189,6 +189,9 @@ proc FindVariablesDialog {txt args} {
set y [expr [lindex $box 1] + [winfo rooty $txt] + [lindex $box 3] ] set y [expr [lindex $box 1] + [winfo rooty $txt] + [lindex $box 3] ]
set win .findVariables set win .findVariables
if [winfo exists .varhelper] {
destroy .varhelper
}
if { [winfo exists $win] } { destroy $win } if { [winfo exists $win] } { destroy $win }
toplevel $win toplevel $win