From 36d1940c7b9d0088c2559cd0d9a9c3bd0c0761d5 Mon Sep 17 00:00:00 2001
From: svk <svk@nuk-svk.ru>
Date: Wed, 28 Jan 2026 12:42:05 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9D=D0=B5=D0=B1=D0=BE=D0=BB=D1=8C=D1=88?=
 =?UTF-8?q?=D0=B0=D1=8F=20=D0=BF=D1=80=D0=B0=D0=B2=D0=BA=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/tools.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/tools.tcl b/lib/tools.tcl
index bcece50..0051bff 100644
--- 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"]
             }