Synchronised line endinge with release branch

1 files changed, 352 insertions, 352 deletions

diff --git a/libXmu/src/StrToCurs.c b/libXmu/src/StrToCurs.c
index e9f36b96e..5645f2ef9 100644
--- a/libXmu/src/StrToCurs.c
+++ b/libXmu/src/StrToCurs.c
@@ -1,352 +1,352 @@
-/*

-

-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.

-

-*/

-

-/***********************************************************

-

-Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.

-

-                        All Rights Reserved

-

-Permission to use, copy, modify, and distribute this software and its 

-documentation for any purpose and without fee is hereby granted, 

-provided that the above copyright notice appear in all copies and that

-both that copyright notice and this permission notice appear in 

-supporting documentation, and that the name of Digital not be

-used in advertising or publicity pertaining to distribution of the

-software without specific, written prior permission.  

-

-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

-SOFTWARE.

-

-******************************************************************/

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include	<X11/Intrinsic.h>

-#include	<X11/StringDefs.h>

-#include	<X11/Xmu/Converters.h>

-#include	<X11/Xmu/Drawing.h>

-#include	<X11/Xmu/CurUtil.h>

-#include	<X11/Xmu/CharSet.h>

-#include <unistd.h>

-

-#ifndef X_NOT_POSIX

-#include <stdlib.h>

-#ifdef _POSIX_SOURCE

-#include <limits.h>

-#else

-#define _POSIX_SOURCE

-#include <limits.h>

-#undef _POSIX_SOURCE

-#endif

-#endif /* X_NOT_POSIX */

-#ifndef PATH_MAX

-#ifdef WIN32

-#define PATH_MAX 512

-#else

-#include <sys/param.h>

-#endif

-#ifndef PATH_MAX

-#ifdef MAXPATHLEN

-#define PATH_MAX MAXPATHLEN

-#else

-#define PATH_MAX 1024

-#endif

-#endif

-#endif /* PATH_MAX */

-

-/* Kludge source to avoid encountering broken shared library linkers

-   which insist on resolving references unused by the application,

-   and broken object file formats that don't correctly distinguish

-   references to procedures from references to data.

- */

-#if defined(SUNSHLIB) || defined(SVR4)

-#define XMU_KLUDGE

-#endif

-

-/*

- * XmuConvertStringToCursor:

- *

- * allows String to specify a standard cursor name (from cursorfont.h), a

- * font name and glyph index of the form "FONT fontname index [[font] index]", 

- * or a bitmap file name (absolute, or relative to the global resource

- * bitmapFilePath, class BitmapFilePath).  If the resource is not

- * defined, the default value is the build symbol BITMAPDIR.

- *

- * shares lots of code with XmuCvtStringToPixmap, but unfortunately

- * can't use it as the hotspot info is lost.

- *

- * To use, include the following in your ClassInitialize procedure:

-

-static XtConvertArgRec screenConvertArg[] = {

-    {XtBaseOffset, (XtPointer) XtOffsetOf(WidgetRec, core.screen),

-     sizeof(Screen *)}

-};

-

-    XtAddConverter(XtRString, XtRCursor, XmuCvtStringToCursor,      

-		   screenConvertArg, XtNumber(screenConvertArg));

- *

- */

-

-#define	done(address, type) \

-	{ (*toVal).size = sizeof(type); (*toVal).addr = (XPointer) address; }

-

-#define FONTSPECIFIER		"FONT "

-

-/*ARGSUSED*/

-void

-XmuCvtStringToCursor(XrmValuePtr args, Cardinal *num_args,

-		     XrmValuePtr fromVal, XrmValuePtr toVal)

