B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=B4APagesNavBar.zip

Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Public Page2 As B4XPage2
	Public Page3 As B4XPage3
	Public Page4 As B4XPage4
	
	Private NavBar1 As NavBar
	Public CurrentPage As Object
	Private pnlMainPage As B4XView
End Sub

Public Sub Initialize
	B4XPages.GetManager.TransitionAnimationDuration = 0
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("MainPage")
	
	Page2.Initialize
	B4XPages.AddPage("Page 2", Page2)
	Page3.Initialize
	B4XPages.AddPage("Page 3", Page3)
	Page4.Initialize
	B4XPages.AddPage("Page 4", Page4)
	
	NavBar1.Initialize(Root)
	CurrentPage = B4XPages.MainPage
	
#If B4A
'	NavBar1.Resize
#End If

End Sub

Private Sub B4XPage_Resize (Width As Int, Height As Int)

End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

