/* Procedure to create a confirmation box */

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

Widget SCreateConfirm(w,text,title,yescallback,nocallback)
Widget w;
char *text;
char *title;
void (*yescallback)(),(*nocallback)();
{
Widget mess;
Arg args[MAX_ARGS];
XmString message,xmtitle,yes,no,cancel;
int n;

message=XmStringCreateLtoR(text,CHARSET);
xmtitle=XmStringCreateLtoR(title,CHARSET);
yes=XmStringCreateLtoR("Yes",CHARSET);
no=XmStringCreateLtoR("No",CHARSET);
cancel=XmStringCreateLtoR("Cancel",CHARSET);

n=0;
XtSetArg(args[n],XmNmessageString,message); n++;
XtSetArg(args[n],XmNdialogTitle,xmtitle); n++;
XtSetArg(args[n],XmNokLabelString,yes); n++;
XtSetArg(args[n],XmNcancelLabelString,no); n++;
XtSetArg(args[n],XmNhelpLabelString,cancel); n++;
XtSetArg(args[n],XmNdefaultButtonType,XmDIALOG_NONE); n++;
XtSetArg(args[n],XmNfontList,fontlist); n++;
mess=XmCreateMessageDialog(w,"Message",args,n);

XtManageChild(mess);

XtAddCallback(mess,XmNokCallback,yescallback,NULL);
XtAddCallback(mess,XmNcancelCallback,nocallback,NULL);

XmStringFree(message);
XmStringFree(xmtitle);
XmStringFree(yes);
XmStringFree(no);
XmStringFree(cancel);

return(mess);
}