/* 

 * 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: mvsCreateWid.c /main/10 1995/07/14 11:25:25 drk $"

#endif

#endif

/***********************************************************************

  	@(#)mvsCreateWid.c	1.31.1.1	Date:1/22/91

  	Author: TAT

	History:

	   03/30/90 SJS Add to sccs tree

	   04/02/90 SJS Change level of messages

	   05/17/90 TAT Add code to allocate widget

           06/07/90 TAT Add code to support predefined composite creation

           06/25/90 SJS check for convenience function creates

           07/17/90 SJS do not try to manage the Shell that is serving as

                        our application context.

           07/29/90 PSN free arguments at end

           08/15/90 SJS try to get the hierarchy of menus correct

           09/18/90 SJS add intelligence to determine convenience parent

                        class

	Calls:

	Summary:

            Creates the specified widget and sets up the widget info record 

            associated with it. It returns a pointer to the widget info record.

            INPUTS

                widget_class_info  - Pointer to the mvs widget class info

                                     record that you want this widget info

                                     record to point to

                parent_widget_info - Pointer to the parent widget info record

                use_common         - When set to UseCommonArgs then use the

                                     common args found in the widget class

                                     record and merge them with those listed

                                     in the args parameter following.  When

                                     set to DontUseCommonArgs then only use

                                     those args listed in the parameter

                                     following.

                args               - The additional arguments that you wish

                                     to use.

                nargs              - The number of args listed in args (above).

            OUTPUTS

                none

            RETURNS

                Pointer to newly alloc'ed widget info record.

************************************************************************/

#include "mvslib.h" 

#include "xislib.h" 

#include <AutoMessages.h>

#include <Xm/DialogS.h>

#include <Xm/MenuShell.h>

#include <Xm/NotebookP.h>	/* Possible non-portability */

extern void NormalizePixmap();

extern Widget Shell1;

MvsWidgetInfoRecord *mvsCreateManageWidget(widget_class_info, parent_info, name,

					use_common, args_in, nargs_in, manage,

					xtclass)

MvsWidgetClassInfo *widget_class_info;

MvsWidgetInfoRecord *parent_info;

char *name;

int use_common, manage;

Arg args_in[];

Cardinal nargs_in;

WidgetClass xtclass;

