/* $TOG: CommText6.c /main/7 1997/10/02 16:23:51 csn $ */
/*
 * 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
 */
#include <testlib.h>


/*
 *  Global variables.
 */
Arg args[MAX_ARGS];
int n;

static char string1[] = "Sample Text";
static char string2[] = "Sample Text2";
static char string3[] =  "The <Return> key was pressed.";
static char string4[] = "Changed the string.";

static char font_name1[] = "8x13";
static char font_name2[] = "8x13bold";

static char render_tag[] = "render1";


static void ChangeString(Widget w, XtPointer client_data,
                                XtPointer call_data)
{
    XmString  tcs = (XmString)0;


      n = 0;
    XtSetArg(args[n], XmNvalue, string3 );  n++;
      XtSetValues(w, args, n);

      if ( tcs ) XmStringFree( tcs );
      
}


static void ChangeString2(Widget w, XtPointer client_data,
                                XtPointer call_data)
{
    XmString  tcs = (XmString)0;

      n = 0;
    XtSetArg(args[n], XmNvalue, string4);  n++;
      XtSetValues(w, args, n);
     
      if (tcs) XmStringFree(tcs);
}

void SetStringCB(w, client_data, call_data)
     Widget w;
     XtPointer client_data;
     XtPointer call_data;
{
     XmString  string;
     static char new_string[] = "New\nset\nvalue";
       
     XmTextSetString((Widget)client_data, new_string);
}

void InsertStringCB(w, client_data, call_data)
     Widget w;
     XtPointer client_data;
     XtPointer call_data;
{
     XmString  string;
     static char new_string[] = "+123+";
       
     XmTextInsert((Widget)client_data, 3, new_string);
}


