From c755e795175b8a6fb16be3154faf0f9c246b38e6 Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Sun, 18 Sep 2022 10:21:38 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=20?= =?UTF-8?q?=D0=BF=D1=80=D0=B8=20=D0=B7=D0=B0=D0=BF=D1=83=D1=81=D0=BA=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/config.tcl | 6 +++--- projman.tcl | 5 +++-- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lib/config.tcl b/lib/config.tcl index c607ce6..beb8fa4 100644 --- a/lib/config.tcl +++ b/lib/config.tcl @@ -23,8 +23,8 @@ if [info exists env(LANG)] { set ::configDefault "\[General\] cfgModifyDate='' -opened='' -editedFiles='' +opened= +editedFiles= \[GUI\] locale=$locale theme=dark @@ -85,7 +85,7 @@ proc Config::write {dir} { # Save an top level window geometry into config ini::set $cfgFile "GUI" geometry [wm geometry .] - if {$activeProject ne ""} { + if {[info exists activeProject] !=0 && $activeProject ne ""} { ini::set $cfgFile "General" opened $activeProject } else { ini::set $cfgFile "General" opened "" diff --git a/projman.tcl b/projman.tcl index bfda14e..b2c24cb 100755 --- a/projman.tcl +++ b/projman.tcl @@ -10,7 +10,7 @@ exec wish "$0" -- "$@" ###################################################### # Version: 2.0.0 # 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 if [info exists opened] { - puts $opened + puts ">$opened" foreach path $opened { if [file isdirectory $path] { set activeProject $path @@ -124,6 +124,7 @@ if [info exists opened] { } } else { if {$cfgVariables(opened) ne ""} { + puts "<$cfgVariables(opened)" set activeProject $cfgVariables(opened) FileOper::ReadFolder $cfgVariables(opened) ReadFilesFromDirectory $cfgVariables(opened) $cfgVariables(opened)