package body MSHTML.IClientCaps_Object is

   function Get_javaEnabled
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_javaEnabled);
   end Get_javaEnabled;

   function Get_cookieEnabled
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_cookieEnabled);
   end Get_cookieEnabled;

   function Get_cpuClass
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_cpuClass);
   end Get_cpuClass;

   function Get_systemLanguage
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_systemLanguage);
   end Get_systemLanguage;

   function Get_userLanguage
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_userLanguage);
   end Get_userLanguage;

   function Get_platform
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_platform);
   end Get_platform;

   function Get_connectionSpeed
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_connectionSpeed);
   end Get_connectionSpeed;

   function Get_onLine
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_onLine);
   end Get_onLine;

   function Get_colorDepth
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_colorDepth);
   end Get_colorDepth;

   function Get_bufferDepth
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_bufferDepth);
   end Get_bufferDepth;

   function Get_width
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_width);
   end Get_width;

   function Get_height
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_height);
   end Get_height;

   function Get_availHeight
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_availHeight);
   end Get_availHeight;

   function Get_availWidth
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_availWidth);
   end Get_availWidth;

   function Get_connectionType
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IClientCaps_Get_connectionType);
   end Get_connectionType;

   function isComponentInstalled
     (This     : IClientCaps_Type;
      bstrName : GNATCOM.Types.VARIANT;
      bstrURL  : GNATCOM.Types.VARIANT;
      bStrVer  : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IClientCaps_isComponentInstalled,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bStrVer,
          2 => bstrURL,
          3 => bstrName),
         Free);
   end isComponentInstalled;

   function getComponentVersion
     (This     : IClientCaps_Type;
      bstrName : GNATCOM.Types.VARIANT;
      bstrURL  : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IClientCaps_getComponentVersion,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrURL,
          2 => bstrName),
         Free);
   end getComponentVersion;

   function compareVersions
     (This     : IClientCaps_Type;
      bstrVer1 : GNATCOM.Types.VARIANT;
      bstrVer2 : GNATCOM.Types.VARIANT;
      Free     : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IClientCaps_compareVersions,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bstrVer2,
          2 => bstrVer1),
         Free);
   end compareVersions;

   procedure addComponentRequest
     (This     : IClientCaps_Type;
      bstrName : GNATCOM.Types.VARIANT;
      bstrURL  : GNATCOM.Types.VARIANT;
      bStrVer  : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free     : Boolean := True)
   is
   begin
      Invoke
        (This,
         IClientCaps_addComponentRequest,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => bStrVer,
          2 => bstrURL,
          3 => bstrName),
         Free);
   end addComponentRequest;

   function doComponentRequest
     (This : IClientCaps_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke (This, IClientCaps_doComponentRequest);
   end doComponentRequest;

   procedure clearComponentRequest
     (This : IClientCaps_Type)
   is
   begin
      Invoke (This, IClientCaps_clearComponentRequest);
   end clearComponentRequest;

end MSHTML.IClientCaps_Object;

