package body MSHTML.IOmHistory_Object is

   function Get_length
     (This : IOmHistory_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IOmHistory_Get_length);
   end Get_length;

   procedure back
     (This          : IOmHistory_Type;
      pvargdistance : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free          : Boolean := True)
   is
   begin
      Invoke
        (This,
         IOmHistory_back,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvargdistance),
         Free);
   end back;

   procedure forward
     (This          : IOmHistory_Type;
      pvargdistance : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free          : Boolean := True)
   is
   begin
      Invoke
        (This,
         IOmHistory_forward,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvargdistance),
         Free);
   end forward;

   procedure go
     (This          : IOmHistory_Type;
      pvargdistance : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free          : Boolean := True)
   is
   begin
      Invoke
        (This,
         IOmHistory_go,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvargdistance),
         Free);
   end go;

end MSHTML.IOmHistory_Object;

