Сделан вывод отладочной информации по запросу. Переделка кода.

lib/editor.tcl

@@ -446,8 +446,8 @@ namespace eval Editor {
         # bindtags $w [list [winfo parent $w] $w Text sysAfter all]
         bindtags $w [list [winfo toplevel $w] $w Ctext sysAfter all]
         catch { destroy .varhelper }
-        puts [bindtags $w]
+        DebugPuts [bindtags $w]
-        puts [bind $w]
+        DebugPuts [bind $w]
 
     }
     proc VarHelper {x y w word wordType} {
@@ -460,7 +460,7 @@ namespace eval Editor {
         # set win .varhelper
         # Проверяем если есть выделение то блокировать появление диалога
         if {[$txt tag ranges sel] != ""} {
-            puts "You have selected text [$txt tag ranges sel]"
+            DebugPuts "You have selected text [$txt tag ranges sel]"
             return            
         }
         # puts "$x $y $w $word $wordType"
@@ -1310,7 +1310,7 @@ namespace eval Editor {
         }
         ttk::button $win.bBackward -state disable -image backward_20x20 -command "puts $replaceString"
         ttk::button $win.bDone -image done_20x20 -state disable -command {
-            puts "$findString -> $replaceString, $regexpSet"
+            DebugPuts "$findString -> $replaceString, $regexpSet"
         }
         ttk::button $win.bDoneAll -image doneall_20x20 -command {
             Editor::FindReplaceText $Editor::txt "$findString" "$replaceString" $regexpSet
@@ -1395,7 +1395,7 @@ namespace eval Editor {
         global cfgVariables
         regsub -all {\.|/|\\|\s|:} $fileFullPath "_" itemName
         set itemName ".frmWork.nbEditor2.$itemName"
-        puts "Editor::SplitEditoprV: nb item - $itemName"
+        DebugPuts "Editor::SplitEditoprV: nb item - $itemName"
         if {[winfo exists $itemName] == 1} {
             .frmWork.nbEditor2 forget $itemName
             destroy $itemName
@@ -1415,7 +1415,7 @@ namespace eval Editor {
         # grid columnconfigure .frmWork .frmWork.nbEditor2 -weight 1
         # grid rowconfigure .frmWork .frmWork.nbEditor2 -weight 1
         .frmWork.panelNB add .frmWork.nbEditor2 -weight 0
-        puts [FileOper::Edit $fileFullPath .frmWork.nbEditor2]
+        DebugPuts [FileOper::Edit $fileFullPath .frmWork.nbEditor2]
     }
     
     proc GoToLineNumber {text lineNumber} {
@@ -1456,7 +1456,7 @@ namespace eval Editor {
         bind $win.ent <Return> {
             set lineNumber [.gotoline.ent get]
             # $txt see insert $lineNumber
-            puts $Editor::txt
+            DebugPuts $Editor::txt
             $Editor::txt mark set insert $lineNumber.0
             $Editor::txt see insert
             focus $Editor::txt.t
@@ -1596,7 +1596,7 @@ namespace eval Editor {
             puts $fileFullPath
         }
         # puts [$w.panelTxt panes]
-        puts "$w $fileType $nb $fileFullPath"
+        DebugPuts "$w $fileType $nb $fileFullPath"
         if [winfo exists $w.frmText2] {
             $w.panelTxt forget $w.frmText2
             destroy $w.frmText2

lib/files.tcl

@@ -65,7 +65,7 @@ namespace eval FileOper {
         catch $cmd pipe
         # puts $pipe
         if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
-            puts "$fType $fExt $fCharset"
+            DebugPuts "$fType $fExt $fCharset"
         }
         switch $opt {
             "charset" {
@@ -77,7 +77,7 @@ namespace eval FileOper {
         # линуксовый file не всегда корректно определяет тип файла
         # используем пакет из tcl
         lassign [::fileutil::fileType $fileFullPath] fType fBinaryType fBinaryInterp
-        puts "File type is $fType, $fBinaryType, $fBinaryInterp"
+        DebugPuts "File type is $fType, $fBinaryType, $fBinaryInterp"
         set ext [string tolower [file extension $fileFullPath]]
         
         # Установка корректного типа для svg
@@ -99,7 +99,7 @@ namespace eval FileOper {
                 set fBinaryType "binary"
             }
         }
-        puts "File type is $fType, $fBinaryType, $fBinaryInterp, $ext"
+        DebugPuts "File type is $fType, $fBinaryType, $fBinaryInterp, $ext"
 
         switch $fType {
             "binary" {
@@ -366,7 +366,7 @@ namespace eval FileOper {
         }
         # puts "FileOper::Save: $nbEditorWindow"
         set nbEditorItem [$nbEditorWindow select]
-        puts "Saved editor text: $nbEditorItem"
+        DebugPuts "Saved editor text: $nbEditorItem"
         if [string match "*untitled*" $nbEditorItem] {
             set filePath [tk_getSaveFile -initialdir $dirProject -filetypes $::types -parent .]
             if {$filePath eq ""} {
@@ -507,7 +507,7 @@ namespace eval FileOper {
     
     proc Edit {fileFullPath {nbEditor .frmWork.nbEditor}} {
         global tree
-        puts "$fileFullPath"
+        DebugPuts "$fileFullPath"
         if {[file exists $fileFullPath] == 0} {
             return false
         } else {

lib/notebook.tcl

@@ -89,7 +89,7 @@ namespace eval NB {
         Tree::SelectItem $treeItemName
         
         set txt [$w select].frmText.t
-        puts "NextTab: [$w select]"
+        DebugPuts "NextTab: [$w select]"
         if {[winfo exists [$w select].frmText2] == 1} {
             focus -force [$w select].frmText2.frame.text.t
         } else {

lib/procedure.tcl

@@ -1114,11 +1114,11 @@ proc ExecutorCommandPathSetting {fileType} {
         } else {
             set cmd "which $cfgVariables($fileType)"
         }
-        puts "ExecutorCommandPathSetting $fileType"
+        DebugPuts "ExecutorCommandPathSetting $fileType"
-        puts [catch {exec {*}$cmd} executor_path]
+        DebugPuts [catch {exec {*}$cmd} executor_path]
-        puts "executor_path $executor_path"
+        DebugPuts "executor_path $executor_path"
         if {[catch {exec {*}$cmd} executor_path]} {
-            puts "Программа $cfgVariables($fileType) для выполнения файлов $fileType не найдена в системе"
+            DebugPuts "Программа $cfgVariables($fileType) для выполнения файлов $fileType не найдена в системе"
             set cfgVariables($fileType) ""
             return
         }
@@ -1127,11 +1127,11 @@ proc ExecutorCommandPathSetting {fileType} {
         
         # puts "Git найден: $first_path"
         set cfgVariables($fileType) $first_path
-        puts "first_path $first_path"
+        DebugPuts "first_path $first_path"
     }
     if {[info exists cfgVariables($fileType)] == 0} {
         set cfgVariables($fileType) ""
-        puts $cfgVariables($fileType)
+        DebugPuts $cfgVariables($fileType)
     }
 }
 
@@ -1157,12 +1157,20 @@ proc Redo {} { SendEventToLatestTxtWidget <<Redo>> }
 # ------------
 
 proc DebugPuts {msg} {
-    global cfgVariables debugFlag
+    global cfgVariables
-    if ![info exists cfgVariables(debugFlag)] {
+    if ![info exists cfgVariables(debug)] {
-        set cfgVariables(debugFlag) "true"
+        set cfgVariables(debug) "true"
     }
-    if {$cfgVariables(debugFlag) eq "true"} {
+    if ![info exists cfgVariables(debugOut)] {
-        puts "$msg"
+        set cfgVariables(debugOut) "stdout"
+    }
+    if {$cfgVariables(debug) eq "true"} {
+        if {$cfgVariables(debugOut) eq "stdout"} {
+            puts "$msg"
+        } elseif {$cfgVariables(debugOut) ne "" } {
+            set logFile [open $cfgVariables(debugOut) "a+"]
+            puts $logFile $::configDefault
+            close $logFile
+        }
     }
 }
-

lib/tree.tcl

@@ -106,7 +106,7 @@ namespace eval Tree {
         set key [lindex [split $id "::"] 0]
         if {$values eq "" || $key eq ""} {return}
         
-        puts "$key $tree $values"
+        DebugPuts "$key $tree $values"
         switch -regexp $key {
             directory {
                 FileOper::ReadFolder  $values
@@ -114,7 +114,7 @@ namespace eval Tree {
             }
             file {
                 set v [FileOper::Edit $values $nbEditor]
-                puts $v
+                DebugPuts $v
                 if {$v eq false} {
                     $tree delete $id
                 }

projman.tcl

@@ -48,7 +48,7 @@ proc PackagePresent {pkg} {
     foreach item [package names] {
         # puts [string match -nocase Img $item]
         if {[string match -nocase Img $item] == 1} {
-            puts "The $pkg package was found"
+            # puts "The $pkg package was found"
             return true
         }
     }
@@ -69,7 +69,7 @@ if { $::argc > 0 } {
     foreach arg $::argv {
         lappend opened $arg
     }
-    puts $opened
+    # puts $opened
 }
 
 
@@ -97,7 +97,7 @@ source [file join $dir(lib) config.tcl]
 foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
     if {[file tail $modFile] ne "gui.tcl" && [file tail $modFile] ne "config.tcl"} {
         source $modFile
-        puts "Loading module $modFile"
+        # puts "Loading module $modFile"
     }
 }
 
@@ -106,10 +106,10 @@ set dir(theme) "[file join $dir(root) theme]"
 foreach modFile [lsort [glob -nocomplain [file join $dir(theme) *]]] {
     if [file isdirectory $modFile] {
         source $modFile/[file tail $modFile].tcl
-        puts "Loading theme $modFile.tcl"
+        # puts "Loading theme $modFile.tcl"
     } elseif {[file extension $modFile] eq ".tcl"} {
         source $modFile
-        puts "Loading theme $modFile"
+        # puts "Loading theme $modFile"
     }
 }
 
@@ -126,7 +126,7 @@ Config::CheckVariables
 if [::msgcat::mcload [file join $dir(lib) msgs]] {
     puts "Load locale messages... OK"
 }
-puts "Setting the locale... [::msgcat::mclocale]"
+DebugPuts "Setting the locale... [::msgcat::mclocale]"
 
 source [file join $dir(lib) gui.tcl]
 

theme/black.tcl

@@ -124,7 +124,7 @@ namespace eval ttk::theme::black {
             -foreground [list selected $colors(-selectfg)] \
             -highlightbackground [list selected $colors(-lighter)]
     }
-  puts [ttk::style element names]
+  # puts [ttk::style element names]
 }
 
 # A few tricks for Tablelist.