Browse Source

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

michael 5 years ago
parent
commit
6222bd535a
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/rtl/web.pas

+ 2 - 1
packages/rtl/web.pas

@@ -1676,7 +1676,6 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     constructor new(aURL : string);
     procedure postMessage(aValue : JSValue);
     procedure postMessage(aValue : JSValue; aList : TJSValueDynArray);
-    procedure terminate;
   end;
 
   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,aTarget : String) : 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; aTransfer : TJSValueDynArray);
     procedure print;