/* $Id: test63.c,v 1.1 2000/11/12 14:20:02 rwscott Exp $ */

#include <stdlib.h>
#include <stdio.h>
#include <Xm/Xm.h>
#include <Xm/XmP.h>
#include <Xm/CascadeB.h>
#include <Xm/MenuShell.h>
#include <Xm/MessageB.h>
#include <Xm/MessageB.h>
#include <Xm/ToggleB.h>
#include <Xm/PushB.h>
#include <Xm/PushBG.h>
#include <Xm/PushBP.h>
#include <Xm/RepType.h>
#include <Xm/RowColumn.h>
#include <Xm/SelectioB.h>
#include <Xm/DrawingA.h>
#include "../../common/Test.h"

Widget toplevel, box, push;
XtAppContext	app_context;
int DialogDone=False,DialogReturn;

char *fallback[] = {
	"*button2.set: True",
	"*slideInterval: 0",
	NULL	/* The end */
};

typedef struct _CallbackResultStruct {
	char * WidgetName;
	int CallbackId;
	int Sequence;
	int Reason;
} _CallbackResult;

int StartLine = __LINE__;
_CallbackResult Results[] = { /* insert results of Motif run after this */
	{"cascade1",             185,   0, XmCR_CASCADING                },\
	{"pane1",                169,   1, XmCR_MAP                      },\
	{"pane1",                172,   2, XmCR_UNMAP                    },\
	{"pane1",                173,   3, XmCR_ACTIVATE                 },\
	{"button2",              173,   4, XmCR_ACTIVATE                 },\
	{"pane1",                173,   5, XmCR_ACTIVATE                 },\
	{"button1",              173,   6, XmCR_ACTIVATE                 },\
	{"cascade1",             185,   7, XmCR_CASCADING                },\
	{"pane1",                169,   8, XmCR_MAP                      },\
	{"pane1",                172,   9, XmCR_UNMAP                    },\
	{"pane1",                173,  10, XmCR_ACTIVATE                 },\
	{"button1",              173,  11, XmCR_ACTIVATE                 },\
	{"pane1",                173,  12, XmCR_ACTIVATE                 },\
	{"button2",              173,  13, XmCR_ACTIVATE                 },
	{NULL, 0, 0, 0},  /* This must stay here */
};
int StopLine = __LINE__;
int ResultIndex = 0;