void main_text6 (argc, argv)
     int argc;
     char **argv;
{
	Widget PanedWindow;
	Widget Text1;
	Widget Text2;
        Widget BBoard1;
	XtTranslations new_table;
	static String new_translation = "Ctrl<Key>r: activate()";
        XmString tcs;
        void *ret_val;
        Widget SetStringPB = NULL;
        Widget InsertStringPB = NULL;
        XmString string;
	char temp_string[100], *text2_return;
        XmStringContext *context;
        XmStringCharSet tag;
        XmStringDirection direction;
        XmStringComponentType unknown_tag;
        unsigned short        unknown_length;
        unsigned char         unknown_value;

	/*  initialize toolkit  */
	CommonTestInit(argc, argv);
	
	n = 0;
	XtSetArg(args[n], XmNwidth, 400);  n++;
	XtSetArg(args[n], XmNheight, 300);  n++;
	XtSetValues(Shell1, args, n);
	
	/* test case for PIR 3677 - realized here, not after children mngd */
	XtRealizeWidget(Shell1);
	/* end of test case for PIR 3677 */

	n = 0;
	PanedWindow = XmCreatePanedWindow(Shell1, "PanedWindow", args, n);
	XtManageChild(PanedWindow);

	n = 0;
	XtSetArg(args[n], XmNvalue, string1);  n++;
	XtSetArg(args[n], XmNfontList, CommonGetFontList(font_name1));  n++;
	Text1 = XmCreateText(PanedWindow, "Text1", args, n);
	XtManageChild (Text1);

	n = 0;
	XtSetArg(args[n], XmNfontList, CommonGetFontList(font_name2));  n++;
	XtSetArg(args[n], XmNvalue, string2);  n++;
	XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;
	Text2 = XmCreateText(PanedWindow, "Text2", args, n);
	XtManageChild (Text2);

	/* begin test for CR */
	CommonPause(); 

	/* The instructions ask the user to change Text1 in a way that
	   can mess up the focus, then modify Text2 by adding a "2" at
	   the end.

	   Check the contents of the strings and print out a warning if
	   the value of the second string is not now "Sample Text22" */

	ret_val = XmTextGetString(Text2);

	text2_return = (char *)ret_val;

	if (!strcmp(text2_return, "The Sample Text2") == 0) 
	   printf ("\n+++\n.Test FAILS. String in Text2 does not match expected value.\n+++\n");
	else printf ("+++\nTest PASSES. No error.\n");
	fflush(stdout);

	XtFree ((char *)ret_val);

	CommonPause();

	/* end test for CR */

	XtAddCallback(Text1, XmNactivateCallback, CommonGenericCB, NULL);
	XtAddCallback(Text1, XmNactivateCallback, ChangeString, NULL);
	XtAddCallback(Text2, XmNactivateCallback, ChangeString2, NULL);

	/* test case for PIR 3677 - this realize is commented out
	XtRealizeWidget (Shell1);
	*/

	CommonPause();
	CommonPause();

	n=0;
	new_table = XtParseTranslationTable (new_translation);
	XtSetArg(args[n], XmNtranslations, new_table); n++;
	XtSetValues (Text2, args, n);

	CommonPause();

	/* test case for PIR 1772, PIR 1058 */
	XtAddCallback(Text1, XmNvalueChangedCallback, CommonGenericCB, NULL);
	XtAddCallback(Text1, XmNmodifyVerifyCallback, CommonGenericCB, NULL);

	CommonPause();
	/* end of test case for PIR 1772, PIR 1058 */

        /*  Begin testing CR 6141 */

        XtDestroyWidget( PanedWindow );

        n = 0;
        XtSetArg(args[n], XmNallowShellResize, True); n++;
        XtSetValues( Shell1, args, n );

        n = 0;
        XtSetArg(args[n], XmNwidth, 200); n++;
        XtSetArg(args[n], XmNheight, 200); n++;
        BBoard1 = XmCreateBulletinBoard( Shell1, "BBoard1", args, n );
        XtManageChild( BBoard1 );

        string = XmStringCreate("", XmFONTLIST_DEFAULT_TAG );

        n = 0;
        XtSetArg( args[n], XmNx, 0 ); n++;
        XtSetArg( args[n], XmNy, 0 ); n++;
        XtSetArg( args[n], XmNrows, 5 ); n++;
        XtSetArg( args[n], XmNcolumns, 40 ); n++;
        XtSetArg( args[n], XmNeditMode, XmMULTI_LINE_EDIT ); n++;
	XtSetArg( args[n], XmNvalue, "" ); n++;
        Text1 = XmCreateText( BBoard1, "Text1", args, n );
        XtManageChild( Text1 );

        string = XmStringCreate("Set String", XmFONTLIST_DEFAULT_TAG );

        n = 0;
        XtSetArg( args[n], XmNx, 0 ); n++;
        XtSetArg( args[n], XmNy, 100 ); n++;
        XtSetArg( args[n], XmNwidth, 100 ); n++;
        XtSetArg( args[n], XmNheight, 30 ); n++;
        XtSetArg( args[n], XmNlabelString, string ); n++;
        SetStringPB = XmCreatePushButton(BBoard1, "SetStringPB", args, n);
        XtAddCallback(SetStringPB, XmNactivateCallback, SetStringCB, Text1);
        XtManageChild (SetStringPB);

        XmStringFree( string );

        string = XmStringCreate("Insert", XmFONTLIST_DEFAULT_TAG );

        n = 0;
        XtSetArg( args[n], XmNx, 110 ); n++;
        XtSetArg( args[n], XmNy, 100 ); n++;
        XtSetArg( args[n], XmNwidth, 90 ); n++;
        XtSetArg( args[n], XmNheight, 30 ); n++;
        XtSetArg( args[n], XmNlabelString, string ); n++;
        InsertStringPB = XmCreatePushButton(BBoard1, "InsertStringPB", args, n);
        XtAddCallback(InsertStringPB, XmNactivateCallback,
                                      InsertStringCB, Text1);
        XtManageChild (InsertStringPB);

        XmStringFree( string );

        CommonPause();
       /*  End testing CR 6141 */

        CommonPause();

	XtAppMainLoop(app_context);
}