'Code module
#Region Project Attributes
#ApplicationLabel: McCoy's Outdoors Deals
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
'#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
'#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#iPhoneOrientations: Portrait
#iPadOrientations: Portrait
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 12
#CertificateFile: ios_development.cer
#Entitlement: <key>aps-environment</key><string>production</string>
#ProvisionFile: iPadDevelopment.mobileprovision
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Public UNC As UserNotificationCenter
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
App.RegisterForRemoteNotifications
App.RegisterUserNotifications(True, True, True)
UNC.Initialize
End Sub
Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
FirebaseMessaging.MessageReceivedWhileInTheForeground(Message)
CompletionHandler.Complete
End Sub
Private Sub Application_PushToken (Success As Boolean, Token() As Byte)
Log($"PushToken: ${Success}"$)
If Success = False Then
Log(LastException)
End If
End Sub
Private Sub Application_Active
End Sub
Private Sub Application_Background
End Sub