package body MSHTML.IHTMLTimeRanges2_Object is

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

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

end MSHTML.IHTMLTimeRanges2_Object;

