OPT	PPC,NOEXE

MODULE	'intuition/intuition'

PROC WaitIMessage(win:PTR TO Window)(L,L,L,L)
	DEF	port,msg:PTR TO IntuiMessage,class,code,qual,iaddr
	port:=win.UserPort
	IFN msg:=GetMsg(port)
		REPEAT
			WaitPort(port)
		UNTIL msg:=GetMsg(port)
	ENDIF
	class:=msg.Class
	code:=msg.Code
	qual:=msg.Qualifier
	iaddr:=msg.IAddress
	ReplyMsg(msg)
ENDPROC class,code,qual,iaddr