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 | 66f11f6531b43e6b8a46429e942a71756ea424a4 (patch) | |
| tree | 2fd9892d283c266ba159c16a7a6a1f5c1e23e98f | |
| parent | 830684d49c443bd166d974d2cc3f76ffc951d799 (diff) | |
| download | tk-66f11f6531b43e6b8a46429e942a71756ea424a4.zip tk-66f11f6531b43e6b8a46429e942a71756ea424a4.tar.gz tk-66f11f6531b43e6b8a46429e942a71756ea424a4.tar.bz2 | |
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'bug_bb6b4032d2
| -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 -- |