diff options
author | fvogel <fvogel@noemail.net> | 2017-10-22 19:27:10 (GMT) |
---|---|---|
committer | fvogel <fvogel@noemail.net> | 2017-10-22 19:27:10 (GMT) |
commit | 9f0cb334288f9334a43dce33a118109a5ebe2c6b (patch) | |
tree | 19ddfa685f048892f76b4d2764b9b9aceef006a4 /library | |
parent | 9c0cc1ad1657a386ff66243742ecf419077846e1 (diff) | |
parent | 7c8327c42edbba86c854be8fbc5029c9f30d8fab (diff) | |
download | tk-9f0cb334288f9334a43dce33a118109a5ebe2c6b.zip tk-9f0cb334288f9334a43dce33a118109a5ebe2c6b.tar.gz tk-9f0cb334288f9334a43dce33a118109a5ebe2c6b.tar.bz2 |
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'
FossilOrigin-Name: 52700a13bae45bd4ae5bac9e05f4e09dfce4904cb78191bb929384dc197b880d
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 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 -- |