Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
Private JavascriptInterface1 As DefaultJavascriptInterface
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("lQuest")
WebViewExtras1.Initialize(WebView1)
JavascriptInterface1.Initialize
WebViewExtras1.addJavascriptInterface(JavascriptInterface1, "B4X")
' WebView1.LoadUrl(".....")
WebView1.LoadHtml(File.ReadString(File.DirAssets, "endquest.html"))
End Sub
'Receives a sub to call from js
Public Sub CallOK
' Starter.kvs.Put("quest", False)
B4XPages.ClosePage(Me)
End Sub