paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-16 18:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'main' of https://gitlab.com/freepascal.org/fpc/pas2js into main

Browse Source
This commit is contained in:
mattias 2022-08-26 16:00:21 +02:00
commit de4878c143
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler

@ -1 +1 @@
Subproject commit 85c7368759f5fb53aa23e03c8cc27c2deb424b62 Subproject commit 717d38f0601d506e41b82c222c429c6f98362c55

18
packages/rtl/weborworker.pas
View File

@ -1001,6 +1001,24 @@ type
property subtle : TJSSubtleCrypto Read Fsubtle; property subtle : TJSSubtleCrypto Read Fsubtle;
end; end;
TJSEventSourceOptions = class external name 'Object' (TJSObject)
withCredentials: boolean;
end;
TJSEventSource = class external name 'EventSource' (TJSEventTarget)
Private
FReadyState : Integer; external name 'readyState';
fURL : String; external name 'url';
fwithCredentials : Boolean; external name 'withCredentials';
Public
constructor new(aURL : String);
constructor new(aURL : String; options: TJSEventSourceOptions);
procedure close;
property readyState : Integer Read FReadyState;
property url : String Read fURL;
property withCredentials: boolean Read FwithCredentials;
end;
{ ---------------------------------------------------------------------- { ----------------------------------------------------------------------
Service Worker Service Worker