From 485f43abca2e29f4be030a2bf21519c3c75aaece Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 23 May 2019 11:58:50 +0000
Subject: [PATCH] * Constructors for TJSWebSocket

---
 packages/rtl/web.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/packages/rtl/web.pas b/packages/rtl/web.pas
index 248d6ac..4098b7b 100644
--- a/packages/rtl/web.pas
+++ b/packages/rtl/web.pas
@@ -1161,7 +1161,7 @@ Type
     --------------------------------------------------------------------}
   
   EcdhKeyDeriveParams = record
-    public : TJSCryptoKey;
+    public_ : TJSCryptoKey;
   end;
   
   { --------------------------------------------------------------------
@@ -1169,7 +1169,7 @@ Type
     --------------------------------------------------------------------}
   
   DhKeyDeriveParams = record
-    public : TJSCryptoKey;
+    public_ : TJSCryptoKey;
   end;
   
   { --------------------------------------------------------------------
@@ -3250,6 +3250,9 @@ Type
     onclose : TJSEventHandler;
     onmessage : TJSEventHandler;
     binaryType : String;
+    constructor new(url : String); overload;
+    constructor new(url : String; protocol: String); overload;
+    constructor new(url : String; protocols: array of String); overload;
     Procedure close; overload;
     Procedure close(code : Cardinal); overload;
     Procedure close(code : Cardinal; reason : String); overload;