#include <CtrlLib/CtrlLib.h>

using namespace Upp;

class MenuTest : public TopWindow {
	TrayIcon tray;


public:
	typedef MenuTest CLASSNAME;
	void MainMenu(Bar& bar)
	{
		bar.Sub("Pause", THISFN(PauseMenu));
		bar.Separator();
		bar.Add("Exit", [&]{ tray.Break(); });
	}
	void PauseMenu(Bar& bar)
	{
                bar.Add("Pause", THISFN(Func1));
                bar.Add("Réunion", THISFN(Func2));
	}
	
	void Func1()
	{
		PromptOK("Pause menu entry invoked!");
	}
	void Func2()
	{
		Exclamation("Meeting menu entry invoked!");
	}
	void Do()
	{
		tray.Icon(CtrlImg::Diskette());
		tray.WhenBar = THISFN(MainMenu);
		tray.Run();
	}
};

GUI_APP_MAIN
{
	MenuTest().Do();
}