diff options
Diffstat (limited to 'libXt/src/ResConfig.c')
| -rw-r--r-- | libXt/src/ResConfig.c | 1023 |
1 files changed, 1023 insertions, 0 deletions
diff --git a/libXt/src/ResConfig.c b/libXt/src/ResConfig.c new file mode 100644 index 000000000..fd6d057c9 --- /dev/null +++ b/libXt/src/ResConfig.c @@ -0,0 +1,1023 @@ +/* $Xorg: ResConfig.c,v 1.5 2001/02/09 02:03:56 xorgcvs Exp $ */ +/* + +Copyright 1987, 1988, 1998 The Open Group + +Permission to use, copy, modify, distribute, and sell this software and its +documentation for any purpose is hereby granted without fee, provided that +the above copyright notice appear in all copies and that both that +copyright notice and this permission notice appear in supporting +documentation. + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of The Open Group shall not be +used in advertising or otherwise to promote the sale, use or other dealings +in this Software without prior written authorization from The Open Group. + +*/ +/***************************************************************** + +(C) COPYRIGHT International Business Machines Corp. 1992,1997 + All Rights Reserved + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software. + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +THE IBM CORPORATION BE LIABLE FOR ANY CLAIM, DAMAGES, INCLUDING, +BUT NOT LIMITED TO CONSEQUENTIAL OR INCIDENTAL DAMAGES, OR OTHER LIABILITY, +WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR +IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of the IBM Corporation shall +not be used in advertising or otherwise to promote the sale, use or other +dealings in this Software without prior written authorization from the IBM +Corporation. + +******************************************************************/ +/* $XFree86: xc/lib/Xt/ResConfig.c,v 3.7 2001/08/22 22:52:19 dawes Exp $ */ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif +#include "Intrinsic.h" +#include "IntrinsicI.h" +#include "Core.h" +#include "CoreP.h" +#include "ShellP.h" +#include "StringDefs.h" +#include "ResConfigP.h" +#include <X11/Xatom.h> +#include <stdio.h> +#include <stdlib.h> + +#define MAX_BUFFER 512 + +static void _search_child(Widget, char *, char *, char *, char *, char, char *); +static void _set_and_search(Widget, char *, char *, char *, char *, char , char *); +static int _locate_children(Widget, Widget **); + +#if defined(sun) && !defined(SVR4) +# define Strtoul(a,b,c) (unsigned long)strtol(a,b,c) +#else +# define Strtoul(a,b,c) strtoul(a,b,c) +#endif + + +/* + * NAME: _set_resource_values + * + * FUNCTION: + * This function sets the value on the widget. It must first determine + * if the last part is a valid resource for that widget. (eg. + * labelString is a valid resource for label but not for bulletin board) + * It must also add the resource to the application's resource database + * and then query it out using specific resource strings that it builds + * from the widget information. This ensures that a customizing tool + * on-the-fly paradigm is followed: an application that is + * instantaneously updated should look the same as one that is restarted + * and uses the .Xdefaults file. + * + * PARAMETERS: + * w the widget to match + * resource the resource string to be matched + * value the value to be set + * last_part the last resource part (e.g. *background) + * + * RETURN VALUES: void + * + * ERRORS: none + */ +static void +_set_resource_values ( + Widget w, + char *resource, + char *value, + char *last_part) +{ + XrmDatabase db = NULL; + char *resource_name = NULL; + char *resource_class = NULL; + char *return_type; + XrmValue return_value; + char *resource_value; + Widget cur = w; + char *temp; + XtResourceList resources_return = NULL; + Cardinal num_resources_return = 0; + Cardinal res_index; + Boolean found_resource = False; + Display *dpy; + XrmDatabase tmp_db; + + if (!XtIsWidget (w)) + dpy = XtDisplay (w->core.parent); + else + dpy = XtDisplay (w); + tmp_db = XtDatabase(dpy); + + /* + * get a list of all the valid resources for this widget + */ + XtGetResourceList (w->core.widget_class, + &resources_return, &num_resources_return); + + /* + * try to match the last_part of the resource string with + * a resource in this resource list + */ + for (res_index=0; res_index<num_resources_return; res_index++) { + if ((strcmp (last_part, + resources_return[res_index].resource_name) == 0) || + (strcmp (last_part, + resources_return[res_index].resource_class) == 0)) { + found_resource = True; + break; + } + } + + /* + * if resource is not a valid resource for this widget + * or the resource name or class are NULL + * then exit this function + */ + if (!found_resource + || !resources_return[res_index].resource_name + || !resources_return[res_index].resource_class) { + XtFree ((char *) resources_return); + return; + } + + /* + * build the full resource name and class specifications so + * that you can query the resource database + * eg: .app.button1.foreground + * .App.XmPushButton.Foreground + */ + while (cur != NULL) { + /* + * create resource name string + */ + if (resource_name) { + temp = XtMalloc (sizeof(char) * + (2 + strlen(cur->core.name) + + strlen(resource_name))); + sprintf (temp, ".%s%s", cur->core.name, resource_name); + XtFree (resource_name); + } else if (!XtIsWidget (cur) || !cur->core.name) { + cur = XtParent(cur); + continue; + } else { + temp = XtMalloc (sizeof(char) * + (2 + strlen(cur->core.name))); + sprintf (temp, ".%s", cur->core.name); + } + resource_name = temp; + + /* + * create resource class string + */ + if ((XtIsTopLevelShell (cur)) && (XtParent (cur) == NULL)) { + ApplicationShellWidget top = + (ApplicationShellWidget) (cur); + + if (resource_class) { + temp = XtMalloc (sizeof(char) * + (2 + strlen(top->application.class) + + strlen(resource_class))); + sprintf (temp, ".%s%s", + top->application.class, resource_class); + } else { + temp = XtMalloc (sizeof(char) * + (2 + strlen(top->application.class))); + sprintf (temp, ".%s", + top->application.class); + } + } else { + if (resource_class) { + temp = XtMalloc (sizeof(char) * + (2 + strlen( + cur->core.widget_class->core_class.class_name) + + strlen(resource_class))); + sprintf (temp, ".%s%s", + cur->core.widget_class->core_class.class_name, + resource_class); + } else { + temp = XtMalloc (sizeof(char) * + (2 + strlen( + cur->core.widget_class->core_class.class_name))); + sprintf (temp, ".%s", + cur->core.widget_class->core_class.class_name); + } + } + if (resource_class != NULL) + XtFree (resource_class); + resource_class = temp; + + cur = XtParent(cur); + } + + /* + * add the resource name to the end of the resource name string + */ + temp = XtMalloc (2 + strlen(resource_name) + + strlen(resources_return[res_index].resource_name)); + sprintf (temp, "%s.%s", resource_name, + resources_return[res_index].resource_name); + if (resource_name != NULL) + XtFree (resource_name); + resource_name = temp; + + /* + * add the resource class to the end of the resource class string + */ + temp = XtMalloc (2 + strlen(resource_class) + + strlen(resources_return[res_index].resource_class)); + sprintf (temp, "%s.%s", resource_class, + resources_return[res_index].resource_class); + if (resource_class != NULL) + XtFree (resource_class); + resource_class = temp; + +#ifdef DEBUG + fprintf (stderr, "resource_name = %s\n", resource_name); + fprintf (stderr, "resource_class = %s\n", resource_class); +#endif + + /* + * put the resource and its value in a resource database and + * then query it back out again using the specific name and + * class resource strings that were built above. This is + * necessary to maintain a precedence similar to the .Xdefaults + * file + */ + XrmPutStringResource (&db, resource, value); + XrmMergeDatabases (db, &tmp_db); + XrmGetResource (tmp_db, resource_name, resource_class, + &return_type, &return_value); + if (return_type) + resource_value = XtNewString (return_value.addr); + else + resource_value = XtNewString (value); + +#ifdef DEBUG + fprintf (stderr, + "Apply:\n\twidget = %s\n\tlast_part = %s\n\tvalue = %s\n", + (w->core.name == NULL) ? "NULL" : w->core.name, + resources_return[res_index].resource_name, + resource_value); +#endif + /* + * use XtVaSetValues with XtVaTypedArg to convert the value of + * type String the the same type as the resource (last_part). + * Then set the value. + */ + XtVaSetValues (w, + XtVaTypedArg, resources_return[res_index].resource_name, + XtRString, resource_value, + strlen (resource_value) + 1, + NULL); + + XtFree ((char *) resources_return); + XtFree (resource_name); + XtFree (resource_class); + XtFree (resource_value); +} + +/* + * NAME: _apply_values_to_children + * + * FUNCTION: + * Once the resource string matches the value must be applied to + * all children if applicable. (eg. App*Form.background must apply + * background to all children of the Form widget) + * + * PARAMETERS: + * w the widget to match + * remainder the part of the resource string left over + * resource the resource string to be matched + * value the value to be set + * last_token the last * or . before the final resoruce part + * last_part the last resource part (e.g. *background) + * + * RETURN VALUES: void + * + * ERRORS: none + */ +static void +_apply_values_to_children ( + Widget w, + char *remainder, + char *resource, + char *value, + char last_token, + char *last_part) +{ + int i; + int num_children; + Widget *children; + + /* + * Recursively search through the children + */ + num_children = _locate_children (w, &children); + + for (i=0; i<num_children; i++) { + +#ifdef DEBUG + if (XtIsWidget (children[i]) && XtIsWidget (w)) + fprintf (stderr, "searching child %s of parent %s\n", + children[i]->core.name, w->core.name); + else + fprintf (stderr,"searching child (NULL) of parent %s\n", + w->core.name); + if (!XtIsWidget (children[i])) + fprintf (stderr, "children[%d] is NOT a widget\n", i); + if (!XtIsWidget (w)) + fprintf (stderr, "w is NOT a widget\n"); +#endif + + _set_resource_values (children[i], resource, value, last_part); + _apply_values_to_children (children[i], remainder, + resource, value, last_token, last_part); + } + + XtFree ((char *)children); +} + +/* + * NAME: _search_child + * + * FUNCTION: + * descends through each child of the tree + * + * PARAMETERS: + * w the widget whose children are to be searched + * indx index into the resource string + * remainder the remaining part of the resource string + * resource the resource string to be matched + * value the value to be applied + * last_token the last * or . before the final resoruce part + * last_part the last resource part (e.g. *background) + * + * RETURN VALUES: none + * + * ERRORS: none + */ +static void +_search_child ( + Widget w, + char *indx, + char *remainder, + char *resource, + char *value, + char last_token, + char *last_part) +{ + int i; + int num_children; + Widget *children; + + /* + * Recursively search through the children + */ + num_children = _locate_children (w, &children); + for (i=0; i<num_children; i++) { + _set_and_search (children[i], indx, remainder, resource, + value, last_token, last_part); + } + + XtFree ((char *)children); +} + +/* + * NAME: _get_part + * + * FUNCTION: + * This routine will return the token and following part of the resource + * when given the current index it will update the index accordingly + * + * PARAMETERS: + * remainder the part of the resource string left over + * indx the index into the resource string + * part the parsed off part of the resource string + * + * RETURN VALUES: + * char the token (* or . or ?) preceding the resource part + * indx the index into the resource string + * part the parsed off part of the resource string + * + * ERRORS: none + */ +/* ARGSUSED */ +static char +_get_part ( + char *remainder, + char **indx, + char **part) +{ + char buffer[MAX_BUFFER]; + char *buf_ptr; + char token = **indx; + int i = 0; + + /* + * copy the remainder part into the buffer + */ + buf_ptr = buffer; + (*indx)++; /* get rid of the token */ + while (**indx && (**indx != '.') && (**indx != '*')) { + *buf_ptr++ = *(*indx)++; + if (++i >= MAX_BUFFER - 1) + break; + } + *buf_ptr = '\0'; + + *part = XtNewString (buffer); /* return a new string to part */ + + if (strcmp (*indx, "") == 0) + *indx = NULL; + + return (token); /* return the token */ +} + +/* + * NAME: _match_resource_to_widget + * + * FUNCTION: + * This function matches the resource part to the widget name or class + * + * PARAMETERS: + * w the widget to match + * part the parsed off part of the resource string + * + * RETURN VALUES: + * Boolean true if a match occurs + * + * ERRORS: none + */ +static Boolean +_match_resource_to_widget ( + Widget w, + char *part) +{ + /* + * Match any widget at this level if the ? is used + */ + if (strcmp (part, "?") == 0) + return (True); + + /* + * if the object is really a widget then its name can be matched + * otherwise only use its class. Note that if you try to reference + * a widget name when the object is not a widget, you may get a + * core dump from an invalid pointer reference. + */ + if (XtIsWidget (w)) { + if ((strcmp (w->core.name, part) == 0) || + (strcmp (w->core.widget_class->core_class.class_name, + part) == 0)) + return (True); + else + return (False); + } else { + if ((strcmp (w->core.widget_class->core_class.class_name, + part) == 0)) + return (True); + else + return (False); + } +} + +/* + * NAME: _set_and_search + * + * FUNCTION: + * The algorithm to search the widget tree and apply a resource string + * + * PARAMETERS: + * w the widget to match + * indx the index into the resource string + * remainder the part of the resource string left over + * resource the resource string to be matched + * value the value to be set + * last_token the last * or . before the final resoruce part + * last_part the last resource part (e.g. *background) + * + * RETURN VALUES: none + * + * ERRORS: none + * + * ALGORITHM: + * loop (look at all children) + * if (resource segment and current widget match) + * if '.' + * if at end of resource string + * set values ( .=over all children + * *=this widget only) + * else + * descend the widget tree + * and parse off resource segment + * exit the loop + * if '*' + * if at end of resource string + * set values ( .=over all children + * *=this widget only) + * descend and parse + * else + * if '.' + * continue looping + * if '*' + * descend but don't parse + * continue looping + * end loop + * + * NOTE: the _set_resource_values routine will not allow a value to be + * set on a resource against the rules of the resource database manager + */ +static void +_set_and_search ( + Widget w, + char *indx, + char *remainder, + char *resource, + char *value, + char last_token, + char *last_part) +{ + char *part; + char *local_index = indx; + char token; + + /* + * parse off one part, return token and the new index + */ + token = _get_part (remainder, &local_index, &part); + + if (_match_resource_to_widget (w, part)) { + if (token == '.') { + if (local_index == NULL) { + if (last_token == '.') { + _set_resource_values (w, resource, + value, last_part); + } else if (last_token == '*') { + _set_resource_values (w, resource, + value, last_part); + _apply_values_to_children (w, + remainder, resource, value, + last_token, last_part); + } + } else + _search_child (w, local_index, remainder, + resource, value, last_token, last_part); + return; + } + if (token == '*') { + if (local_index == NULL) { + if (last_token == '.') { + _set_resource_values (w, resource, + value, last_part); + } else if (last_token == '*') { + _set_resource_values (w, resource, + value, last_part); + _apply_values_to_children ( w, + remainder, resource, value, + last_token, last_part); + } + } else + _search_child (w, local_index, remainder, + resource, value, last_token, last_part); + } + } else {/* if the widget name and class don't match the part */ + /* if (token == '.') just continue looping */ + + if (token == '*') { + _search_child (w, indx, remainder, resource, value, + last_token, last_part); + } + } + + XtFree (part); +} + +/* + * NAME: _get_last_part + * + * FUNCTION: + * This routine will parse off the last segment of a resource string + * and its token and return them. the remainder of resource is also + * returned. strcoll is used to guarantee no problems with + * international strings. + * + * PARAMETERS: + * remainder the part of the resource string left over + * part the parsed off part of the resource string + * + * RETURN VALUES: + * char the token (* or . or ?) preceding the resource part + * remainder the part of the resource string left over + * part the parsed off part of the resource string + * + * ERRORS: none + */ +static char +_get_last_part ( + char *remainder, + char **part) +{ + char *loose, *tight; + + loose = strrchr (remainder, '*'); + tight = strrchr (remainder, '.'); + + if ((loose == NULL) && (tight == NULL)) { + *part = XtNewString (remainder); + return ('.'); + } + if ((loose == NULL) || (tight && (strcoll (loose, tight) < 0))) { + *tight++ = '\0'; /* shorten the remainder string */ + *part = XtNewString (tight); + return ('.'); + } + if ((tight == NULL) || (loose && (strcoll (tight, loose) < 0))) { + *loose++ = '\0'; + *part = XtNewString (loose); + return ('*'); + } + *part = NULL; + + return ('0'); /* error - return 0 */ +} + +/* + * NAME: _search_widget_tree + * + * FUNCTION: + * This function tries to match a resource string to the widgets + * it applies to. The functions it invokes to do this then set + * the value for that resource to each widget. + * + * The resource string has to be parsed into the following format: + * resource = App*Form*button1.background + * remainder = *Form*button1 + * last_part = background last_token = . + * As the widget tree is recursively descended, these variables are + * passed. The remainder is parsed at each level in the widget + * tree as the _set_and_search function attempts to match + * the resource part (eg. part = Form token = *) to a widget. When + * the entire resource string has been matched, the _set_resource_values + * functions is called to apply the value to the widget or widgets. + * + * PARAMETERS: + * w a widget from whose toplevel shell ancestor + * the search will start + * resource the resource string to match + * value the value to apply + * + * RETURN VALUES: none + * + * ERRORS: none + */ +static void +_search_widget_tree ( + Widget w, + char *resource, + char *value) +{ + Widget parent = w; + char *last_part; + char *remainder = NULL; + char last_token; + char *indx, *copy; + char *loose, *tight; + int loose_len, tight_len; + + /* + * Find the root of the tree given any widget + */ + while (XtParent(parent) != NULL) { + parent = XtParent(parent); + } +#ifdef DEBUG + if (XtIsWidget (w) && XtIsWidget (parent)) + fprintf (stderr, "widget = %s parent = %s\n", + w->core.name, parent->core.name); + else + fprintf (stderr, "widget = NULL parent = NULL\n"); +#endif + + /* + * parse off the Class name that was prepended to this string in + * a customizing tool + */ + loose = strchr (resource, '*'); + tight = strchr (resource, '.'); + if ((loose == NULL) && (tight == NULL)) + return; + + loose_len = (loose) ? strlen (loose) : 0; + tight_len = (tight) ? strlen (tight) : 0; + + if ((loose == NULL) || (tight_len > loose_len)) + remainder = XtNewString (tight); + else if ((tight == NULL) || (loose_len > tight_len)) + remainder = XtNewString (loose); + + /* + * Parse last segment off of resource string, (eg. background, font, + * etc.) + */ + last_token = _get_last_part (remainder, &last_part); + /* + * this case covers resources of only one level (eg. *background) + */ + if (strcmp (remainder, "") == 0) { + _set_resource_values (w, resource, value, last_part); + if (last_token == '*') + _apply_values_to_children (parent, remainder, resource, + value, last_token, last_part); + /* + * all other resource strings are recursively applied to the widget tree. + * Prepend a '.' to the remainder string if there is no leading token. + */ + } else { + if (remainder[0] != '*' && remainder[0] != '.') { + copy = XtMalloc (strlen(remainder) + 2); + sprintf (copy, ".%s", remainder); + XtFree (remainder); + remainder = copy; + } + indx = remainder; + _set_and_search (parent, indx, remainder, resource, value, + last_token, last_part); + } + + XtFree (remainder); + XtFree (last_part); +} + +/* + * NAME: _locate_children + * + * FUNCTION: + * returns a list of all of a widget's children + * + * PARAMETERS: + * w the parent to search for its children + * children the list of children that is created + * normal flag for normal children + * popup flag for popup children + * + * RETURN VALUES: + * int the number of children + * children the list of children found + * + * ERRORS: none + */ +static int +_locate_children ( + Widget parent, + Widget **children) +{ + CompositeWidget comp = (CompositeWidget) parent; + Cardinal i; + int num_children = 0; + int current = 0; + + /* + * count the number of children + */ + if (XtIsWidget (parent)) + num_children += parent->core.num_popups; + if (XtIsComposite (parent)) + num_children += comp->composite.num_children; + if (num_children == 0) { + *children = NULL; + return (0); + } + + *children = (Widget *) + XtMalloc ((Cardinal) sizeof(Widget) * num_children); + + if (XtIsComposite (parent)) { + for (i=0; i<comp->composite.num_children; i++) { + (*children)[current] = comp->composite.children[i]; + current++; + } + } + + if (XtIsWidget (parent)) { + for (i=0; i<parent->core.num_popups; i++) { + (*children)[current] = comp->core.popup_list[i]; + current++; + } + } + + return (num_children); +} + +#ifdef DEBUG +/* + * NAME: dump_widget_tree + * + * FUNCTION: + * recursively printout entire widget tree + * + * PARAMETERS: + * w the widget to match + * indent the amount to indent each line + * + * RETURN VALUES: void + * + * ERRORS: none + */ +static void +dump_widget_tree ( + Widget w, + int indent) +{ + int i,j; + int num_children; + Widget *children; + + /* + * Recursively search through the children + */ + num_children = _locate_children (w, &children); + indent += 2; + for (i=0; i<num_children; i++) { + if (children[i] != NULL) { + for (j=0; j<indent; j++) + fprintf (stderr, " "); + if (XtIsWidget (children[i])) { + fprintf (stderr, "(%s)\t",children[i]->core.name); + fprintf (stderr, "(%s)\n", + children[i]->core.widget_class->core_class.class_name); + } else { + fprintf (stderr, "(NULL)\t"); + fprintf (stderr, "(%s)\n", + children[i]->core.widget_class->core_class.class_name); + } + } + dump_widget_tree (children[i], indent); + } + + XtFree ((char *)children); +} +#endif + +/* + * NAME: _XtResourceConfiguationEH + * + * FUNCTION: + * This function is the event handler for the on-the-fly communication + * with a resource customization tool. This event handler must be + * registered for the toplevel shell of each app. This is best done + * in the _XtCreatePopupShell and _XtAppCreateShell functions in Xt's + * Create.c source file. + * + * The property used to communicate with a customizing tool is + * placed on the toplevel shell window of the application. The + * customizing tool places a property on this window which causes + * this event handler to be invoked via the PropertyNotify event. + * This event handler reads the property and then deletes it from + * the server. The contents of the property are a resource string + * and value. The event handler then calls functions to walk the + * applications widget tree, determining which widgets are affected + * by the resource string, and then applying the value with XtSetValues. + * + * PARAMETERS: + * w the widget that invoked this event handler + * client_data not used + * event the event structure + * + * RETURN VALUES: none + * + * ERRORS: none + */ +/* ARGSUSED */ +void +_XtResourceConfigurationEH ( + Widget w, + XtPointer client_data, + XEvent *event) +{ + Atom actual_type; + int actual_format; + unsigned long nitems; + unsigned long leftover; + unsigned char *data = NULL; + unsigned long resource_len; + char *data_ptr; + char *resource; + char *value; +#ifdef DEBUG + int indent = 0; +#endif + XtPerDisplay pd; + +#ifdef DEBUG + fprintf (stderr, "in _XtResourceConfiguationEH atom = %d\n",event->xproperty.atom); + fprintf (stderr, " window = %x\n", XtWindow (w)); + if (XtIsWidget (w)) + fprintf (stderr, " widget = %x name = %s\n", w, w->core.name); +#endif + + pd = _XtGetPerDisplay (XtDisplay (w)); + + /* + * The window on which a customizing tool places the property + * is determined at this point. It should be the applications + * toplevel shell window. + * + * A customizing tool sends a "ping" to the application on + * the RCM_INIT property. The application answers the ping + * by deleting the property. + */ + if (event->xproperty.atom == pd->rcm_init) { + XDeleteProperty (XtDisplay(w), XtWindow (w), pd->rcm_init); + +#ifdef DEBUG + if (XtIsWidget (w)) + fprintf (stderr, "%s\n", w->core.name); + else + fprintf (stderr, "NULL name\n"); + dump_widget_tree(w, indent); + + fprintf (stderr, "answer ping\n"); +#endif + } + + /* + * This event handler ignores any property notify events that + * are not RCM_INIT or RCM_DATA + */ + if (event->xproperty.atom != pd->rcm_data) + return; + + /* + * Retrieve the data from the property + */ +#ifdef DEBUG + fprintf (stderr, "receiving RCM_DATA property\n"); +#endif + if (XGetWindowProperty (XtDisplay(w), + XtWindow (w), + pd->rcm_data, 0L, 8192L, + TRUE, XA_STRING, + &actual_type, &actual_format, &nitems, &leftover, + &data ) == Success && actual_type == XA_STRING + && actual_format == 8) { + /* + * data format is: + * + * resource_length, resource, value + * + * convert the resource_length to a long, skip over it, put a + * zero byte at the end of the resource, and pick off the + * resource and value fields. + */ + if (data) { + resource_len = Strtoul ((void *)data, &data_ptr, 10); + data_ptr++; + + data_ptr[resource_len] = '\0'; + + resource = XtNewString (data_ptr); + value = XtNewString (&data_ptr[resource_len + 1]); +#ifdef DEBUG + fprintf (stderr, "resource_len=%d\n",resource_len); + fprintf (stderr, "resource = %s\t value = %s\n", + resource, value); +#endif + /* + * descend the application widget tree and + * apply the value to the appropriate widgets + */ + _search_widget_tree (w, resource, value); + + XtFree (resource); + XtFree (value); + } + } + + if (data) + XFree ((char *)data); +} |