#include <CtrlLib/CtrlLib.h>

using namespace Upp;

struct Test : TopWindow {
	virtual void LeftDown(Point p, dword keyflags) {
		WaitCursor h;
		Sleep(2000);
	}
	
	bool flag;

	virtual bool Key(dword key, int)
	{
		if(key == K_CTRL_KEY)
			flag = true;
		if(key == (K_CTRL_KEY|K_KEYUP))
			flag = false;
		Refresh();
		return false;
	}

	virtual Image CursorImage(Point p, dword keyflags)
	{
		LOG("CursorImage " << flag);
		return flag ? Image::Hand() : Image::Arrow();
	}

	void Action()
	{
		LOG("Action " << msecs());
		ProcessEvents();
		Sleep(2000);
		LOG("Action end " << msecs());
	}
	
	virtual void RightDown(Point p, dword keyflags) {
		MenuBar bar;
		bar.Add("Test", THISBACK(Action));
		bar.Execute();
	}
	
	typedef Test CLASSNAME;
	
	Test() {
		flag = false;
	}
};

GUI_APP_MAIN
{
	Test().Run();
}