diff --git a/lib/tools.tcl b/lib/tools.tcl index 3c165df..23139a6 100644 --- a/lib/tools.tcl +++ b/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) +}