Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim drawer As B4XDrawer
drawer.Initialize(Me, "drawer", Root, 200dip)
drawer.CenterPanel.LoadLayout("MainPage")
btnJumpToParis.Enabled = False
Wait For (InitializeMap) Complete (Success As Boolean)
MapReady = Success
If MapReady Then
Log("map ready")
btnJumpToParis.Enabled = True
gmap.AddMarker(0, 0, "Center")
End If
End Sub