Sub Class_Globals
@@@consts
'	Private fx As JFX
	Private XUI As XUI
	Private mBase As B4XView
	Private xDialog As B4XDialog
@@@defs
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
	mBase = XUI.CreatePanel("mBase")
	@@@layoutanimated
	mBase.LoadLayout("LayoutName")
@@@init
End Sub

Public Sub GetPanel (Dialog As B4XDialog) As B4XView
	Return mBase
	
End Sub

Private Sub Show (Dialog As B4XDialog)
	xDialog = Dialog

End Sub

Private Sub DialogClosed(Result As Int) 				'ignore
	
End Sub
@@@methods
@@@events
@@@mapsto
@@@mapsfrom
@@@newlist

