Class Tk::Menu < TkWindow

# File ext/tk/lib/tk/menu.rb, line 75
def self.new_menuspec(menu_spec, parent = nil, tearoff = false, keys = nil)
  if parent.kind_of?(Hash)
    keys = _symbolkey2str(parent)
    parent = keys.delete('parent')
    tearoff = keys.delete('tearoff')
  elsif tearoff.kind_of?(Hash)
    keys = _symbolkey2str(tearoff)
    tearoff = keys.delete('tearoff')
  elsif keys
    keys = _symbolkey2str(keys)
  else
    keys = {}
  end

  widgetname = keys.delete('widgetname')
  _create_menu(parent, menu_spec, widgetname, tearoff, keys)
end

# File ext/tk/lib/tk/menu.rb, line 98
def activate(index)
  tk_send_without_enc('activate', _get_eval_enc_str(index))
  self
end

# File ext/tk/lib/tk/menu.rb, line 102
def add(type, keys=nil)
  tk_send_without_enc('add', type, *hash_kv(keys, true))
  self
end

# File ext/tk/lib/tk/menu.rb, line 106
def add_cascade(keys=nil)
  add('cascade', keys)
end

# File ext/tk/lib/tk/menu.rb, line 109
def add_checkbutton(keys=nil)
  add('checkbutton', keys)
end

# File ext/tk/lib/tk/menu.rb, line 112
def add_command(keys=nil)
  add('command', keys)
end

# File ext/tk/lib/tk/menu.rb, line 115
def add_radiobutton(keys=nil)
  add('radiobutton', keys)
end

# File ext/tk/lib/tk/menu.rb, line 118
def add_separator(keys=nil)
  add('separator', keys)
end

# File ext/tk/lib/tk/menu.rb, line 122
def clone_menu(*args)
  if args[0].kind_of?(TkWindow)
    parent = args.shift
  else
    parent = self
  end

  if args[0].kind_of?(String) || args[0].kind_of?(Symbol) # menu type
    type = args.shift
  else
    type = None # 'normal'
  end

  if args[0].kind_of?(Hash)
    keys = _symbolkey2str(args.shift)
  else
    keys = {}
  end

  parent = keys.delete('parent') if keys.has_key?('parent')
  type = keys.delete('type') if keys.has_key?('type')

  if keys.empty?
    Tk::MenuClone.new(self, parent, type)
  else
    Tk::MenuClone.new(self, parent, type, keys)
  end
end

# File ext/tk/lib/tk/menu.rb, line 163
def delete(first, last=nil)
  if last
    tk_send_without_enc('delete', _get_eval_enc_str(first),
                        _get_eval_enc_str(last))
  else
    tk_send_without_enc('delete', _get_eval_enc_str(first))
  end
  self
end

# File ext/tk/lib/tk/menu.rb, line 151
def index(idx)
  ret = tk_send_without_enc('index', _get_eval_enc_str(idx))
  (ret == 'none')? nil: number(ret)
end

# File ext/tk/lib/tk/menu.rb, line 158
def insert(index, type, keys=nil)
  tk_send_without_enc('insert', _get_eval_enc_str(index),
                      type, *hash_kv(keys, true))
  self
end

# File ext/tk/lib/tk/menu.rb, line 155
def invoke(index)
  _fromUTF8(tk_send_without_enc('invoke', _get_eval_enc_str(index)))
end

# File ext/tk/lib/tk/menu.rb, line 200
def menutype(index)
  tk_send_without_enc('type', _get_eval_enc_str(index))
end

# File ext/tk/lib/tk/menu.rb, line 172
def popup(x, y, index=nil)
  if index
    tk_call_without_enc('tk_popup', path, x, y,
                        _get_eval_enc_str(index))
  else
    tk_call_without_enc('tk_popup', path, x, y)
  end
  self
end

# File ext/tk/lib/tk/menu.rb, line 181
def post(x, y)
  _fromUTF8(tk_send_without_enc('post', x, y))
end

# File ext/tk/lib/tk/menu.rb, line 184
def postcascade(index)
  tk_send_without_enc('postcascade', _get_eval_enc_str(index))
  self
end

# File ext/tk/lib/tk/menu.rb, line 188
def postcommand(cmd=Proc.new)
  configure_cmd 'postcommand', cmd
  self
end

# File ext/tk/lib/tk/menu.rb, line 192
def set_focus
  tk_call_without_enc('tk_menuSetFocus', path)
  self
end

# File ext/tk/lib/tk/menu.rb, line 93
def tagid(id)
  #id.to_s
  _get_eval_string(id)
end

# File ext/tk/lib/tk/menu.rb, line 196
def tearoffcommand(cmd=Proc.new)
  configure_cmd 'tearoffcommand', cmd
  self
end

# File ext/tk/lib/tk/menu.rb, line 203
def unpost
  tk_send_without_enc('unpost')
  self
end

# File ext/tk/lib/tk/menu.rb, line 207
def xposition(index)
  number(tk_send_without_enc('xposition', _get_eval_enc_str(index)))
end

# File ext/tk/lib/tk/menu.rb, line 210
def yposition(index)
  number(tk_send_without_enc('yposition', _get_eval_enc_str(index)))
end