* Adapt to new classes

demo/wasienv/threads/demothreads.lpi

@@ -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>

demo/wasienv/threads/demothreads.lpr

@@ -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;