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

wasi: job: clean up

Browse Source
This commit is contained in:
mattias 2022-05-29 11:02:01 +02:00
parent 642245ccb7
commit 471d1ee1e4
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
demo/wasienv/dom/job_web.pas
View File

@ -154,24 +154,23 @@ implementation
function JOBCallTJSHTMLClickEventHandler(const aMethod: TMethod; Args: PByte
): PByte;
var
p: TJOBCallbackHelper;
h: TJOBCallbackHelper;
Event: IJSMouseEvent;
begin
writeln('JOBCallTHTMLClickEventHandler ');
p.Init(Args);
Event:=p.GetObject(TJSMouseEvent) as IJSMouseEvent;
Result:=p.AllocBool(TJSHTMLClickEventHandler(aMethod)(Event));
h.Init(Args);
Event:=h.GetObject(TJSMouseEvent) as IJSMouseEvent;
Result:=h.AllocBool(TJSHTMLClickEventHandler(aMethod)(Event));
end;
function JOBCallTJSEventHandler(const aMethod: TMethod; Args: PByte
): PByte;
var
p: TJOBCallbackHelper;
h: TJOBCallbackHelper;
Event: IJSEventListenerEvent;
begin
p.Init(Args);
Event:=p.GetObject(TJSEventListenerEvent) as IJSEventListenerEvent;
Result:=p.AllocBool(TJSEventHandler(aMethod)(Event));
h.Init(Args);
Event:=h.GetObject(TJSEventListenerEvent) as IJSEventListenerEvent;
Result:=h.AllocBool(TJSEventHandler(aMethod)(Event));
end;
{ TJSEventTarget }
@ -179,13 +178,13 @@ end;
procedure TJSEventTarget.addEventListener(const aName: UnicodeString;
const aListener: TJSEventHandler);
var
cb1: TJOB_JSValueMethod;
m: TJOB_JSValueMethod;
begin
cb1:=TJOB_JSValueMethod.Create(TMethod(aListener),@JOBCallTJSEventHandler);
m:=TJOB_JSValueMethod.Create(TMethod(aListener),@JOBCallTJSEventHandler);
try
InvokeJSNoResult('addEventListener',[aName,cb1]);
InvokeJSNoResult('addEventListener',[aName,m]);
finally
cb1.Free;
m.Free;
end;
end;