From 642b265eed2f88b9965a39b8c953b0f1361e6ca8 Mon Sep 17 00:00:00 2001
From: Mirek Fidler <mirek.fidler@gmail.com>
Date: Tue, 24 Oct 2023 17:35:08 +0200
Subject: [PATCH] .upptst

---
 upptst/MenuBig/MenuBig.upp |  9 +++++++++
 upptst/MenuBig/main.cpp    | 21 +++++++++++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 upptst/MenuBig/MenuBig.upp
 create mode 100644 upptst/MenuBig/main.cpp

diff --git a/upptst/MenuBig/MenuBig.upp b/upptst/MenuBig/MenuBig.upp
new file mode 100644
index 000000000..5872304d3
--- /dev/null
+++ b/upptst/MenuBig/MenuBig.upp
@@ -0,0 +1,9 @@
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/upptst/MenuBig/main.cpp b/upptst/MenuBig/main.cpp
new file mode 100644
index 000000000..08a2f979e
--- /dev/null
+++ b/upptst/MenuBig/main.cpp
@@ -0,0 +1,21 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+struct MyApp : public TopWindow {
+	virtual void RightDown(Point p, dword keyflags);
+};
+
+void MyApp::RightDown(Point p, dword keyflags)
+{
+	MenuBar b;
+	for(int i = 0; i < 60; i++)
+		b.Add("Action " + AsString(i), Upp::CtrlImg::save_as(), [] { PromptOK("invoked"); });
+	b.Execute();
+}
+
+GUI_APP_MAIN
+{
+	MyApp app;
+	app.Run();
+}