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:
Sergey Kalinin 2022-09-18 10:21:38 +03:00
parent 122153b363
commit c755e79517
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/config.tcl
View File

@ -23,8 +23,8 @@ if [info exists env(LANG)] {
set ::configDefault "\[General\] set ::configDefault "\[General\]
cfgModifyDate='' cfgModifyDate=''
opened='' opened=
editedFiles='' editedFiles=
\[GUI\] \[GUI\]
locale=$locale locale=$locale
theme=dark theme=dark
@ -85,7 +85,7 @@ proc Config::write {dir} {
# Save an top level window geometry into config # Save an top level window geometry into config
ini::set $cfgFile "GUI" geometry [wm geometry .] ini::set $cfgFile "GUI" geometry [wm geometry .]
if {$activeProject ne ""} { if {[info exists activeProject] !=0 && $activeProject ne ""} {
ini::set $cfgFile "General" opened $activeProject ini::set $cfgFile "General" opened $activeProject
} else { } else {
ini::set $cfgFile "General" opened "" ini::set $cfgFile "General" opened ""

5
projman.tcl
View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
###################################################### ######################################################
# Version: 2.0.0 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 16092022163648 # Build: 18092022095233
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.
@ -111,7 +111,7 @@ source [file join $dir(lib) gui.tcl]
# Open the PATH if command line argument has been setting # Open the PATH if command line argument has been setting
if [info exists opened] { if [info exists opened] {
puts $opened puts ">$opened"
foreach path $opened { foreach path $opened {
if [file isdirectory $path] { if [file isdirectory $path] {
set activeProject $path set activeProject $path
@ -124,6 +124,7 @@ if [info exists opened] {
} }
} else { } else {
if {$cfgVariables(opened) ne ""} { if {$cfgVariables(opened) ne ""} {
puts "<$cfgVariables(opened)"
set activeProject $cfgVariables(opened) set activeProject $cfgVariables(opened)
FileOper::ReadFolder $cfgVariables(opened) FileOper::ReadFolder $cfgVariables(opened)
ReadFilesFromDirectory $cfgVariables(opened) $cfgVariables(opened) ReadFilesFromDirectory $cfgVariables(opened) $cfgVariables(opened)