mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-09 09:41:38 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
82 lines
2.8 KiB
C
82 lines
2.8 KiB
C
/* $Id: xmkicon.c,v 1.3 2001/12/24 01:09:09 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
|
/* All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <X11/X.h> // for MSBFirst, Pixmap, XYBitmap
|
|
#include <X11/Xlib.h> // for XImage, XCreatePixmap, XPutImage, XReadBitm...
|
|
#include <X11/Xutil.h> // for BitmapFileInvalid, BitmapNoMemory, BitmapOp...
|
|
#include <stdint.h> // for uint8_t
|
|
#include <stdio.h> // for fprintf, printf, stderr
|
|
#include "devif.h" // for (anonymous), DspInterface
|
|
#include "xmkicondefs.h" // for make_Xicon
|
|
|
|
XImage IconImage;
|
|
|
|
extern int Lisp_icon_width, Lisp_icon_height;
|
|
extern uint8_t Lisp_icon[];
|
|
|
|
static Pixmap IconPixmap;
|
|
extern char iconpixmapfile[1024];
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* m a k e _ X i c o n */
|
|
/* */
|
|
/* Make the icon for the shrunken Medley window. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
Pixmap make_Xicon(DspInterface dsp)
|
|
{
|
|
unsigned int width, height;
|
|
int value, x_hot, y_hot;
|
|
|
|
#ifdef TRACE
|
|
printf("In make_Xicon().\n");
|
|
#endif
|
|
value = XReadBitmapFile(dsp->display_id, RootWindow(dsp->display_id, 0), iconpixmapfile, &width,
|
|
&height, &IconPixmap, &x_hot, &y_hot);
|
|
if (value == BitmapOpenFailed) {
|
|
IconImage.width = Lisp_icon_width;
|
|
IconImage.height = Lisp_icon_height;
|
|
IconImage.xoffset = 0;
|
|
IconImage.format = XYBitmap;
|
|
IconImage.data = (char *)Lisp_icon;
|
|
#if defined(BYTESWAP)
|
|
IconImage.byte_order = LSBFirst;
|
|
#else /* BYTESWAP */
|
|
IconImage.byte_order = MSBFirst;
|
|
#endif /* BYTESWAP */
|
|
IconImage.bitmap_unit = 8;
|
|
IconImage.bitmap_pad = 0;
|
|
IconImage.depth = 1;
|
|
IconImage.bytes_per_line = Lisp_icon_width / 8;
|
|
#if defined(X_ICON_IN_X_BITMAP_FORMAT)
|
|
IconImage.bitmap_bit_order = LSBFirst;
|
|
#else
|
|
IconImage.bitmap_bit_order = MSBFirst;
|
|
#endif
|
|
|
|
IconPixmap = XCreatePixmap(
|
|
dsp->display_id, dsp->LispWindow, Lisp_icon_width, Lisp_icon_height,
|
|
DefaultDepthOfScreen(ScreenOfDisplay(dsp->display_id, DefaultScreen(dsp->display_id))));
|
|
|
|
XPutImage(dsp->display_id, IconPixmap, dsp->Copy_GC, &IconImage, 0, 0, 0, 0, Lisp_icon_width,
|
|
Lisp_icon_height);
|
|
|
|
} else if (value == BitmapFileInvalid)
|
|
fprintf(stderr, "Iconpixmapfile %s contains invalid bitmap data\n", iconpixmapfile);
|
|
else if (value == BitmapNoMemory)
|
|
fprintf(stderr, "Not enough memory to allocate icon pixmap\n");
|
|
return (IconPixmap);
|
|
} /* end make_Xicon */
|