/* 
 *  @OPENGROUP_COPYRIGHT@
 *  COPYRIGHT NOTICE
 *  Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
 *  Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
 *  ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
 *  the full copyright text.
 *  
 *  This software is subject to an open license. It may only be
 *  used on, with or for operating systems which are themselves open
 *  source systems. You must contact The Open Group for a license
 *  allowing distribution and sublicensing of this software on, with,
 *  or for operating systems which are not Open Source programs.
 *  
 *  See http://www.opengroup.org/openmotif/license for full
 *  details of the license agreement. Any use, reproduction, or
 *  distribution of the program constitutes recipient's acceptance of
 *  this agreement.
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
 *  PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 *  KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
 *  WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
 *  OR FITNESS FOR A PARTICULAR PURPOSE
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
 *  NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
 *  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
 *  AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 *  ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
 *  EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
 *  POSSIBILITY OF SUCH DAMAGES.
*/ 
/* 
 * HISTORY
*/ 
#ifdef REV_INFO
#ifndef lint
static char rcsid[] = "$XConsortium: TextField3.c /main/8 1995/07/13 19:35:15 drk $"
#endif
#endif
/*
*  (c) Copyright 1987, 1988, 1989 HEWLETT-PACKARD COMPANY */

#include <testlib.h>

Arg args[MAX_ARGS];

static char string1[] = "This line is exactly 40 characters long.";

static void ModifyVerifyCB(Widget w, XtPointer client_data,
	XtPointer call_data)
{
	XmTextVerifyCallbackStruct  *modify_verify;
	static char c = 'A';
	static int position = 12;

	modify_verify = (XmTextVerifyCallbackStruct *)call_data;

	if (modify_verify->event == NULL)
		printf("Null event in ModifyVerify callback\n");

	if (modify_verify->text->ptr != NULL) 
	{  /* Make sure that it is not a BS */
		modify_verify->startPos = position++;
		modify_verify->endPos = modify_verify->startPos;
		modify_verify->text->ptr[0] = c;
		modify_verify->text->length = 1;
	}

	c += 1;
	if (c > 'Z')
		c = 'A';
}

static void ChangeString(Widget w, XtPointer client_data,
	XtPointer call_data)
{
	int n = 0;
	char *value;

	value = XmTextFieldGetString(w);
	XmTextFieldSetInsertionPosition(w, strlen(value));
	XtFree(value);

	XtSetArg(args[n], XmNfontList, CommonGetFontList("8x13bold"));  n++;
	XtSetArg(args[n], XmNmarginWidth, 10);  n++;
	XtSetArg(args[n], XmNmarginHeight, 10);  n++;
	XtSetArg(args[n], XmNforeground, CommonGetColor("navy"));  n++;
	XtSetArg(args[n], XmNvalue, "Fenway !!!"); n++;
	XtSetValues(w, args, n);
}

/* test case for PIR 2492
 *   Type in a string as per bug report;
 *   hit return;
 *   note that the new string is drawn properly (not off-screen).
 *   On even activates, change string with set string; on odd, use setvalues
 */

static void ChangeString2(Widget w, XtPointer client_data,
	XtPointer call_data)
{
	static Boolean toggle = False;
	int n = 0;
	
	if (!toggle)
	{
		XmTextFieldSetString((Widget)client_data,
		"This is a much longer string which overflows the display");
	}
	else
	{
		n = 0;
		XtSetArg(args[0],XmNvalue,"Now is the time");  n++;
		XtSetValues((Widget)client_data, args, n);
	}
	toggle = !toggle;
}

