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://google.co.uk/")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebViewClient1_ScaleChanged(OldScale As Float, NewScale As Float)
Log("WebViewClient1_ScaleChanged from "&OldScale&" to "&NewScale)
End Sub