B4A=true
Group=Class
ModulesStructureVersion=1
Type=Class
Version=12.5
@EndOfDesignText@
Private Sub Class_Globals
	
	Private d As Dexter
 	Private SdkVersion As Int

	Private content As Panel  'ignore
	
	Private mCallBack As Object
	Private mEventName As String

	Private customDialog As customMaterialDialog

End Sub

Public Sub Initialize(callBack As Object,content2 As Panel)
   	
	Dim device As Phone
	SdkVersion = device.SdkVersion

	customDialog.Initialize(content2,Me)

	mCallBack = callBack
 	mEventName = "permit"
	
End Sub

Public Sub PermissionRequest
	
	Dim permissions() As String
 	
	If SdkVersion < 30 Then
  		
		permissions = Array As String("android.permission.WRITE_EXTERNAL_STORAGE" _
	,"android.permission.READ_EXTERNAL_STORAGE" _
	)
   
		d.Initialize2("dexx",permissions)

	Else
		afterPer
	End If
  
End Sub

Sub dexx_onPermissionsGranted(allPermissionsGranted As Boolean,grantedPermissionsName As List)
	
	Log(allPermissionsGranted)
	If allPermissionsGranted Then
		afterPer
  	Else
		MsgboxPermission(func.gland(20),func.gland(19))
	End If
End Sub

 
Private Sub MsgboxPermission(str_content12 As String,str_title12 As String)

	customDialog.addDialog(str_title12,str_content12,func.gland(18),"","")
 
End Sub

Private Sub Dialog_Positive
	PermissionRequest
End Sub
 
Private Sub afterPer
  
	If SubExists(mCallBack, mEventName & "_ref") Then
		CallSubDelayed(mCallBack, mEventName & "_ref")
	End If

End Sub