package body MSHTML.IHTMLEventObj5_Object is

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

   function Get_url
     (This : IHTMLEventObj5_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj5_Get_url);
   end Get_url;

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

   function Get_data
     (This : IHTMLEventObj5_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj5_Get_data);
   end Get_data;

   function Get_source
     (This : IHTMLEventObj5_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj5_Get_source);
   end Get_source;

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

   function Get_origin
     (This : IHTMLEventObj5_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj5_Get_origin);
   end Get_origin;

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

   function Get_issession
     (This : IHTMLEventObj5_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj5_Get_issession);
   end Get_issession;

end MSHTML.IHTMLEventObj5_Object;

