From e2a5769634f31933dfaf7e2bb4bae16ca09d9e8c Mon Sep 17 00:00:00 2001
From: cxl <cxl@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Fri, 9 Apr 2021 07:59:54 +0000
Subject: [PATCH] .upptst

git-svn-id: svn://ultimatepp.org/upp/trunk@15904 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 upptst/HoldTriple/HoldTriple.upp |  9 +++++++
 upptst/HoldTriple/main.cpp       | 41 ++++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 upptst/HoldTriple/HoldTriple.upp
 create mode 100644 upptst/HoldTriple/main.cpp

diff --git a/upptst/HoldTriple/HoldTriple.upp b/upptst/HoldTriple/HoldTriple.upp
new file mode 100644
index 000000000..5c4f53e15
--- /dev/null
+++ b/upptst/HoldTriple/HoldTriple.upp
@@ -0,0 +1,9 @@
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/upptst/HoldTriple/main.cpp b/upptst/HoldTriple/main.cpp
new file mode 100644
index 000000000..d3a31a210
--- /dev/null
+++ b/upptst/HoldTriple/main.cpp
@@ -0,0 +1,41 @@
+#include <CodeEditor/CodeEditor.h>
+
+using namespace Upp;
+
+struct MyCtrl : Ctrl {
+	void Paint(Draw& w) override {
+		w.DrawRect(GetSize(), Blue());
+	}
+	void LeftHold(Point p, dword keyflags) override
+	{
+		Exclamation("Left Hold!");
+	}
+	void RightHold(Point p, dword keyflags) override
+	{
+		Exclamation("Right Hold!");
+	}
+	void MiddleHold(Point p, dword keyflags) override
+	{
+		Exclamation("Middle Hold!");
+	}
+	void LeftTriple(Point p, dword keyflags) override
+	{
+		Exclamation("Left Triple!");
+	}
+	void RightTriple(Point p, dword keyflags) override
+	{
+		Exclamation("Right Triple!");
+	}
+	void MiddleTriple(Point p, dword keyflags) override
+	{
+		Exclamation("Middle Triple!");
+	}
+};
+
+GUI_APP_MAIN
+{
+	MyCtrl ctrl;
+	TopWindow win;
+	win << ctrl.RightPos(100, 100).TopPos(200, 200);
+	win.Run();
+}