Module: Tk::SystemMenu

Included in:
SysMenu_Apple, SysMenu_Help, SysMenu_System
Defined in:
lib/tk/menu.rb

Instance Method Summary collapse

Instance Method Details

#initialize(parent, keys = nil) ⇒ Object


479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
# File '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