Module: Tk::SystemMenu
- Included in:
- SysMenu_Apple, SysMenu_Help, SysMenu_System
- Defined in:
- lib/tk/menu.rb
Instance Method Summary collapse
-
#initialize(parent, keys = nil) ⇒ SystemMenu
A new instance of SystemMenu.
Instance Method Details
#initialize(parent, keys = nil) ⇒ SystemMenu
Returns a new instance of SystemMenu.
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 |