with GNATCOM.Dispinterface;

package MSHTML.IHTMLBodyElement_Object is

   type IHTMLBodyElement_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Put_background
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_background
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bgProperties
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bgProperties
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_leftMargin
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_leftMargin
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_topMargin
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_topMargin
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_rightMargin
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_rightMargin
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bottomMargin
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bottomMargin
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_noWrap
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_noWrap
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_bgColor
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_bgColor
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_text
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_text
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_link
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_link
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_vLink
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_vLink
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_aLink
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_aLink
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onload
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onload
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onunload
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onunload
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_scroll
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_scroll
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onselect
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onselect
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   procedure Put_onbeforeunload
     (This : IHTMLBodyElement_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_onbeforeunload
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

   function createTextRange
     (This : IHTMLBodyElement_Type)
     return GNATCOM.Types.VARIANT;

end MSHTML.IHTMLBodyElement_Object;

