diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-10-22 19:28:56 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-10-22 19:28:56 (GMT) |
| commit | cd00056530d87fd0fe878ba25093da28c7fac642 (patch) | |
| tree | 7412ba5838bb46ee67cb8411a07c2161b662e69a /library | |
| parent | 8caf15b67ee11acb97066b8e517a7e2ec25bef92 (diff) | |
| parent | 2fef4593c8cce3a56ff02136657d930af6eb2abd (diff) | |
| download | tk-cd00056530d87fd0fe878ba25093da28c7fac642.zip tk-cd00056530d87fd0fe878ba25093da28c7fac642.tar.gz tk-cd00056530d87fd0fe878ba25093da28c7fac642.tar.bz2 | |
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'
Diffstat (limited to 'library')
| -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 657d676..757eb7a 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 -- |