From fa3f9822847cb0ad1164d90ee3f986b4e2a50aff Mon Sep 17 00:00:00 2001
From: oblivion <oblivion@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Mon, 31 Aug 2020 12:36:19 +0000
Subject: [PATCH] reference: WebHelloWorld, a basic Turtle-based 'hello world'
 GUI example is added.

git-svn-id: svn://ultimatepp.org/upp/trunk@14946 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 reference/WebHelloWorld/WebHelloWorld.cpp | 42 +++++++++++++++++++++++
 reference/WebHelloWorld/WebHelloWorld.upp | 13 +++++++
 2 files changed, 55 insertions(+)
 create mode 100644 reference/WebHelloWorld/WebHelloWorld.cpp
 create mode 100644 reference/WebHelloWorld/WebHelloWorld.upp

diff --git a/reference/WebHelloWorld/WebHelloWorld.cpp b/reference/WebHelloWorld/WebHelloWorld.cpp
new file mode 100644
index 000000000..405fd4e91
--- /dev/null
+++ b/reference/WebHelloWorld/WebHelloWorld.cpp
@@ -0,0 +1,42 @@
+#ifdef flagTURTLEGUI
+#include <Turtle/Turtle.h>
+#else
+#include <CtrlLib/CtrlLib.h>
+#endif
+
+// Try connecting to "localhost:8888" via your web browser.
+
+using namespace Upp;
+
+void AppMainLoop()
+{
+	PromptOK("Hello, world!");
+}
+
+#ifdef flagTURTLEGUI
+
+CONSOLE_APP_MAIN
+{
+
+#ifdef _DEBUG
+	TurtleServer::DebugMode();
+#endif
+
+	// MemoryLimitKb(100000000); // Can aid preventing DDoS attacks.
+
+	TurtleServer guiserver;
+	guiserver.Host("localhost");
+	guiserver.Port(8888);
+	guiserver.MaxConnections(100);
+	RunTurtleGui(guiserver, AppMainLoop);
+}
+
+#else
+
+GUI_APP_MAIN
+{
+	AppMainLoop();
+}
+
+#endif
+
diff --git a/reference/WebHelloWorld/WebHelloWorld.upp b/reference/WebHelloWorld/WebHelloWorld.upp
new file mode 100644
index 000000000..c5c2f27dc
--- /dev/null
+++ b/reference/WebHelloWorld/WebHelloWorld.upp
@@ -0,0 +1,13 @@
+description "A  \"Hello world\" GUI example demonstrating the Turtle package\377";
+
+uses(TURTLEGUI) Turtle;
+
+uses(!TURTLEGUI) CtrlLib;
+
+file
+	WebHelloWorld.cpp;
+
+mainconfig
+	"" = "TURTLEGUI",
+	"" = "GUI";
+