Xwarn.c

/*
-------------------------------------------------------------------------
OBJECT NAME:	Xwarn.c

FULL NAME:	Show Warning Box with Message

DESCRIPTION:	CreateWarn should be called once where you initialize
		your X stuff.  To use just call WarnUser(ErrMsg, callBack)

INPUT:		String to Display.  Callback to call if user hits OK.

OUTPUT:		Warning message in its own tidy little window.

AUTHOR:		websterc@ncar
-------------------------------------------------------------------------
*/

#include <stdio.h>

#include <Xm/Xm.h>
#include <Xm/MessageB.h>

#define nWarnings	3

static Widget	warnBox[nWarnings];
static int	inUse[nWarnings];


/* -------------------------------------------------------------------- */
void CancelWarning(Widget w, XtPointer clientData, XtPointer callData)
{
  XtUnmanageChild(warnBox[(size_t)clientData]);
  XtPopdown(XtParent(warnBox[(size_t)clientData]));
  inUse[(size_t)clientData] = FALSE;

}	/* END CANCELWARNING */

/* -------------------------------------------------------------------- */
void WarnUser(char str[], XtCallbackProc okCB, XtCallbackProc cancelCB)
{
  size_t	i;
  Widget	label;
  Arg		args[5];
  XmString	xStr;

  for (i = 0; i < nWarnings; ++i)
    if (inUse[i] == FALSE)
      break;

  if (i == nWarnings)
    {
    fprintf(stderr, "WarnUser: Out of warning boxes.\n");
    i = 0;
    }

  inUse[i] = TRUE;

  label = XmMessageBoxGetChild(warnBox[i], XmDIALOG_MESSAGE_LABEL);
  xStr = XmStringCreateLocalized(str);
  XtSetArg(args[0], XmNlabelString, xStr);
  XtSetValues(label, args, 1);
  XmStringFree(xStr);

  XtRemoveAllCallbacks(warnBox[i], XmNokCallback);
  XtAddCallback(warnBox[i], XmNokCallback, CancelWarning, (XtPointer)i);

  XtRemoveAllCallbacks(warnBox[i], XmNcancelCallback);
  XtAddCallback(warnBox[i],XmNcancelCallback,CancelWarning,(XtPointer)i);

  if (okCB)
    XtAddCallback(warnBox[i], XmNokCallback, (XtCallbackProc)okCB,
							(XtPointer)i);
  if (cancelCB)
    XtAddCallback(warnBox[i], XmNcancelCallback,
				(XtCallbackProc)cancelCB, (XtPointer)i);

  XtManageChild(warnBox[i]);
  XtPopup(XtParent(warnBox[i]), XtGrabNonexclusive);

}	/* END WARNUSER */

/* -------------------------------------------------------------------- */
void CreateWarningBox(Widget parent)
{
  int	i;

  for (i = 0; i < nWarnings; ++i) {
    inUse[i] = FALSE;
    warnBox[i] = XmCreateWarningDialog(parent, "warnBox", NULL, 0);
    XtSetSensitive(XmMessageBoxGetChild(warnBox[i],
			XmDIALOG_HELP_BUTTON), FALSE);
    }

}	/* END CREATEWARNINGBOX */

/* END XWARN.C */