messwin.icl 437 Bytes
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
implementation module messwin

import StdString, StdPSt, StdBool, StdList, StdFunc
from IdeState import General, writeLog

:: Info
	= Level1 String
	| Level2 String
	| Level3 [String]

showInfo :: !.Info !*(PSt General) -> !*PSt General
showInfo info  ps
	= case info of
		(Level1 s)	-> writeLog s ps
		(Level2 s)	-> writeLog s ps
		(Level3 s)	-> seq (map writeLog s) ps

closeInfo :: !*(PSt General) -> !*PSt General
closeInfo ps
	= ps