Sub Process_Globals
End Sub
Sub Globals
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
WebViewExtras1.Initialize(WebView1)
Dim WebViewClient1 As WebViewClient
WebViewClient1.Initialize("WebViewClient1")
WebViewExtras1.SetWebViewClient(WebViewClient1)
WebViewExtras1.LoadUrl("http://gooXle.co.uk/")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebViewClient1_ReceivedError(ErrorCode As Int, Description As String, FailingUrl As String)
Log("WebViewClient1_ReceivedError "&ErrorCode)
' the WebView will still display 'Web page not available' until we (successfully) load another web page
WebViewExtras1.LoadUrl("http://google.co.uk/") ' comment this line and you'll see the 'Web page not available'
End Sub