/* 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. ******************************************************************/ #ifdef HAVE_CONFIG_H #include #endif #include "Intrinsic.h" #include "IntrinsicI.h" #include "Core.h" #include "CoreP.h" #include "ShellP.h" #include "StringDefs.h" #include "ResConfigP.h" #include #include #include #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_indexcore.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; icore.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= 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 (remainder[0] == 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; icomposite.num_children; i++) { (*children)[current] = comp->composite.children[i]; current++; } } if (XtIsWidget (parent)) { for (i=0; icore.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; icore.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); }