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

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

master
svkalinin 2022-12-16 15:00:52 +03:00
parent 3bf3b80e38
commit 3467d6a89a
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/config.tcl
View File

@ -102,8 +102,10 @@ proc Config::write {dir} {
# Добавим пути к открытым в редакторе файлам в переменную # Добавим пути к открытым в редакторе файлам в переменную
if [info exists editors] { if [info exists editors] {
foreach i [dict keys $editors] { foreach i [dict keys $editors] {
puts [dict get $editors $i] # puts [dict get $editors $i]
lappend edited [dict get $editors $i fileFullPath] if [dict exists $editors $i fileFullPath] {
lappend edited [dict get $editors $i fileFullPath]
}
} }
if [info exists edited] { if [info exists edited] {
ini::set $cfgFile "UserSession" editedFiles $edited ini::set $cfgFile "UserSession" editedFiles $edited

2
projman.tcl
View File

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