/* 
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
*/ 
/* 
 * HISTORY
*/ 
#ifdef REV_INFO
#ifndef lint
static char rcsid[] = "$XConsortium: PushBGad4.c /main/8 1995/07/13 17:29:58 drk $"
#endif
#endif
/*
*  (c) Copyright 1987, 1988, 1989 HEWLETT-PACKARD COMPANY */
/*
   Test was written for PIR629
   PIR748,
   PIR903,
   and PIR637
*/

#include <testlib.h>
#include <X11/Xlib.h>
#include <X11/Xatom.h>
#include <X11/StringDefs.h>
#include <Xm/XmP.h>


/*  Global Variables  */
Widget    PBGadget1;

/*  Private Functions  */

void	       ActCB();
static void  DestroyCB();

void  main (argc, argv)
int     argc;
char  **argv;
{
  register int       n;
  Arg                args[MAX_ARGS];
  XmString           tcs;
  Pixel 	       red_pixel, blue_pixel;
  Widget	       Form1, PushB1, Cascade1, PushButton1;
  Widget	       Pulldown1, MenuBar1, PushButton2, PushButton3;

  CommonTestInit(argc, argv);
  
  blue_pixel = CommonGetColor("cadetblue");
  red_pixel = CommonGetColor("maroon");

  n = 0;
  XtSetArg (args[n], XmNmarginWidth, 2);		n++;
  XtSetArg (args[n], XmNmarginHeight, 2);		n++;
  XtSetArg (args[n], XmNbackground, blue_pixel); 	n++;
  XtSetArg (args[n], XmNwidth, 150);			n++;
  XtSetArg (args[n], XmNheight, 175);			n++;
  Form1 = XmCreateForm (Shell1, "Form1", args, n); 
  XtManageChild(Form1);

  n = 0;
  XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM);  n++;
  XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM);  n++;
  XtSetArg (args[n], XmNtopAttachment, XmATTACH_FORM); 	n++;
  XtSetArg (args[n], XmNtraversalOn, True);  n++;
  MenuBar1 = XmCreateMenuBar (Form1, "MenuBar1", args, n);
  XtManageChild (MenuBar1);
  
  n = 0;
  Pulldown1 = XmCreatePulldownMenu (MenuBar1, "Pulldown1", args, n);
  
  n = 0;
  XtSetArg(args[n], XmNsubMenuId, Pulldown1);  n++;
  Cascade1 = XmCreateCascadeButton(MenuBar1, "Cascade1", args, n);
  XtManageChild (Cascade1);

  n = 0;
  tcs = XmStringLtoRCreate("Destroy PushButton", XmSTRING_DEFAULT_CHARSET);
  XtSetArg (args[n], XmNlabelString, tcs); 	n++;
  XtSetArg (args[n], XmNwidth, 150);		n++;
  XtSetArg (args[n], XmNheight, 50);		n++;
  PushButton1 = XmCreatePushButton(Pulldown1, "PushButton1", args, n);
  XmStringFree (tcs);
  XtManageChild (PushButton1);

  n = 0;
  tcs = XmStringLtoRCreate("Destroy Form", XmSTRING_DEFAULT_CHARSET);
  XtSetArg (args[n], XmNlabelString, tcs); 	n++;
  XtSetArg (args[n], XmNwidth, 150);		n++;
  XtSetArg (args[n], XmNheight, 50);		n++;
  PushButton2 = XmCreatePushButton(Pulldown1, "PushButton2", args, n);
  XmStringFree (tcs);
  XtManageChild (PushButton2);

  n = 0;
  tcs = XmStringLtoRCreate("Destroy PushButtonGadget",
			   XmSTRING_DEFAULT_CHARSET);
  XtSetArg (args[n], XmNlabelString, tcs); 	n++;
  XtSetArg (args[n], XmNwidth, 150);		n++;
  XtSetArg (args[n], XmNheight, 50);		n++;
  PushButton3 = XmCreatePushButton(Pulldown1, "PushButton3", args, n);
  XmStringFree (tcs);
  XtManageChild (PushButton3);

  XtManageChild (PushButton2);
  n = 0;
  XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
  XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
  XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
  XtSetArg (args[n], XmNtopWidget, MenuBar1); n++;
  XtSetArg (args[n], XmNtopOffset, 5);	      n++;
  XtSetArg (args[n], XmNbackground, red_pixel);	n++;
  XtSetArg (args[n], XmNtraversalOn, True);	n++;
  XtSetArg (args[n], XmNhighlightOnEnter, True);	n++;
  XtSetArg (args[n], XmNhighlightThickness, 2);		n++;
  XtSetArg (args[n], XmNhighlightColor, CommonGetColor("orangered"));	n++;
  XtSetArg (args[n], XmNheight, 75);   n++;
  PushB1 = XmCreatePushButton(Form1, "PushB1", args, n);
  XtManageChild(PushB1);

  XmAddTabGroup(PushB1);

  /* Add Tab Group again to test PIR637 */

  XmAddTabGroup(PushB1);

  n = 0;
  XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); 		n++;
  XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); 		n++;
  XtSetArg (args[n], XmNbottomAttachment, XmATTACH_FORM); 		n++;
  XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); 		n++;
  XtSetArg (args[n], XmNtopWidget, PushB1);				n++;
  XtSetArg (args[n], XmNtopOffset, 5);  				n++;
  XtSetArg (args[n], XmNtraversalOn, True);				n++;
  XtSetArg (args[n], XmNhighlightOnEnter, True);			n++;
  XtSetArg (args[n], XmNhighlightThickness, 2);				n++;
  PBGadget1 = XmCreatePushButtonGadget (Form1, "PBGadget1", args, n);
  XtManageChild(PBGadget1);

  XmAddTabGroup(PBGadget1);	

  XtAddCallback(PBGadget1, XmNactivateCallback, ActCB, "PushButtonGadget");
  XtAddCallback(PushB1, XmNactivateCallback, ActCB, "PushButton"); 
  XtAddCallback(PushButton1, XmNactivateCallback, DestroyCB, PushB1);
  XtAddCallback(PushButton2, XmNactivateCallback, DestroyCB, Form1);
  XtAddCallback(PushButton3, XmNactivateCallback, DestroyCB, PBGadget1);
    
  XtRealizeWidget(Shell1);

  CommonPause();
  CommonPause();
  CommonPause();

  XtAppMainLoop(app_context);
  XtDestroyWidget(MenuBar1);
  XtDestroyWidget(Form1);
  XtDestroyWidget(Cascade1);
  XtDestroyWidget(Pulldown1);
  XtDestroyWidget(PushButton1);
  XtDestroyWidget(PushButton2);
  XtDestroyWidget(PushButton3);
  XtDestroyWidget(PushB1);
  XtDestroyWidget(PBGadget1);
}

void  ActCB(w, client_data, call_data)
Widget   w;
caddr_t  client_data;
caddr_t  call_data;
{
  Arg 	args[5];
  int 	n = 0;
  Pixel yellow, green;
  char	*name;
  Widget parent;

  parent = XtParent(w);
  name = (char *) client_data;

  printf("...Setting the background color of the Form to Yellow\n");
  yellow = CommonGetColor("Yellow");
  XtSetArg(args[n], XmNbackground, yellow); n++;
  XtSetValues(parent, args, n);

  /* CR 1139 fix begin */
  XmChangeColor(w, yellow);
  /* CR 1139 fix end */
  
  green = CommonGetColor("forestgreen");

  printf("...Setting the background color of %s to Green\n\n", name);
  XtSetArg (args[0], XmNbackground, green);
  XtSetValues (w, args, 1);
}

static void  DestroyCB(w, client_data, call_data)
Widget   w;
caddr_t  client_data;
caddr_t  call_data;
{
  Widget	PushB;

  PushB = (Widget) client_data;

  XtDestroyWidget(PushB);
}