paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Move message definition, must be available in web workers as well

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-07-10 11:15:20 +02:00
parent d70b8c3d54
commit 729cd0db81
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/rtl/web.pas
View File

@ -48,6 +48,8 @@ Type
TJSServiceWorker = weborworker.TJSServiceWorker;
TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration;
TJSMessageEvent = weborworker.TJSMessageEvent;
TJSMessagePortArray = TJSMessagePortDynArray;
{ TEventListenerEvent }
@ -2944,22 +2946,7 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
TJSWebSocket
--------------------------------------------------------------------}
TJSMessagePortArray = Array of TJSMessagePort;
{ TJSMessageEvent }
TJSMessageEvent = class external name 'MessageEvent' (TEventListenerEvent)
private
FData: JSValue; external name 'data';
FLastEventID: String; external name 'lastEventID';
FOrigin: String; external name 'origin';
FPorts: TJSMessagePortArray; external name 'ports';
Public
Property Data : JSValue Read FData;
Property LastEventID : String Read FLastEventID;
Property Origin : String Read FOrigin;
Property Ports : TJSMessagePortArray Read FPorts;
end;
TJSWebSocket = class external name 'WebSocket' (TJSEventTarget)
Private

15
packages/rtl/weborworker.pas
View File

@ -131,6 +131,21 @@ type
end;
TJSMessagePortDynArray = Array of TJSMessagePort;
{ TJSMessageEvent }
TJSMessageEvent = class external name 'MessageEvent' (TJSEvent)
private
FData: JSValue; external name 'data';
FLastEventID: String; external name 'lastEventID';
FOrigin: String; external name 'origin';
FPorts: TJSMessagePortDynArray; external name 'ports';
Public
Property Data : JSValue Read FData;
Property LastEventID : String Read FLastEventID;
Property Origin : String Read FOrigin;
Property Ports : TJSMessagePortDynArray Read FPorts;
end;
{ TJSExtendableMessageEvent }
TJSExtendableMessageEvent = class external name 'ExtendableMessageEvent' (TJSExtendableEvent)