hello.icl 621 Bytes
Newer Older
Peter Achten's avatar
Peter Achten committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
module hello

//	**************************************************************************************************
//
//	This program is the graphical counterpart of the ubiquitous 'hello world' program.
//
//	The program has been written in Clean 1.3.2 and uses the Clean Standard Object I/O library 1.2
//	
//	**************************************************************************************************

import StdEnv, StdIO

Start :: *World -> *World
Start world
15
	= startIO NDI 0 (snd o openDialog undef hello) [] world
Peter Achten's avatar
Peter Achten committed
16
17
where
	hello	= Dialog "" (TextControl "Hello world!" []) [WindowClose (noLS closeProcess)]