Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private WebView1 As WebView
Private WebViewExtra As WebViewExtras
Private WebViewClient As DefaultWebViewClient
Private WebViewChrome As DefaultWebChromeClient
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
WebViewExtra.Initialize(WebView1)
WebViewClient.Initialize("WebViewClient")
WebViewExtra.SetWebViewClient(WebViewClient)
WebViewChrome.Initialize("WebViewChrome")
WebViewExtra.SetWebChromeClient(WebViewChrome)
WebView1.LoadUrl("https://darling-syrniki-098ddf.netlify.app/")
End Sub
Private Sub WebViewClient_ReceivedError(ErrorCode As Int, Description As String, FailingUrl As String)
Log(ErrorCode & ", " & Description & ", " & FailingUrl)
End Sub