static void
initialise_objects(Widget parent)
{
const char from_s[] = "-*-fixed-*-*-*-*-24-*-*-*-*-*-*-*=japanese,-*-lucidabright-medium-i-*-*-24-*-*-*-*-*-*-*=large_italic,-*-lucidabright-demibold-r-*-*-24-*-*-*-*-*-*-*=large_bold,-*-lucidabright-demibold-i-*-*-14-*-*-*-*-*-*-*=small_italic,-*-lucidabright-demibold-r-*-*-14-*-*-*-*-*-*-*=small_bold";
XrmValue from, to;
static int _xd_initialised = 0;
XmFontList newfl;
if ( _xd_initialised ) return;
_xd_initialised = 1;
from.size = strlen(from_s)+1;
from.addr = XtMalloc ( from.size );
strcpy ( from.addr, from_s );
to.addr=NULL;
XtConvert( parent, XmRString, &from, XmRFontList, &to);
XtFree ( from.addr );
newfl = *((XmFontList*)to.addr);
#if defined(LESSTIF_VERSION) && defined(TRY_IT)
if(newfl)
printf("tag0=%s\n", newfl[0].tag);
else
printf("No fontlist returned\n");
#endif
f1 = XmFontListCopy(newfl);
}
// front-end
static Pixel MakeColor(char *color )
{
XrmValue vFrom, vTo;
vFrom.addr = (caddr_t) color;
vFrom.size = strlen(color);
XtConvert(evalGraphShell, XtRString, &vFrom, XtRPixel, &vTo);
// test for NULL?
return *(Pixel *) vTo.addr;
}
static
Pixel GetColor(char *colorstr)
{
XrmValue from, to;
from.size = strlen(colorstr) +1;
if (from.size < sizeof(String)) from.size = sizeof(String);
from.addr = colorstr;
to.addr = NULL;
XtConvert(Shell1, XmRString, &from, XmRPixel, &to);
if (to.addr != NULL)
return ((Pixel) *((Pixel *) to.addr));
else
return ((Pixel) NULL);
}
static void
initialise_objects(Widget parent)
{
const char from_s[] = "-*-fixed-*-*-*-*-24-*-*-*-*-*-*-*=japanese,-*-lucidabright-medium-i-*-*-24-*-*-*-*-*-*-*=large_italic,-*-lucidabright-demibold-r-*-*-24-*-*-*-*-*-*-*=large_bold,-*-lucidabright-demibold-i-*-*-14-*-*-*-*-*-*-*=small_italic,-*-lucidabright-demibold-r-*-*-14-*-*-*-*-*-*-*=small_bold";
XrmValue from, to;
static int _xd_initialised = 0;
if ( _xd_initialised ) return;
_xd_initialised = 1;
from.size = strlen(from_s)+1;
from.addr = XtMalloc ( from.size );
strcpy ( from.addr, from_s );
to.addr=NULL;
XtConvert( parent, XmRString, &from, XmRFontList, &to);
XtFree ( from.addr );
f1 = *(XmFontList*)to.addr;
}
_XvicImageSetStringCursor(
XvicImageWidget iw,
char *name)
#endif /* _NO_PROTO */
{
Display *dpy;
char source_name[xvicPATH_MAX], mask_name[xvicPATH_MAX];
int source_char, mask_char, fields;
Font source_font, mask_font;
XrmValue fromString, toFont;
Boolean success;
#ifndef NO_XMU
int i;
unsigned int shape;
Pixmap source, mask;
int xhot, yhot;
int len;
#endif
dpy = XtDisplay((Widget)iw);
/* Check for font name/glyph index form */
if (strncmp(FONTSPECIFIER, name, strlen(FONTSPECIFIER)) == 0) {
fields = sscanf(name, "FONT %s %d %s %d", source_name, &source_char,
mask_name, &mask_char);
if (fields < 2 || fields > 4) {
XtAppWarningMsg(XtWidgetToApplicationContext((Widget)iw),
"BadCursorString", "XvicImage", "XvicImageWidgetError",
"Invalid format for Cursor string resource, cursor ignored",
(String *)NULL, (Cardinal *)NULL);
return;
}
fromString.addr = source_name;
fromString.size = strlen(source_name) + 1;
#if XtSpecificationRelease <= 4
XtConvert((Widget)iw, XtRString, &fromString, XtRFont, &toFont);
success = (toFont.addr != NULL);
if (success)
source_font = *(Font *)toFont.addr;
#else
toFont.addr = (XtPointer) &source_font;
toFont.size = sizeof(Font);
success = XtConvertAndStore((Widget)iw, XtRString, &fromString,
XtRFont, &toFont);
#endif
if (!success) {
XtAppWarningMsg(XtWidgetToApplicationContext((Widget)iw),
"BadCursorFont", "XvicImage", "XvicImageWidgetError",
"Invalid font for Cursor string resource, cursor ignored",
(String *)NULL, (Cardinal *)NULL);
return;
}
switch (fields) {
case 2: /* defaulted mask font & char */
mask_font = None; /* thus there is no mask, really */
mask_char = 0;
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;
#if XtSpecificationRelease <= 4
XtConvert((Widget)iw, XtRString, &fromString, XtRFont, &toFont);
success = (toFont.addr != NULL);
if (success)
mask_font = *(Font *)toFont.addr;
#else
toFont.addr = (XtPointer) &mask_font;
toFont.size = sizeof(Font);
success = XtConvertAndStore((Widget)iw, XtRString, &fromString,
XtRFont, &toFont);
#endif
if (!success) {
XtAppWarningMsg(XtWidgetToApplicationContext((Widget)iw),
"BadCursorMaskFont", "XvicImage", "XvicImageWidgetError",
"Invalid mask font for Cursor string resource, cursor ignored",
(String *)NULL, (Cardinal *)NULL);
return;
}
}
_XvicImageSetGlyphCursor(iw, source_font, mask_font,
source_char, mask_char);
/*!!!! Do we need to free fonts here???? !!!!*/
return;
}
#ifdef NO_XMU
if (strcmp(name, DEFAULT_CURSOR) == 0) {
_XvicImageSetFontCursor(iw, DEFAULT_CURSOR_SHAPE); /* default value */
return;
}
XtAppWarningMsg(XtWidgetToApplicationContext((Widget)iw),
"BadCursorString", "XvicImage", "XvicImageWidgetError",
"Invalid format for Cursor string resource, cursor ignored",
(String *)NULL, (Cardinal *)NULL);
return;
#else /* Xmu is available */
/* Check for cursor shape name */
shape = XmuCursorNameToIndex(name);
if (shape != -1) {
_XvicImageSetFontCursor(iw, shape);
return;
}
/* Check for bitmap file name */
source = XmuLocateBitmapFile(XtScreen((Widget)iw), name,
mask_name, (sizeof mask_name) - 4, NULL, NULL, &xhot, &yhot);
if (source == None) {
XtAppWarningMsg(XtWidgetToApplicationContext((Widget)iw),
"BadCursorString", "XvicImage", "XvicImageWidgetError",
"Invalid format for Cursor string resource, cursor ignored",
(String *)NULL, (Cardinal *)NULL);
return;
}
len = strlen (mask_name);
for (i = 0; i < 2; i++) {
strcpy (mask_name + len, i == 0 ? "Mask" : "msk");
mask = XmuLocateBitmapFile (XtScreen((Widget)iw), mask_name, NULL, 0,
NULL, NULL, NULL, NULL);
if (mask != None)
break;
}
_XvicImageSetPixmapCursor(iw, source, mask, xhot, yhot);
XFreePixmap(XtDisplay((Widget)iw), source);
if (mask != None)
XFreePixmap(XtDisplay((Widget)iw), mask);
return;
#endif
}
