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

Исправление ошибок

Browse Source
This commit is contained in:
svk
2026-01-22 17:48:59 +03:00
parent 83d70ebd3f
commit bc706ab410
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/config.tcl
View File

@@ -172,8 +172,10 @@ proc Config::CheckVariables {} {
if {[regexp {^([^=]+)=(.*)$} $item -> var value]} { if {[regexp {^([^=]+)=(.*)$} $item -> var value]} {
if ![info exists ::cfgVariables($var)] { if ![info exists ::cfgVariables($var)] {
DebugPuts "Error in Config::CheckVariables: variable ::cfgVariables($var) not found" DebugPuts "Error in Config::CheckVariables: variable ::cfgVariables($var) not found"
Config::AddVariable "$var" "$value" "$section" # set ::cfgVariables($var) $value
DebugPuts "Config::CheckVariables: The variable cfgVariables($var) setting to default value \"$value\"" DebugPuts "Config::CheckVariables: The variable cfgVariables($var) setting to default value \"$value\""
Config::AddVariable "$var" "$value" "$section"
} }
} }
} }

4
lib/procedure.tcl
View File

@@ -1159,10 +1159,10 @@ proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
proc DebugPuts {msg} { proc DebugPuts {msg} {
global cfgVariables global cfgVariables
if ![info exists cfgVariables(debug)] { if ![info exists cfgVariables(debug)] {
set cfgVariables(debug) "true" return 0
} }
if ![info exists cfgVariables(debugOut)] { if ![info exists cfgVariables(debugOut)] {
set cfgVariables(debugOut) "stdout" return 0
} }
if {$cfgVariables(debug) eq "true"} { if {$cfgVariables(debug) eq "true"} {
if {$cfgVariables(debugOut) eq "stdout"} { if {$cfgVariables(debugOut) eq "stdout"} {