package body MSHTML.ISVGLangSpace_Object is

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

   function Get_xmllang
     (This : ISVGLangSpace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLangSpace_Get_xmllang);
   end Get_xmllang;

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

   function Get_xmlspace
     (This : ISVGLangSpace_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLangSpace_Get_xmlspace);
   end Get_xmlspace;

end MSHTML.ISVGLangSpace_Object;

