Ruby TK にメニューの追加

リストビューだけでは不便なのでメニューも追加です。

メニュー画面

require 'tk'

menubar = TkMenu.new
Tk.root.configure(menu:menubar)
file = TkMenu.new(menubar, tearoff: false)
help = TkMenu.new(menubar, tearoff: false)
menubar.add_cascade(label: "ファイル", underline: 0, menu: file)
menubar.add_cascade(label: "ヘルプ", underline: 0, menu: help)

#ファイルメニューの設定
sel = TkVariable.new(0)
file.add_command(label: "実行", under: 0, command: proc { prostart })
file.add_separator
file.add_radiobutton(label: "選択1", variable: sel, value: 0)
file.add_radiobutton(label: "選択2", variable: sel, value: 1)
file.add_separator
file.add_command(label: "終了", under: 0, command: proc { exit })