package body MSHTML.IHTMLEventObj_Object is

   function Get_srcElement
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_srcElement);
   end Get_srcElement;

   function Get_altKey
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_altKey);
   end Get_altKey;

   function Get_ctrlKey
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_ctrlKey);
   end Get_ctrlKey;

   function Get_shiftKey
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_shiftKey);
   end Get_shiftKey;

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

   function Get_returnValue
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_returnValue);
   end Get_returnValue;

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

   function Get_cancelBubble
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_cancelBubble);
   end Get_cancelBubble;

   function Get_fromElement
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_fromElement);
   end Get_fromElement;

   function Get_toElement
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_toElement);
   end Get_toElement;

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

   function Get_keyCode
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_keyCode);
   end Get_keyCode;

   function Get_button
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_button);
   end Get_button;

   function Get_type
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_type);
   end Get_type;

   function Get_qualifier
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_qualifier);
   end Get_qualifier;

   function Get_reason
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_reason);
   end Get_reason;

   function Get_x
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_x);
   end Get_x;

   function Get_y
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_y);
   end Get_y;

   function Get_clientX
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_clientX);
   end Get_clientX;

   function Get_clientY
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_clientY);
   end Get_clientY;

   function Get_offsetX
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_offsetX);
   end Get_offsetX;

   function Get_offsetY
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_offsetY);
   end Get_offsetY;

   function Get_screenX
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_screenX);
   end Get_screenX;

   function Get_screenY
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_screenY);
   end Get_screenY;

   function Get_srcFilter
     (This : IHTMLEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj_Get_srcFilter);
   end Get_srcFilter;

end MSHTML.IHTMLEventObj_Object;

