Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
wait for (test) complete (done As Object)
End Sub
Private Sub test As ResumableSub
Dim i As Int = "A"
Sleep(0)
Return ""
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
LogColor(Error,xui.Color_Blue)
LogColor(StackTrace,xui.Color_Magenta)
Return False
End Sub