Tk::TkSystemMenu

Public Class Methods

new(parent, keys=nil) click to toggle source

 
               # File tk/lib/tk/menu.rb, line 479
def initialize(parent, keys=nil)
  if parent.kind_of? Hash
    keys = _symbolkey2str(parent)
    parent = keys.delete('parent')
  end
  #unless parent.kind_of? TkMenu
  #  fail ArgumentError, "parent must be a TkMenu object"
  #end
  # @path = Kernel.format("%s.%s", parent.path, self.class::SYSMENU_NAME)
  @path = parent.path + '.' + self.class::SYSMENU_NAME
  #TkComm::Tk_WINDOWS[@path] = self
  TkCore::INTERP.tk_windows[@path] = self
  if self.method(:create_self).arity == 0
    p 'create_self has no arg' if $DEBUG
    create_self
    configure(keys) if keys
  else
    p 'create_self has an arg' if $DEBUG
    create_self(keys)
  end
end