Tut 6.8; Hello world using Notice

1 files changed, 16 insertions, 0 deletions

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)) []
+