From 601dfd5be7754656fa7e95f6d79af61a4221ce7c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 6 Aug 2020 22:33:48 +0000
Subject: [PATCH] * Add TJSCloseEvent definition from Simon Ameis, bug ID 37425

---
 packages/rtl/web.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/packages/rtl/web.pas b/packages/rtl/web.pas
index b5e224f..355757b 100644
--- a/packages/rtl/web.pas
+++ b/packages/rtl/web.pas
@@ -791,6 +791,17 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     property Total : NativeUINT Read FTotal;
   end;
 
+  TJSCloseEvent = class external name 'CloseEvent' (TJSEvent)
+  private
+    fcode: Word; external name 'code';
+    freason: TJSDOMString; external name 'reason';
+    fwasClean: Boolean; external name 'wasClean';
+  public
+    property code: Word read fcode;
+    property reason: TJSDOMString read freason;
+    property wasClean: Boolean read fwasClean;
+  end; 
+
   TJSPageTransitionEventHandler = reference to function(aEvent : TJsPageTransitionEvent) : boolean; safecall;
   TJSHashChangeEventhandler = reference to function(aEvent : TJSHashChangeEvent) : boolean; safecall;
   TJSMouseWheelEventHandler = reference to function(aEvent : TJSWheelEvent) : boolean; safecall;