Добавлено подключение (bind) сочетания клавишь указанных в настройках инструментов.

2026-01-28 12:26:53 +03:00
parent e21995d13e
commit c74fa5b113
1 changed files with 1 additions and 0 deletions
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -124,6 +124,7 @@ proc Tools::GetMenu {m} {
        if {[info exists cmd] == 1 && $cmd ne ""} {
            if {[info exists shortCut] == 1 && $shortCut ne ""} {
                $m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"]
+                bind . <$shortCut>  [list Tools::Execute "$toolName"]
            } else {
                $m add command -label $toolName -command [list Tools::Execute "$toolName"]
            }