#include <CtrlLib/CtrlLib.h>

using namespace Upp;

class testclose : public TopWindow
{
public:
	typedef testclose CLASSNAME;
	testclose();
	
	ArrayCtrl ar;
	
	void armenu(Bar &bar);
	void DoClose();
};

testclose::testclose()
{
	Title("testclose");
	SetRect(100,100,300,300);
	
	ar.SetRect(2,2,200,200);
	Add(ar);
	
	ar.WhenBar = THISBACK(armenu);
}

GUI_APP_MAIN
{
	testclose().Run();
}

void testclose::armenu(Bar &bar)
{
	bar.Add("Close", THISBACK(DoClose));
}

void testclose::DoClose()
{
	Close();
}