with GNATCOM.IInterface;

with GNATCOM.Errors;

package body MSHTML.IHTMLDOMConstructorCollection_Interface is

   procedure Initialize (This : in out IHTMLDOMConstructorCollection_Type) is
   begin
      Set_IID (This, IID_IHTMLDOMConstructorCollection);
   end Initialize;

   function Pointer (This : IHTMLDOMConstructorCollection_Type)
     return Pointer_To_IHTMLDOMConstructorCollection
   is
   begin
      return To_Pointer_To_IHTMLDOMConstructorCollection (Address (This));
   end Pointer;

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

   function Get_Attr
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_Attr
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_Attr;

   function Get_BehaviorUrnsCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_BehaviorUrnsCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_BehaviorUrnsCollection;

   function Get_BookmarkCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_BookmarkCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_BookmarkCollection;

   function Get_compatibleInfo
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_compatibleInfo
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_compatibleInfo;

   function Get_CompatibleInfoCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CompatibleInfoCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CompatibleInfoCollection;

   function Get_ControlRangeCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_ControlRangeCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_ControlRangeCollection;

   function Get_CSSCurrentStyleDeclaration
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSCurrentStyleDeclaration
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSCurrentStyleDeclaration;

   function Get_CSSRuleList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSRuleList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSRuleList;

   function Get_CSSRuleStyleDeclaration
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSRuleStyleDeclaration
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSRuleStyleDeclaration;

   function Get_CSSStyleDeclaration
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSStyleDeclaration
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSStyleDeclaration;

   function Get_CSSStyleRule
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSStyleRule
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSStyleRule;

   function Get_CSSStyleSheet
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_CSSStyleSheet
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_CSSStyleSheet;

   function Get_dataTransfer
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_dataTransfer
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_dataTransfer;

   function Get_DOMImplementation
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_DOMImplementation
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_DOMImplementation;

   function Get_element
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_element
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_element;

   function Get_event
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_event
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_event;

   function Get_history
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_history
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_history;

   function Get_HTCElementBehaviorDefaults
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTCElementBehaviorDefaults
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTCElementBehaviorDefaults;

   function Get_HTMLAnchorElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLAnchorElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLAnchorElement;

   function Get_HTMLAreaElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLAreaElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLAreaElement;

   function Get_HTMLAreasCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLAreasCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLAreasCollection;

   function Get_HTMLBaseElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBaseElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBaseElement;

   function Get_HTMLBaseFontElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBaseFontElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBaseFontElement;

   function Get_HTMLBGSoundElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBGSoundElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBGSoundElement;

   function Get_HTMLBlockElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBlockElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBlockElement;

   function Get_HTMLBodyElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBodyElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBodyElement;

   function Get_HTMLBRElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLBRElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLBRElement;

   function Get_HTMLButtonElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLButtonElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLButtonElement;

   function Get_HTMLCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLCollection;

   function Get_HTMLCommentElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLCommentElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLCommentElement;

   function Get_HTMLDDElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLDDElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLDDElement;

   function Get_HTMLDivElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLDivElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLDivElement;

   function Get_HTMLDocument
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLDocument
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLDocument;

   function Get_HTMLDListElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLDListElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLDListElement;

   function Get_HTMLDTElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLDTElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLDTElement;

   function Get_HTMLEmbedElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLEmbedElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLEmbedElement;

   function Get_HTMLFieldSetElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLFieldSetElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLFieldSetElement;

   function Get_HTMLFontElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLFontElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLFontElement;

   function Get_HTMLFormElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLFormElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLFormElement;

   function Get_HTMLFrameElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLFrameElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLFrameElement;

   function Get_HTMLFrameSetElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLFrameSetElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLFrameSetElement;

   function Get_HTMLGenericElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLGenericElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLGenericElement;

   function Get_HTMLHeadElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLHeadElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLHeadElement;

   function Get_HTMLHeadingElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLHeadingElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLHeadingElement;

   function Get_HTMLHRElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLHRElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLHRElement;

   function Get_HTMLHtmlElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLHtmlElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLHtmlElement;

   function Get_HTMLIFrameElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLIFrameElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLIFrameElement;

   function Get_HTMLImageElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLImageElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLImageElement;

   function Get_HTMLInputElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLInputElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLInputElement;

   function Get_HTMLIsIndexElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLIsIndexElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLIsIndexElement;

   function Get_HTMLLabelElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLLabelElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLLabelElement;

   function Get_HTMLLegendElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLLegendElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLLegendElement;

   function Get_HTMLLIElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLLIElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLLIElement;

   function Get_HTMLLinkElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLLinkElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLLinkElement;

   function Get_HTMLMapElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLMapElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLMapElement;

   function Get_HTMLMarqueeElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLMarqueeElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLMarqueeElement;

   function Get_HTMLMetaElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLMetaElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLMetaElement;

   function Get_HTMLModelessDialog
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLModelessDialog
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLModelessDialog;

   function Get_HTMLNamespaceInfo
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLNamespaceInfo
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLNamespaceInfo;

   function Get_HTMLNamespaceInfoCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLNamespaceInfoCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLNamespaceInfoCollection;

   function Get_HTMLNextIdElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLNextIdElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLNextIdElement;

   function Get_HTMLNoShowElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLNoShowElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLNoShowElement;

   function Get_HTMLObjectElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLObjectElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLObjectElement;

   function Get_HTMLOListElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLOListElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLOListElement;

   function Get_HTMLOptionElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLOptionElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLOptionElement;

   function Get_HTMLParagraphElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLParagraphElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLParagraphElement;

   function Get_HTMLParamElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLParamElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLParamElement;

   function Get_HTMLPhraseElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLPhraseElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLPhraseElement;

   function Get_HTMLPluginsCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLPluginsCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLPluginsCollection;

   function Get_HTMLPopup
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLPopup
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLPopup;

   function Get_HTMLScriptElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLScriptElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLScriptElement;

   function Get_HTMLSelectElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLSelectElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLSelectElement;

   function Get_HTMLSpanElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLSpanElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLSpanElement;

   function Get_HTMLStyleElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLStyleElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLStyleElement;

   function Get_HTMLTableCaptionElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableCaptionElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableCaptionElement;

   function Get_HTMLTableCellElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableCellElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableCellElement;

   function Get_HTMLTableColElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableColElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableColElement;

   function Get_HTMLTableElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableElement;

   function Get_HTMLTableRowElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableRowElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableRowElement;

   function Get_HTMLTableSectionElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTableSectionElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTableSectionElement;

   function Get_HTMLTextAreaElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTextAreaElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTextAreaElement;

   function Get_HTMLTextElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTextElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTextElement;

   function Get_HTMLTitleElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLTitleElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLTitleElement;

   function Get_HTMLUListElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLUListElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLUListElement;

   function Get_HTMLUnknownElement
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_HTMLUnknownElement
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_HTMLUnknownElement;

   function Get_Image
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_Image
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_Image;

   function Get_location
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_location
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_location;

   function Get_NamedNodeMap
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_NamedNodeMap
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_NamedNodeMap;

   function Get_navigator
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_navigator
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_navigator;

   function Get_NodeList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_NodeList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_NodeList;

   function Get_Option
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_Option
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_Option;

   function Get_screen
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_screen
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_screen;

   function Get_selection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_selection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_selection;

   function Get_StaticNodeList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_StaticNodeList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_StaticNodeList;

   function Get_Storage
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_Storage
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_Storage;

   function Get_StyleSheetList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_StyleSheetList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_StyleSheetList;

   function Get_StyleSheetPage
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_StyleSheetPage
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_StyleSheetPage;

   function Get_StyleSheetPageList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_StyleSheetPageList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_StyleSheetPageList;

   function Get_text
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_text
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_text;

   function Get_TextRange
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_TextRange
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_TextRange;

   function Get_TextRangeCollection
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_TextRangeCollection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_TextRangeCollection;

   function Get_TextRectangle
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_TextRectangle
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_TextRectangle;

   function Get_TextRectangleList
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_TextRectangleList
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_TextRectangleList;

   function Get_window
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_window
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_window;

   function Get_XDomainRequest
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_XDomainRequest
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_XDomainRequest;

   function Get_XMLHttpRequest
     (This : IHTMLDOMConstructorCollection_Type)
     return GNATCOM.Types.Pointer_To_IDispatch
   is
       RetVal : aliased GNATCOM.Types.Pointer_To_IDispatch;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_XMLHttpRequest
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_XMLHttpRequest;

end MSHTML.IHTMLDOMConstructorCollection_Interface;

