/***************************************************************************\
 * Message Creator -- creates a requester type window, for simple messages *
 *                                                                         *
 *                        Written by Syd L. Bolton                         *
 *                            Copyright (c)1988                            *
 *                                                                         *
 *             Version: 1.1  Date:  12/07/88  Time: 00:14:00               *
 *             Version: 1.2  Date:  07/31/91  Time: 20:22:00               *
 *  NOTES: 1.2  adds global support for 'mrport', so other text can print  *
\***************************************************************************/

#include "message.h"

Message(text)
UBYTE *text;
{
MIText1.IText=text;
MessageWin.TopEdge=71+Window->TopEdge;
MessageWin.LeftEdge=169+Window->LeftEdge;

MessageWindow=OpenWindow(&MessageWin);
mrport=MessageWindow->RPort;
SetAPen(mrport,3);
RectFill(mrport, 1, 1, 306, 41);
PrintIText(mrport,&MITextList, 0, 0);
}

/* NOTE!!!   Assumes calling routine will call a "CloseWindow(MessageWindow)"
   when finished!!! */

/* NOTE: Both 'struct Window *MessageWindow' && 'struct RastPort *mrport'
	 must be globally defined!  for v1.2 */