package body MSHTML.IHTMLBodyElement4_Object is

   procedure Put_onmessage
     (This : IHTMLBodyElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLBodyElement4_Put_onmessage,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onmessage;

   function Get_onmessage
     (This : IHTMLBodyElement4_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLBodyElement4_Get_onmessage);
   end Get_onmessage;

   procedure Put_onstorage
     (This : IHTMLBodyElement4_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         IHTMLBodyElement4_Put_onstorage,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_onstorage;

   function Get_onstorage
     (This : IHTMLBodyElement4_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLBodyElement4_Get_onstorage);
   end Get_onstorage;

end MSHTML.IHTMLBodyElement4_Object;

