Sub Activity_Create(FirstTime As Boolean)
If Starter.PermissionOk=False Then
wait for (CheckPermission1) complete (result As Boolean)
If result=False Then
Activity.Finish
Return
End If
wait for (CheckPermission2) complete (result As Boolean)
If result=False Then
Activity.Finish
Return
End If
wait for (CheckPermission3) complete (result As Boolean)
If result=False Then
Activity.Finish
Return
End If
wait for (CheckPermission4) complete (result As Boolean)
If result=False Then
Activity.Finish
Return
End If
End If
Log("All permission ok")
File.WriteString(Starter.AppPath,"PermOk","")
Starter.PermissionOk=True
End Sub
Sub CheckPermission1 As ResumableSub
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult(Permission As String, Result As Boolean)
Return Result
End Sub
Sub CheckPermission2 As ResumableSub
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
wait for Activity_PermissionResult(Permission As String, Result As Boolean)
Return Result
End Sub
Sub CheckPermission3 As ResumableSub
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_COARSE_LOCATION)
wait for Activity_PermissionResult(Permission As String, Result As Boolean)
Return Result
End Sub
Sub CheckPermission4 As ResumableSub
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
wait for Activity_PermissionResult(Permission As String, Result As Boolean)
Return Result
End Sub