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

2026-01-22 17:48:59 +03:00
parent 83d70ebd3f
commit bc706ab410
2 changed files with 5 additions and 3 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1159,10 +1159,10 @@ proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
 proc DebugPuts {msg} {
    global cfgVariables
    if ![info exists cfgVariables(debug)] {
-        set cfgVariables(debug) "true"
+        return 0
    }
    if ![info exists cfgVariables(debugOut)] {
-        set cfgVariables(debugOut) "stdout"
+        return 0
    }
    if {$cfgVariables(debug) eq "true"} {
        if {$cfgVariables(debugOut) eq "stdout"} {