/* 
 * 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: ToggleBGad3.c /main/8 1995/07/13 17:31:30 drk $"
#endif
#endif
/*
*  (c) Copyright 1987, 1988, 1989 HEWLETT-PACKARD COMPANY */

 

/****************************************
*   Automatic test program generation   *
*       Fri Mar 17 14:54:45 1989        *
****************************************/

#include <testlib.h>
#include <X11/StringDefs.h>
#include "smiley.bmp"
#include "circles1.bmp"

#define XBMs_BITS smiley_bits
#define XBMs_WIDTH smiley_width
#define XBMs_HEIGHT smiley_height
#define XBMu_BITS circles1_bits
#define XBMu_WIDTH circles1_width
#define XBMu_HEIGHT circles1_height

Pixmap px_select;
Pixmap px_unselect;

Widget Form = NULL, RowColumn1 = NULL, RowColumn2 = NULL;
Widget ToggleButtonG1 = NULL, ToggleButtonG2 = NULL;
Widget ToggleButtonG3 = NULL, ToggleButtonG4 = NULL;
Widget ToggleButtonG5 = NULL, ToggleButtonG6 = NULL;

Boolean mywait;

void toggleGCB();

static XtCallbackRec 
  valuechangedCR[] =  {{ toggleGCB, (caddr_t)NULL}, {NULL, NULL},},
  armCR[] = {{ toggleGCB, (caddr_t)NULL}, {NULL, NULL},},
  disarmCR[] = {{ toggleGCB, (caddr_t)NULL}, {NULL, NULL},};

