Type=Class
Version=5.9
ModulesStructureVersion=1
B4J=true
@EndOfDesignText@
'Created by alons on 9/8/2016.
'wrapped by Anele 'Mashy' Mbanga for ABMaterial
'anele@mbangas.com
Sub Class_Globals
	Public ABMComp As ABMCustomComponent
	Public ABM As ABMaterial
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(InternalPage As ABMPage, ID As String)
	ABMComp.Initialize("ABMComp", Me, InternalPage, ID,"")
End Sub

Sub ABMComp_Build(InternalPage As ABMPage,internalID As String) As String
	Return $"<span id="${internalID}"></span><script>var _${internalID};</script>"$
End Sub

' Is useful to run some initalisation script.
Sub ABMComp_FirstRun(InternalPage As ABMPage, internalID As String)
	Dim script As String = $"initClock('${internalID}');"$
	InternalPage.ws.Eval(script, Array As Object(ABMComp.ID))
	ABM.AddClass(InternalPage,internalID,"clockUser")
	' flush not needed, it's done in the refresh method in the lib
End Sub
' runs when a refresh is called
Sub ABMComp_Refresh(InternalPage As ABMPage, internalID As String)
	Dim script As String = $"initClock('${internalID}');"$
	InternalPage.ws.Eval(script, Array As Object(ABMComp.ID))
	ABM.AddClass(InternalPage,internalID,"clockUser")
End Sub

' do the stuff needed when the object is removed
Sub ABMComp_CleanUp(InternalPage As ABMPage, internalID As String)
End Sub