Добавлены процедуры проверки наличия параметров конфигурации, и установки значений по умолчанию в случае их отсутствия в файле конфигурации.

Добавлена новая секця и два новых парметра в конфиг, для вывода отладочной информации.
This commit is contained in:
svk
2026-01-22 16:55:17 +03:00
parent f1fcd09f89
commit f9dbdf893d
3 changed files with 59 additions and 0 deletions

View File

@@ -1155,3 +1155,14 @@ proc Paste {} { SendEventToLatestTxtWidget <<Paste>> }
proc Undo {} { SendEventToLatestTxtWidget <<Undo>> }
proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
# ------------
proc DebugPuts {msg} {
global cfgVariables debugFlag
if ![info exists cfgVariables(debugFlag)] {
set cfgVariables(debugFlag) "true"
}
if {$cfgVariables(debugFlag) eq "true"} {
puts "$msg"
}
}