package body MSHTML.IHTMLControlElement_Object is

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

   function Get_tabIndex
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_tabIndex);
   end Get_tabIndex;

   procedure focus
     (This : IHTMLControlElement_Type)
   is
   begin
      Invoke (This, IHTMLControlElement_focus);
   end focus;

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

   function Get_accessKey
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_accessKey);
   end Get_accessKey;

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

   function Get_onblur
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_onblur);
   end Get_onblur;

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

   function Get_onfocus
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_onfocus);
   end Get_onfocus;

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

   function Get_onresize
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_onresize);
   end Get_onresize;

   procedure blur
     (This : IHTMLControlElement_Type)
   is
   begin
      Invoke (This, IHTMLControlElement_blur);
   end blur;

   procedure addFilter
     (This : IHTMLControlElement_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLControlElement_addFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pUnk),
         Free);
   end addFilter;

   procedure removeFilter
     (This : IHTMLControlElement_Type;
      pUnk : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLControlElement_removeFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pUnk),
         Free);
   end removeFilter;

   function Get_clientHeight
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_clientHeight);
   end Get_clientHeight;

   function Get_clientWidth
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_clientWidth);
   end Get_clientWidth;

   function Get_clientTop
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_clientTop);
   end Get_clientTop;

   function Get_clientLeft
     (This : IHTMLControlElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLControlElement_Get_clientLeft);
   end Get_clientLeft;

end MSHTML.IHTMLControlElement_Object;