-{

-    static Cursor cursor;		/* static for cvt magic */

-    char *name = (char *)fromVal->addr;

-    Screen *screen;

-    register int i;

-    char maskname[PATH_MAX];

-    Pixmap source, mask = 0;

-    /* XXX - make fg/bg resources */

-    static XColor bgColor = {0, 0xffff, 0xffff, 0xffff};

-    static XColor fgColor = {0, 0, 0, 0};

-    int xhot, yhot;

-    int len;

-

-

-    if (*num_args != 1)

-     XtErrorMsg("wrongParameters","cvtStringToCursor","XtToolkitError",

-             "String to cursor conversion needs screen argument",

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

-

-    if (XmuCompareISOLatin1(name, "None") == 0)

-      {

-	cursor = None;

-	done(&cursor, Cursor);

-	return;

-      }

-

-    screen = *((Screen **) args[0].addr);

-

-    if (0 == strncmp(FONTSPECIFIER, name, strlen(FONTSPECIFIER))) {

-	char source_name[PATH_MAX], mask_name[PATH_MAX];

-	int source_char, mask_char, fields = 0;

-	Font source_font, mask_font;

-	XrmValue fromString, toFont;

-	XrmValue cvtArg;

-	Boolean success;

-	Display *dpy = DisplayOfScreen(screen);

-	char *strspec = NULL;

-	int strspeclen;

-#ifdef XMU_KLUDGE

-	Cardinal num;

-#endif

-

-	strspeclen = strlen("FONT %s %d %s %d") + 21;

-	strspec = XtMalloc(strspeclen);

-	if (strspec != NULL) {

-	    snprintf(strspec, strspeclen, "FONT %%%lds %%d %%%lds %%d",

-		     (unsigned long)sizeof(source_name) - 1,

-		     (unsigned long)sizeof(mask_name) - 1);

-	    fields = sscanf(name, strspec,

-			    source_name, &source_char,

-			    mask_name, &mask_char);

-	    XtFree(strspec);

-	}

-	if (fields < 2) {

-	    XtStringConversionWarning(name, XtRCursor);

-	    return;

-	}

-

-	fromString.addr = source_name;

-	fromString.size = strlen(source_name) + 1;

-	toFont.addr = (XPointer) &source_font;

-	toFont.size = sizeof(Font);

-	cvtArg.addr = (XPointer) &dpy;

-	cvtArg.size = sizeof(Display *);

-	/* XXX using display of screen argument as message display */

-#ifdef XMU_KLUDGE

-	/* XXX Sacrifice caching */

-	num = 1;

-	success = XtCvtStringToFont(dpy, &cvtArg, &num, &fromString, &toFont,

-				    NULL);

-#else

-	success = XtCallConverter(dpy, XtCvtStringToFont, &cvtArg,

-				  (Cardinal)1, &fromString, &toFont, NULL);

-#endif

-	if (!success) {

-	    XtStringConversionWarning(name, XtRCursor);

-	    return;

-	}

-

-	switch (fields) {

-	  case 2:		/* defaulted mask font & char */

-	    mask_font = source_font;

-	    mask_char = source_char;

-	    break;

-

-	  case 3:		/* defaulted mask font */

-	    mask_font = source_font;

-	    mask_char = atoi(mask_name);

-	    break;

-

-	  case 4:		/* specified mask font & char */

-	    fromString.addr = mask_name;

-	    fromString.size = strlen(mask_name) + 1;

-	    toFont.addr = (XPointer) &mask_font;

-	    toFont.size = sizeof(Font);

-	    /* XXX using display of screen argument as message display */

-#ifdef XMU_KLUDGE

-	    /* XXX Sacrifice caching */

-	    num = 1;

-	    success = XtCvtStringToFont(dpy, &cvtArg, &num, &fromString,

-					&toFont, NULL);

-#else

-	    success = XtCallConverter(dpy, XtCvtStringToFont, &cvtArg,

-				      (Cardinal)1, &fromString, &toFont, NULL);

-#endif

-	    if (!success) {

-		XtStringConversionWarning(name, XtRCursor);

-		return;

-	    }

-	}

-

-	cursor = XCreateGlyphCursor( DisplayOfScreen(screen), source_font,

-				     mask_font, source_char, mask_char,

-				     &fgColor, &bgColor );

-	done(&cursor, Cursor);

-	return;

-    }

-

-    i = XmuCursorNameToIndex (name);

-    if (i != -1) {

-	cursor = XCreateFontCursor (DisplayOfScreen(screen), i);

-	done(&cursor, Cursor);

-	return;

-    }

-

-    if ((source = XmuLocateBitmapFile (screen, name, 

-				       maskname, (sizeof maskname) - 4,

-				       NULL, NULL, &xhot, &yhot)) == None) {

-	XtStringConversionWarning (name, XtRCursor);

-	cursor = None;

-	done(&cursor, Cursor);

-	return;

-    }

-    len = strlen (maskname);

-    for (i = 0; i < 2; i++) {

-	strcpy (maskname + len, i == 0 ? "Mask" : "msk");

-	if ((mask = XmuLocateBitmapFile (screen, maskname, NULL, 0, 

-					 NULL, NULL, NULL, NULL)) != None)

-	  break;

-    }

-

-    cursor = XCreatePixmapCursor( DisplayOfScreen(screen), source, mask,

-				  &fgColor, &bgColor, xhot, yhot );

-    XFreePixmap( DisplayOfScreen(screen), source );

-    if (mask != None) XFreePixmap( DisplayOfScreen(screen), mask );

-

-    done(&cursor, Cursor);

-}

-

-#define	new_done(type, value) \

-	{							\

-	    if (toVal->addr != NULL) {				\

-		if (toVal->size < sizeof(type)) {		\

-		    toVal->size = sizeof(type);			\

-		    return False;				\

-		}						\

-		*(type*)(toVal->addr) = (value);		\

-	    }							\

-	    else {						\

-		static type static_val;				\

-		static_val = (value);				\

-		toVal->addr = (XPointer)&static_val;		\

-	    }							\

-	    toVal->size = sizeof(type);				\

-	    return True;					\

-	}

-

-/*	Function Name: XmuCvtStringToColorCursor

- *	Description: Converts a string into a colored cursor.

- *	Arguments: dpy

- *		   args - an argument list (see below).

- *                 num_args - number of elements in the argument list.

- *                 fromVal - value to convert from.

- *                 toVal - value to convert to.

- *		   data

- *	Returns:   True or False

- */

-

-/*ARGSUSED*/

-Boolean

-XmuCvtStringToColorCursor(Display *dpy, XrmValuePtr args, Cardinal *num_args,

-			  XrmValuePtr fromVal, XrmValuePtr toVal,

-			  XtPointer *converter_data)

-{

-    Cursor cursor;

-    Screen *screen;

-    Pixel fg, bg;

-    Colormap c_map;

-    XColor colors[2];

-    Cardinal number;

-    XrmValue ret_val;

-

-    if (*num_args != 4) {

-	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),

-	    "wrongParameters","cvtStringToColorCursor","XmuError",

-            "String to color cursor conversion needs four arguments",

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

-	return False;

-    }

-

-    screen = *((Screen **) args[0].addr);

-    fg = *((Pixel *) args[1].addr);

-    bg = *((Pixel *) args[2].addr);

-    c_map = *((Colormap *) args[3].addr);

-

-    number = 1;

-    XmuCvtStringToCursor(args, &number, fromVal, &ret_val);

-    

-    cursor = *((Cursor *) ret_val.addr);

-

-    if (cursor == None || (fg == BlackPixelOfScreen(screen)

-			   && bg == WhitePixelOfScreen(screen)))

-	new_done(Cursor, cursor);

-

-    colors[0].pixel = fg;

-    colors[1].pixel = bg;

-

-    XQueryColors (dpy, c_map, colors, 2);

-    XRecolorCursor(dpy, cursor, colors, colors + 1);

-    new_done(Cursor, cursor);

-}

