Sub Process_Globals
End Sub
Sub Globals
' WebChromeClient1 is a global so we can reference it in the Sub WebChromeClient1_GeoLocationPermissionsRequest
Dim WebChromeClient1 As DefaultWebChromeClient
Dim WebView1 As WebView
Dim WebView2 As WebView
Dim WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layoutMain")
WebView1.Height=100%y/2
WebView1.Width=100%x
WebViewExtras1.Initialize(WebView1)
WebChromeClient1.Initialize("WebChromeClient1")
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
WebView1.LoadUrl("http://html5demos.com/geo")
WebView2.Top=(100%y/2)+1
WebView2.Height=100%y/2
WebView2.Width=100%x
WebView2.LoadUrl("http://html5demos.com/geo")
' no WebChromeClient is added to WebView2
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebChromeClient1_GeoLocationPermissionsRequest As Int
' note that the manifest has had android.permission.ACCESS_FINE_LOCATION manually added to it
Dim Response As Int
Response=Msgbox2("Allow WebView1 to use device geolocation features?", "Permission required:", "Allow", "", "Disallow", Null)
If Response=DialogResponse.POSITIVE Then
ToastMessageShow("Permission granted", True)
Return WebChromeClient1.GEOLOCATION_PERMISSION_ALLOW
Else
ToastMessageShow("Permission denied", True)
Return WebChromeClient1.GEOLOCATION_PERMISSION_DISALLOW
End If
End Sub