* Adapt to new classes

This commit is contained in:
Michael Van Canneyt 2025-04-24 16:07:40 +02:00
parent 1854000d26
commit bf0768632f
2 changed files with 4 additions and 3 deletions

View File

@ -52,7 +52,7 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target FileExt=".js">
<Target>
<Filename Value="demothreads"/>
</Target>
<SearchPaths>
@ -76,7 +76,8 @@
</Debugging>
</Linking>
<Other>
<CustomOptions Value="-Jeutf-8 -Jirtl.js -Jc -Jminclude"/>
<CustomOptions Value="-Jeutf-8 -Jirtl.js -Jc -Jminclude
-dDEBUGCOMMANDDISPATCHERx"/>
<CompilerPath Value="$(pas2js)"/>
</Other>
</CompilerOptions>

View File

@ -24,7 +24,7 @@ Type
procedure TMyApplication.DoWrite(Sender: TObject; aOutput: String);
begin
Writeln('Wasm: '+aOutput);
Writeln('[Wasm main thread]: '+aOutput);
end;
function TMyApplication.DoStartClick(aEvent: TJSMouseEvent): boolean;