#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private wsc As WebSocketClient ' <= jWebSocketClient library version 1.11
End Sub
Sub AppStart (Form1 As Form, Args() As String)
Log("AppStart")
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Log("Before wsc.Initialize")
wsc.Initialize("wsc") ' => Error
Log("After wsc.Initialize")
End Sub
Private Sub wsc_TextMessage(msg As String)
Log("wsc_TextMessage => msg: " & msg)
End Sub
Private Sub wsc_Connected
Log("wsc_Connected")
End Sub
Private Sub wsc_Closed (Reason As String)
Log("wsc_Closed")
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello World!", "B4X")
End Sub