[clean-list] problem with startMDI

[Pierre Goupil]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--=_NextPart_Caramail_010188987795570_ID
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

the followin' code gives me the error : "startMDI not 
defined". Thus, it comes from the clean manual !!! help, 
please ! 

 Sunset :p



module window

import StdIO,StdEnv

:: NoState =3D NoState

Start :: *World -> *World
Start world =3D startMDI NoState NoState (openwindow o 
openmenu) [] world
where
	openwindow 	=3D snd o openWindow NoState window
	window		=3D Window "ZF Rules !!!"
				 NilLS
				 [ WindowKeyboard 
filterKey Able quitFunction
				 , WindowMouse 
filterMouse Able quitFunction
				 , WindowClose	 quit
				 , WindowViewDomain { 
corner1=3Dzero,corner2=3D{x=3D160,y=3D100}}
				 , WindowLook look
				 ]
	openmenu	=3D snd o openMenu NoState file
	file		=3D Menu "File"
				( MenuItem "Quit" 
[MenuShortKey 'Q',MenuFunction quit]
				)	[]
	quitFunction ps		=3D quit ps
	quit (ls,ps)		=3D (ls,closeProcess ps)
	look				=3D drawAt 
{x=3D30,y=3D30} "ZF Rulez !!!"
	filterKey key		=3D getKeyboardStateKeyState 
key <> KeyUp
	filterMouse mouse	=3D getMouseStateButtonState 
mouse =3D=3D ButtonDown
______________________________________________________
Bo=EEte aux lettres - Caramail - http://www.caramail.com


--=_NextPart_Caramail_010188987795570_ID--