/* 

 * 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: Baseline1.c /main/7 1995/07/13 18:28:00 drk $"

#endif

#endif

#include <testlib.h>

char val_string[] = "Thomas, Lofton, Reed, and Kelly, spells victory\nfor \

the Bills in Minneapolis.\nSo I was wrong - so shoot me!!\nGo Bills!!";

Widget TitleWidget, Frame1;

void CreateChangeDialog();

static void ChangeVertAlign();

static void ChangeHorizAlign();

static void ChangeShadowType();

static void ChangeShadowThickness();

static void SetAlignmentString();

void  main (argc, argv)

    int     argc;

    char  **argv;

{

    register int       	n;

    Arg                	args[MAX_ARGS];

    XmString		tcs;

    Widget		Label2;

    Widget		BulletinB1, Text1;

    CommonTestInit(argc, argv);

    n = 0;

    XtSetArg(args[n], XmNshadowType, XmSHADOW_OUT);			n++;

    XtSetArg(args[n], XmNshadowThickness, 10);				n++;

    Frame1 = XmCreateFrame(Shell1, "Frame1", args, n);

    XtManageChild(Frame1);

    tcs = XmStringCreateSimple("Alignment String");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);				n++;

    XtSetArg(args[n], XmNchildType, XmFRAME_TITLE_CHILD);		n++;

    XtSetArg(args[n], XmNchildHorizontalAlignment, XmALIGNMENT_CENTER);	n++;

    TitleWidget = XmCreateLabel(Frame1, "TitleWidget", args, n);

    XtManageChild(TitleWidget);

    n = 0;

    BulletinB1 = XmCreateBulletinBoard(Frame1, "BulletinB1", args, n);

    XtManageChild(BulletinB1);

    XmStringFree(tcs);

    XtRealizeWidget(Shell1);

    CommonPause();

    tcs = XmStringCreateSimple("Another Label");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);				n++;

    XtSetArg(args[n], XmNchildType, XmFRAME_TITLE_CHILD);		n++;

    XtSetArg(args[n], XmNchildHorizontalAlignment, XmALIGNMENT_CENTER);	n++;

    Label2 = XmCreateLabel(Frame1, "Label2", args, n);

    XtManageChild(Label2);

    XmStringFree(tcs);

    CommonPause();

    XtDestroyWidget(Label2);

    /* 

       reset the original label to be XmFRAME_TITLE_CHILD, it was

       reset when Label2 was set as XmFRAME_TITLE_CHILD. 

    */

    n = 0;

    XtSetArg(args[n], XmNchildType, XmFRAME_TITLE_CHILD);		n++;

    XtSetValues(TitleWidget, args, n);

    n = 0;

    XtSetArg(args[n], XmNcolumns, 50);					n++;

    XtSetArg(args[n], XmNrows, 5);					n++;

    XtSetArg(args[n], XmNvalue, val_string);				n++;

    XtSetArg(args[n], XmNchildType, XmFRAME_WORKAREA_CHILD);		n++;

    XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT);			n++;

    Text1 = XmCreateScrolledText(BulletinB1, "ScrolledText1", args, n);

    XtManageChild(Text1);

    CommonPause();

    n = 0;

    XtSetArg(args[n], XmNmarginWidth, 20);				n++;

    XtSetArg(args[n], XmNmarginHeight, 20);				n++;

    XtSetValues(Frame1, args, n);

    CommonPause();

    CreateChangeDialog(Frame1);

    CommonPause();

    n = 0;

    XtSetArg(args[n], XmNfontList, CommonGetFontList("9x15bold"));	n++;

    XtSetValues(TitleWidget, args, n);

    CommonPause();

    tcs = XmStringLtoRCreate("Motif\nScrolled Text Widget", 

			     XmSTRING_DEFAULT_CHARSET);

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);				n++;

    XtSetValues(TitleWidget, args, n);

    XmStringFree(tcs);

    CommonPause();

    n = 0;

    XtSetArg(args[n], XmNchildType, XmFRAME_GENERIC_CHILD);		n++;

    XtSetValues(TitleWidget, args, n);

    CommonPause();

    XtDestroyWidget(TitleWidget);

    n = 0;

    XtSetArg(args[n], XmNvalue, "You can even use a Text widget");	n++;

    XtSetArg(args[n], XmNchildType, XmFRAME_TITLE_CHILD);		n++;

    XtSetArg(args[n], XmNchildHorizontalAlignment, XmALIGNMENT_END);	n++;

    XtSetArg(args[n], XmNwordWrap, True);				n++;

    XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT);			n++;

    XtSetArg(args[n], XmNrows, 2);					n++;

    TitleWidget = XmCreateText(Frame1, "Text1", args, n);

    XtManageChild(TitleWidget);

    CommonPause();

    XtAppMainLoop(app_context);

}

void CreateChangeDialog(widget)

    Widget widget;

