package body MSHTML.DispHTMLNamespace_Object is

   function Get_name
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_name);
   end Get_name;

   function Get_urn
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_urn);
   end Get_urn;

   function Get_tagNames
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_tagNames);
   end Get_tagNames;

   function Get_readyState
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_readyState);
   end Get_readyState;

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

   function Get_onreadystatechange
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_onreadystatechange);
   end Get_onreadystatechange;

   procedure doImport
     (This                  : DispHTMLNamespace_Type;
      bstrImplementationUrl : GNATCOM.Types.VARIANT;
      Free                  : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLNamespace_doImport,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrImplementationUrl),
         Free);
   end doImport;

   function attachEvent
     (This  : DispHTMLNamespace_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispHTMLNamespace_attachEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdisp,
          2 => event),
         Free);
   end attachEvent;

   procedure detachEvent
     (This  : DispHTMLNamespace_Type;
      event : GNATCOM.Types.VARIANT;
      pdisp : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTMLNamespace_detachEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pdisp,
          2 => event),
         Free);
   end detachEvent;

   function Get_constructor
     (This : DispHTMLNamespace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispHTMLNamespace_Get_constructor);
   end Get_constructor;

end MSHTML.DispHTMLNamespace_Object;

