中村 のりつぐ です。

TkMenu#insert が bug っていました。

add を insert に変更し忘れていたようです


#!/usr/bin/env ruby

require "tk"

class TkMenu
  def insert(index, type, keys=nil)
    tk_send 'insert', index, type, *hash_kv(keys)
  end
end

TkMenubutton.new {
  text 'File'
  menu TkMenu.new(self) {
	insert 0, "command", {'label' => "Exit", 'command' => proc { exit }}
	insert 0, "command", {'label' => "Open", 'command' => proc { print "Open\n" }}
  }
  pack
}

Tk.mainloop

       中村 典嗣  E-mail:     nnakamur / mxq.mesh.ne.jp