/* Procedure to create a message box */

/**************************************************************/

Widget SCreateMessage(w,text,title)
Widget w;
char *text;
char *title;
{
Widget mess;
Arg args[MAX_ARGS];
XmString message,xmtitle;
int n;

message=XmStringCreateLtoR(text,CHARSET);
xmtitle=XmStringCreateLtoR(title,CHARSET);

n=0;
XtSetArg(args[n],XmNmessageString,message); n++;
XtSetArg(args[n],XmNdialogTitle,xmtitle); n++;
XtSetArg(args[n],XmNfontList,fontlist); n++;
mess=XmCreateMessageDialog(w,"Message",args,n);

XtManageChild(mess);

XmStringFree(message);
XmStringFree(xmtitle);

return(mess);
}