Исправлена ошибка при запуске
This commit is contained in:
parent
122153b363
commit
c755e79517
|
@ -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 ""
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user