package body MSHTML.IHTMLStyle6_Object is

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

   function Get_content
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_content);
   end Get_content;

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

   function Get_captionSide
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_captionSide);
   end Get_captionSide;

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

   function Get_counterIncrement
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_counterIncrement);
   end Get_counterIncrement;

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

   function Get_counterReset
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_counterReset);
   end Get_counterReset;

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

   function Get_outline
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_outline);
   end Get_outline;

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

   function Get_outlineWidth
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_outlineWidth);
   end Get_outlineWidth;

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

   function Get_outlineStyle
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_outlineStyle);
   end Get_outlineStyle;

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

   function Get_outlineColor
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_outlineColor);
   end Get_outlineColor;

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

   function Get_boxSizing
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_boxSizing);
   end Get_boxSizing;

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

   function Get_borderSpacing
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_borderSpacing);
   end Get_borderSpacing;

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

   function Get_orphans
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_orphans);
   end Get_orphans;

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

   function Get_widows
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_widows);
   end Get_widows;

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

   function Get_pageBreakInside
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_pageBreakInside);
   end Get_pageBreakInside;

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

   function Get_emptyCells
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_emptyCells);
   end Get_emptyCells;

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

   function Get_msBlockProgression
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_msBlockProgression);
   end Get_msBlockProgression;

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

   function Get_quotes
     (This : IHTMLStyle6_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLStyle6_Get_quotes);
   end Get_quotes;

end MSHTML.IHTMLStyle6_Object;