void main (argc, argv)
int argc;
char **argv;
{
	Widget Text1 = NULL;
        String str;
	int n = 0;
	
	/*  initialize toolkit  */
	CommonTestInit(argc, argv);
	
	/* test case for PIR 4031 */
	n = 0;
	XtSetArg(args[n], XmNwidth, 10); n++;
	XtSetArg(args[n], XmNheight, 10); n++;
	XtSetValues(Shell1, args, n);
	XtRealizeWidget(Shell1);
	/* end of test case for PIR 4031 */
	
	n = 0;
	XtSetArg(args[n], XmNfontList, CommonGetFontList("fixed"));  n++;
	XtSetArg(args[n], XmNcursorPosition, 12);  n++;
	XtSetArg(args[n], XmNvalue, "Sample Text ");  n++;
	XtSetArg(args[n], XmNforeground, CommonGetColor("Red"));  n++;
	XtSetArg(args[n], XmNbackground, CommonGetColor("White"));  n++;
	Text1 = XmCreateTextField(Shell1, "Text1", args, n);
	
	XtManageChild(Text1);
	XtRealizeWidget(Shell1);
	
	n = 0;
	XtSetArg(args[n], XmNresizeWidth, False);  n++;
	XtSetArg(args[n], XmNcolumns, 40);  n++;
	XtSetValues(Text1, args, n);
	
	CommonPause();
	
	/* Begin test for PIR 2959 */
	XtAddCallback(Text1, XmNmodifyVerifyCallback, ModifyVerifyCB, NULL);
	
	CommonPause();
	/* End test for PIR 2959 *
	
	/* Begin Test for PIR 2663 */
	XtRemoveAllCallbacks (Text1, XmNmodifyVerifyCallback);
	XtAddCallback(Text1, XmNactivateCallback, ChangeString, NULL);
	CommonPause();
	/* End Test for PIR 2663 */
	
	/* Begin Test for PIR 2942, 4077 */
	XtRemoveAllCallbacks(Text1, XmNactivateCallback);
	XtAddCallback(Text1, XmNactivateCallback, ChangeString2, Text1);
	CommonPause();
	/* End Test for PIR 2942, 4077 */

        /*  Begin test case for CR 4803 */

       /*  Turn bell on for Shell. */
         n = 0;
         XtSetArg(args[0], XmNaudibleWarning, XmBELL); n++;
         XtSetValues(Shell1, args, n);
         XtDestroyWidget(Text1);

         n = 0;
         XtSetArg(args[n], XmNmaxLength, 40); n++;
         XtSetArg(args[n], XmNfontList, CommonGetFontList("fixed"));  n++;
         XtSetArg(args[n], XmNcursorPosition, 12);  n++;
         XtSetArg(args[n], XmNvalue, "Sample Text ");  n++;
         XtSetArg(args[n], XmNforeground, CommonGetColor("Red"));  n++;
         XtSetArg(args[n], XmNbackground, CommonGetColor("White"));  n++;
         XtSetArg(args[n], XmNvalue, string1);  n++;
         XtSetArg(args[n], XmNeditable, True);  n++;
         Text1 = XmCreateTextField(Shell1, "Text1", args, n);
         XtManageChild(Text1);

         CommonPause();

       /*  Turn bell off for Shell. */
         XtSetArg(args[0], XmNaudibleWarning, XmNONE);
         XtSetValues(Shell1, args, 1);
         XtDestroyWidget(Text1);

         n = 0;
         XtSetArg(args[n], XmNfontList, CommonGetFontList("fixed"));  n++;
         XtSetArg(args[n], XmNcursorPosition, 12);  n++;
         XtSetArg(args[n], XmNvalue, "Sample Text ");  n++;
         XtSetArg(args[n], XmNforeground, CommonGetColor("Red"));  n++;
         XtSetArg(args[n], XmNbackground, CommonGetColor("White"));  n++;
         XtSetArg(args[n], XmNmaxLength, 40); n++;
         XtSetArg(args[n], XmNvalue, string1);  n++;
         XtSetArg(args[n], XmNeditable, True);  n++;
         Text1 = XmCreateTextField(Shell1, "Text1", args, n);

         XtManageChild(Text1);

         CommonPause();
        /* End test for OSF 4803 */

	XtDestroyWidget (Text1);

	/* begin test for CR 5258 */
	str = "The cursor should be here.  If not, an error occurred.";
	n = 0;
        XtSetArg (args[n], XmNcursorPosition, 26);n++;
	XtSetArg (args[n], XmNcolumns, 60); n++;
	XtSetArg (args[n], XmNeditable, False); n++;
	XtSetArg (args[n], XmNresizeWidth, True); n++;
	XtSetArg (args[n], XmNvalue, str); n++;
	Text1 = XmCreateTextField(Shell1, "Text1", args, n);
	XtManageChild(Text1);
 
 /* end test for CR 5258 */
       CommonPause();
       CommonPause();
	
	XtAppMainLoop(app_context);
}