with GNATCOM.Dispinterface;

package MSHTML.IDOMStorageEvent_Object is

   type IDOMStorageEvent_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   function Get_key
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT;

   function Get_oldValue
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT;

   function Get_newValue
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT;

   function Get_url
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT;

   function Get_storageArea
     (This : IDOMStorageEvent_Type)
     return GNATCOM.Types.VARIANT;

   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);

end MSHTML.IDOMStorageEvent_Object;

