From: matz@... (Yukihiro Matsumoto)
Date: 1998-01-21T18:42:43+09:00
Subject: [ruby-list:5952] Re: How to use TkMenu ?

まつもと ゆきひろです

In message "[ruby-list:5951] How to use TkMenu ?"
    on 98/01/21, Kikutani Makoto <kikutani@jdc.ericsson.se> writes:

|きくたにです。
|
|TkMenuを使ったサンプルがないので、どう書けばいいのかわかりません。

すいませんねえ．TkMenuをつくる時のコツは

  * menubarよりmenuを先に作る

ことです．実際のプログラムは以下のような感じです．

--
require "tk"

def about
  TkWarning.new('About what?')
end

$menu_file = TkMenu.new($menu, 'tearoff'=>0)
$menu = TkMenu.new(nil, 'tearoff'=>0)
$menu.add('cascade', 
  'menu'=>$menu_file,  # ここは自信なし
  'label'=>'File', 'underline'=>0)

$menu_file.add('command', 'label'=>'About...', 
  'command'=>proc{about}, # 自信なし
  'underline'=>0, 'accelerator'=>'<F1>')

$menu_file.add('sep')

$menu_file.add('command', 'label'=>'Quit', 'command'=>proc{exit},
          'underline'=>0, 'accelerator'=>'Meta-Q')

Tk.root.configure('menu', $menu)
Tk.root.bind('F1', proc{about})
Tk.mainloop
--

うちはtkのバージョンが低いので . configure -menu というのが
ないんですが，たぶんこれでいくと思います．