package body MSHTML.IDOMStorageEvent_Object is

   function Get_key
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMStorageEvent_Get_key);
   end Get_key;

   function Get_oldValue
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMStorageEvent_Get_oldValue);
   end Get_oldValue;

   function Get_newValue
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMStorageEvent_Get_newValue);
   end Get_newValue;

   function Get_url
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMStorageEvent_Get_url);
   end Get_url;

   function Get_storageArea
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, IDOMStorageEvent_Get_storageArea);
   end Get_storageArea;

   procedure initStorageEvent
     (This           : IDOMStorageEvent_Type;
      eventType      : GNATCOM.Types.VARIANT;
      canBubble      : GNATCOM.Types.VARIANT;
      cancelable     : GNATCOM.Types.VARIANT;
      keyArg         : GNATCOM.Types.VARIANT;
      oldValueArg    : GNATCOM.Types.VARIANT;
      newValueArg    : GNATCOM.Types.VARIANT;
      urlArg         : GNATCOM.Types.VARIANT;
      storageAreaArg : GNATCOM.Types.VARIANT;
      Free           : Boolean := True)
   is
   begin
      Invoke
        (This,
         IDOMStorageEvent_initStorageEvent,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => storageAreaArg,
          2 => urlArg,
          3 => newValueArg,
          4 => oldValueArg,
          5 => keyArg,
          6 => cancelable,
          7 => canBubble,
          8 => eventType),
         Free);
   end initStorageEvent;

end MSHTML.IDOMStorageEvent_Object;

