From dbcb75c8e7dc5ae9befcb9dea3b195eab761df5e Mon Sep 17 00:00:00 2001
From: cxl <cxl@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Thu, 25 Sep 2014 10:19:04 +0000
Subject: [PATCH] .reference

git-svn-id: svn://ultimatepp.org/upp/trunk@7726 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 reference/GuiLock/main.cpp                  |  3 ++-
 reference/PromptRedirect/PromptRedirect.upp | 11 +++++++++++
 reference/PromptRedirect/main.cpp           | 21 +++++++++++++++++++++
 3 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 reference/PromptRedirect/PromptRedirect.upp
 create mode 100644 reference/PromptRedirect/main.cpp

diff --git a/reference/GuiLock/main.cpp b/reference/GuiLock/main.cpp
index 4dd2dd5e5..0cfc5e5c4 100644
--- a/reference/GuiLock/main.cpp
+++ b/reference/GuiLock/main.cpp
@@ -30,7 +30,8 @@ void App::Work()
 			break;
 		if(list.GetCount() > 100) {
 			bool quit;
-			Call(PTEBACK1(AskQuit, &quit));
+			Call(PTEBACK1(AskQuit, &quit)); // This is the generic way for any GUI (dlg)
+			// quit = PromptYesNo("Quit?"); // But Prompt has this ability already implemented
 			if(quit) {
 				Break();
 				return;
diff --git a/reference/PromptRedirect/PromptRedirect.upp b/reference/PromptRedirect/PromptRedirect.upp
new file mode 100644
index 000000000..475bd1e91
--- /dev/null
+++ b/reference/PromptRedirect/PromptRedirect.upp
@@ -0,0 +1,11 @@
+description "Prompt redirection\377";
+
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI SSE2";
+
diff --git a/reference/PromptRedirect/main.cpp b/reference/PromptRedirect/main.cpp
new file mode 100644
index 000000000..f98a6cb0f
--- /dev/null
+++ b/reference/PromptRedirect/main.cpp
@@ -0,0 +1,21 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+int MyPrompt(Callback1<const String&> WhenLink,
+             const char *title, const Image& iconbmp, const char *qtf, bool okcancel,
+             const char *button1, const char *button2, const char *button3,
+             int cx, Image im1, Image im2, Image im3)
+{
+	LOG(title << ": " << qtf << "\n");
+	return IDCANCEL;
+}
+
+INITBLOCK {
+	RedirectPrompts(MyPrompt);
+}
+
+GUI_APP_MAIN
+{
+	PromptYesNo("Test");
+}