Conference bulova::decw_jan-89_to_nov-90

#include <stdio.h>
#include <descrip.h>
#include <decw$include/DECwDwtApplProg.h>

static	void	ok_button_activate();
static	Widget	toplevel, dialogmain;
static	Widget	ok_button;
static	DwtCallback	callback_arg[2];
static	XtAppContext	app_context;

int	finished = FALSE;
Display	*display;
Arg	arglist[10];
static	int	number[]={0, 1, 2, 3, 4, 5};
static	int	FIRST = 1;

main()
{
	int i;

	for (i = 0; i<4; i++)
		pvmenu();
}

pvmenu()
{
	XrmOptionDescRec	options;
	int	temp;

	if (FIRST) {
		XtToolkitInitialize ();
		FIRST = FALSE;
			app_context = XtCreateApplicationContext();

	}
	display = XtOpenDisplay (app_context, NULL, "PVI",
				"pvclass", &options, 0, &number[0],
				0);  
	XtSetArg (arglist[0], XtNallowShellResize, TRUE);

	toplevel = XtAppCreateShell ("PVI", "pvclass",
		applicationShellWidgetClass, display, arglist, 1);

	XtSetArg (arglist[0], DwtNunits, DwtPixelUnits);
	dialogmain = DwtDialogBoxCreate (toplevel, "MAINWIN", arglist,
				    1);

	callback_arg[0].proc = ok_button_activate;
	callback_arg[0].tag = 0;
	callback_arg[1].proc = NULL;

	XtSetArg (arglist[0], DwtNx, 10);
	XtSetArg (arglist[1], DwtNy, 50);
	XtSetArg (arglist[2], DwtNactivateCallback, callback_arg);
	XtSetArg (arglist[3], DwtNlabel, DwtLatin1String ("OK"));
	XtSetArg (arglist[4], DwtNbordHighlight, TRUE);

	ok_button = DwtPushButtonGadgetCreate (dialogmain, "ok_button",
				    arglist, 
				    5);

	XtManageChild (ok_button);
	XtManageChild (dialogmain);
	XtRealizeWidget (toplevel);

	finished = FALSE;
	pvMainLoop();

	XtDestroyWidget (ok_button);
	XtDestroyWidget (dialogmain);
	XtDestroyWidget (toplevel);
	XtCloseDisplay (display);
/*	XtDestroyApplicationContext (app_context);*/
	XFlush(display);
}

pvMainLoop()
{
	XEvent	event;

	while (!finished) {
		XtAppNextEvent (app_context, &event);
		XtDispatchEvent (&event);
	}
}

static void	ok_button_activate (widget, tag, callback_data)
Widget	widget;
char	*tag;
DwtAnyCallbackStruct *callback_data;
{
	finished = TRUE;
}

    I cleaned the program up a bit and then got these errors
    
    X error event received from server: BadGC - parameter not a GC
      Failed request major op code 74 X_PolyText8
      Failed request minor op code 0 (if applicable)
      ResourceID 0x800005 in failed request (if applicable)
      Serial number of failed request 94
      Current serial number in output stream 95
    
    after about 5 cycles.
    
    By the way, someone will probably get around to reminding you that
    suspected bugs should be QAR'ed.  This really isn't a question of
    usage.