diff --git a/lib/files.tcl b/lib/files.tcl index fe4383b..df4cdb3 100644 --- a/lib/files.tcl +++ b/lib/files.tcl @@ -391,6 +391,12 @@ namespace eval FileOper { if {[file tail $filePath] eq "projman.ini"} { Config::read $dir(cfg) } + if {[file tail $filePath] eq "tools.ini"} { + Tools::Read $dir(cfg) + Tools::CheckVariables + Tools::GetMenu .popup.tools + Tools::GetMenu .frmMenu.mnuTools.m + } if [string match "*untitled*" $nbEditorItem] { FileOper::Close if {$type ne "close"} { diff --git a/lib/tools.tcl b/lib/tools.tcl index 23139a6..a15c9d1 100644 --- a/lib/tools.tcl +++ b/lib/tools.tcl @@ -29,6 +29,7 @@ proc Tools::Create {dir} { } proc Tools::Read {dir} { + set ::toolsVariables "" set toolsFile [ini::open [file join $dir tools.ini] "r"] foreach section [ini::sections $toolsFile] { foreach key [ini::keys $toolsFile $section] { @@ -104,6 +105,12 @@ proc Tools::CheckVariables {} { proc Tools::GetMenu {m} { global cfgVariables toolsVariables + set count [$m index end] + if {$count != "none"} { + for {set i $count} {$i >= 0} {incr i -1} { + $m delete $i + } + } foreach toolName [dict keys $toolsVariables] { dict for {key value} [dict get $toolsVariables $toolName] { DebugPuts "GetToolsMenu $key $value"