B4J Question [ABMaterial] B4JS+B4J 7.80= Not working

[MichalK73]

Hello.
I have the latest version of B4J 7.80 and I noticed that B4JS has stopped working. Even the demo doesn't start. The page is still loading. Can someone check if they work or if I should look for a reason for myself.
ABMaterial ver 4.51

Best regards

 

[alwaysbusy]

No problem here (also B4J 7.80). If you check the console in Chrome (press F12) do you see errors? And if you check the Network tab in the dev tools of chrome, press ctrl + F5, are some things not loaded?

 

[MichalK73]

From demo B4JS Chrome

 

[alwaysbusy]

Ah, I see. This is a bug in the latest release of ABM in the B4JSMsgbox. In the demo, comment out all the ABM.B4JSMsgbox lines and replace with:

Replace:

Select Case Unit.ToUpperCase
   Case "K"
       Page.B4JSMsgbox("msgbox", "The distance is " & (Distance * ToKM) & " kilometers!", "Tutorial", "OK", False, ABM.MSGBOX_POS_CENTER_CENTER, "")
   Case "N"
       Page.B4JSMsgbox("msgbox", "The distance is " & (Distance * ToMiles) & " miles!", "Tutorial", "OK", False, ABM.MSGBOX_POS_CENTER_CENTER, "")
   Case Else
       Page.B4JSMsgbox("msgbox", "No idea what you are doing :-)", "Tutorial", "OK", False, ABM.MSGBOX_POS_CENTER_CENTER, "")
End Select

With:

Dim dist As Double
Select Case Unit.ToUpperCase
       Case "K"
           dist = Distance * ToKM
           Log("The distance is " & dist & " kilometers!")
       Case "N"
           dist = Distance * ToMiles
           Log("The distance is " & dist & " miles!")
       Case Else
           Log("No idea what you are doing :-)")
   End Select

And:

page.Msgbox("msgbox", "Your complex calculation is now " & ResultLabel.Text, "Result", "OK", False, ABM.MSGBOX_POS_CENTER_CENTER, "")

With:

Log("Your complex calculation is now " & ResultLabel.Text)

In the console of the browser, the responses will show instead of an Msgbox.

Alain

 

[OliverA]

From demo B4JS Chrome

The other bug is the "SyntaxError: unexpected token: ':'" bug, see https://www.b4x.com/android/forum/threads/abmaterial-b4js-cannot-get-it-running.106928/#post-669045

 

[alwaysbusy]

The other bug is the "SyntaxError: unexpected token: ':'" bug

This is the B4JSMsgbox bug. It shouldn't appear if you don't use B4JSMsgbox.

 

[alwaysbusy]

If one of you still gets this ":" bug if you do NOT use B4JSMsgbox/B4JSMsgbox2 or B4JSInput, please send me your b4js.xxxxxxxx.js and B4JSDemo.xxxxxx.js files. I cannot reproduce it here and maybe these .js files will be able to give me a clue.

 

[OliverA]

B4JSMsgbox.

I guess in my case it was B4JSShowToast (look at link). Unless I'm off somehow (would not surprise me).

 

[alwaysbusy]

B4JSShowToast

Shouldn't, as this is just the normal Materialize CSS library and the Msgboxes are using the SweetAlert2 javascript library.

 

[MichalK73]

I created a small test with B4JS.
At ABMaterial 4.30 it works very well.
On ABMaterial 4.51 it doesn't work at all. The page is looped.

b4js.1568915185870.js: 536 Uncaught SyntaxError: Unexpected token:
template.1568915185870.js: 21 Uncaught ReferenceError: b4js_test is not defined
     at template.1568915185870.js: 21

 

[alwaysbusy]

Thanks, but without the .js files I asked there is nothing I can do with the b4j project alone. OliverA has provided his and I will look into them.

 

[alwaysbusy]

The .js files @OliverA gave me confirmed that the problem should be in the B4JS Msgbox/Inputbox. I thought the javascript code was not generated if you didn't use it, but it appears it does.

Here is a temporary fix:

In Main, make a new method:

Sub TempFixB4JS
   Dim txtIN As TextReader
   txtIN.Initialize(File.OpenInput(File.DirApp & "/www/" & ABMShared.AppName, "b4js." & ABMShared.AppVersion & ".js"))
   Dim s As String = txtIN.ReadAll
   txtIN.Close
   
   s = s.Replace("swaloptions.rtl:","swaloptions.rtl=") '<--- this : should've been an =
   
   Dim txtOUT As TextWriter
   txtOUT.Initialize(File.OpenOutput(File.DirApp & "/www/" & ABMShared.AppName, "b4js." & ABMShared.AppVersion & ".js",False))
   txtOUT.Write(s)
   txtOUT.Close
End Sub

And in AppStart, AFTER StartServer:

   ...
   ' start the server
   myApp.StartServer(srvr, "srvr", port)   
   
   TempFixB4JS '<----------------------

Alain

 

[MichalK73]

Fix works perfectly.
Everything works, inclusion with a demo.
Thanks a lot