瀏覽代碼

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

michael 5 年之前
父節點
當前提交
6222bd535a
共有 1 個文件被更改,包括 2 次插入1 次删除
  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);
     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;