diff options
Diffstat (limited to 'vendor/x11iraf/obm/ObmW/iconutil.c.ORIG')
| -rw-r--r-- | vendor/x11iraf/obm/ObmW/iconutil.c.ORIG | 279 |
1 files changed, 279 insertions, 0 deletions
diff --git a/vendor/x11iraf/obm/ObmW/iconutil.c.ORIG b/vendor/x11iraf/obm/ObmW/iconutil.c.ORIG new file mode 100644 index 00000000..1b6c0079 --- /dev/null +++ b/vendor/x11iraf/obm/ObmW/iconutil.c.ORIG @@ -0,0 +1,279 @@ +/* + +The converter from String to Icon knows about a few preloaded icons: +FATAL, ERROR, WARNING, QUESTION, INFO, emptysquare, filledsquare, +emptydiamond, filleddiamond and none. Other names are assumed to be +names of files in XPM format. + +An Icon is a combination of a Pixmap and a mask. The mask is +constructed from the pixels that are marked `none' (i.e., +`transparent') in the XPM data. The other pixels end up in the icon's +pixmap. The actual colors depend on many factors, but the XPM format +offers a way of defining `dynamic' colors, i.e., colors that are +chosen at run time instead of by the icon's designer. The designer can +assign symbolic names to colors, such as `foreground' or `shadow'. The +application can then replace the symbolic names with actual colors +when the icon is loaded. + +The type converter tries to automate this process. When an icon is +loaded, the function looks for symbolic color names that match +resources of the widget into which the icon isloaded. E.g., if the +icon has a symbolic color `mainColor' and the widget has resource of +the same name, the value of the resource will be used as the actual +color for the icon. + +In this way, icons can be created that fit the widget, whatever the +colors of that widget. + +Good symbolic names to use are `background' (defined in every widget), +`foreground' (defined e.g., in |XfwfLabel|), `topShadowColor' and +`bottomShadowColor' (defined in |XfwfFrame|). + +The implementation is as follows: the pixmap for the icon actually has +to be created twice; once to get the list of symbolic colors and again +with the replacement colors. When the XPM data is not preloaded, it is +read from a file. The data is converted to an icon, converted back, +and then again converted to an icon with new colors. + +The converter is passed one extra argument: the widget that the icon +is loaded into. It must be in |args[0].addr|. + +The table of colors to override is set to a fixed size of 20. This +should be enough for most applications: how many widgets have more +than 20 color resources? + +*/ + +#include <X11/IntrinsicP.h> +#include <X11/StringDefs.h> +#include "Converters.h" +#include "done.h" +#include "bitmaps/FATAL.pm" +#include "bitmaps/ERROR.pm" +#include "bitmaps/WARNING.pm" +#include "bitmaps/QUESTION.pm" +#include "bitmaps/INFO.pm" +#include "bitmaps/square0.pm" +#include "bitmaps/square1.pm" +#include "bitmaps/diamond0.pm" +#include "bitmaps/diamond1.pm" + +#define MAXCOLORSYM 20 + + + +/* Here are the quarks for the built-in icons names. */ + +static XrmQuark filleddiamondq, emptydiamondq, filledsquareq, emptysquareq, + QUESTIONq, FATALq, ERRORq, WARNINGq, INFOq, noneq; + +static Boolean initialized = False; + + + +/* This function initializes the quarks. */ + +static void init_icon_quarks() +{ + filleddiamondq = XrmPermStringToQuark("filleddiamond"); + emptydiamondq = XrmPermStringToQuark("emptydiamond"); + filledsquareq = XrmPermStringToQuark("filledsquare"); + emptysquareq = XrmPermStringToQuark("emptysquare"); + QUESTIONq = XrmPermStringToQuark("QUESTION"); + FATALq = XrmPermStringToQuark("FATAL"); + ERRORq = XrmPermStringToQuark("ERROR"); + WARNINGq = XrmPermStringToQuark("WARNING"); + INFOq = XrmPermStringToQuark("INFO"); + noneq = XrmPermStringToQuark("none"); + initialized = True; +} + + +/* The function |file_to_icon| is called by the type converter +|cvtStringToIcon|. It reads a file in XPM format and prints error +messages in case of failure. Of the XPM attributes, only the color +symbols are retained. */ + +static void file_to_icon(dpy, file, icon) + Display *dpy; + String file; + Icon *icon; +{ + Cardinal one = 1; + int status; + +#ifdef OLD_XPM + icon->attributes.valuemask = XpmReturnInfos; +#else + icon->attributes.valuemask = 0; +#endif + status = XpmReadFileToPixmap(dpy, DefaultRootWindow(dpy), file, + &icon->pixmap, &icon->mask, + &icon->attributes); + switch (status) { + case XpmOpenFailed: + case XpmFileInvalid: + case XpmNoMemory: + XtAppWarningMsg + (XtDisplayToApplicationContext(dpy), "cvtStringToIcon", + "fileError", "XtToolkitError", "Failed to create icon \"%s\"", + (XtPointer) &file, &one); + icon->pixmap = icon->mask = None; + break; + case XpmColorError: + case XpmColorFailed: + XtAppWarningMsg + (XtDisplayToApplicationContext(dpy), "cvtStringToIcon", + "allocColor", "XtToolkitError", + "Could not get (all) colors for image \"%s\"", + (XtPointer) &file, &one); + break; + case XpmSuccess: + ; /* skip */ + } +} + + +/* The function |data_to_icon| is also called by the type converter +|cvtStringToIcon|. It converts data in XPM format and prints error +messages in case of failure. Of the XPM attributes, only the color +symbols are retained. */ + +static void data_to_icon(dpy, data, icon) + Display *dpy; + String *data; + Icon *icon; +{ + int status; + +#ifdef OLD_XPM + icon->attributes.valuemask = XpmReturnInfos; +#else + icon->attributes.valuemask = 0; +#endif + status = XpmCreatePixmapFromData(dpy, DefaultRootWindow(dpy), data, + &icon->pixmap, &icon->mask, + &icon->attributes); + switch (status) { + case XpmOpenFailed: + case XpmFileInvalid: + case XpmNoMemory: + XtAppWarningMsg + (XtDisplayToApplicationContext(dpy), "cvtStringToIcon", + "fileError", "XtToolkitError", "Failed to create an icon", + NULL, NULL); + icon->pixmap = icon->mask = None; + break; + case XpmColorError: + case XpmColorFailed: + XtAppWarningMsg + (XtDisplayToApplicationContext(dpy), "cvtStringToIcon", + "allocColor", "XtToolkitError", + "Could not get (all) colors for some icon", NULL, NULL); + break; + case XpmSuccess: + ; /* skip */ + } +} + + +/* The function |build_colortable| is also called from +|cvtStringToIcon|. It looks through all the resources for resources that +specify a color (|Pixel|). All such resources and their values are +entered in the table. + +To get at the resource value, the |resource_offset| (an unsigned int) +must be added to the base address of the widget. The widget pointer is +first converted to an unsigned long, tehn the offset is added to it and +the result is converted back to a pointer, in this case a pointer to a +|Pixel|. */ + +static void build_colortable(self, table, size, n) + Widget self; + XpmColorSymbol *table; + Cardinal size; + Cardinal *n; +{ + Cardinal nres, i; + XtResourceList res; + + *n = 0; + XtGetResourceList(XtClass(self), &res, &nres); + for (i = 0; i < nres; i++) + if (strcmp(res[i].resource_type, XtRPixel) == 0 && *n < size) { + table[*n].name = res[i].resource_name; + table[*n].value = NULL; + table[*n].pixel = + * (Pixel*) ((unsigned long) self + res[i].resource_offset); + (*n)++; + } +} + + + +Boolean cvtStringToIcon(dpy, args, num_args, from, to, converter_data) + Display *dpy; + XrmValue *args; + Cardinal *num_args; + XrmValue *from; + XrmValue *to; + XtPointer *converter_data; +{ + static XpmColorSymbol table[MAXCOLORSYM]; + Cardinal n; + String *data, s = (String) from->addr; + Widget self = (Widget) args[0].addr; + Icon *view; + XrmQuark q; + + if (! initialized) init_icon_quarks(); + + if (*num_args != 1) + XtAppErrorMsg + (XtDisplayToApplicationContext(dpy), + "cvtStringToIcon", "wrongParameters", "XtToolkitError", + "String to Icon conversion needs one argument: a widget", + (String*) NULL, (Cardinal*) NULL); + + view = (Icon*) XtMalloc(sizeof(*view)); + q = XrmStringToQuark(s); + /* + * Create the icon for the first time, store the color names + */ + if (q == filleddiamondq) data_to_icon(dpy, diamond1, view); + else if (q == emptydiamondq) data_to_icon(dpy, diamond0, view); + else if (q == filledsquareq) data_to_icon(dpy, square1, view); + else if (q == emptysquareq) data_to_icon(dpy, square0, view); + else if (q == QUESTIONq) data_to_icon(dpy, QUESTION, view); + else if (q == FATALq) data_to_icon(dpy, FATAL, view); + else if (q == ERRORq) data_to_icon(dpy, ERROR, view); + else if (q == WARNINGq) data_to_icon(dpy, WARNING, view); + else if (q == INFOq) data_to_icon(dpy, INFO, view); + else if (q == noneq) {XtFree((String)view); done(Icon*, NULL);} + else file_to_icon(dpy, s, view); + + /* + * Convert back to String format + */ + (void) XpmCreateDataFromPixmap(dpy, &data, view->pixmap, + view->mask, &view->attributes); + /* + XFreePixmap(dpy, view->pixmap); + XFreePixmap(dpy, view->mask); + */ + XpmFreeAttributes(&view->attributes); + /* + * Construct color replacement table and create icon again + */ + build_colortable(self, table, XtNumber(table), &n); + view->attributes.colorsymbols = table; + view->attributes.numsymbols = n; + view->attributes.valuemask = XpmColorSymbols; + (void) XpmCreatePixmapFromData(dpy, DefaultRootWindow(dpy), data, + &view->pixmap, &view->mask, + &view->attributes); + XtFree((String) data); + done(Icon*, view); +} + + |