From 66f11f6531b43e6b8a46429e942a71756ea424a4 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Wed, 4 Oct 2017 05:35:35 +0000
Subject: Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'

---
 library/tk.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index fc61c4d..a60556c 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -600,8 +600,9 @@ proc ::tk::AmpWidget {class path args} {
 # ::tk::AmpMenuArgs --
 #	Processes arguments for a menu entry, turning -label option into
 #	-label and -underline options, returned by ::tk::UnderlineAmpersand.
+#      The cmd argument is supposed to be either "add" or "entryconfigure"
 #
-proc ::tk::AmpMenuArgs {widget add type args} {
+proc ::tk::AmpMenuArgs {widget cmd type args} {
     set options {}
     foreach {opt val} $args {
 	if {$opt eq "-label"} {
@@ -611,7 +612,7 @@ proc ::tk::AmpMenuArgs {widget add type args} {
 	    lappend options $opt $val
 	}
     }
-    $widget add $type {*}$options
+    $widget $cmd $type {*}$options
 }
 
 # ::tk::FindAltKeyTarget --
-- 
cgit v0.12