with GNATCOM.Errors;

package body MSHTML.IHTMLComputedStyle_Interface is

   procedure Initialize (This : in out IHTMLComputedStyle_Type) is
   begin
      Set_IID (This, IID_IHTMLComputedStyle);
   end Initialize;

   function Pointer (This : IHTMLComputedStyle_Type)
     return Pointer_To_IHTMLComputedStyle
   is
   begin
      return To_Pointer_To_IHTMLComputedStyle (Address (This));
   end Pointer;

   procedure Attach (This    : in out IHTMLComputedStyle_Type;
                     Pointer : in     Pointer_To_IHTMLComputedStyle)
   is
   begin
      Attach (This, GNATCOM.IInterface.To_Pointer_To_IUnknown
              (Pointer.all'Address));
   end Attach;

   function Get_bold
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_bold
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_bold;

   function Get_italic
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_italic
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_italic;

   function Get_underline
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_underline
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_underline;

   function Get_overline
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_overline
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_overline;

   function Get_strikeOut
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_strikeOut
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_strikeOut;

   function Get_subScript
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_subScript
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_subScript;

   function Get_superScript
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_superScript
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_superScript;

   function Get_explicitFace
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_explicitFace
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_explicitFace;

   function Get_fontWeight
     (This : IHTMLComputedStyle_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_fontWeight
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_fontWeight;

   function Get_fontSize
     (This : IHTMLComputedStyle_Type)
     return Interfaces.C.long
   is
       RetVal : aliased Interfaces.C.long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_fontSize
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_fontSize;

   function Get_fontName
     (This : IHTMLComputedStyle_Type)
     return Interfaces.C.unsigned_short
   is
       RetVal : aliased Interfaces.C.unsigned_short;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_fontName
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_fontName;

   function Get_hasBgColor
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_hasBgColor
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_hasBgColor;

   function Get_textColor
     (This : IHTMLComputedStyle_Type)
     return Interfaces.C.unsigned_long
   is
       RetVal : aliased Interfaces.C.unsigned_long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_textColor
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_textColor;

   function Get_backgroundColor
     (This : IHTMLComputedStyle_Type)
     return Interfaces.C.unsigned_long
   is
       RetVal : aliased Interfaces.C.unsigned_long;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_backgroundColor
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_backgroundColor;

   function Get_preFormatted
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_preFormatted
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_preFormatted;

   function Get_direction
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_direction
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_direction;

   function Get_blockDirection
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_blockDirection
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_blockDirection;

   function Get_OL
     (This : IHTMLComputedStyle_Type)
     return GNATCOM.Types.VARIANT_BOOL
   is
       RetVal : aliased GNATCOM.Types.VARIANT_BOOL;
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.Get_OL
         (Pointer (This),
          RetVal'Unchecked_Access));

      return RetVal;
   end Get_OL;

   procedure isEqual
     (This           : IHTMLComputedStyle_Type;
      pComputedStyle : Pointer_To_IHTMLComputedStyle;
      pfEqual        : GNATCOM.Types.Pointer_To_VARIANT_BOOL)
   is
   begin
      GNATCOM.Errors.Error_Check
        (Pointer (This).Vtbl.isEqual
         (Pointer (This),
          pComputedStyle,
          pfEqual));

   end isEqual;

end MSHTML.IHTMLComputedStyle_Interface;

