package body MSHTML.IHTMLDOMImplementation_Object is

   function hasFeature
     (This        : IHTMLDOMImplementation_Type;
      bstrfeature : GNATCOM.Types.VARIANT;
      version     : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free        : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLDOMImplementation_hasFeature,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => version,
          2 => bstrfeature),
         Free);
   end hasFeature;

end MSHTML.IHTMLDOMImplementation_Object;

