#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <stdio.h>

#include <Xm/Xm.h>
#include <Xm/Form.h>
#include <Xm/RowColumn.h>

#define SetArg(param, val) XtSetArg(args[i], param, val); i++ 
#define SetValues(widget) XtSetValues(widget, args, i); i = 0

char *namea, *nameb, *namec, *named;
Arg args[10];
int i = 0;
main(argc, argv) 
int argc;
char *argv[];
{
  Widget toplevel,topform, core; 
  Widget labela, labelb, labelc, labeld;
  Widget playera, playerb, playerc, playerd;

  toplevel = XtInitialize("testa", "Testa", NULL, 0 , &argc, argv);

  
  topform  = XtCreateManagedWidget("thewidget", xmFormWidgetClass, 
			       toplevel, NULL, 0); 

  
  core = XtCreateManagedWidget("core", widgetClass, topform, NULL, 0);
  
  named =namec =nameb = namea = "none";

  playera = XmCreatePulldownMenu(topform, "player1", NULL, 0);
  SetArg(XmNlabelString, XmStringCreateLtoR(namea, XmSTRING_DEFAULT_CHARSET));
  labela = XtCreateManagedWidget("test1", xmCascadeButtonWidgetClass);

  playerb = XmCreatePulldownMenu(topform, "player2", NULL, 0);
  SetArg(XmNlabelString, XmStringCreateLtoR(nameb, XmSTRING_DEFAULT_CHARSET));
  labelb = XtCreateManagedWidget("test2", xmCascadeButtonWidgetClass);

  playerc = XmCreatePulldownMenu(topform, "player3", NULL, 0);
  SetArg(XmNlabelString, XmStringCreateLtoR(namec, XmSTRING_DEFAULT_CHARSET));
  labelc = XtCreateManagedWidget("test3", xmCascadeButtonWidgetClass);

  playerd = XmCreatePulldownMenu(topform, "player4", NULL, 0);
  SetArg(XmNlabelString, XmStringCreateLtoR(named, XmSTRING_DEFAULT_CHARSET));
  labeld = XtCreateManagedWidget("test4", xmCascadeButtonWidgetClass);


  XtRealizeWidget(toplevel);
  XtMainLoop();

}