Sub Class_Globals
Private mEventName As String 'ignore
Private mCallBack As Object 'ignore
Public mBase As B4XView
Private xui As XUI 'ignore
Public Tag As Object
Private Label1 As B4XView
End Sub
Public Sub Initialize (Callback As Object, EventName As String)
mEventName = EventName
mCallBack = Callback
End Sub
'Base type must be Object
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
Sleep(0)
mBase.LoadLayout("pnlGlobal")
Label1.Text = "Start"
End Sub
Private Sub Base_Resize (Width As Double, Height As Double)
End Sub
Public Sub setGo(newText As String)
Label1.Text = newText
End Sub