{ 

    int 	n;

    Arg 	args[MAX_ARGS];

    Widget 	Toggle1, Toggle2, Toggle3,

		Toggle4, Toggle5;

    Widget	RadioBox1, PopupS;

    Widget	RadioBox2, RadioBox3, RowCol;

    Widget 	Toggle1a, Toggle2a, Toggle3a, Toggle4a;

    Widget 	Toggle1b, Toggle2b, Toggle3b;

    Widget 	Scale1;

    Widget      Text, ApplyBtn;

    XmString 	tcs;

    tcs = XmStringCreateSimple("Control Panel");

    n = 0;

    XtSetArg(args[n], XmNx, 0);				n++;

    XtSetArg(args[n], XmNy, 300);			n++;

    XtSetArg(args[n], XmNdefaultPosition, False);	n++;

    XtSetArg(args[n], XmNdialogTitle, tcs);		n++;

    PopupS = XmCreateBulletinBoardDialog(Shell1, "BulletinBD", args, n);

    XmStringFree(tcs);

    n = 0;

    XtSetArg(args[n], XmNorientation, XmHORIZONTAL);	n++;

    XtSetArg(args[n], XmNnumColumns, 2);		n++;

    XtSetArg(args[n], XmNpacking, XmPACK_COLUMN);	n++;

    RowCol = XmCreateRowColumn(PopupS, "RowCol1", args, n);

    XtManageChild(RowCol);

    n = 0;

    RadioBox1 = XmCreateRadioBox(RowCol, "RadioBox1", args, n);

    XtManageChild(RadioBox1);

    tcs = XmStringCreateSimple("XmALIGNMENT_BASELINE_BOTTOM");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle1 = XmCreateToggleButton(RadioBox1, "Toggle1", args, n);

    XtManageChild(Toggle1);

    XtAddCallback(Toggle1, XmNarmCallback, (XtCallbackProc) ChangeVertAlign, 

		  (XtPointer) XmALIGNMENT_BASELINE_BOTTOM);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_BASELINE_TOP");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle2 = XmCreateToggleButton(RadioBox1, "Toggle2", args, n);

    XtManageChild(Toggle2);

    XtAddCallback(Toggle2, XmNarmCallback, (XtCallbackProc) ChangeVertAlign, 

		  (XtPointer)  XmALIGNMENT_BASELINE_TOP);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_WIDGET_TOP");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle3 = XmCreateToggleButton(RadioBox1, "Toggle3", args, n);

    XtManageChild(Toggle3);

    XtAddCallback(Toggle3, XmNarmCallback, (XtCallbackProc) ChangeVertAlign,

		  (XtPointer) XmALIGNMENT_WIDGET_TOP);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_CENTER");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle4 = XmCreateToggleButton(RadioBox1, "Toggle4", args, n);

    XtManageChild(Toggle4);

    XtAddCallback(Toggle4, XmNarmCallback, (XtCallbackProc) ChangeVertAlign, 

		  (XtPointer) XmALIGNMENT_CENTER);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_WIDGET_BOTTOM");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle5 = XmCreateToggleButton(RadioBox1, "Toggle5", args, n);

    XtManageChild(Toggle5);

    XtAddCallback(Toggle5, XmNarmCallback, (XtCallbackProc) ChangeVertAlign, 

		  (XtPointer) XmALIGNMENT_WIDGET_BOTTOM);

    XmStringFree(tcs);

    n = 0;

    RadioBox2 = XmCreateRadioBox(RowCol, "RadioBox1", args, n);

    XtManageChild(RadioBox2);

    tcs = XmStringCreateSimple("XmSHADOW_IN");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle1a = XmCreateToggleButton(RadioBox2, "Toggle1a", args, n);

    XtManageChild(Toggle1a);

    XtAddCallback(Toggle1a, XmNarmCallback, (XtCallbackProc) ChangeShadowType,

		  (XtPointer)XmSHADOW_IN);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmSHADOW_OUT");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle2a = XmCreateToggleButton(RadioBox2, "Toggle2a", args, n);

    XtManageChild(Toggle2a);

    XtAddCallback(Toggle2a, XmNarmCallback, (XtCallbackProc) ChangeShadowType, 

		  (XtPointer) XmSHADOW_OUT);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmSHADOW_ETCHED_IN");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle3a = XmCreateToggleButton(RadioBox2, "Toggle3a", args, n);

    XtManageChild(Toggle3a);

    XtAddCallback(Toggle3a, XmNarmCallback, (XtCallbackProc) ChangeShadowType, 

		  (XtPointer) XmSHADOW_ETCHED_IN);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmSHADOW_ETCHED_OUT");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle4a = XmCreateToggleButton(RadioBox2, "Toggle4a", args, n);

    XtManageChild(Toggle4a);

    XtAddCallback(Toggle4a, XmNarmCallback, ChangeShadowType, 

		  (XtPointer) XmSHADOW_ETCHED_OUT);

    XmStringFree(tcs);

    n = 0;

    RadioBox3 = XmCreateRadioBox(RowCol, "RadioBox3", args, n);

    XtManageChild(RadioBox3);

    tcs = XmStringCreateSimple("XmALIGNMENT_BEGINNING");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle1b = XmCreateToggleButton(RadioBox3, "Toggle1b", args, n);

    XtManageChild(Toggle1b);

    XtAddCallback(Toggle1b, XmNarmCallback, (XtCallbackProc) ChangeHorizAlign, 

		  (XtPointer) XmALIGNMENT_BEGINNING);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_CENTER");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle2b = XmCreateToggleButton(RadioBox3, "Toggle2b", args, n);

    XtManageChild(Toggle2b);

    XtAddCallback(Toggle2b, XmNarmCallback, (XtCallbackProc) ChangeHorizAlign, 

		  (XtPointer) XmALIGNMENT_CENTER);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("XmALIGNMENT_END");

    n = 0;

    XtSetArg(args[n], XmNlabelString, tcs);			n++;

    Toggle3b = XmCreateToggleButton(RadioBox3, "Toggle3b", args, n);

    XtManageChild(Toggle3b);

    XtAddCallback(Toggle3b, XmNarmCallback, (XtCallbackProc) ChangeHorizAlign, 

		  (XtPointer) XmALIGNMENT_END);

    XmStringFree(tcs);

    n = 0;

    XtSetArg (args[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;

    XtSetArg (args[n], XmNrows, 2); n++;

    Text = XmCreateText (RowCol, "Text", args, n);

    XtManageChild (Text);

    tcs = XmStringCreateSimple ("Apply String");

    n = 0;

    XtSetArg (args[n], XmNlabelString, tcs); n++;

    ApplyBtn = XmCreatePushButton (RowCol, "ApplyBtn", args, n);

    XtManageChild (ApplyBtn);

    XtAddCallback (ApplyBtn, XmNactivateCallback, SetAlignmentString, Text);

    XmStringFree(tcs);

    tcs = XmStringCreateSimple("Frame's ShadowThickness");

    n = 0;

    XtSetArg(args[n], XmNorientation, XmHORIZONTAL);			n++;

    XtSetArg(args[n], XmNmaximum, 50);					n++;

    XtSetArg(args[n], XmNminimum, 0);					n++;

    XtSetArg(args[n], XmNvalue, 10);					n++;

    XtSetArg(args[n], XmNshowValue, True);				n++;

    XtSetArg(args[n], XmNtitleString, tcs);				n++;

    Scale1 = XmCreateScale(RowCol, "Scale1", args, n);

    XtManageChild(Scale1);

    XmStringFree(tcs);

    XtAddCallback(Scale1, XmNvalueChangedCallback, 

		  (XtCallbackProc) ChangeShadowThickness, NULL);

    XtManageChild(PopupS);

}

static void ChangeHorizAlign(w, client_data, call_data)

    Widget w;

    unsigned char client_data;

    caddr_t  call_data;

{

    int 	n;

    Arg		args[1];

    n = 0;

    XtSetArg(args[n], XmNchildHorizontalAlignment, client_data); 	n++;

    XtSetValues(TitleWidget, args, n);

}

static void ChangeShadowThickness(w, client_data, call_data)

    Widget w;

    caddr_t  client_data;

    caddr_t  call_data;

{

    int 	n;

    Arg		args[1];

    XmScaleCallbackStruct *eventStruct;

    int 	value;

    eventStruct = (XmScaleCallbackStruct *) call_data;

    value = eventStruct->value;

    n = 0;

    XtSetArg(args[n], XmNshadowThickness, value);		n++;

    XtSetValues(Frame1, args, n);

}

static void ChangeVertAlign(w, client_data, call_data)

    Widget w;

    unsigned char  client_data;

    caddr_t  call_data;

{

    int 	n;

    Arg		args[1];

    n = 0;

    XtSetArg(args[n], XmNchildVerticalAlignment, client_data); 	n++;

    XtSetValues(TitleWidget, args, n);

}

static void ChangeShadowType(w, client_data, call_data)

    Widget w;

    XtPointer  client_data;

    caddr_t  call_data;

{

    int 	n;

    Arg		args[1];

    n = 0;

    XtSetArg(args[n], XmNshadowType, client_data); 	n++;

    XtSetValues(Frame1, args, n);

}

static void SetAlignmentString(w, client_data, call_data)

    Widget w;

    XtPointer  client_data;

    XtPointer  call_data;

{

    /* this fn. sets the Baseline Alignment String to the contents

       of the Text widget */

    int n;

    Arg args[1];

    String value_string;

    XmString cs;

    n = 0;

    XtSetArg (args[n], XmNvalue, &value_string); n++;

    XtGetValues ((Widget) client_data, args, n);

    cs = XmStringCreateLtoR (value_string, XmFONTLIST_DEFAULT_TAG);

    n = 0;

    XtSetArg (args[n], XmNlabelString, cs); n++;

    XtSetValues (TitleWidget, args, n);

    XmStringFree (cs);

 }