-- 
cgit v0.12

From 65a9d62bbe3899939f951ae65b333de7765e8f1e Mon Sep 17 00:00:00 2001
From: kjnash <k.j.nash@usa.net>
Date: Tue, 13 Jun 2017 03:39:54 +0000
Subject: Add "break" to "bind Menu <KeyPress>" in library/menu.tcl.  Fixes bug
 adc028c8d0.

---
 library/menu.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/menu.tcl b/library/menu.tcl
index b5dd88e..e1c94c9 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -170,6 +170,7 @@ bind Menu <<NextLine>> {
 }
 bind Menu <KeyPress> {
     tk::TraverseWithinMenu %W %A
+    break
 }
 
 # The following bindings apply to all windows, and are used to
-- 
cgit v0.12