Browse Source

wasmjob: use generated job_web

mattias 3 years ago
parent
commit
10f7cd45fc
3 changed files with 20319 additions and 298 deletions
  1. 2 2
      demo/wasienv/button/WasiButton1.lpr
  2. 3 3
      demo/wasienv/dom/WasiDomTest1.lpr
  3. 20314 293
      demo/wasienv/dom/job_web.pas

+ 2 - 2
demo/wasienv/button/WasiButton1.lpr

@@ -13,14 +13,14 @@ type
 
   TWasmApp = class
   private
-    function OnButtonClick(Event: IJSEventListenerEvent): boolean;
+    function OnButtonClick(Event: IJSEvent): boolean;
   public
     procedure Run;
   end;
 
 { TApplication }
 
-function TWasmApp.OnButtonClick(Event: IJSEventListenerEvent): boolean;
+function TWasmApp.OnButtonClick(Event: IJSEvent): boolean;
 begin
   writeln('TWasmApp.OnButtonClick ');
   if Event=nil then ;

+ 3 - 3
demo/wasienv/dom/WasiDomTest1.lpr

@@ -31,14 +31,14 @@ type
 
   TWasmApp = class
   private
-    function OnPlaygroundClick(Event: IJSEventListenerEvent): boolean;
+    function OnPlaygroundClick(Event: IJSEvent): boolean;
   public
     procedure Run;
   end;
 
 { TApplication }
 
-function TWasmApp.OnPlaygroundClick(Event: IJSEventListenerEvent): boolean;
+function TWasmApp.OnPlaygroundClick(Event: IJSEvent): boolean;
 var
   w: TJOBResult;
 begin
@@ -58,7 +58,7 @@ var
   JSElem: IJSElement;
 begin
   JSElem:=JSDocument.getElementById('playground');
-  writeln('TWasmApp.Run playground classname=',JSElem._ClassName);
+  writeln('TWasmApp.Run playground classname=',JSElem.className_);
 
   writeln('TWasmApp.Run addEventListener click...');
   JSElem.addEventListener('click',@OnPlaygroundClick);

File diff suppressed because it is too large
+ 20314 - 293
demo/wasienv/dom/job_web.pas


Some files were not shown because too many files changed in this diff