diff options
| -rw-r--r-- | tut6_8.icl | 16 |
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)) [] + |