/* $XConsortium: geoSetValues.c /main/4 1995/07/15 21:13:32 drk $ */

/*

 * 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 "IntrinsicI.h"

#include "StringDefs.h"

#include "geoTattler.h"

/*

 *	XtSetValues(), XtSetSubvalues()

 */

extern void _XtCopyFromArg();

extern XrmResourceList* _XtCreateIndirectionTable();

static void SetValues(base, res, num_resources, args, num_args)

  char*			base;		/* Base address to write values to   */

  XrmResourceList*	res;		/* The current resource values.      */

  register Cardinal	num_resources;	/* number of items in resources      */

  ArgList 		args;		/* The resource values to set        */

  Cardinal		num_args;	/* number of items in arg list       */

{

    register ArgList		arg;

    register int 	        i;

    register XrmName		argName;

    register XrmResourceList*   xrmres;

    /* Resource lists are assumed to be in compiled form already via the

       initial XtGetResources, XtGetSubresources calls */

    for (arg = args ; num_args != 0; num_args--, arg++) {

	argName = StringToName(arg->name);

	for (xrmres = res, i = 0; i < num_resources; i++, xrmres++) {

	    if (argName == (*xrmres)->xrm_name) {

		_XtCopyFromArg(arg->value,

		    base - (*xrmres)->xrm_offset - 1,

		    (*xrmres)->xrm_size);

		break;

	    }

	}

    }

} /* SetValues */

static Boolean CallSetValues (class, current, request, new, args, num_args)

    WidgetClass class;

    Widget      current, request, new;

    ArgList     args;

    Cardinal    num_args;

{

    Boolean redisplay = FALSE;

    if (class->core_class.superclass != NULL)

        redisplay = CallSetValues(

	  class->core_class.superclass, current, request, new, args, num_args);

    if (class->core_class.set_values != NULL)

        redisplay |= (*class->core_class.

		      set_values) (current, request, new, args, &num_args);

    if (class->core_class.set_values_hook != NULL)

	redisplay |=

	    (*class->core_class.set_values_hook) (new, args, &num_args);

    return (redisplay);

}

static Boolean

CallConstraintSetValues (class, current, request, new, args, num_args)

    ConstraintWidgetClass class;

    Widget      current, request, new;

    ArgList     args;

    Cardinal    num_args;

{

    Boolean redisplay = FALSE;

    if ((WidgetClass)class != constraintWidgetClass) {

	if (class == NULL)

	    XtAppErrorMsg(XtWidgetToApplicationContext(current),

		    "invalidClass","constraintSetValue",XtCXtToolkitError,

                 "Subclass of Constraint required in CallConstraintSetValues",

                  (String *)NULL, (Cardinal *)NULL);

	redisplay = CallConstraintSetValues(

	    (ConstraintWidgetClass) (class->core_class.superclass),

	    current, request, new, args, num_args);

    }

    if (class->constraint_class.set_values != NULL)

        redisplay |= (*class->constraint_class.

		      set_values) (current, request, new, args, &num_args);

    return (redisplay);

}

void XtSetSubvalues(base, resources, num_resources, args, num_args)

  XtPointer             base;           /* Base address to write values to   */

  register XtResourceList resources;    /* The current resource values.      */

  register Cardinal     num_resources;  /* number of items in resources      */

  ArgList               args;           /* The resource values to set        */

  Cardinal              num_args;       /* number of items in arg list       */

{

      register XrmResourceList*   xrmres;

      xrmres = _XtCreateIndirectionTable (resources, num_resources);

      SetValues((char*)base,xrmres,num_resources, args, num_args);

      XtFree((char *)xrmres);

}

void XtSetValues(w, args, num_args)

    register Widget   w;

	     ArgList  args;

	     Cardinal num_args;

