package body MSHTML.ISVGLocatable_Object is

   function Get_nearestViewportElement
     (This : ISVGLocatable_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLocatable_Get_nearestViewportElement);
   end Get_nearestViewportElement;

   function Get_farthestViewportElement
     (This : ISVGLocatable_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, ISVGLocatable_Get_farthestViewportElement);
   end Get_farthestViewportElement;

   function getBBox
     (This : ISVGLocatable_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, ISVGLocatable_getBBox);
   end getBBox;

   function getCTM
     (This : ISVGLocatable_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, ISVGLocatable_getCTM);
   end getCTM;

   function getScreenCTM
     (This : ISVGLocatable_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, ISVGLocatable_getScreenCTM);
   end getScreenCTM;

   function getTransformToElement
     (This     : ISVGLocatable_Type;
      pElement : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         ISVGLocatable_getTransformToElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pElement),
         Free);
   end getTransformToElement;

end MSHTML.ISVGLocatable_Object;

