package body MSHTML.ISVGLength_Object is

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

   function Get_unitType
     (This : ISVGLength_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLength_Get_unitType);
   end Get_unitType;

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

   function Get_value
     (This : ISVGLength_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLength_Get_value);
   end Get_value;

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

   function Get_valueInSpecifiedUnits
     (This : ISVGLength_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLength_Get_valueInSpecifiedUnits);
   end Get_valueInSpecifiedUnits;

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

   function Get_valueAsString
     (This : ISVGLength_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLength_Get_valueAsString);
   end Get_valueAsString;

   procedure newValueSpecifiedUnits
     (This                  : ISVGLength_Type;
      unitType              : GNATCOM.Types.VARIANT;
      valueInSpecifiedUnits : GNATCOM.Types.VARIANT;
      Free                  : Boolean := True)
   is
   begin
      Invoke
        (This,
         ISVGLength_newValueSpecifiedUnits,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => valueInSpecifiedUnits,
          2 => unitType),
         Free);
   end newValueSpecifiedUnits;

   procedure convertToSpecifiedUnits
     (This     : ISVGLength_Type;
      unitType : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         ISVGLength_convertToSpecifiedUnits,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => unitType),
         Free);
   end convertToSpecifiedUnits;

end MSHTML.ISVGLength_Object;

