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

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

      keys.each{|k,v|
        if v.kind_of? Array
          root.__send__(k,*v)
        else
          root.__send__(k,v)
        end
      }
    end
    root.instance_eval(&b) if block_given?
    root
  end

# File tk/lib/tk/root.rb, line 64
  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 tk/lib/tk/root.rb, line 75
  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 tk/lib/tk/root.rb, line 60
  def path
    "."
  end

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

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