Sub Process_Globals
Public ActionBarHomeClicked As Boolean
Public auth As FirebaseAuth
Public facebook As FacebookSdk
End Sub
Sub Globals
Dim xui As XUI
Dim Dialog As B4XDialog
Dim Base As B4XView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim pm As B4XPagesManager
Estructuras.usuario_registrado.Initialize
pm.Initialize(Activity)
Estructuras.bl_usuario_registrado = False
If FirstTime Then
Base = Activity
Dialog.Initialize (Base)
auth.Initialize("auth")
facebook.Initialize
End If
If auth.CurrentUser.IsInitialized Then Auth_SignedIn(auth.CurrentUser)
End Sub