diff options
Diffstat (limited to 'library/demos/menu.tcl')
| -rw-r--r-- | library/demos/menu.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index abe70a3..a76bd54 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -63,7 +63,7 @@ if {[tk windowingsystem] eq "aqua"} { } foreach i {A B C D E F} { $m add command -label "Print letter \"$i\"" -underline 14 \ - -accelerator Meta+$i -command "puts $i" -accelerator $modifier+$i + -accelerator $modifier+$i -command "puts $i" bind $w <$modifier-[string tolower $i]> "puts $i" } |