package body MSHTML.DispSVGMarkerElement_Object is

   procedure PutRef_refX
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_refX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_refX;

   function Get_refX
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_refX);
   end Get_refX;

   procedure PutRef_refY
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_refY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_refY;

   function Get_refY
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_refY);
   end Get_refY;

   procedure PutRef_markerUnits
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_markerUnits,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_markerUnits;

   function Get_markerUnits
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_markerUnits);
   end Get_markerUnits;

   procedure PutRef_markerWidth
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_markerWidth,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_markerWidth;

   function Get_markerWidth
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_markerWidth);
   end Get_markerWidth;

   procedure PutRef_markerHeight
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_markerHeight,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_markerHeight;

   function Get_markerHeight
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_markerHeight);
   end Get_markerHeight;

   procedure PutRef_orientType
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_orientType,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_orientType;

   function Get_orientType
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_orientType);
   end Get_orientType;

   procedure PutRef_orientAngle
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_orientAngle,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_orientAngle;

   function Get_orientAngle
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_orientAngle);
   end Get_orientAngle;

   procedure setOrientToAuto
     (This : DispSVGMarkerElement_Type)
   is
   begin
      Invoke (This, DispSVGMarkerElement_setOrientToAuto);
   end setOrientToAuto;

   procedure setOrientToAngle
     (This      : DispSVGMarkerElement_Type;
      pSVGAngle : GNATCOM.Types.VARIANT;
      Free      : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispSVGMarkerElement_setOrientToAngle,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pSVGAngle),
         Free);
   end setOrientToAngle;

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

   function Get_xmlbase
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_xmlbase);
   end Get_xmlbase;

   procedure PutRef_ownerSVGElement
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_ownerSVGElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_ownerSVGElement;

   function Get_ownerSVGElement
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_ownerSVGElement);
   end Get_ownerSVGElement;

   procedure PutRef_viewportElement
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_viewportElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_viewportElement;

   function Get_viewportElement
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_viewportElement);
   end Get_viewportElement;

   procedure PutRef_focusable
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_focusable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_focusable;

   function Get_focusable
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_focusable);
   end Get_focusable;

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

   function Get_xmllang
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_xmllang);
   end Get_xmllang;

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

   function Get_xmlspace
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_xmlspace);
   end Get_xmlspace;

   function Get_externalResourcesRequired
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_externalResourcesRequired);
   end Get_externalResourcesRequired;

   function Get_className
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_className);
   end Get_className;

   function Get_viewBox
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_viewBox);
   end Get_viewBox;

   procedure PutRef_preserveAspectRatio
     (This : DispSVGMarkerElement_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispSVGMarkerElement_PutRef_preserveAspectRatio,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_preserveAspectRatio;

   function Get_preserveAspectRatio
     (This : DispSVGMarkerElement_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispSVGMarkerElement_Get_preserveAspectRatio);
   end Get_preserveAspectRatio;

end MSHTML.DispSVGMarkerElement_Object;

