[ruby-list:8315] tk_optionMenu

平松です。また Ruby/Tk の話題か、とか言わないでね。

  tcl/tk には、ドロップダウンリストボックスをメニューを使って
実現するための tk_optionMenu という手続きがあるのですが、これ
は Ruby/Tk にはないみたいです。

tk8.0のライブラリの所を見ると tk_optionMenu は 二〜三十行程
しかなかったので、Ruby で書いてみました。

require "tk"

def optionMenu(parent, varName, firstValue, *rest)
  varName.value = firstValue
  menubutton = TkMenubutton.new(parent) {
    textvariable varName
    indicatoron 'on'
    relief 'raised'
    borderwidth 2
    highlightthickness 2
    anchor 'c'
    direction 'flush'
  }
  menu = TkMenu.new(menubutton) {
    tearoff 'off'
    add 'radio', 'label'=>firstValue, 'variable'=>varName
  }
  menubutton.menu(menu)
  for i in rest
    menu.add 'radio', 'label'=>i, 'variable'=>varName
  end
  
  return menubutton
end

#ここから下は使い方の例

root = TkFrame.new {
  pack
}

color = TkVariable.new

testbutton = optionMenu(root, color, 'red', 'green', 'blue',
'yellow','purple')
testbutton.pack

Tk.mainloop

-- 
// 平松祥史(Hiramatu,Yoshifumi) 
// [e-mail]