#ifdef INTERFACE
CLASS(VoretCreditsDialog) EXTENDS(VoretDialog)
	METHOD(VoretCreditsDialog, fill, void(entity))
	METHOD(VoretCreditsDialog, focusEnter, void(entity))
	ATTRIB(VoretCreditsDialog, title, string, "Credits")
	ATTRIB(VoretCreditsDialog, color, vector, SKINCOLOR_DIALOG_CREDITS)
	ATTRIB(VoretCreditsDialog, intendedWidth, float, SKINWIDTH_CREDITS)
	ATTRIB(VoretCreditsDialog, rows, float, SKINROWS_CREDITS)
	ATTRIB(VoretCreditsDialog, columns, float, 2)
	ATTRIB(VoretCreditsDialog, creditsList, entity, NULL)
ENDCLASS(VoretCreditsDialog)
#endif

#ifdef IMPLEMENTATION
void fillVoretCreditsDialog(entity me)
{
	entity e;
	me.TR(me);
		me.TD(me, me.rows - 1, me.columns, me.creditsList = makeVoretCreditsList());
	me.gotoRC(me, me.rows - 1, 0);
		me.TD(me, 1, me.columns, e = makeVoretButton("OK", '0 0 0'));
			e.onClick = Dialog_Close;
			e.onClickEntity = me;
}
void focusEnterVoretCreditsDialog(entity me)
{
	me.creditsList.scrolling = time + 1;
}
#endif