void toggleGCB(w, client_data, call_data)
Widget w;
caddr_t client_data;
caddr_t call_data;
{
  printf("ToggleG Callback Structure:\n    Reason:   ");
  switch( ((XmToggleButtonCallbackStruct*)call_data)->reason) {
  case XmCR_VALUE_CHANGED: 
    printf("XmCR_VALUE_CHANGED\n"); 
    break;
  case XmCR_ARM: 		
    printf("XmCR_ARM\n"); 
    break;
  case XmCR_DISARM: 	
    printf("XmCR_DISARM\n"); 
    break;
  default: 		
    printf("Oops - unknown callback reason!\n"); 
    break;
  }
}
void  main(argc, argv)
int argc;
char **argv;
{
  int n;
  Arg args[20];
  XWindowAttributes info;
  int delay = 0;
  XmString tcs;
  XFontStruct *newfont;
  XmFontList newfontlist;

  CommonTestInit(argc, argv);
    
  n = 0;
  XtSetArg(args[n], XmNwidth, 400);  n++;
  XtSetArg(args[n], XmNheight,300);  n++;
  XtSetValues(Shell1, args, n);
   
  XmRegisterConverters();

  XtRealizeWidget(Shell1);

  mywait = True;
  while (mywait) {
    XGetWindowAttributes(XtDisplay(Shell1), XtWindow(Shell1), &info);
    if (info.map_state == IsViewable) mywait = False;
    else sleep(1);
  }

  newfont = XLoadQueryFont(display, "variable");
  newfontlist = XmFontListCreate(newfont, "var_char_set");

  n = 0;
  Form = XmCreateForm(Shell1, "Form", args, n);
  XtManageChild(Form);

  n = 0;
  XtSetArg(args[n], XmNpacking, XmPACK_TIGHT); n++;
  XtSetArg (args[n], XmNbackground, CommonGetColor ("lightGray")); n++;
  RowColumn1 = XmCreateRadioBox(Form, "RowColumn1", args, n);
  XtManageChild (RowColumn1);

  n = 0;
  tcs = XmStringLtoRCreate("ToggleG1", "var_char_set");
  XtSetArg(args[n], XmNfontList, newfontlist); n++;
  XtSetArg(args[n], XmNlabelString, tcs);  n++;
  XtSetArg(args[n], XmNmnemonic, 'g'); n++;
  XtSetArg(args[n], XmNmnemonicCharSet, "var_char_set"); n++;
  XtSetArg(args[n], XmNindicatorOn, True);  n++;
  XtSetArg(args[n], XmNvalueChangedCallback, valuechangedCR);  n++;
  XtSetArg(args[n], XmNarmCallback, armCR);  n++;
  XtSetArg(args[n], XmNdisarmCallback, disarmCR);  n++;
  ToggleButtonG1 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG1",
					      args, n);
  if(tcs) XmStringFree(tcs);
  XtManageChild(ToggleButtonG1);

  n = 0;
  XtSetArg(args[n], XmNindicatorType, XmONE_OF_MANY);  n++;
  XtSetArg(args[n], XmNfillOnSelect, False);  n++;
  ToggleButtonG2 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG2",
					      args, n);
  XtManageChild(ToggleButtonG2);

  n = 0;
  XtSetArg(args[n], XmNvisibleWhenOff, False);  n++;
  ToggleButtonG3 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG3",
					      args, n);
  XtManageChild(ToggleButtonG3);

  n = 0;
  XtSetArg(args[n], XmNset, True);  n++;
  XtSetArg(args[n], XmNfillOnSelect, True);  n++;
  ToggleButtonG4 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG4",
					      args, n);
  XtManageChild(ToggleButtonG4);

  px_unselect =
    XCreatePixmapFromBitmapData(display, 
				DefaultRootWindow(display),
				XBMu_BITS, XBMu_WIDTH,XBMu_HEIGHT,
				WhitePixel(display,DefaultScreen(display)),
				BlackPixel(display,DefaultScreen(display)),
				DefaultDepth(display,DefaultScreen(display)));
  px_select = 
    XCreatePixmapFromBitmapData(display, 
				DefaultRootWindow(display),
				XBMs_BITS, XBMs_WIDTH,XBMs_HEIGHT,
				WhitePixel(display,DefaultScreen(display)),
				BlackPixel(display,DefaultScreen(display)),
				DefaultDepth(display,DefaultScreen(display)));
  n = 0;
  XtSetArg(args[n], XmNlabelType, XmPIXMAP);  n++;
  XtSetArg(args[n], XmNselectPixmap, px_select);  n++;
  XtSetArg(args[n], XmNlabelPixmap, px_unselect);  n++;
  ToggleButtonG5 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG5",
					      args, n);
  XtManageChild(ToggleButtonG5);

  n = 0;
  XtSetArg(args[n], XmNindicatorOn, False);  n++;
  XtSetArg(args[n], XmNshadowThickness, 2); n++;
  ToggleButtonG6 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG6",
					      args, n);
  XtManageChild(ToggleButtonG6);

  n = 0;
  tcs = XmStringLtoRCreate("ToggleG2", XmSTRING_DEFAULT_CHARSET);
  XtSetArg(args[n], XmNlabelString, tcs);  n++;
  XtSetValues(ToggleButtonG2, args, n);
  if(tcs) XmStringFree(tcs);

  printf("ToggleG1 state = %d\n", 
	 XmToggleButtonGadgetGetState(ToggleButtonG1));
  XmToggleButtonGadgetSetState(ToggleButtonG1, TRUE, FALSE);

  printf("ToggleG1 state = %d\n", 
	 XmToggleButtonGadgetGetState(ToggleButtonG1));
  XmToggleButtonGadgetSetState(ToggleButtonG1, FALSE, TRUE);

  printf("ToggleG1 state = %d\n", 
	 XmToggleButtonGadgetGetState(ToggleButtonG1));

  CommonPause();                       /* ONE_OF_MANY */

  XtSetArg(args[n], XmNradioBehavior, False); n++;
  XtSetArg(args[n], XmNradioAlwaysOne, False); n++;
  XtSetValues(RowColumn1, args, n);
  CommonPause();			   /* N_OF_MANY Behavior */

  n = 0;
  XtSetArg(args[n], XmNindicatorType, XmN_OF_MANY); n++;
  XtSetValues(ToggleButtonG1, args, n);
  XtSetValues(ToggleButtonG2, args, n);
  CommonPause();			   /* N_OF_MANY Appearance */

  /*
   *  Kill off the widgets
   */

  XtDestroyWidget(ToggleButtonG1);
  XtDestroyWidget(ToggleButtonG2);
  XtDestroyWidget(ToggleButtonG3);
  XtDestroyWidget(ToggleButtonG4);
  XtDestroyWidget(ToggleButtonG5);
  XtDestroyWidget(ToggleButtonG6);
  XtDestroyWidget(RowColumn1);
  
  /*
   *  Create a test for PIR 2430
   */

  n = 0;
  XtSetArg(args[n], XmNpacking, XmPACK_TIGHT); n++;
  XtSetArg(args[n], XmNbackground, CommonGetColor("black")); n++;
  XtSetArg(args[n], XmNforeground, CommonGetColor("orange")); n++;
  RowColumn1 = XmCreateRadioBox(Form, "RowColumn1", args, n);
  XtManageChild (RowColumn1);

  XtSetArg(args[n], XmNx, 125); n++;   /* add an offset */
  RowColumn2 = XmCreateRadioBox(Form, "RowColumn2", args, n);
  XtManageChild (RowColumn2);
  
  n = 0;
  XtSetArg(args[n], XmNshadowThickness, 2); n++;
  XtSetArg(args[n], XmNindicatorOn, True);  n++;
  ToggleButtonG1 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG1",
					      args, n);
  ToggleButtonG4 = XmCreateToggleButtonGadget(RowColumn2, "ToggleButtonG4",
					      args, n);
  ToggleButtonG2 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG2",
					      args, n);
  ToggleButtonG5 = XmCreateToggleButtonGadget(RowColumn2, "ToggleButtonG5",
					      args, n);
  ToggleButtonG3 = XmCreateToggleButtonGadget(RowColumn1, "ToggleButtonG3",
					      args, n);
  ToggleButtonG6 = XmCreateToggleButtonGadget(RowColumn2, "ToggleButtonG6",
					      args, n);
  XtManageChild(ToggleButtonG1);
  XtManageChild(ToggleButtonG4);
  XtManageChild(ToggleButtonG2);
  XtManageChild(ToggleButtonG5);
  XtManageChild(ToggleButtonG3);
  XtManageChild(ToggleButtonG6);
  
  /* Now change the colors of the second radiobox */

  n = 0;
  XtSetArg(args[n], XmNforeground, CommonGetColor("blue")); n++;
  XtSetArg(args[n], XmNbackground, CommonGetColor("magenta")); n++;
  XtSetValues(RowColumn2, args, n);

  /*  End test for PIR 2430 */

  CommonPause();
  XtDestroyWidget(Form);

  CommonPause();			/* exit */
  XtAppMainLoop(app_context);

}