'
Sub Class_Globals
Private moCS As CSBuilder
Private moData As List
Private moSer As B4XSerializator
End Sub
' ...
Public Sub FromBytes(b() As Byte) As PCSBuilder
Dim list As List = moSer.ConvertBytesToObject(b)
For Each o() As Object In list
If o.Length = 1 Then
CallSub(Me, o(0))
Else
If o.Length = 2 Then
CallSub2(Me, o(0), o(1))
Else
CallSub3(Me, o(0), o(1), o(2))
End If
End If
Next
Return Me
End Sub
' ...
Public Sub Clickable(EventName As String, Tag As Object) As PCSBuilder
moCS.Clickable(EventName, Tag)
moData.Add(Array("clickable", EventName, Tag))
Return Me
End Sub
'
Public Sub EnableClickEvents(oView As Object)
moCS.EnableClickEvents(oView)
End Sub