#include "univ.h"
#include <Xol/Notice.h>
#include <Xol/OblongButt.h>

static void ErrorPopDownCB(w, client_data, call_data)
Widget w;
XtPointer client_data;
XtPointer call_data;
{
	exit(0);
}

HostError()
{
	char s[256];
	char *cp;

	RcvString(s);
	Error(keytextw, s);
}

ProtoErr(s)
char *s;
{
	Error(keytextw, s);
}

Error(w, label)
Widget w;
char *label;
{

	Widget confirm;
	Widget control;
	Widget ex;
	char buffer[256];

	hostclear();
	sprintf(buffer, "Error: %s", label);
	confirm = XtVaCreatePopupShell("Confirm", noticeShellWidgetClass,
		w,
		XtNvPad, 10,
		XtNstring, buffer,
		NULL);
	XtAddCallback(confirm, XtNpopdownCallback, ErrorPopDownCB, NULL);
	XtVaGetValues(confirm, XtNcontrolArea, &control, NULL);
	ex = XtVaCreateManagedWidget("Exit", oblongButtonWidgetClass,
		control,
		XtNdefault, TRUE,
		NULL);
	XtPopup(confirm, XtGrabNone);
}