'Code module
#Region Project Attributes
#ApplicationLabel: MyApp
#Version: 0.9.8
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
'#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPhoneOrientations: Portrait
'#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
'#Target: iPhone, iPad
#Target: iPhone
#ATSEnabled: True
#MinVersion: 8
'QueriesSchemes definition
#QueriesSchemes : whatsapp
#QueriesSchemes: tel
#QueriesSchemes: telprompt
'UrlScheme definition
'#UrlScheme: comgooglemaps
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
'AppGlobals (module shared vars, consts and objs)
Public AppGlobals As clsGlobals
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
'LOGGING SWITCH
B4XPages.GetManager.LogEvents = False
'AppGlobals
AppGlobals.Initialize
B4XPages.GlobalContext = AppGlobals
End Sub
'Template version: B4i-1.0
#Region Delegates
Private Sub Application_Background
B4XPages.Delegate.Activity_Pause
End Sub
Private Sub Application_Foreground
B4XPages.Delegate.Activity_Resume
End Sub
#End Region