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

* Add overloads for postMessage without Target (bug ID 36727)

Browse Source
This commit is contained in:
michael 2020-06-24 09:08:03 +00:00
parent 26553bcac7
commit 6222bd535a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl/web.pas
View File

@ -1676,7 +1676,6 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
constructor new(aURL : string); constructor new(aURL : string);
procedure postMessage(aValue : JSValue); procedure postMessage(aValue : JSValue);
procedure postMessage(aValue : JSValue; aList : TJSValueDynArray); procedure postMessage(aValue : JSValue; aList : TJSValueDynArray);
procedure terminate;
end; end;
TJSMessagePort = class external name 'MessagePort' (TJSEventTarget) TJSMessagePort = class external name 'MessagePort' (TJSEventTarget)
@ -2073,6 +2072,8 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
function open(Const aURL : String) : TJSWindow; overload; function open(Const aURL : String) : TJSWindow; overload;
function open(Const aURL,aTarget : String) : TJSWindow; overload; function open(Const aURL,aTarget : String) : TJSWindow; overload;
function open(Const aURL,aTarget : String; AOptions : TJSObject) : TJSWindow; overload; function open(Const aURL,aTarget : String; AOptions : TJSObject) : TJSWindow; overload;
procedure postMessage(aMessage : JSValue);
procedure postMessage(aMessage : JSValue; aTransfer : TJSValueDynArray);
procedure postMessage(aMessage : JSValue; aTarget : string); procedure postMessage(aMessage : JSValue; aTarget : string);
procedure postMessage(aMessage : JSValue; aTarget : string; aTransfer : TJSValueDynArray); procedure postMessage(aMessage : JSValue; aTarget : string; aTransfer : TJSValueDynArray);
procedure print; procedure print;