package body MSHTML.IHTMLEventObj3_Object is

   function Get_contentOverflow
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_contentOverflow);
   end Get_contentOverflow;

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

   function Get_shiftLeft
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_shiftLeft);
   end Get_shiftLeft;

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

   function Get_altLeft
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_altLeft);
   end Get_altLeft;

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

   function Get_ctrlLeft
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_ctrlLeft);
   end Get_ctrlLeft;

   function Get_imeCompositionChange
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_imeCompositionChange);
   end Get_imeCompositionChange;

   function Get_imeNotifyCommand
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_imeNotifyCommand);
   end Get_imeNotifyCommand;

   function Get_imeNotifyData
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_imeNotifyData);
   end Get_imeNotifyData;

   function Get_imeRequest
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_imeRequest);
   end Get_imeRequest;

   function Get_imeRequestData
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_imeRequestData);
   end Get_imeRequestData;

   function Get_keyboardLayout
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_keyboardLayout);
   end Get_keyboardLayout;

   function Get_behaviorCookie
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_behaviorCookie);
   end Get_behaviorCookie;

   function Get_behaviorPart
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_behaviorPart);
   end Get_behaviorPart;

   function Get_nextPage
     (This : IHTMLEventObj3_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLEventObj3_Get_nextPage);
   end Get_nextPage;

end MSHTML.IHTMLEventObj3_Object;

