Sub GetBrightnessPermissions
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
If CanWriteToSystemSettings = False Then
Dim in As Intent
in.Initialize("android.settings.action.MANAGE_WRITE_SETTINGS", "package:" & Application.PackageName)
StartActivity(in)
Wait For Activity_Resume
If CanWriteToSystemSettings = False Then
Log("no permission...")
Return
End If
End If
End If
End Sub
Sub CanWriteToSystemSettings As Boolean
Log("In can write")
Dim p As Phone
If p.SdkVersion >= 23 Then
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim settings As JavaObject
settings.InitializeStatic("android.provider.Settings.System")
Return settings.RunMethod("canWrite", Array(ctxt))
End If
Return True
End Sub