with GNATCOM.Dispinterface;

package MSHTML.IHTMLDOMImplementation_Interface is

   type IHTMLDOMImplementation_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Initialize (This : in out IHTMLDOMImplementation_Type);

   function Pointer (This : IHTMLDOMImplementation_Type)
     return Pointer_To_IHTMLDOMImplementation;

   procedure Attach (This    : in out IHTMLDOMImplementation_Type;
                     Pointer : in     Pointer_To_IHTMLDOMImplementation);

   function hasFeature
     (This         : IHTMLDOMImplementation_Type;
      bstrfeature  : GNATCOM.Types.BSTR;
      version      : GNATCOM.Types.VARIANT  := GNATCOM.Types.VARIANT_MISSING;
      Free         : Boolean := True)
     return GNATCOM.Types.VARIANT_BOOL;

end MSHTML.IHTMLDOMImplementation_Interface;

