From: Kikutani Makoto <kikutani@...>
Date: 1998-01-21T18:31:45+09:00
Subject: [ruby-list:5951] How to use TkMenu ?

きくたにです。

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

-------------------------------------------
proc aboutBox {} {
   tk_messageBox -icon info -type ok -title "about" -message "about dayo"
}

menu .menuBar -tearoff 0
.menuBar add cascade -menu .menuBar.file -label "File" -underline 0
menu .menuBar.file -tearoff 0

.menuBar.file add command -label "About..." -command "aboutBox" \
  -underline 0 -accelerator "<F1>"
.menuBar.file add sep

.menuBar.file add command -label "Quit" -command "exit" -underline 0 \
  -accelerator "Meta-Q"

. configure -menu .menuBar
bind . <F1> aboutBox
-------------------------------------------

という、tclで書いたのをrubyに変換したいのですが、

-------------------------------------------
require "tk"

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

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

$menu_file = TkMenu.new($menu, 'tearoff'=>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.mainloop
-------------------------------------------

までは機械的に書いたのですが、tclのほうの最後の2行(configureとbind)を
どう変換したらいいのかわかりませんでした。

-- 
人生を背負い投げ

菊谷 誠(Kikutani Makoto)  kikutani@eis.or.jp kikutani@jdc.ericsson.se