diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/menu8x.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/menu8x.rb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/tk/sample/demos-jp/menu8x.rb b/ext/tk/sample/demos-jp/menu8x.rb index a1acda4c1b..c61753dd19 100644 --- a/ext/tk/sample/demos-jp/menu8x.rb +++ b/ext/tk/sample/demos-jp/menu8x.rb @@ -119,7 +119,7 @@ TkMenu.new($menu8x_demo, 'tearoff'=>false) {|m| ['A','B','C','D','E','F','G'].each{|c| # add('command', 'label'=>"文字 \"#{c}\" を印字", 'underline'=>4, add('command', 'label'=>"Print letter \"#{c}\" (文字 \"#{c}\" を印字)", - 'underline'=>14, 'accelerator'=>"Meta+#{c}", + 'underline'=>14, 'command'=>proc{print c,"\n"}, 'accelerator'=>"#{modifier}+#{c}") $menu8x_demo.bind("#{modifier}-#{c.downcase}", proc{print c,"\n"}) } |