From 60513928f3211630db952a2229a822ce8830efc8 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 23 Aug 2015 17:34:13 +0200
Subject: Tut 6.8; Hello world using Notice

---
 tut6_8.icl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tut6_8.icl

diff --git a/tut6_8.icl b/tut6_8.icl
new file mode 100644
index 0000000..ed9b111
--- /dev/null
+++ b/tut6_8.icl
@@ -0,0 +1,16 @@
+module tut6_8
+
+// ********************************************************************************
+// Clean tutorial example program.
+//
+// This program shows "Hello world!" using a Notice.
+// ********************************************************************************
+
+import StdEnv, StdIO
+import Notice
+
+Start :: *World -> *World
+Start world = startIO NDI Void (openNotice hello) [] world
+where
+    hello = Notice ["Hello world!"] (NoticeButton "Quit" (noLS closeProcess)) []
+
-- 
cgit v1.2.3