blob: e2456f7dd6f8a34547e5c2ee5ca826124bba4b39 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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 2.0 and uses the Clean Standard Object I/O library 1.2.2
//
// **************************************************************************************************
import StdWindow
:: Notice ls pst
= Notice [String] (NoticeButton *(ls,pst)) [NoticeButton *(ls,pst)]
:: NoticeButton st
= NoticeButton String (IdFun st)
instance Dialogs Notice
openNotice :: !(Notice .ls (PSt .l)) !(PSt .l) -> PSt .l
/* openNotice can be used to create a Notice without having to bother about the ErrorReport result.
*/
|
