[ruby-list:5966] Re: How to use TkMenu ?

前田です。

In message "[ruby-list:5956] Re: How to use TkMenu ?"
Kikutani Makoto <[e-mail]> wrote:

|> menu_spec = [
|>   ["File",
|>     ["Open", lambda { openFile }],
|>     "---",
|>     ["Exit", lambda { exit }]],
|>   ["Edit",
|>     ["Cut", lambda { cut }],
|>     ["Copy", lambda { copy }]]
|> ]
|> 
|> menubar = TkMenubar.new(menu_spec)
|> 
|> みたいなクラスがあると便利かもしれません。
|
|良いですねえ。

|# TkCompositeですぐにできるかな。

すぐできました(^^;
使い方は以下のような感じです。

menu_spec = [
  [['File', 0],
    ['Open', proc{puts('Open clicked')}, 0],
    '---',
    ['Quit', proc{exit}, 0]],
  [['Edit', 0],
    ['Cut', proc{puts('Cut clicked')}, 2],
    ['Copy', proc{puts('Copy clicked')}, 0],
    ['Paste', proc{puts('Paste clicked')}, 0]]
]

menubar = TkMenubar.new(nil, menu_spec,
			'tearoff'=>false,
			'foreground'=>'grey40',
			'activeforeground'=>'red',
			'font'=>'-adobe-helvetica-bold-r-*--12-*-iso8859-1')
menubar.pack('side'=>'top', 'fill'=>'x')

あるいは、

menubar = TkMenubar.new

menubar.add_menu([['File', 0],
		   ['Open', proc{puts('Open clicked')}, 0],
		   '---',
		   ['Quit', proc{exit}, 0]])

menubar.add_menu([['Edit', 0],
		   ['Cut', proc{puts('Cut clicked')}, 2],
		   ['Copy', proc{puts('Copy clicked')}, 0],
		   ['Paste', proc{puts('Paste clicked')}, 0]])

menubar.configure('tearoff', false)
menubar.configure('foreground', 'grey40')
menubar.configure('activeforeground', 'red')
menubar.configure('font', '-adobe-helvetica-bold-r-*--12-*-iso8859-1')
menubar.pack('side'=>'top', 'fill'=>'x')

specのフォーマットは

[
  [
    [ボタンのtext, underline, accelerator],
    [メニューのlabel, command, underline, accelerator],
    '---', # セパレータ
    ...
  ],
  ...
]

のようになっています。
オプションは省略できます。
配列の代りにHashを使ってもOKです。

add_menuを使う場合はコンストラクタでオプションを指定する代りに
すべてのメニューをadd_menuしてからconfigureする必要があります。

-- 
前田 修吾