paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 11:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add overloads for third option in AddEventListener

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-24 17:50:27 +01:00
parent 16cdffe064
commit 488e3b02b5
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/src/weborworker.pas
View File

@ -54,6 +54,7 @@ type
TJSNotificationAction = Class;
TJSGetNotificationOptions = Class;
TJSNotificationEventInit = Class;
TJSAbortSignal = class;
NotificationPermission = String;
NotificationDirection = String;
NotificationPermissionCallback = Procedure (permission : NotificationPermission);
@ -153,11 +154,24 @@ type
TJSEventHandler = reference to function(Event: TJSEvent): boolean; safecall;
TJSRawEventHandler = reference to Procedure(Event: TJSEvent); safecall;
TJSEventListenerOptions = class external name 'Object' (TJSObject)
capture : boolean;
once : boolean;
passive : boolean;
signal : TJSAbortSignal;
end;
TJSEventTarget = class external name 'EventTarget' (TJSObject)
public
procedure addEventListener(aname : string; aListener : TJSEventHandler);
procedure addEventListener(aname : string; aListener : TJSRawEventHandler);
procedure addEventListener(aname : string; aListener : JSValue);
procedure addEventListener(aname : string; aListener : TJSEventHandler; useCapture : Boolean);
procedure addEventListener(aname : string; aListener : TJSRawEventHandler; useCapture : Boolean);
procedure addEventListener(aname : string; aListener : JSValue; useCapture : Boolean);
procedure addEventListener(aname : string; aListener : TJSEventHandler; options : TJSEventListenerOptions);
procedure addEventListener(aname : string; aListener : TJSRawEventHandler; options : TJSEventListenerOptions);
procedure addEventListener(aname : string; aListener : JSValue; options : TJSEventListenerOptions);
function dispatchEvent(event : JSValue) : Boolean;
procedure removeEventListener(aname : string; aListener : TJSEventHandler);
procedure removeEventListener(aname : string; aListener : TJSRawEventHandler);