with GNATCOM.Errors;

package body MSHTML.IHTMLEditServices2_Interface is

   procedure Initialize (This : in out IHTMLEditServices2_Type) is
   begin
      Set_IID (This, IID_IHTMLEditServices2);
   end Initialize;

   function Pointer (This : IHTMLEditServices2_Type)
     return Pointer_To_IHTMLEditServices2
   is
   begin
      return To_Pointer_To_IHTMLEditServices2 (Address (This));
   end Pointer;

   procedure Attach (This    : in out IHTMLEditServices2_Type;
                     Pointer : in     Pointer_To_IHTMLEditServices2)
   is
   begin
      Attach (This, GNATCOM.IInterface.To_Pointer_To_IUnknown
              (Pointer.all'Address));
   end Attach;

   procedure AddDesigner
     (This       : IHTMLEditServices2_Type;
      pIDesigner : Pointer_To_IHTMLEditDesigner)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.AddDesigner
         (Pointer (This),
          pIDesigner));

   end AddDesigner;

   procedure RemoveDesigner
     (This       : IHTMLEditServices2_Type;
      pIDesigner : Pointer_To_IHTMLEditDesigner)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.RemoveDesigner
         (Pointer (This),
          pIDesigner));

   end RemoveDesigner;

   procedure GetSelectionServices
     (This        : IHTMLEditServices2_Type;
      pIContainer : Pointer_To_IMarkupContainer;
      ppSelSvc    : Pointer_To_Pointer_To_ISelectionServices)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.GetSelectionServices
         (Pointer (This),
          pIContainer,
          ppSelSvc));

   end GetSelectionServices;

   procedure MoveToSelectionAnchor
     (This          : IHTMLEditServices2_Type;
      pIStartAnchor : Pointer_To_IMarkupPointer)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.MoveToSelectionAnchor
         (Pointer (This),
          pIStartAnchor));

   end MoveToSelectionAnchor;

   procedure MoveToSelectionEnd
     (This        : IHTMLEditServices2_Type;
      pIEndAnchor : Pointer_To_IMarkupPointer)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.MoveToSelectionEnd
         (Pointer (This),
          pIEndAnchor));

   end MoveToSelectionEnd;

   procedure SelectRange
     (This   : IHTMLEditServices2_Type;
      pStart : Pointer_To_IMarkupPointer;
      pEnd   : Pointer_To_IMarkupPointer;
      eType  : uSELECTION_TYPE)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.SelectRange
         (Pointer (This),
          pStart,
          pEnd,
          eType));

   end SelectRange;

   procedure MoveToSelectionAnchorEx
     (This          : IHTMLEditServices2_Type;
      pIStartAnchor : Pointer_To_IDisplayPointer)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.MoveToSelectionAnchorEx
         (Pointer (This),
          pIStartAnchor));

   end MoveToSelectionAnchorEx;

   procedure MoveToSelectionEndEx
     (This        : IHTMLEditServices2_Type;
      pIEndAnchor : Pointer_To_IDisplayPointer)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.MoveToSelectionEndEx
         (Pointer (This),
          pIEndAnchor));

   end MoveToSelectionEndEx;

   procedure FreezeVirtualCaretPos
     (This       : IHTMLEditServices2_Type;
      fReCompute : Interfaces.C.long)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.FreezeVirtualCaretPos
         (Pointer (This),
          fReCompute));

   end FreezeVirtualCaretPos;

   procedure UnFreezeVirtualCaretPos
     (This   : IHTMLEditServices2_Type;
      fReset : Interfaces.C.long)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.UnFreezeVirtualCaretPos
         (Pointer (This),
          fReset));

   end UnFreezeVirtualCaretPos;

end MSHTML.IHTMLEditServices2_Interface;

