#ifdef INTERFACE
CLASS(VoretTabController) EXTENDS(ModalController)
	METHOD(VoretTabController, configureVoretTabController, void(entity, float))
	METHOD(VoretTabController, makeTabButton, entity(entity, string, entity))
	ATTRIB(VoretTabController, rows, float, 0)
	ATTRIB(VoretTabController, fontSize, float, SKINFONTSIZE_NORMAL)
	ATTRIB(VoretTabController, image, string, SKINGFX_BUTTON)
ENDCLASS(VoretTabController)
entity makeVoretTabController(float theRows);
#endif

#ifdef IMPLEMENTATION
entity makeVoretTabController(float theRows)
{
	entity me;
	me = spawnVoretTabController();
	me.configureVoretTabController(me, theRows);
	return me;
}
void configureVoretTabControllerVoretTabController(entity me, float theRows)
{
	me.rows = theRows;
}
entity makeTabButtonVoretTabController(entity me, string theTitle, entity tab)
{
	entity b;
	if(me.rows != tab.rows)
		error("Tab dialog height mismatch!");
	b = makeVoretButton(theTitle, '0 0 0');
		me.addTab(me, tab, b);
	// TODO make this real tab buttons (with color parameters, and different gfx)
	return b;
}
#endif