package body MSHTML.ISVGPointList_Object is

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

   function Get_numberOfItems
     (This : ISVGPointList_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGPointList_Get_numberOfItems);
   end Get_numberOfItems;

   procedure clear
     (This : ISVGPointList_Type)
   is
   begin
      Invoke (This, ISVGPointList_clear);
   end clear;

   function initialize
     (This     : ISVGPointList_Type;
      pNewItem : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_initialize,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pNewItem),
         Free);
   end initialize;

   function getItem
     (This  : ISVGPointList_Type;
      index : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_getItem,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index),
         Free);
   end getItem;

   function insertItemBefore
     (This     : ISVGPointList_Type;
      pNewItem : GNATCOM.Types.VARIANT;
      index    : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_insertItemBefore,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index,
          2 => pNewItem),
         Free);
   end insertItemBefore;

   function replaceItem
     (This     : ISVGPointList_Type;
      pNewItem : GNATCOM.Types.VARIANT;
      index    : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_replaceItem,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index,
          2 => pNewItem),
         Free);
   end replaceItem;

   function removeItem
     (This  : ISVGPointList_Type;
      index : GNATCOM.Types.VARIANT;
      Free  : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_removeItem,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => index),
         Free);
   end removeItem;

   function appendItem
     (This     : ISVGPointList_Type;
      pNewItem : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGPointList_appendItem,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pNewItem),
         Free);
   end appendItem;

end MSHTML.ISVGPointList_Object;