-

-    

-    

+/*
+
+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.
+
+*/
+
+/***********************************************************
+
+Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
+
+                        All Rights Reserved
+
+Permission to use, copy, modify, and distribute this software and its 
+documentation for any purpose and without fee is hereby granted, 
+provided that the above copyright notice appear in all copies and that
+both that copyright notice and this permission notice appear in 
+supporting documentation, and that the name of Digital not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.  
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
+SOFTWARE.
+
+******************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include	<X11/Intrinsic.h>
+#include	<X11/StringDefs.h>
+#include	<X11/Xmu/Converters.h>
+#include	<X11/Xmu/Drawing.h>
+#include	<X11/Xmu/CurUtil.h>
+#include	<X11/Xmu/CharSet.h>
+#include <unistd.h>
+
+#ifndef X_NOT_POSIX
+#include <stdlib.h>
+#ifdef _POSIX_SOURCE
+#include <limits.h>
+#else
+#define _POSIX_SOURCE
+#include <limits.h>
+#undef _POSIX_SOURCE
+#endif
+#endif /* X_NOT_POSIX */
+#ifndef PATH_MAX
+#ifdef WIN32
+#define PATH_MAX 512
+#else
+#include <sys/param.h>
+#endif
+#ifndef PATH_MAX
+#ifdef MAXPATHLEN
+#define PATH_MAX MAXPATHLEN
+#else
+#define PATH_MAX 1024
+#endif
+#endif
+#endif /* PATH_MAX */
+
+/* Kludge source to avoid encountering broken shared library linkers
+   which insist on resolving references unused by the application,
+   and broken object file formats that don't correctly distinguish
+   references to procedures from references to data.
+ */
+#if defined(SUNSHLIB) || defined(SVR4)
+#define XMU_KLUDGE
+#endif
+
+/*
+ * XmuConvertStringToCursor:
+ *
+ * allows String to specify a standard cursor name (from cursorfont.h), a
+ * font name and glyph index of the form "FONT fontname index [[font] index]", 
+ * or a bitmap file name (absolute, or relative to the global resource
+ * bitmapFilePath, class BitmapFilePath).  If the resource is not
+ * defined, the default value is the build symbol BITMAPDIR.
+ *
+ * shares lots of code with XmuCvtStringToPixmap, but unfortunately
+ * can't use it as the hotspot info is lost.
+ *
+ * To use, include the following in your ClassInitialize procedure:
+
+static XtConvertArgRec screenConvertArg[] = {
+    {XtBaseOffset, (XtPointer) XtOffsetOf(WidgetRec, core.screen),
+     sizeof(Screen *)}
+};
+
+    XtAddConverter(XtRString, XtRCursor, XmuCvtStringToCursor,      
+		   screenConvertArg, XtNumber(screenConvertArg));
+ *
+ */
+
+#define	done(address, type) \
+	{ (*toVal).size = sizeof(type); (*toVal).addr = (XPointer) address; }
+
+#define FONTSPECIFIER		"FONT "
+
+/*ARGSUSED*/
+void
+XmuCvtStringToCursor(XrmValuePtr args, Cardinal *num_args,
+		     XrmValuePtr fromVal, XrmValuePtr toVal)
+{
+    static Cursor cursor;		/* static for cvt magic */
+    char *name = (char *)fromVal->addr;
+    Screen *screen;
+    register int i;
+    char maskname[PATH_MAX];
+    Pixmap source, mask = 0;
+    /* XXX - make fg/bg resources */
+    static XColor bgColor = {0, 0xffff, 0xffff, 0xffff};
+    static XColor fgColor = {0, 0, 0, 0};
+    int xhot, yhot;
+    int len;
+
+
+    if (*num_args != 1)
+     XtErrorMsg("wrongParameters","cvtStringToCursor","XtToolkitError",
+             "String to cursor conversion needs screen argument",
+              (String *)NULL, (Cardinal *)NULL);
+
+    if (XmuCompareISOLatin1(name, "None") == 0)
+      {
+	cursor = None;
+	done(&cursor, Cursor);
+	return;
+      }
+
+    screen = *((Screen **) args[0].addr);
+
+    if (0 == strncmp(FONTSPECIFIER, name, strlen(FONTSPECIFIER))) {
+	char source_name[PATH_MAX], mask_name[PATH_MAX];
+	int source_char, mask_char, fields = 0;
+	Font source_font, mask_font;
+	XrmValue fromString, toFont;
+	XrmValue cvtArg;
+	Boolean success;
+	Display *dpy = DisplayOfScreen(screen);
+	char *strspec = NULL;
+	int strspeclen;
+#ifdef XMU_KLUDGE
+	Cardinal num;
+#endif
+
+	strspeclen = strlen("FONT %s %d %s %d") + 21;
+	strspec = XtMalloc(strspeclen);
+	if (strspec != NULL) {
+	    snprintf(strspec, strspeclen, "FONT %%%lds %%d %%%lds %%d",
+		     (unsigned long)sizeof(source_name) - 1,
+		     (unsigned long)sizeof(mask_name) - 1);
+	    fields = sscanf(name, strspec,
+			    source_name, &source_char,
+			    mask_name, &mask_char);
+	    XtFree(strspec);
+	}
+	if (fields < 2) {
+	    XtStringConversionWarning(name, XtRCursor);
+	    return;
+	}
+
+	fromString.addr = source_name;
+	fromString.size = strlen(source_name) + 1;
+	toFont.addr = (XPointer) &source_font;
+	toFont.size = sizeof(Font);
+	cvtArg.addr = (XPointer) &dpy;
+	cvtArg.size = sizeof(Display *);
+	/* XXX using display of screen argument as message display */
+#ifdef XMU_KLUDGE
+	/* XXX Sacrifice caching */
+	num = 1;
+	success = XtCvtStringToFont(dpy, &cvtArg, &num, &fromString, &toFont,
+				    NULL);
+#else
+	success = XtCallConverter(dpy, XtCvtStringToFont, &cvtArg,
+				  (Cardinal)1, &fromString, &toFont, NULL);
+#endif
+	if (!success) {
+	    XtStringConversionWarning(name, XtRCursor);
+	    return;
+	}
+
+	switch (fields) {
+	  case 2:		/* defaulted mask font & char */
+	    mask_font = source_font;
+	    mask_char = source_char;
+	    break;
+
+	  case 3:		/* defaulted mask font */
+	    mask_font = source_font;
+	    mask_char = atoi(mask_name);
+	    break;
+
+	  case 4:		/* specified mask font & char */
+	    fromString.addr = mask_name;
+	    fromString.size = strlen(mask_name) + 1;
+	    toFont.addr = (XPointer) &mask_font;
+	    toFont.size = sizeof(Font);
+	    /* XXX using display of screen argument as message display */
+#ifdef XMU_KLUDGE
+	    /* XXX Sacrifice caching */
+	    num = 1;
+	    success = XtCvtStringToFont(dpy, &cvtArg, &num, &fromString,
+					&toFont, NULL);
+#else
+	    success = XtCallConverter(dpy, XtCvtStringToFont, &cvtArg,
+				      (Cardinal)1, &fromString, &toFont, NULL);
+#endif
+	    if (!success) {
+		XtStringConversionWarning(name, XtRCursor);
+		return;
+	    }
+	}
+
+	cursor = XCreateGlyphCursor( DisplayOfScreen(screen), source_font,
+				     mask_font, source_char, mask_char,
+				     &fgColor, &bgColor );
+	done(&cursor, Cursor);
+	return;
+    }
+
+    i = XmuCursorNameToIndex (name);
+    if (i != -1) {
+	cursor = XCreateFontCursor (DisplayOfScreen(screen), i);
+	done(&cursor, Cursor);
+	return;
+    }
+
+    if ((source = XmuLocateBitmapFile (screen, name, 
+				       maskname, (sizeof maskname) - 4,
+				       NULL, NULL, &xhot, &yhot)) == None) {
+	XtStringConversionWarning (name, XtRCursor);
+	cursor = None;
+	done(&cursor, Cursor);
+	return;
+    }
+    len = strlen (maskname);
+    for (i = 0; i < 2; i++) {
+	strcpy (maskname + len, i == 0 ? "Mask" : "msk");
+	if ((mask = XmuLocateBitmapFile (screen, maskname, NULL, 0, 
+					 NULL, NULL, NULL, NULL)) != None)
+	  break;
+    }
+
+    cursor = XCreatePixmapCursor( DisplayOfScreen(screen), source, mask,
+				  &fgColor, &bgColor, xhot, yhot );
+    XFreePixmap( DisplayOfScreen(screen), source );
+    if (mask != None) XFreePixmap( DisplayOfScreen(screen), mask );
+
+    done(&cursor, Cursor);
+}
+
+#define	new_done(type, value) \
+	{							\
+	    if (toVal->addr != NULL) {				\
+		if (toVal->size < sizeof(type)) {		\
+		    toVal->size = sizeof(type);			\
+		    return False;				\
+		}						\
+		*(type*)(toVal->addr) = (value);		\
+	    }							\
+	    else {						\
+		static type static_val;				\
+		static_val = (value);				\
+		toVal->addr = (XPointer)&static_val;		\
+	    }							\
+	    toVal->size = sizeof(type);				\
+	    return True;					\
+	}
+
+/*	Function Name: XmuCvtStringToColorCursor
+ *	Description: Converts a string into a colored cursor.
+ *	Arguments: dpy
+ *		   args - an argument list (see below).
+ *                 num_args - number of elements in the argument list.
+ *                 fromVal - value to convert from.
+ *                 toVal - value to convert to.
+ *		   data
+ *	Returns:   True or False
+ */
+
+/*ARGSUSED*/
+Boolean
+XmuCvtStringToColorCursor(Display *dpy, XrmValuePtr args, Cardinal *num_args,
+			  XrmValuePtr fromVal, XrmValuePtr toVal,
+			  XtPointer *converter_data)
+{
+    Cursor cursor;
+    Screen *screen;
+    Pixel fg, bg;
+    Colormap c_map;
+    XColor colors[2];
+    Cardinal number;
+    XrmValue ret_val;
+
+    if (*num_args != 4) {
+	XtAppWarningMsg(XtDisplayToApplicationContext(dpy),
+	    "wrongParameters","cvtStringToColorCursor","XmuError",
+            "String to color cursor conversion needs four arguments",
+	    (String *)NULL, (Cardinal *)NULL);
+	return False;
+    }
+
+    screen = *((Screen **) args[0].addr);
+    fg = *((Pixel *) args[1].addr);
+    bg = *((Pixel *) args[2].addr);
+    c_map = *((Colormap *) args[3].addr);
+
+    number = 1;
+    XmuCvtStringToCursor(args, &number, fromVal, &ret_val);
+    
+    cursor = *((Cursor *) ret_val.addr);
+
+    if (cursor == None || (fg == BlackPixelOfScreen(screen)
+			   && bg == WhitePixelOfScreen(screen)))
+	new_done(Cursor, cursor);
+
+    colors[0].pixel = fg;
+    colors[1].pixel = bg;
+
+    XQueryColors (dpy, c_map, colors, 2);
+    XRecolorCursor(dpy, cursor, colors, colors + 1);
+    new_done(Cursor, cursor);
+}
+
+    
+