1 files changed, 25 insertions, 0 deletions
diff --git a/tut2_4.icl b/tut2_4.icl
new file mode 100644
index 0000000..3b26c0a
--- /dev/null
+++ b/tut2_4.icl
@@ -0,0 +1,25 @@
+module tut2_4
+
+// ********************************************************************************
+// Clean tutorial example program.
+//
+// This program creates a dialog that displays the "Hello world!" text.
+// ********************************************************************************
+
+import StdEnv, StdIO
+
+Start :: *World -> *World
+Start world
+    = startIO NDI Void initialise [] world
+where
+    initialise pst
+    # (error,pst) = openDialog Void hello pst
+    | error<>NoError = closeProcess pst
+    | otherwise = pst
+
+    hello = Dialog ""
+        ( TextControl "Hello world!" []
+        )
+        [ WindowClose (noLS closeProcess)
+        ]
+