Xquery.c

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

FULL NAME:	Show Selection Box with Message

DESCRIPTION:	This routines allow you to Ask the user a question and
		get the answer.  During Initialization call CreateQuery().
		To use, just call QueryUser(question, maxlen_of_input,
		callBack to call if the OK buttonis pressed), in the
		callBack procedure call ExtractAnswer().

INPUT:		String to Display, and callBack for OK

OUTPUT:		Question in its own tidy little window.

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

#define register
#include <Xm/Xm.h>
#include <Xm/MessageB.h>
#include <Xm/SelectioB.h>
#include <Xm/Text.h>

static Widget	queryBox;


/* -------------------------------------------------------------------- */
void QueryUser(char str[], int maxlen, XtCallbackProc callBack)
{
  Widget	w;
  Arg	args[5];
  int	n;
  XmString	xStr;

  n = 0;
  w = XmSelectionBoxGetChild(queryBox, XmDIALOG_SELECTION_LABEL);
  xStr = XmStringCreateLocalized(str);
  XtSetArg(args[n], XmNlabelString, xStr); ++n;
  XtSetValues(w, args, n);
  XmStringFree(xStr);


  n = 0;
  w = XmSelectionBoxGetChild(queryBox, XmDIALOG_TEXT);
  XtSetArg(args[n], XmNmaxLength, maxlen); ++n;
  XtSetArg(args[n], XmNwidth, 0); ++n;
  XtSetArg(args[n], XmNcolumns, maxlen); ++n;
  XtSetValues(w, args, n);
  XmTextSetString(w, "");

  XtRemoveAllCallbacks(queryBox, XmNokCallback);
  XtAddCallback(queryBox, XmNokCallback, (XtCallbackProc)callBack,
							(XtPointer)NULL);

  XtManageChild(queryBox);
  XtPopup(XtParent(queryBox), XtGrabNonexclusive);

}	/* END QUERYUSER */

/* -------------------------------------------------------------------- */
void QueryCancel(Widget w, XtPointer clientData, XtPointer callData)
{
  XtPopdown(XtParent(queryBox));
  XtUnmanageChild(queryBox);

}	/* END QUERYOK */

/* -------------------------------------------------------------------- */
void CreateQueryBox(Widget parent)
{
  queryBox = XmCreatePromptDialog(parent, "queryBox", NULL, 0);
  XtSetSensitive(XmSelectionBoxGetChild(queryBox, XmDIALOG_HELP_BUTTON), FALSE);

  XtAddCallback(queryBox, XmNcancelCallback, (XtCallbackProc)QueryCancel,
					(XtPointer)NULL);

}	/* END CREATEQUERYBOX */

/* -------------------------------------------------------------------- */
void ExtractAnswer(char *s)
{
  Widget	w;
  char	*a;

  w = XmSelectionBoxGetChild(queryBox, XmDIALOG_TEXT);
  a = XmTextGetString(w);

  strcpy(s, a);
  XtFree(a);

}	/* END EXTRACTANSWER */

/* END XQUERY.C */