@@@eventdefs
Sub Class_Globals
	@@@requirefx
	Private xui As XUI 'ignore
	Private mEventName As String 'ignore
	Private mCallBack As Object 'ignore
	Public mBase As B4XView
	Public Tag As Object

@@@consts
@@@defs
End Sub

Public Sub Initialize (Base as B4xView, Callback As Object, EventName As String)
	mEventName = EventName
	mCallBack = Callback
	mBase = Base
	mBase.LoadLayout("LayoutName")
@@@init
End Sub

Public sub GetBase As B4xView
	Return mBase
End Sub

'Private Sub Base_Resize (Width As Double, Height As Double)
 
'End Sub

@@@methods
@@@events
@@@mapsto
@@@mapsfrom
@@@newlist