blob: ed9b1111e5af89962e0bbe1d97953c2cea4e887c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)) []
|
