void ColorPop()
	{
		ColorPopUp chooser;
		chooser.PopUp(&myButton);
	}
	
	typedef MyAppWindow CLASSNAME;
		
	MyAppWindow()
	{
		Title("My application").Zoomable().Sizeable();
		AddFrame(menu);
		Add(myButton.LeftPos(10, 40).TopPos(10, 20));
		menu.Set(THISBACK(MainMenu));
		myButton.WhenAction = THISBACK(ColorPop);
	}
};


GUI_APP_MAIN
{
	MyAppWindow app;
	app.Run();
}

#include <CtrlLib/CtrlLib.h>

#define IMAGECLASS TutorialImg
#define IMAGEFILE <gui_tutorial/ch11/images.iml>
#include <Draw/iml.h>

struct MyAppWindow : TopWindow {
	MenuBar menu;
	ToolBar tool;
//================================
	ColorPusher colorSelector1;
    ColorCtrl colorSelector2;
    ColorButton colorSelector3;
 //=================================   
	void MenuFn() {
		PromptOK("Fn activated!");
	}

	void BarFn() {
		PromptOK("Fn2 activated!");
	}
	
	void Exit() {
		if(PromptOKCancel("Exit MyApp?"))
			Break();
	}

	void SubBar(Bar& bar) {
		bar.AddMenu("Function", TutorialImg::Fn(), THISBACK(MenuFn));
		bar.Add(TutorialImg::Fn2(), THISBACK(BarFn));
		bar.Add("Exit", TutorialImg::Exit(), THISBACK(Exit));

//==============================	
		bar.Separator();
		bar.Add(colorSelector1,120,20);
		colorSelector1.WithText();
		bar.Add(colorSelector2,50,20);
		bar.Add(colorSelector3);
		colorSelector3.ColorImage(CtrlImg::BoxButton0());
		colorSelector3.NullImage(CtrlImg::set_transparent());
//===============================
	}

	void MainMenu(Bar& bar) {
		bar.Add("Menu", THISBACK(SubBar));
	}

	typedef MyAppWindow CLASSNAME;

	MyAppWindow() {
		Title("My application with bars").Sizeable();
		AddFrame(menu);
		AddFrame(tool);
		menu.Set(THISBACK(MainMenu));
		tool.Set(THISBACK(SubBar));
	}
};

GUI_APP_MAIN
{
	MyAppWindow app;
	app.Run();
}