{

    MvsWidgetInfoRecord *widget_info, *NB_child;

    static MvsWidgetInfoRecord *default_pg_scr_info;

    XSetWindowAttributes wattr;

    int i, j, n;

    Arg args[MAX_RESOURCES];

    Cardinal nargs=0;

    Arg color_args[50];

    Cardinal num_color_args;

    MvsResourceInfoRecord *resource_info = widget_class_info->resource_info;

    int num_res_colors = widget_class_info->num_res_colors;

    short *res_color_ref = widget_class_info->res_color_ref;

    short *res_pixmap_ref = widget_class_info->res_pixmap_ref;

    Widget tmp_widget;

    Widget save_widget;

    Widget created_widget;

    MvsWidgetInfoRecord *new_info=NULL;

    MvsWidgetClassInfo *convenience_class=NULL;

    Widget child;

    static int created_page_scroller = False;

    static int orig_page_scroller_destroyed = False;

    unsigned char NBChildType;

    XisObjectRecord *PagScr_object, *parent_xis_object, *cur_xis_object;

    XisObjectRecord *prev_xis_object;

    unsigned char nb_child_type;

    Cardinal num_children;

    msg_trace ("<mvsCreateWidget> Creating Widget.\n");

    /* Nullify args[] */

    for ( i=0 ; i

	args[i].value = 0L;

	args[i].name = NULL;

    }

    if (parent_info == NULL)

        AutoMessage(_AutoMessages[WARNMSG40]);

    for (i = 0 ; i < nargs_in ; i++) {

	args[i].name  = args_in[i].name;

	args[i].value = args_in[i].value;

    }

    nargs = nargs_in;

    /* Allocate and setup widget info record */

    widget_info = mvsAllocWidgetInfo(widget_class_info, parent_info, 

                                     (Widget)NULL                    );

    /* Then if in generate mode, append "hard-wired" color settings */

    if (mvsGetVisualMode() == VISUAL_MODE_GENERATE_PIXMAPS) {

        num_color_args = 0;

        for (i=0; i

	    if (res_color_ref[i] >= 0) {

		XtSetArg(color_args[num_color_args],

			 resource_info[res_color_ref[i]].name,

			 widget_info->unique_color_ref[i]);

		num_color_args++;

	    }

        }

        mvsCopyReplaceArgs(widget_class_info, args, &nargs, color_args, 

			   num_color_args);

    }

    /* Create actual widget */

    widget_info->widget = (*widget_class_info->proc_CreateWidget)

             (parent_info->widget,name,args,nargs,xtclass);

    if (widget_info->widget == NULL) {

        AutoError (_AutoMessages[WARNMSG99]);

    }

    widget_info->window = 0;

    /* 

       Manage widget if it is not a shell, or a child of a MenuShell,

       (Pulldown, Popup), also, do not manage if parent is a Dialog

       Shell (ErrorDialog, FormDialog...).

   */

    XtRealizeWidget(widget_info->widget);

    /* Manage widget if it is not a Shell */

    if((parent_info != mvsRootWidgetInfo) && (manage == TRUE)   &&

       (! XmIsMenuShell(widget_info->widget))			&&

       (! XmIsMenuShell(XtParent(widget_info->widget)))		&&

       (! XmIsDialogShell(XtParent(widget_info->widget))))

        XtManageChild (widget_info->widget);

/* used in 1.1

    XtRealizeWidget(widget_info->widget);

*/

    /*

     * If the widget being created is a Notebook, we need

     * to test if the default PageScroller has been created

     */

    if ((widget_info->parent->widget != NULL ) && 

	(mvsGetClassCode(widget_info->parent->widget) 

		== mvsXmNotebookWidgetClass)) {

	child = XtNameToWidget(widget_info->parent->widget, "PageScroller");

	/*

	 * Add the PageScroller to the object hierarchy if it

	 * has not already been added

	 */

	if (created_page_scroller == False) {

	    default_pg_scr_info = mvsSetupNewWidgetInfo(widget_info->parent,

							child,

							iXmSpinBoxWidgetClass);

	    mvsCreateChildren(default_pg_scr_info);

	    created_page_scroller = True;

	}

	/*

	 * Remove the default PageScroller if a new user defined

	 * one is being created.

	 */

	n = 0;

	XtSetArg(args[n], XmNnotebookChildType, &nb_child_type);	n++;

	XtGetValues(widget_info->widget, args, n);

	if ((nb_child_type == XmPAGE_SCROLLER) && 

	    (orig_page_scroller_destroyed == False) &&

	    (created_page_scroller == True))  {

	    /*

	     * Destroy the default PageScroller in the mvs heirarchy

	     */

	    mvsDestroyWidget(default_pg_scr_info,DontCheckCallbacks);

	    orig_page_scroller_destroyed = True;

	}

    }

    /* 

	For Pixmap resources do the following:

	1) Find proper background and foreground pixel values. If

	   you are recording this will be the unique color info of

	   the widget. If you are playing back, get the forteground

	   and background from the parent (if foreground and background

	   is not specified in the argument list).

	2) Find out if a pixmap resource is present.

	3) If pixmap is present get image and do a XPutPixel

	   with first pixel being the background pixel and the

	   second pixel being the foreground pixel.

	This makes the pixmap contain the background and foreground

	color of the widget (if you are in playback), or the chosen

	color (if you are in record mode).

    */

    /* Get the Pixmap resources and see if they need to be normalized.

       They can have been set through the resource file, in that case 

       add them to the arg list so that we don't reload them when 

       loading the default resources */

    for (i =0; i< num_res_colors; i++) {

	if (res_pixmap_ref[i] >= 0) {

	    Arg pixmap_args[1];

	    Pixmap value_pixmap;

	    /* Check if this pixmap needs to be normalized */

	    XtSetArg(pixmap_args[0],

		     resource_info[res_pixmap_ref[i]].name,

		     &value_pixmap);

	    XtGetValues(widget_info->widget, pixmap_args, 1);

	    if ((value_pixmap != XmUNSPECIFIED_PIXMAP) &&

		(value_pixmap != None)) {

		/* Normalize the pixmap only when in record or compare mode */

		if (mvsGetVisualMode() != VISUAL_MODE_DONT_CHECK)

		    NormalizePixmap(widget_info, value_pixmap);

		if (strcmp(resource_info[res_pixmap_ref[i]].name, 

			       "backgroundPixmap") == 0) {

		    Mask    window_mask;

		    XSetWindowAttributes attributes;

		    window_mask = CWBackPixmap;

		    attributes.background_pixmap = value_pixmap;

		    XChangeWindowAttributes(mvsDisplay, 

					    XtWindow(widget_info->widget), 

					    window_mask, &attributes);

		}

		/* Check if this needs to be added to the list of args */

		for (j = 0; j < nargs && 

		    strcmp(args[j].name,resource_info[res_pixmap_ref[i]].name);

		    j++);

		if (j == nargs) 

		    mvsCopyReplace1Arg(widget_class_info, args, &nargs, 

				       pixmap_args[0].name, value_pixmap);

	    }

	}

    }

    /* Set resources to default values */

    mvsSetResourcesToDefaults(widget_info,args,nargs);

    mvsSetIntToDefaults(widget_info);

    /* Store arg values in local copy of resources */

    if (nargs > 0) {

        if (mvsGetVisualMode() == VISUAL_MODE_GENERATE_PIXMAPS) {

            /* Make mvsSetLocalValues store color arguments locally */

            mvsSetVisualMode(VISUAL_MODE_DONT_CHECK);

            mvsSetLocalValues(widget_info,args,&nargs);

            mvsSetVisualMode(VISUAL_MODE_GENERATE_PIXMAPS);

        }

        else

            mvsSetLocalValues(widget_info,args,&nargs);

    }

    /* See if this was some sort of Convenience function that creates more   */

    /* than just the widget we asked for. If it is, then it is necessary to  */

    /* get all the new widgets and their infos into our widget hierarchy.    */

    /* See if children were created and alloc their widget_infos and colors. */

    tmp_widget = XtParent(widget_info->widget);

    if( tmp_widget != parent_info->widget) {

        save_widget = tmp_widget; 

        while ( (tmp_widget != NULL) &&

              (tmp_widget != parent_info->widget)) {

            save_widget = tmp_widget; 

            tmp_widget = XtParent(tmp_widget);

        }

        if(tmp_widget == NULL) {

            /* The parent we thought we had is nowhere in the ancestor chain

               above the parent we got. Look elsewhere for the widget

               in the hierarchy. Specifically, popup & pulldown menus

               look for the shell above them when they are children of

               a popup or pulldown.

            */

            tmp_widget = XtParent(widget_info->widget);

            save_widget = widget_info->widget;

            while (tmp_widget != NULL) {

                if(mvsWidgetToWidgetInfo(tmp_widget) !=

                                                  (MvsWidgetInfoRecord *)NULL) {                    parent_info = mvsWidgetToWidgetInfo(tmp_widget);

                    break;

                }

                save_widget = tmp_widget;

                tmp_widget = XtParent(tmp_widget);

            }

        }

        if(tmp_widget == NULL) {

        /* FUTURE: ADD IN call to determine class code. Use the return instead

           of blindly using iXmDialogShellWidgetClass.

        */

            AutoMessage(_AutoMessages[WARNMSG41]);

            new_info = mvsSetupNewWidgetInfo(mvsRootWidgetInfo,save_widget,

                                             iXmDialogShellWidgetClass);

        }

        else {

          /* The widget we are creating is not really created as a child   */

          /* of the requested parent. Rather, it has a parent which is the */

          /* child of the requested parent. (It is also possible that the  */

          /* parent is a widget somewhere else in the widget hierarchy)    */

          /* We basically, free the old widget info and construct a new    */

          /* one, including the dialog shell above (if a dialog shell is   */

          /* created. Popup & Pulldown can share common ancestor shells).  */

          /* The most important thing is to make sure that all widgets     */

          /* that were created end up in the hierarchy in a location that  */

          /* reflects the parent/child relations as seen by the user.      */

          /* The real window layout is handled by our object hierarchy.    */

            created_widget = widget_info->widget;

            mvsFreeWidgetInfo(widget_info);

            /* When the created widget & the saved widget are equal, it    */

            /* means that the widget we created was re-parented to         */

            /* somewhere else in the hierarchy. Thus, do not treat this    */

            /* case as a "Convenience" parent.                             */

            if(created_widget != save_widget) {

                new_info = mvsWidgetToWidgetInfo(save_widget);

                if(new_info == (MvsWidgetInfoRecord *)NULL) {

                    switch(mvsGetClassCode(save_widget)) {

                        case mvsXmDialogShellWidgetClass:

                            convenience_class = iXmDialogShellWidgetClass;

                            break;

                        case mvsXmMenuShellWidgetClass:

                            convenience_class = iXmMenuShellWidgetClass;

                            break;

                        default:

                            convenience_class = iXmScrolledWindowWidgetClass;

                            break;

                    }

                    new_info = mvsSetupNewWidgetInfo(parent_info,save_widget,

                                                     convenience_class);

                }

            }

            else {

                new_info = parent_info;

            }

            /* Allocate and setup widget info record */

            widget_info = mvsAllocWidgetInfo(widget_class_info, new_info, 

                                                 (Widget)NULL);

            widget_info->widget = created_widget;

            widget_info->window = 0;

            if(created_widget != save_widget) {

                widget_info->c_parent = True;

            }

            else {

                widget_info->c_parent = False;

            }

	    /* Set resources to default values */

            mvsSetResourcesToDefaults(widget_info,args,nargs);

            mvsSetIntToDefaults(widget_info);

            /* Store arg values in local copy of resources */

            if (nargs > 0) {

                if (mvsGetVisualMode() == VISUAL_MODE_GENERATE_PIXMAPS) {

                    /* Make mvsSetLocalValues store color arguments locally */

                    mvsSetVisualMode(VISUAL_MODE_DONT_CHECK);

                    mvsSetLocalValues(widget_info,args,&nargs);

                    mvsSetVisualMode(VISUAL_MODE_GENERATE_PIXMAPS);

                }

                else

                    mvsSetLocalValues(widget_info,args,&nargs);

            }

        }

    } /* End if(tmp_widget != parent_info->widget) */

    /* Create all the children of the widget we just created. We are    */

    /* *NOT* doing the parents of Convenience created widgets here.     */

    /* The reason is that right now we are unsure of the types of the   */

    /* chilren involved. This could possibly be improved upon.          */

    if (widget_info->parent != NULL) {

        if ((mvsGetClassCode(widget_info->widget) == mvsXmTextWidgetClass ||

       	     mvsGetClassCode(widget_info->widget) == mvsXmListWidgetClass) &&

	     mvsGetClassCode(XtParent(widget_info->widget)) == 

						mvsXmScrolledWindowWidgetClass)

    		mvsCreateChildren(widget_info->parent);

    }

    mvsCreateChildren(widget_info);

    /* Set up callback checking code if in behavior test set */

    XSync(mvsDisplay,0);

    if (widget_info->c_parent)

        new_info->window = XtWindowOfObject(new_info->widget);

    widget_info->window = XtWindowOfObject(widget_info->widget);

    xisCreateWidget(widget_info->widget);

    /* Make sure that window manager recognizes color map of this widget */

    wattr.colormap = mvsVisualInfo.colormap_id;

    XChangeWindowAttributes(mvsDisplay, XtWindowOfObject(widget_info->widget), 

                            CWColormap,&wattr);

    /* Process all events through expose event */

    xisProcessEvents(NULL, 0);

    xisUpdateObjectAttributes();

    /* Return pointer to widget info record */

    return(widget_info);

} /* End mvsCreateWidget() */

