Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private cMP As B4XMainPage
Private Const iPageCode As Int = 27
End Sub
Public Sub Initialize As Object
cMP = B4XPages.GetPage("mainpage")
Return Me
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Load_Layout
End Sub
Sub B4XPage_Appear
cMP.mapB4XPages.Put(iPageCode, 1)
End Sub
Sub Load_Layout '(iButtonToClick As Int)
Root.LoadLayout(Enums.arrB4XPagesNames(iPageCode))
AddMenuBar
AddOverflowPanels
End Sub