Небольшая правка

2026-01-28 12:42:05 +03:00
parent c69db69c69
commit 36d1940c7b
1 changed files with 1 additions and 1 deletions
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -124,7 +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"]
+                bind . <$shortCut>  "[list Tools::Execute "$toolName"]; break"
            } else {
                $m add command -label $toolName -command [list Tools::Execute "$toolName"]
            }