/***********************************************************************

  	Author: PSN

	History:

           08/15/90 PSN add manage/unmanage

	Summary:

		Create & manage widget

***********************************************************************/

MvsWidgetInfoRecord *mvsCreateWidget(widget_class_info, parent_info, name,

				     use_common, args_in, nargs_in, xtclass)

MvsWidgetClassInfo *widget_class_info;

MvsWidgetInfoRecord *parent_info;

char *name;

int use_common;

Arg args_in[];

Cardinal nargs_in;

WidgetClass xtclass;

{

/**Debug**

    return(mvsCreateManageWidget(widget_class_info, parent_info, name,

    				 use_common, args_in, nargs_in, TRUE));	

**/

    return(mvsCreateManageWidget(widget_class_info, parent_info, name,

    				 use_common, args_in, nargs_in, TRUE, xtclass));	

} /* End mvsCreateWidget() */

/***********************************************************************

  	Author: PSN

	History:

           08/15/90 PSN add manage/unmanage

	Summary:

		Create but do not manage widget

***********************************************************************/

MvsWidgetInfoRecord *mvsCreateNotManageWidget(widget_class_info, parent_info, 

					 name, use_common, args_in, nargs_in,

					 xtclass)

MvsWidgetClassInfo *widget_class_info;

MvsWidgetInfoRecord *parent_info;

