Исправил ошибку при выходе в процедуре (Congig::Write)

This commit is contained in:
svkalinin 2022-12-16 15:00:52 +03:00
parent 3bf3b80e38
commit 3467d6a89a
2 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
######################################################
# Version: 2.0.0
# Release: alpha
# Build: 16122022101023
# Build: 16122022145953
######################################################
# определим текущую версию, релиз и т.д.