lib/tools.tcl

@@ -122,6 +122,8 @@ proc Tools::GetMenu {m} {
             }
         }
     }
+    $m add separator
+    $m add command -label "[::msgcat::mc "Settings"]" -command Tools::Settings
 }
 
 proc Tools::CommandPathSettings {command} {
@@ -200,3 +202,11 @@ proc Tools::Execute {toolName} {
     fileevent $pipe readable
     fconfigure $pipe -buffering none -blocking no
 }
+
+# Правка файла настроек
+proc Tools::Settings {} {
+    global dir
+    
+    FileOper::Edit [file join $dir(cfg) tools.ini]
+    # Config::read $dir(cfg)
+}