Method: Tk::OptionMenubutton#initialize

Defined in:
lib/tk/menu.rb

#initialize(*args) ⇒ OptionMenubutton

Returns a new instance of OptionMenubutton.



594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
 
# File 'lib/tk/menu.rb', line 594

def initialize(*args)
  # args :: [parent,] [var,] [value[, ...],] [keys]
  #    parent --> TkWindow or nil
  #    var    --> TkVariable or nil
  #    keys   --> Hash
  #       keys[:parent] or keys['parent']     --> parent
  #       keys[:variable] or keys['variable'] --> var
  #       keys[:values] or keys['values']     --> value, ...
  #       other Hash keys are menubutton options
  keys = {}
  keys = args.pop if args[-1].kind_of?(Hash)
  keys = _symbolkey2str(keys)

  parent = nil
  if !args.empty? && (args[0].kind_of?(TkWindow) || args[0] == nil)
    keys.delete('parent') # ignore
    parent = args.shift
  else
    parent = keys.delete('parent')
  end

  @variable = nil
  if !args.empty? && (args[0].kind_of?(TkVariable) || args[0] == nil)
    keys.delete('variable') # ignore
    @variable = args.shift
  else
    @variable = keys.delete('variable')
  end
  @variable = TkVariable.new unless @variable

  (args = keys.delete('values') || []) if args.empty?
  if args.empty?
    args << @variable.value
  else
    @variable.value = args[0]
  end

  install_win(if parent then parent.path end)
  @menu = OptionMenu.new(tk_call('tk_optionMenu',
                                 @path, @variable.id, *args))

  configure(keys) if keys
end