with GNATCOM.Dispinterface;

package MSHTML.ISVGStringList_Object is

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

   procedure Put_numberOfItems
     (This : ISVGStringList_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True);

   function Get_numberOfItems
     (This : ISVGStringList_Type)
     return GNATCOM.Types.VARIANT;

   procedure clear
     (This : ISVGStringList_Type);

   function initialize
     (This    : ISVGStringList_Type;
      newItem : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function getItem
     (This  : ISVGStringList_Type;
      index : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function insertItemBefore
     (This    : ISVGStringList_Type;
      newItem : GNATCOM.Types.VARIANT;
      index   : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function replaceItem
     (This    : ISVGStringList_Type;
      newItem : GNATCOM.Types.VARIANT;
      index   : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function removeItem
     (This  : ISVGStringList_Type;
      index : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT;

   function appendItem
     (This    : ISVGStringList_Type;
      newItem : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT;

end MSHTML.ISVGStringList_Object;

