#include <CtrlLib/CtrlLib.h>
using namespace Upp;

struct acstest : public TopWindow
{
	typedef acstest CLASSNAME;
	Label l1,l2;
	ArrayCtrl ac1, ac2;
	acstest();
	
	//void DoSort(ArrayCtrl &ac, int col) { ac.ToggleSortColumn(col); ac.DoColumnSort(); } <<<--- MANY compile errors - why?
	void DoSort(ArrayCtrl *pac, int col) { pac->ToggleSortColumn(col); pac->DoColumnSort(); }
};

acstest::acstest()
{
	Title("ArrayCtrl-Sorting-test");
	SetRect(50,50,750,750);

	Add(l1.SetLabel(t_("no attrtext - sort OK")).LeftPosZ(5, 245).TopPosZ(5, 15));
	Add(ac1.LeftPosZ(5, 245).TopPosZ(20, 475));
	ac1.AddColumn("col1").HeaderTab().WhenAction=THISBACK2(DoSort, &ac1, 0);
	ac1.AddColumn("col2").HeaderTab().WhenAction=THISBACK2(DoSort, &ac1, 1);
	ac1.AddColumn("col3").HeaderTab().WhenAction=THISBACK2(DoSort, &ac1, 2);
	ac1.Add("bbb","ccc","aaa");
	ac1.Add("aaa","bbb","ccc");
	ac1.Add("ccc","aaa","bbb");

	Add(l2.SetLabel(t_("'col2' with attrtext - sort fails on 'col2'")).LeftPosZ(250, 245).TopPosZ(5, 15));
	Add(ac2.LeftPosZ(250, 245).TopPosZ(20, 475));
	ac2.AddColumn("col1").HeaderTab().WhenAction=THISBACK2(DoSort, &ac2, 0);
	ac2.AddColumn("col2").HeaderTab().WhenAction=THISBACK2(DoSort, &ac2, 1); //does not happen
	ac2.AddColumn("col3").HeaderTab().WhenAction=THISBACK2(DoSort, &ac2, 2);
	ac2.Add("bbb",AttrText("ccc").Align(ALIGN_CENTER).NormalInk(Red()),"aaa");
	ac2.Add("aaa",AttrText("bbb").Align(ALIGN_CENTER).NormalInk(Green()),"ccc");
	ac2.Add("ccc",AttrText("aaa").Align(ALIGN_CENTER).NormalInk(Blue()),"bbb");
}

GUI_APP_MAIN
{
	acstest().Run();	
}