Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Public FBA As FirebaseAnalytics
Public FBM As FirebaseMessaging
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
FBA.Initialize()
FBM.Initialize("FBM")
App.RegisterUserNotifications(True, True, True)
App.RegisterForRemoteNotifications
Page1.Initialize("Page1")
Page1.Title = "Notify-Test"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
End Sub
Private Sub Application_Active
FBM.FCMConnect()
End Sub
Private Sub Application_Background
FBM.FCMDisconnect()
End Sub
Private Sub FBM_FCMConnected
FBM.SubscribeToTopic("ios_general")
End Sub
Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
Dim Text As Map
Text = Message.Get("notification")
Log($"Message arrived: ${Message} "$)
Log($"Text arrived: ${Text} "$)
Msgbox(Text.Get("body"), "Push message!")
CompletionHandler.Complete
End Sub
