1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/*
* ximage.c --
*
* X bitmap and image routines.
*
* Copyright (c) 1995 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: ximage.c,v 1.7 2007/06/23 00:25:38 das Exp $
*/
#include "tkInt.h"
/*
*----------------------------------------------------------------------
*
* XCreateBitmapFromData --
*
* Construct a single plane pixmap from bitmap data.
*
* NOTE: This procedure has the correct behavior on Windows and the
* Macintosh, but not on UNIX. This is probably because the emulation for
* XPutImage on those platforms compensates for whatever is wrong here
* :-)
*
* Results:
* Returns a new Pixmap.
*
* Side effects:
* Allocates a new bitmap and drawable.
*
*----------------------------------------------------------------------
*/
Pixmap
XCreateBitmapFromData(
Display *display,
Drawable d,
_Xconst char *data,
unsigned int width,
unsigned int height)
{
XImage *ximage;
GC gc;
Pixmap pix;
pix = Tk_GetPixmap(display, d, (int) width, (int) height, 1);
gc = XCreateGC(display, pix, 0, NULL);
if (gc == NULL) {
return None;
}
ximage = XCreateImage(display, NULL, 1, XYBitmap, 0, (char*) data, width,
height, 8, (width + 7) / 8);
TkPutImage(NULL, 0, display, pix, gc, ximage, 0, 0, 0, 0, width, height);
ximage->data = NULL;
XDestroyImage(ximage);
XFreeGC(display, gc);
return pix;
}
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* End:
*/
|
