diff options
author | fvogel <fvogelnew1@free.fr> | 2017-10-04 05:35:35 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2017-10-04 05:35:35 (GMT) |
commit | 3e14ef56e286f6827244f98b5d2950f5fe8483ef (patch) | |
tree | 2fd9892d283c266ba159c16a7a6a1f5c1e23e98f /library/tk.tcl | |
parent | 9545c1e90268f078175c0556b4af5099b4a8c1f1 (diff) | |
download | tk-3e14ef56e286f6827244f98b5d2950f5fe8483ef.zip tk-3e14ef56e286f6827244f98b5d2950f5fe8483ef.tar.gz tk-3e14ef56e286f6827244f98b5d2950f5fe8483ef.tar.bz2 |
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'
Diffstat (limited to 'library/tk.tcl')
-rw-r--r-- | library/tk.tcl | 5 |
1 files 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 -- |