messwin.icl 440 Bytes
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1
2
3
implementation module messwin

import StdString, StdPSt, StdBool, StdList, StdFunc
Diederik van Arkel's avatar
Diederik van Arkel committed
4
from IdeState import :: General, writeLog
Diederik van Arkel's avatar
Diederik van Arkel committed
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

:: 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