char *name;

int use_common;

Arg args_in[];

Cardinal nargs_in;

WidgetClass xtclass;

{

    return(mvsCreateManageWidget(widget_class_info, parent_info, name,

    				 use_common, args_in, nargs_in, FALSE,

				 xtclass));

} /* End mvsCreateNotManageWidget() */

void NormalizePixmap(widget_info, value_pixmap)

MvsWidgetInfoRecord *widget_info;

Pixmap value_pixmap;

{

    Arg color_args[10];

    Cardinal num_color_args;

    Pixel foreground, background;

    Window root;

    int pix_x, pix_y, x, y;

    unsigned int pix_width, pix_height, pix_border, depth;

    XImage *pix_image = NULL;

    Pixel pixel1, pixel2;

    GC gc;

    if (XtParent(widget_info->widget) == NULL) {

	printf("mvsCreateWidget: NULL parent in visuals\n");

	exit(0);

    }

    num_color_args = 0;

    XtSetArg(color_args[num_color_args], XmNbackground, &background); 

    num_color_args++;

    XtSetArg(color_args[num_color_args], XmNforeground, &foreground); 

    num_color_args++;

    if (XmIsGadget(widget_info->widget) && 

	(mvsGetClassCode(widget_info->widget) != mvsXmIconGadgetClass)) 

	if (XtParent(widget_info->widget) != Shell1)

	    XtGetValues(XtParent(widget_info->widget), color_args, 

			num_color_args);

	else

	    AutoMessage(_AutoMessages[WARNMSG100]);

    else

	XtGetValues(widget_info->widget, color_args, num_color_args);

    if (! XGetGeometry(mvsDisplay, value_pixmap, &root,

		       &pix_x, &pix_y, &pix_width, &pix_height,

		       &pix_border, &depth)) {

	printf("mvsCreateWid: Bad return from XGetGeometry\n");

	exit(0);

    }

    pix_image = XGetImage(mvsDisplay, value_pixmap, 0, 0, pix_width,

			  pix_height, AllPlanes, ZPixmap);

    pixel1 = XGetPixel(pix_image,0,0);

    /* Don't assume pixmaps are only using 2 colors.

       Temporary fix, we'll need to improve it for checking real colors.

     */

    for (y=0; y

	for (x=0; x

	    if (XGetPixel(pix_image,x,y) != pixel1) {

		pixel2 = XGetPixel(pix_image,x,y);

		break;

	    }

	}

    }

    for (y=0; y

	for (x=0; x

	    if (XGetPixel(pix_image,x,y) == pixel1) 

		XPutPixel(pix_image, x, y, background);

	    else

		/*  if (XGetPixel(pix_image,x,y) == pixel2)    */

		XPutPixel(pix_image, x, y, foreground);

	}

    }

    gc = XCreateGC (mvsDisplay, value_pixmap, 0, (XGCValues *)NULL);

    XPutImage(mvsDisplay, value_pixmap, gc, pix_image,  0, 0,

		  0, 0, pix_width, pix_height);

    XFreeGC(mvsDisplay, gc);

    XDestroyImage(pix_image);

}