package body MSHTML.IHTMLElementDefaults_Object is

   function Get_style
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_style);
   end Get_style;

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

   function Get_tabStop
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_tabStop);
   end Get_tabStop;

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

   function Get_viewInheritStyle
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_viewInheritStyle);
   end Get_viewInheritStyle;

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

   function Get_viewMasterTab
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_viewMasterTab);
   end Get_viewMasterTab;

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

   function Get_scrollSegmentX
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_scrollSegmentX);
   end Get_scrollSegmentX;

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

   function Get_scrollSegmentY
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_scrollSegmentY);
   end Get_scrollSegmentY;

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

   function Get_isMultiLine
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_isMultiLine);
   end Get_isMultiLine;

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

   function Get_contentEditable
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_contentEditable);
   end Get_contentEditable;

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

   function Get_canHaveHTML
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_canHaveHTML);
   end Get_canHaveHTML;

   procedure PutRef_viewLink
     (This : IHTMLElementDefaults_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         IHTMLElementDefaults_PutRef_viewLink,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_viewLink;

   function Get_viewLink
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_viewLink);
   end Get_viewLink;

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

   function Get_frozen
     (This : IHTMLElementDefaults_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLElementDefaults_Get_frozen);
   end Get_frozen;

end MSHTML.IHTMLElementDefaults_Object;

