Sub Class_Globals
Private Root As B4XView
Private Camera As Camera
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Sleep (100)
Camera.Initialize("Camera", B4XPages.GetNativeParent(Me))
Log ("Before " & B4XPages.GetManager.GetTopPage.B4XPage)
Camera.TakePicture
Sleep (5000)
Log ("After " & B4XPages.GetManager.GetTopPage.B4XPage)
End Sub