Добавлены процедуры проверки наличия параметров конфигурации, и установки значений по умолчанию в случае их отсутствия в файле конфигурации.
Добавлена новая секця и два новых парметра в конфиг, для вывода отладочной информации.
This commit is contained in:
@@ -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"
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user