Sub Class_Globals
Private xui As XUI
Private MP As B4XMainPage
Private callBack As Object
Private cv As B4XCanvas
Public name As String
End Sub
Public Sub Initialize(name_ As String, callBack_ As Object, cv_ As B4XCanvas)
MP = B4XPages.MainPage
name = name_
callBack = callBack_
cv = cv_
End Sub