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

class Win: public TopWindow{
	typedef Win CLASSNAME;
public:
	Button b;
	Win(){
		Add(b.HCenterPos().VCenterPos());
		b.SetLabel("Close");
		b<<=THISBACK(OnPush);
	}
	void OnPush(){
		Exclamation("Button pushed, exiting...");
		Close();
	}
	bool Key(dword key,int){
		if(key=='q'){
			b.Action();
			return true;
		}
		return false;
	}
};

GUI_APP_MAIN{
	Win().Run();
}