Class Tk::Root < TkWindow

# File ext/tk/lib/tk/root.rb, line 90
def Root.destroy
  TkCore::INTERP._invoke('destroy', '.')
end

# File ext/tk/lib/tk/root.rb, line 17
def Root.new(keys=nil, &b)
  unless TkCore::INTERP.tk_windows['.']
    TkCore::INTERP.tk_windows['.'] =
      super(:without_creating=>true, :widgetname=>'.'){}
  end
  root = TkCore::INTERP.tk_windows['.']

  keys = _symbolkey2str(keys)

  # wm commands
  root.instance_eval{
    __methodcall_optkeys.each{|key, method|
      value = keys.delete(key.to_s)
      self.__send__(method, value) if value
    }
  }

  if keys  # wm commands ( for backward comaptibility )
    keys.each{|k,v|
      if v.kind_of? Array
        root.__send__(k,*v)
      else
        root.__send__(k,v)
      end
    }
  end

  if block_given?
    if TkCore::WITH_RUBY_VM  ### Ruby 1.9 !!!!
      root.instance_exec(root, &b)
    else
      root.instance_eval(&b)
    end
  end
  root
end

# File ext/tk/lib/tk/root.rb, line 57
def self.to_eval
  # self::WidgetClassName
  '.'
end

# File ext/tk/lib/tk/root.rb, line 71
def add_menu(menu_info, tearoff=false, opts=nil)
  # See tk/menuspec.rb for menu_info.
  # opts is a hash of default configs for all of cascade menus.
  # Configs of menu_info can override it.
  if tearoff.kind_of?(Hash)
    opts = tearoff
    tearoff = false
  end
  _create_menubutton(self, menu_info, tearoff, opts)
end

# File ext/tk/lib/tk/root.rb, line 82
def add_menubar(menu_spec, tearoff=false, opts=nil)
  # See tk/menuspec.rb for menu_spec.
  # opts is a hash of default configs for all of cascade menus.
  # Configs of menu_spec can override it.
  menu_spec.each{|info| add_menu(info, tearoff, opts)}
  self.menu
end

# File ext/tk/lib/tk/root.rb, line 67
def path
  "."
end

# File ext/tk/lib/tkextlib/tktrans/tktrans.rb, line 49
def tktrans_get_image()
  tk_send('tktrans::settoplevel', @path)
end

# File ext/tk/lib/tkextlib/tktrans/tktrans.rb, line 45
def tktrans_set_image(img)
  tk_send('tktrans::settoplevel', @path, img)
  self
end