Исправил ошибку при выходе в процедуре (Congig::Write)
This commit is contained in:
parent
3bf3b80e38
commit
3467d6a89a
|
@ -102,8 +102,10 @@ proc Config::write {dir} {
|
|||
# Добавим пути к открытым в редакторе файлам в переменную
|
||||
if [info exists editors] {
|
||||
foreach i [dict keys $editors] {
|
||||
puts [dict get $editors $i]
|
||||
lappend edited [dict get $editors $i fileFullPath]
|
||||
# puts [dict get $editors $i]
|
||||
if [dict exists $editors $i fileFullPath] {
|
||||
lappend edited [dict get $editors $i fileFullPath]
|
||||
}
|
||||
}
|
||||
if [info exists edited] {
|
||||
ini::set $cfgFile "UserSession" editedFiles $edited
|
||||
|
|
|
@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
|
|||
######################################################
|
||||
# Version: 2.0.0
|
||||
# Release: alpha
|
||||
# Build: 16122022101023
|
||||
# Build: 16122022145953
|
||||
######################################################
|
||||
|
||||
# определим текущую версию, релиз и т.д.
|
||||
|
|
Loading…
Reference in New Issue
Block a user