Notice.dcl 781 Bytes
Newer Older
Peter Achten's avatar
Peter Achten committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
definition module Notice

//	**************************************************************************************************
//
//	A new instance of the Dialogs type constructor class to easily create simple notice dialogues.
//
//	This module has been written in Clean 1.3.2 and uses the Clean Standard Object I/O library 1.2
//	
//	**************************************************************************************************

import StdWindow

::	Notice ls pst
 =	Notice [String] (NoticeButton *(ls,pst)) [NoticeButton *(ls,pst)]
::	NoticeButton st
 =	NoticeButton String (IdFun st)

instance Dialogs Notice

20
openNotice  :: !(Notice .ls (PSt .l)) !(PSt .l) -> PSt .l
Peter Achten's avatar
Peter Achten committed
21
22
/*	openNotice can be used to create a Notice without having to bother about the ErrorReport result.
*/