.reference

git-svn-id: svn://ultimatepp.org/upp/trunk@10266 f0d560ea-af0d-0410-9eb7-867de7ffcac7

reference/MenuBarValue/MenuBarValue.upp

@@ -0,0 +1,11 @@
+description "\"value\" return from local MenuBar\377";
+
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+

reference/MenuBarValue/init

@@ -0,0 +1,4 @@
+#ifndef _MenuBarValue_icpp_init_stub
+#define _MenuBarValue_icpp_init_stub
+#include "CtrlLib/init"
+#endif

reference/MenuBarValue/main.cpp

@@ -0,0 +1,22 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+struct MyApp : TopWindow {
+	virtual void RightDown(Point p, dword keyflags) {
+		int result = Null;
+		MenuBar menu;
+		for(int i = 0; i < 10; i++)
+			menu.Add(AsString(i), [=, &result] { result = i; });
+		menu.Execute();
+		if(IsNull(result))
+			PromptOK("Menu was cancelled");
+		else
+			PromptOK("You have selected " + AsString((int)result));
+	}
+};
+
+GUI_APP_MAIN
+{
+	MyApp().Run();
+}