{

    register Widget oldw, reqw;

    /* need to use strictest alignment rules possible in next two decls. */

    double	    oldwCache[100], reqwCache[100];

    double	    oldcCache[20], reqcCache[20];

    Cardinal	    widgetSize, constraintSize;

    Boolean	    redisplay, cleared_rect_obj = False;

    XtGeometryResult result;

    XtWidgetGeometry geoReq, geoReply;

    WidgetClass     wc = XtClass(w);

    ConstraintWidgetClass cwc;

    Boolean	    hasConstraints;

    Cardinal i ;

    /* Editres hack: 

       editres uses XtGetResourceList to get the resource list of a widget,

       and geoTattler can't be in the list, so we use "traversalOn", which

       is in all Motif subclasses. 

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

	if (strcmp(args[i].name, "traversalOn") == 0) {

	    _GeoChangeCache(w, (Boolean)args[i].value);

	    return ;

	}

    }

    remove that code, scale turns in on by default */

    if ((args == NULL) && (num_args != 0)) {

        XtAppErrorMsg(XtWidgetToApplicationContext(w),

		"invalidArgCount","xtSetValues",XtCXtToolkitError,

                "Argument count > 0 on NULL argument list in XtSetValues",

                 (String *)NULL, (Cardinal *)NULL);

    }

    /* Allocate and copy current widget into old widget */

    widgetSize = wc->core_class.widget_size;

    oldw = (Widget) XtStackAlloc(widgetSize, oldwCache);

    reqw = (Widget) XtStackAlloc (widgetSize, reqwCache);

    bcopy((char *) w, (char *) oldw, (int) widgetSize);

    /* Set resource values */

    SetValues((char*)w, (XrmResourceList *) wc->core_class.resources,

	wc->core_class.num_resources, args, num_args);

    bcopy ((char *) w, (char *) reqw, (int) widgetSize);

    /* assert: !XtIsShell(w) => (XtParent(w) != NULL) */

    hasConstraints = (!XtIsShell(w) && XtIsConstraint(XtParent(w)));

    /* Some widget sets apparently do ugly things by freeing the

     * constraints on some children, thus the extra test here */

    if (hasConstraints) {

	cwc = (ConstraintWidgetClass) XtClass(w->core.parent);

	if (w->core.constraints)

	    constraintSize = cwc->constraint_class.constraint_size;

	else constraintSize = 0;

    } else constraintSize = 0;

    if (constraintSize) {

	/* Allocate and copy current constraints into oldw */

	oldw->core.constraints = XtStackAlloc(constraintSize, oldcCache);

	reqw->core.constraints = XtStackAlloc(constraintSize, reqcCache);

	bcopy((char *) w->core.constraints, 

		(char *) oldw->core.constraints, (int) constraintSize);

	/* Set constraint values */

	SetValues((char*)w->core.constraints,

	    (XrmResourceList *)(cwc->constraint_class.resources),

	    cwc->constraint_class.num_resources, args, num_args);

	bcopy((char *) w->core.constraints,

	      (char *) reqw->core.constraints, (int) constraintSize);

    }

    /* Inform widget of changes, then inform parent of changes */

    redisplay = CallSetValues (wc, oldw, reqw, w, args, num_args);

    if (hasConstraints) {

	redisplay |= CallConstraintSetValues(cwc, oldw, reqw, w, args, num_args);

    }

    if (XtIsRectObj(w)) {

	/* Now perform geometry request if needed */

	geoReq.request_mode = 0;

	if (oldw->core.x	!= w->core.x) {

	    geoReq.x		= w->core.x;

	    w->core.x		= oldw->core.x;

	    geoReq.request_mode |= CWX;

	}

	if (oldw->core.y	!= w->core.y) {

	    geoReq.y		= w->core.y;

	    w->core.y		= oldw->core.y;

	    geoReq.request_mode |= CWY;

	}

	if (oldw->core.width	!= w->core.width) {

	    geoReq.width	= w->core.width;

	    w->core.width	= oldw->core.width;

	    geoReq.request_mode |= CWWidth;

	}

	if (oldw->core.height	!= w->core.height) {

	    geoReq.height	= w->core.height;

	    w->core.height	= oldw->core.height;

	    geoReq.request_mode |= CWHeight;

	}

	if (oldw->core.border_width != w->core.border_width) {

	    geoReq.border_width	    = w->core.border_width;

	    w->core.border_width    = oldw->core.border_width;

	    geoReq.request_mode	    |= CWBorderWidth;

	}

	if (geoReq.request_mode != 0) {

 	    /* Pass on any requests for unchanged geometry values */

 	    if (geoReq.request_mode !=

 		(CWX | CWY | CWWidth | CWHeight | CWBorderWidth)) {

 		for ( ; num_args != 0; num_args--, args++) {

 		    if (! (geoReq.request_mode & CWX) &&

 			strcmp(XtNx, args->name) == 0) {

 			geoReq.x = w->core.x;

 			geoReq.request_mode |= CWX;

 		    } else if (! (geoReq.request_mode & CWY) &&

 			       strcmp(XtNy, args->name) == 0) {

 			geoReq.y = w->core.y;

 			geoReq.request_mode |= CWY;

 		    } else if (! (geoReq.request_mode & CWWidth) &&

 			       strcmp(XtNwidth, args->name) == 0) {

 			geoReq.width = w->core.width;

 			geoReq.request_mode |= CWWidth;

 		    } else if (! (geoReq.request_mode & CWHeight) &&

 			       strcmp(XtNheight, args->name) == 0) {

 			geoReq.height = w->core.height;

 			geoReq.request_mode |= CWHeight;

 		    } else if (! (geoReq.request_mode & CWBorderWidth) &&

 			       strcmp(XtNborderWidth, args->name) == 0) {

 			geoReq.border_width = w->core.border_width;

 			geoReq.request_mode |= CWBorderWidth;

 		    }

 		}

 	    }

	    _GeoPrintTab();  /* newline */

	    _GeoPrintTrace(w,"XtSetValues sees some geometry changes for \"%s\".\n", XtName(w));

	    _GeoTabTrace();

	    do {

		result = _XtMakeGeometryRequest(w, &geoReq, &geoReply, 

						&cleared_rect_obj);

		if (result == XtGeometryYes || result == XtGeometryDone)

		    break;

		/* An Almost or No reply.  Call widget and let it munge

		   request, reply */

		if (wc->core_class.set_values_almost == NULL) {

		    XtAppWarningMsg(XtWidgetToApplicationContext(w),

			    "invalidProcedure","set_values_almost",

			  XtCXtToolkitError,

			  "set_values_almost procedure shouldn't be NULL",

			  (String *)NULL, (Cardinal *)NULL);

		    break;

		}

		if (result == XtGeometryNo) geoReply.request_mode = 0;

		_GeoPrintTrace(w,"calling SetValuesAlmost.\n");

		(*(wc->core_class.set_values_almost))

		    (oldw, w, &geoReq, &geoReply);

	    } while (geoReq.request_mode != 0);

	    /* call resize proc if we changed size and parent

	     * didn't already invoke resize */

	    if (((w->core.width != oldw->core.width ||

		 w->core.height != oldw->core.height)

		&& result != XtGeometryDone))  {

		_GeoPrintTrace(w,"XtSetValues calls \"%s\"'s resize proc.\n",

			    XtName(w));

		if (wc->core_class.resize) (*(wc->core_class.resize))(w);

	    }

	    _GeoUnTabTrace();

	}

	/* Redisplay if needed.  No point in clearing if the window is

	 * about to disappear, as the Expose event will just go straight

	 * to the bit bucket. */

        if (XtIsWidget(w)) {

            /* widgets can distinguish between redisplay and resize, since

             the server will cause an expose on resize */

            if (redisplay && XtIsRealized(w) && !w->core.being_destroyed) {

		_GeoPrintTrace(w,"XtSetValues calls ClearArea on \"%s\".\n",XtName(w));

                XClearArea (XtDisplay(w), XtWindow(w), 0, 0, 0, 0, TRUE);

	    }

        } else { /*non-window object */

	  if (redisplay && ! cleared_rect_obj ) {

	      Widget pw = _XtWindowedAncestor(w);

	      if (XtIsRealized(pw) && !pw->core.being_destroyed) {

		  RectObj r = (RectObj)w;

		  int bw2 = r->rectangle.border_width << 1;

		  _GeoPrintTrace(w,"XtSetValues calls ClearArea on \"%s\"'s parent \"%s\".\n",

			      XtName(w),XtName(pw));

		  XClearArea (XtDisplay (pw), XtWindow (pw),

		      r->rectangle.x, r->rectangle.y,

		      r->rectangle.width + bw2,r->rectangle.height + bw2,TRUE);

	      }

	  }

        }

    }

    /* Free dynamic storage */

    if (constraintSize) {

        XtStackFree(oldw->core.constraints, oldcCache);

        XtStackFree(reqw->core.constraints, reqcCache);

    }

    XtStackFree((XtPointer)oldw, oldwCache);

    XtStackFree((XtPointer)reqw, reqwCache);

} /* XtSetValues */