static void
GenericCallback(Widget w, int id, XmAnyCallbackStruct *cbs)
{
String Name = w ? XtName(w) : "";
int Reason = cbs ? cbs->reason : XmCR_NONE;

    if (XtNumber(Results) == 1 || ResultIndex + 1 >= XtNumber(Results))
    {
    static Boolean FirstCall = True;

	if (FirstCall)
	{
		printf("/^_CallbackResult/a");
	}
	printf("\\\n\t{\"%s\", %*s%3i, %3i, %-30s},", 
	    w ? XtName(w) : "",
	    20 - strlen(Name),
	    "",
	    id, ResultIndex, 
	    cbs ? XdbReason2String(cbs->reason) : "XmCR_NONE /* cbs is NULL */");
	if (cbs->reason == XmCR_ACTIVATE)
	{
	Widget old;
	String Name;

	    XtVaGetValues(w,
		XmNmenuHistory, &old,
		NULL);
	    Name = old ? XtName(old) : "";
	    ResultIndex++;
	    printf("\\\n\t{\"%s\", %*s%3i, %3i, %-30s},", 
		old ? XtName(old) : "",
		20 - strlen(Name),
		"",
		id, ResultIndex, 
		cbs ? XdbReason2String(cbs->reason) : "XmCR_NONE /* cbs is NULL */");
	}
	GlobalErrors = 1;
	FirstCall = False;
    }
    else
    {
	printf("%s, %*s%3i(%3i), %3i(%3i), %-30s ", 
	    Name,
	    20 - strlen(Name),
	    "",
	    id, Results[ResultIndex].CallbackId + (StopLine - StartLine - 4),
	    ResultIndex, Results[ResultIndex].Sequence,
	    XdbReason2String(Reason));

    	if (strcmp(Name, Results[ResultIndex].WidgetName) == 0 &&
    	    Results[ResultIndex].CallbackId == id - (StopLine - StartLine - 4) &&
    	    Results[ResultIndex].Sequence == ResultIndex &&
    	    Results[ResultIndex].Reason == Reason
    	    )
    	{
	    printf("okay\n");
    	}
    	else
    	{
	    printf("bad\n");
	    GlobalErrors++;
    	}
	if (cbs->reason == XmCR_ACTIVATE)
	{
	Widget old;
	String Name;

	    ResultIndex++;
	    XtVaGetValues(w,
		XmNmenuHistory, &old,
		NULL);
	    Name = old ? XtName(old) : "";
	    printf("%s, %*s%3i(%3i), %3i(%3i), %-30s ", 
		Name,
		20 - strlen(Name),
		"",
		id, Results[ResultIndex].CallbackId + (StopLine - StartLine - 4),
		ResultIndex, Results[ResultIndex].Sequence,
		XdbReason2String(Reason));

	    if (strcmp(Name, Results[ResultIndex].WidgetName) == 0 &&
		Results[ResultIndex].CallbackId == id - (StopLine - StartLine - 4) &&
		Results[ResultIndex].Sequence == ResultIndex &&
		Results[ResultIndex].Reason == Reason
		)
	    {
		printf("okay\n");
	    }
	    else
	    {
		printf("bad\n");
		GlobalErrors++;
	    }
	}
    }
    ResultIndex++;
}

int
main(int argc, char **argv)
{
    Widget menubar;
    Widget cascade1;
    Widget pane1;
    Widget button1;
    Widget button2;
    Widget pane1_tear_off;

/* Install converter to make the command line indicated above work */
    XmRepTypeInstallTearOffModelConverter();

/* Toplevel and Menu Bar */
    toplevel = XtVaAppInitialize(&app_context, "test50", NULL, 0, 
    	&argc, argv, fallback, NULL);
    menubar = XmCreateMenuBar(toplevel, "menubar", NULL, 0);


/* First Menu */
    pane1 = XmCreatePulldownMenu(menubar, "pane1", NULL, 0);
    XtVaSetValues(pane1,
    	XmNradioBehavior, True,
    	NULL);
    XtAddCallback(pane1, XmNmapCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(pane1, XmNtearOffMenuActivateCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(pane1, XmNtearOffMenuDeactivateCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(pane1, XmNunmapCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(pane1, XmNentryCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    /*
    XtAddCallback(XtParent(pane1), XmNpopupCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(XtParent(pane1), XmNpopdownCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    */
    pane1_tear_off = XmGetTearOffControl(pane1);

    cascade1 = XtVaCreateManagedWidget("cascade1",
				       xmCascadeButtonWidgetClass, menubar, 
				       XmNsubMenuId,	pane1,
				       NULL);
    XtAddCallback(cascade1, XmNactivateCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);
    XtAddCallback(cascade1, XmNcascadingCallback, (XtCallbackProc)GenericCallback, (XtPointer)__LINE__);

    button1 = XtVaCreateManagedWidget("button1", 
    				xmToggleButtonWidgetClass, pane1,
				NULL);
    button2 = XtVaCreateManagedWidget("button2", 
    				xmToggleButtonWidgetClass, pane1,
				NULL);

    XtManageChild(menubar);
    XtRealizeWidget(toplevel);
    LessTifTestWaitForIt(toplevel);

    LessTifTestBtn1Down(cascade1);
    LessTifTestBtn1Up(button1);

    LessTifTestBtn1Down(cascade1);
    LessTifTestBtn1Up(button2);

    printf("\n"); /* need final \n for output file or sed doesn't work on
		     SGI */
    LessTifTestMainLoop(toplevel);
    exit(0);
}