package body MSHTML.IHTMLAppBehavior_Object is

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

   function Get_applicationName
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_applicationName);
   end Get_applicationName;

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

   function Get_version
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_version);
   end Get_version;

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

   function Get_icon
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_icon);
   end Get_icon;

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

   function Get_singleInstance
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_singleInstance);
   end Get_singleInstance;

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

   function Get_minimizeButton
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_minimizeButton);
   end Get_minimizeButton;

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

   function Get_maximizeButton
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_maximizeButton);
   end Get_maximizeButton;

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

   function Get_border
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_border);
   end Get_border;

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

   function Get_borderStyle
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_borderStyle);
   end Get_borderStyle;

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

   function Get_sysMenu
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_sysMenu);
   end Get_sysMenu;

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

   function Get_caption
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_caption);
   end Get_caption;

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

   function Get_windowState
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_windowState);
   end Get_windowState;

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

   function Get_showInTaskBar
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_showInTaskBar);
   end Get_showInTaskBar;

   function Get_commandLine
     (This : IHTMLAppBehavior_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IHTMLAppBehavior_Get_commandLine);
   end Get_commandLine;

end MSHTML.IHTMLAppBehavior_Object;

