Okay, solved. In my Dashboard.wo I have the following:
Code:
Object oDynamicObjectContainer is a cWebDynamicObjectContainer
Set piColumnCount to 12
Set piColumnSpan to 12
Object oNavigateToZoomComments is a cWebObject
WebRegisterPath ntNavigateForward oZoomComments
Procedure DoNavigate
Send NavigatePath
End_Procedure
End_Object
In my DashboardClasses.pkg I have:
Code:
Class cCommentsTile is a cWebHtmlBox
Procedure Construct_Object
Forward Send Construct_Object
//
Set pbServerOnClick to True
Set piColumnSpan to 6
Set piColumnIndex to 6
Set psCSSClass to "Tile DarkAlternate"
Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div class="Tile_Icon WebIcon_Add"></div><div class="Tile_TextUnderIcon">Send Your Comments</div></div>'
End_Procedure
Procedure OnClick String sId String sParam
Send DoNavigate of oNavigateToZoomComments
End_Procedure
Procedure OnGetNavigateForwardData tWebNavigateData ByRef NavigateData Handle hoToView
Move True to NavigateData.bNewRecord
End_Procedure
End_Class