Private Sub B4XPage_Created (Root1 As B4XView)
Log("------------B4XPage_Created---------------- :")
Root = Root1
'load the layout to Root
Root.LoadLayout("page2")
pms.CheckAndRequest(pms.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult(Permission As String, Result As Boolean)
End Sub
Private Sub B4XPage_PermissionResult (Permission As String, Result As Boolean) 'There was no output of this sub to the logger
Log("------B4XPage_PermissionResult-------- :")
Log($" Permission=${Permission}
Result=${Result}"$)
End Sub