Sub checkPermissions
Private rp As RuntimePermissions
Dim phone As Phone
Log(phone.SdkVersion) ' shows 29
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
'Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("No permission: " & Permission, True)
Return
End If
Return
End Sub