annotate src/glyphs-msw.c @ 400:a86b2b5e0111 r21-2-30

Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
1 /* mswindows-specific glyph objects.
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2 Copyright (C) 1998, 1999, 2000 Andy Piper.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
4 This file is part of XEmacs.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
5
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
9 later version.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
10
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
14 for more details.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
15
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
20
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
21 /* Synched up with: Not in FSF. */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
22
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
23 /* written by Andy Piper <andy@xemacs.org> plagerising bits from
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
24 glyphs-x.c */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
25
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
26 #include <config.h>
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
27 #include "lisp.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
28 #include "lstream.h"
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
29
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
30 #define OEMRESOURCE /* Define OCR_ and friend constants */
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
31 #include "console-msw.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
32 #include "glyphs-msw.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
33 #include "objects-msw.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
34
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
35 #include "window.h"
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
36 #include "elhash.h"
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
37 #include "buffer.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
38 #include "frame.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
39 #include "insdel.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
40 #include "opaque.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
41 #include "sysfile.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
42 #include "faces.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
43 #include "imgproc.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
44
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
45 #ifdef FILE_CODING
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
46 #include "file-coding.h"
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
47 #endif
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
48 #include <stdio.h>
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
49 #include <ctype.h>
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
50 #ifdef HAVE_XFACE
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
51 #include <setjmp.h>
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
52 #endif
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
53
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
54 #define WIDGET_GLYPH_SLOT 0
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
55
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
56 DECLARE_IMAGE_INSTANTIATOR_FORMAT (nothing);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
57 DECLARE_IMAGE_INSTANTIATOR_FORMAT (string);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
58 DECLARE_IMAGE_INSTANTIATOR_FORMAT (formatted_string);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
59 DECLARE_IMAGE_INSTANTIATOR_FORMAT (inherit);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
60 DECLARE_IMAGE_INSTANTIATOR_FORMAT (layout);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
61 #ifdef HAVE_JPEG
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
62 DECLARE_IMAGE_INSTANTIATOR_FORMAT (jpeg);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
63 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
64 #ifdef HAVE_TIFF
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
65 DECLARE_IMAGE_INSTANTIATOR_FORMAT (tiff);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
66 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
67 #ifdef HAVE_PNG
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
68 DECLARE_IMAGE_INSTANTIATOR_FORMAT (png);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
69 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
70 #ifdef HAVE_GIF
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
71 DECLARE_IMAGE_INSTANTIATOR_FORMAT (gif);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
72 #endif
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
73 #ifdef HAVE_XPM
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
74 DEFINE_DEVICE_IIFORMAT (mswindows, xpm);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
75 #endif
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
76 DEFINE_DEVICE_IIFORMAT (mswindows, xbm);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
77 #ifdef HAVE_XFACE
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
78 DEFINE_DEVICE_IIFORMAT (mswindows, xface);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
79 #endif
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
80 DEFINE_DEVICE_IIFORMAT (mswindows, button);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
81 DEFINE_DEVICE_IIFORMAT (mswindows, edit_field);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
82 DEFINE_DEVICE_IIFORMAT (mswindows, subwindow);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
83 DEFINE_DEVICE_IIFORMAT (mswindows, widget);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
84 DEFINE_DEVICE_IIFORMAT (mswindows, label);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
85 DEFINE_DEVICE_IIFORMAT (mswindows, scrollbar);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
86 DEFINE_DEVICE_IIFORMAT (mswindows, combo_box);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
87 DEFINE_DEVICE_IIFORMAT (mswindows, progress_gauge);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
88 DEFINE_DEVICE_IIFORMAT (mswindows, tree_view);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
89 DEFINE_DEVICE_IIFORMAT (mswindows, tab_control);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
90
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
91 DEFINE_IMAGE_INSTANTIATOR_FORMAT (bmp);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
92 Lisp_Object Qbmp;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
93 Lisp_Object Vmswindows_bitmap_file_path;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
94 static COLORREF transparent_color = RGB (1,1,1);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
95
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
96 DEFINE_IMAGE_INSTANTIATOR_FORMAT (mswindows_resource);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
97 Lisp_Object Q_resource_type, Q_resource_id;
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
98 Lisp_Object Qmswindows_resource;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
99
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
100 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
101 mswindows_initialize_dibitmap_image_instance (Lisp_Image_Instance *ii,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
102 int slices,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
103 enum image_instance_type type);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
104 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
105 mswindows_initialize_image_instance_mask (Lisp_Image_Instance* image,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
106 struct frame* f);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
107
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
108 #define BPLINE(width) ((int)(~3UL & (unsigned long)((width) +3)))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
109
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
110 /************************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
111 /* convert from a series of RGB triples to a BITMAPINFO formated for the*/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
112 /* proper display */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
113 /************************************************************************/
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
114 static BITMAPINFO* convert_EImage_to_DIBitmap (Lisp_Object device,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
115 int width, int height,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
116 unsigned char *pic,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
117 int *bit_count,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
118 unsigned char** bmp_data)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
119 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
120 struct device *d = XDEVICE (device);
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
121 int i,j;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
122 RGBQUAD* colortbl;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
123 int ncolors;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
124 BITMAPINFO* bmp_info;
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
125 unsigned char *ip, *dp;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
126
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
127 if (DEVICE_MSWINDOWS_BITSPIXEL (d) > 0)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
128 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
129 int bpline = BPLINE(width * 3);
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
130 /* FIXME: we can do this because 24bpp implies no color table, once
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
131 * we start palettizing this is no longer true. The X versions of
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
132 * this function quantises to 256 colors or bit masks down to a
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
133 * long. Windows can actually handle rgb triples in the raw so I
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
134 * don't see much point trying to optimize down to the best
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
135 * structure - unless it has memory / color allocation implications
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
136 * .... */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
137 bmp_info=xnew_and_zero (BITMAPINFO);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
138
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
139 if (!bmp_info)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
140 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
141 return NULL;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
142 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
143
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
144 bmp_info->bmiHeader.biBitCount=24; /* just RGB triples for now */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
145 bmp_info->bmiHeader.biCompression=BI_RGB; /* just RGB triples for now */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
146 bmp_info->bmiHeader.biSizeImage=width*height*3;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
147
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
148 /* bitmap data needs to be in blue, green, red triples - in that
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
149 order, eimage is in RGB format so we need to convert */
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
150 *bmp_data = xnew_array_and_zero (unsigned char, bpline * height);
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
151 *bit_count = bpline * height;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
152
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
153 if (!bmp_data)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
154 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
155 xfree (bmp_info);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
156 return NULL;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
157 }
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
158
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
159 ip = pic;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
160 for (i = height-1; i >= 0; i--) {
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
161 dp = (*bmp_data) + (i * bpline);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
162 for (j = 0; j < width; j++) {
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
163 dp[2] =*ip++;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
164 dp[1] =*ip++;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
165 *dp =*ip++;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
166 dp += 3;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
167 }
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
168 }
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
169 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
170 else /* scale to 256 colors */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
171 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
172 int rd,gr,bl;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
173 quant_table *qtable;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
174 int bpline = BPLINE (width * 3);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
175 /* Quantize the image and get a histogram while we're at it.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
176 Do this first to save memory */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
177 qtable = build_EImage_quantable(pic, width, height, 256);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
178 if (qtable == NULL) return NULL;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
179
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
180 /* use our quantize table to allocate the colors */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
181 ncolors = qtable->num_active_colors;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
182 bmp_info=(BITMAPINFO*)xmalloc_and_zero (sizeof(BITMAPINFOHEADER) +
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
183 sizeof(RGBQUAD) * ncolors);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
184 if (!bmp_info)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
185 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
186 xfree (qtable);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
187 return NULL;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
188 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
189
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
190 colortbl=(RGBQUAD*)(((unsigned char*)bmp_info)+sizeof(BITMAPINFOHEADER));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
191
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
192 bmp_info->bmiHeader.biBitCount=8;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
193 bmp_info->bmiHeader.biCompression=BI_RGB;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
194 bmp_info->bmiHeader.biSizeImage=bpline*height;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
195 bmp_info->bmiHeader.biClrUsed=ncolors;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
196 bmp_info->bmiHeader.biClrImportant=ncolors;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
197
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
198 *bmp_data = (unsigned char *) xmalloc_and_zero (bpline * height);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
199 *bit_count = bpline * height;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
200
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
201 if (!*bmp_data)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
202 {
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
203 xfree (qtable);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
204 xfree (bmp_info);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
205 return NULL;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
206 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
207
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
208 /* build up an RGBQUAD colortable */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
209 for (i = 0; i < qtable->num_active_colors; i++) {
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
210 colortbl[i].rgbRed = (BYTE) qtable->rm[i];
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
211 colortbl[i].rgbGreen = (BYTE) qtable->gm[i];
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
212 colortbl[i].rgbBlue = (BYTE) qtable->bm[i];
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
213 colortbl[i].rgbReserved = 0;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
214 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
215
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
216 /* now build up the data. picture has to be upside-down and
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
217 back-to-front for msw bitmaps */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
218 ip = pic;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
219 for (i = height-1; i >= 0; i--) {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
220 dp = (*bmp_data) + (i * bpline);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
221 for (j = 0; j < width; j++) {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
222 rd = *ip++;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
223 gr = *ip++;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
224 bl = *ip++;
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
225 *dp++ = QUANT_GET_COLOR (qtable,rd,gr,bl);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
226 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
227 }
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
228 xfree (qtable);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
229 }
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
230 /* fix up the standard stuff */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
231 bmp_info->bmiHeader.biWidth=width;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
232 bmp_info->bmiHeader.biHeight=height;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
233 bmp_info->bmiHeader.biPlanes=1;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
234 bmp_info->bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
235 bmp_info->bmiHeader.biXPelsPerMeter=0; /* unless you know better */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
236 bmp_info->bmiHeader.biYPelsPerMeter=0;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
237
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
238 return bmp_info;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
239 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
240
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
241 /* Given a pixmap filename, look through all of the "standard" places
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
242 where the file might be located. Return a full pathname if found;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
243 otherwise, return Qnil. */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
244
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
245 static Lisp_Object
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
246 mswindows_locate_pixmap_file (Lisp_Object name)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
247 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
248 /* This function can GC if IN_REDISPLAY is false */
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
249 Lisp_Object found;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
250
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
251 /* Check non-absolute pathnames with a directory component relative to
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
252 the search path; that's the way Xt does it. */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
253 if (IS_DIRECTORY_SEP(XSTRING_BYTE (name, 0)) ||
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
254 (XSTRING_BYTE (name, 0) == '.' &&
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
255 (IS_DIRECTORY_SEP(XSTRING_BYTE (name, 1)) ||
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
256 (XSTRING_BYTE (name, 1) == '.' &&
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
257 (IS_DIRECTORY_SEP(XSTRING_BYTE (name, 2)))))))
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
258 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
259 if (!NILP (Ffile_readable_p (name)))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
260 return Fexpand_file_name (name, Qnil);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
261 else
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
262 return Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
263 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
264
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
265 if (locate_file (Vmswindows_bitmap_file_path, name, Qnil, &found, R_OK) < 0)
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
266 {
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
267 Lisp_Object temp = list1 (Vdata_directory);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
268 struct gcpro gcpro1;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
269
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
270 GCPRO1 (temp);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
271 locate_file (temp, name, Qnil, &found, R_OK);
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
272 UNGCPRO;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
273 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
274
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
275 return found;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
276 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
277
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
278
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
279 /* Initialize an image instance from a bitmap
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
280
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
281 DEST_MASK specifies the mask of allowed image types.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
282
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
283 If this fails, signal an error. INSTANTIATOR is only used
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
284 in the error message. */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
285
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
286 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
287 init_image_instance_from_dibitmap (Lisp_Image_Instance *ii,
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
288 BITMAPINFO *bmp_info,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
289 int dest_mask,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
290 void *bmp_data,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
291 int bmp_bits,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
292 int slices,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
293 Lisp_Object instantiator,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
294 int x_hot, int y_hot,
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
295 int create_mask)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
296 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
297 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
298 struct device *d = XDEVICE (device);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
299 struct frame *f;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
300 void* bmp_buf=0;
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
301 enum image_instance_type type;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
302 HBITMAP bitmap;
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
303 HDC hdc;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
304
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
305 if (!DEVICE_MSWINDOWS_P (d))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
306 signal_simple_error ("Not an mswindows device", device);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
307
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
308 if (NILP (DEVICE_SELECTED_FRAME (d)))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
309 signal_simple_error ("No selected frame on mswindows device", device);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
310
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
311 f = XFRAME (DEVICE_SELECTED_FRAME (d));
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
312
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
313 if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
314 type = IMAGE_COLOR_PIXMAP;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
315 else if (dest_mask & IMAGE_POINTER_MASK)
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
316 type = IMAGE_POINTER;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
317 else
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
318 incompatible_image_types (instantiator, dest_mask,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
319 IMAGE_COLOR_PIXMAP_MASK | IMAGE_POINTER_MASK);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
320 hdc = FRAME_MSWINDOWS_CDC (f);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
321
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
322 bitmap=CreateDIBSection (hdc,
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
323 bmp_info,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
324 DIB_RGB_COLORS,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
325 &bmp_buf,
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
326 0,0);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
327
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
328 if (!bitmap || !bmp_buf)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
329 signal_simple_error ("Unable to create bitmap", instantiator);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
330
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
331 /* copy in the actual bitmap */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
332 memcpy (bmp_buf, bmp_data, bmp_bits);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
333
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
334 mswindows_initialize_dibitmap_image_instance (ii, slices, type);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
335
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
336 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) =
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
337 find_keyword_in_vector (instantiator, Q_file);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
338
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
339 /* Fixup a set of bitmaps. */
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
340 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) = bitmap;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
341
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
342 IMAGE_INSTANCE_MSWINDOWS_MASK (ii) = NULL;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
343 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = bmp_info->bmiHeader.biWidth;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
344 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = bmp_info->bmiHeader.biHeight;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
345 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = bmp_info->bmiHeader.biBitCount;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
346 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii), x_hot);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
347 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii), y_hot);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
348
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
349 if (create_mask)
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
350 {
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
351 mswindows_initialize_image_instance_mask (ii, f);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
352 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
353
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
354 if (type == IMAGE_POINTER)
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
355 {
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
356 mswindows_initialize_image_instance_icon(ii, TRUE);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
357 }
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
358 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
359
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
360 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
361 image_instance_add_dibitmap (Lisp_Image_Instance *ii,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
362 BITMAPINFO *bmp_info,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
363 void *bmp_data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
364 int bmp_bits,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
365 int slice,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
366 Lisp_Object instantiator)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
367 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
368 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
369 struct device *d = XDEVICE (device);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
370 struct frame *f = XFRAME (DEVICE_SELECTED_FRAME (d));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
371 void* bmp_buf=0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
372 HDC hdc = FRAME_MSWINDOWS_CDC (f);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
373 HBITMAP bitmap = CreateDIBSection (hdc,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
374 bmp_info,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
375 DIB_RGB_COLORS,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
376 &bmp_buf,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
377 0,0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
378
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
379 if (!bitmap || !bmp_buf)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
380 signal_simple_error ("Unable to create bitmap", instantiator);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
381
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
382 /* copy in the actual bitmap */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
383 memcpy (bmp_buf, bmp_data, bmp_bits);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
384 IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICE (ii, slice) = bitmap;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
385 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
386
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
387 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
388 mswindows_init_image_instance_from_eimage (Lisp_Image_Instance *ii,
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
389 int width, int height,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
390 int slices,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
391 unsigned char *eimage,
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
392 int dest_mask,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
393 Lisp_Object instantiator,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
394 Lisp_Object domain)
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
395 {
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
396 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
397 BITMAPINFO* bmp_info;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
398 unsigned char* bmp_data;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
399 int bmp_bits;
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
400 COLORREF bkcolor;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
401 int slice;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
402
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
403 if (!DEVICE_MSWINDOWS_P (XDEVICE (device)))
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
404 signal_simple_error ("Not an mswindows device", device);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
405
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
406 /* this is a hack but MaskBlt and TransparentBlt are not supported
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
407 on most windows variants */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
408 bkcolor = COLOR_INSTANCE_MSWINDOWS_COLOR
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
409 (XCOLOR_INSTANCE (FACE_BACKGROUND (Vdefault_face, domain)));
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
410
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
411 for (slice = 0; slice < slices; slice++)
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
412 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
413 /* build a bitmap from the eimage */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
414 if (!(bmp_info=convert_EImage_to_DIBitmap (device, width, height,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
415 eimage + (width * height * 3 * slice),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
416 &bmp_bits, &bmp_data)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
417 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
418 signal_simple_error ("EImage to DIBitmap conversion failed",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
419 instantiator);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
420 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
421
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
422 /* Now create the pixmap and set up the image instance */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
423 if (slice == 0)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
424 init_image_instance_from_dibitmap (ii, bmp_info, dest_mask,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
425 bmp_data, bmp_bits, slices, instantiator,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
426 0, 0, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
427 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
428 image_instance_add_dibitmap (ii, bmp_info, bmp_data, bmp_bits, slice,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
429 instantiator);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
430
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
431 xfree (bmp_info);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
432 xfree (bmp_data);
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
433 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
434 }
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
435
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
436 static void set_mono_pixel ( unsigned char* bits,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
437 int bpline, int height,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
438 int x, int y, int white )
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
439 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
440 int i;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
441 unsigned char bitnum;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
442 /* Find the byte on which this scanline begins */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
443 i = (height - y - 1) * bpline;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
444 /* Find the byte containing this pixel */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
445 i += (x >> 3);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
446 /* Which bit is it? */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
447 bitnum = (unsigned char)( 7 - (x % 8) );
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
448 if( white ) /* Turn it on */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
449 bits[i] |= (1<<bitnum);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
450 else /* Turn it off */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
451 bits[i] &= ~(1<<bitnum);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
452 }
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
453
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
454 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
455 mswindows_initialize_image_instance_mask (Lisp_Image_Instance* image,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
456 struct frame* f)
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
457 {
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
458 HBITMAP mask;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
459 HGDIOBJ old = NULL;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
460 HDC hcdc = FRAME_MSWINDOWS_CDC (f);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
461 unsigned char *dibits, *and_bits;
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
462 BITMAPINFO *bmp_info =
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
463 (BITMAPINFO*) xmalloc_and_zero (sizeof(BITMAPINFO) + sizeof(RGBQUAD));
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
464 int i, j;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
465 int height = IMAGE_INSTANCE_PIXMAP_HEIGHT (image);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
466
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
467 int maskbpline = BPLINE ((IMAGE_INSTANCE_PIXMAP_WIDTH (image)+7)/8);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
468 int bpline = BPLINE (IMAGE_INSTANCE_PIXMAP_WIDTH (image) * 3);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
469
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
470 if (!bmp_info)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
471 return;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
472
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
473 bmp_info->bmiHeader.biWidth=IMAGE_INSTANCE_PIXMAP_WIDTH (image);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
474 bmp_info->bmiHeader.biHeight = height;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
475 bmp_info->bmiHeader.biPlanes=1;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
476 bmp_info->bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
477 bmp_info->bmiHeader.biBitCount=1;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
478 bmp_info->bmiHeader.biCompression=BI_RGB;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
479 bmp_info->bmiHeader.biClrUsed = 2;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
480 bmp_info->bmiHeader.biClrImportant = 2;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
481 bmp_info->bmiHeader.biSizeImage = height * maskbpline;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
482 bmp_info->bmiColors[0].rgbRed = 0;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
483 bmp_info->bmiColors[0].rgbGreen = 0;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
484 bmp_info->bmiColors[0].rgbBlue = 0;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
485 bmp_info->bmiColors[0].rgbReserved = 0;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
486 bmp_info->bmiColors[1].rgbRed = 255;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
487 bmp_info->bmiColors[1].rgbGreen = 255;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
488 bmp_info->bmiColors[1].rgbBlue = 255;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
489 bmp_info->bmiColors[0].rgbReserved = 0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
490
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
491 if (!(mask = CreateDIBSection (hcdc,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
492 bmp_info,
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
493 DIB_RGB_COLORS,
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
494 (void**)&and_bits,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
495 0,0)))
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
496 {
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
497 xfree (bmp_info);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
498 return;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
499 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
500
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
501 old = SelectObject (hcdc, IMAGE_INSTANCE_MSWINDOWS_BITMAP (image));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
502 /* build up an in-memory set of bits to mess with */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
503 xzero (*bmp_info);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
504
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
505 bmp_info->bmiHeader.biWidth=IMAGE_INSTANCE_PIXMAP_WIDTH (image);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
506 bmp_info->bmiHeader.biHeight = -height;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
507 bmp_info->bmiHeader.biPlanes=1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
508 bmp_info->bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
509 bmp_info->bmiHeader.biBitCount=24;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
510 bmp_info->bmiHeader.biCompression=BI_RGB;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
511 bmp_info->bmiHeader.biClrUsed = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
512 bmp_info->bmiHeader.biClrImportant = 0;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
513 bmp_info->bmiHeader.biSizeImage = height * bpline;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
514
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
515 dibits = (unsigned char*) xmalloc_and_zero (bpline * height);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
516 if (GetDIBits (hcdc,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
517 IMAGE_INSTANCE_MSWINDOWS_BITMAP (image),
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
518 0,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
519 height,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
520 dibits,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
521 bmp_info,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
522 DIB_RGB_COLORS) <= 0)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
523 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
524 xfree (bmp_info);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
525 return;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
526 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
527
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
528 /* now set the colored bits in the mask and transparent ones to
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
529 black in the original */
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
530 for (i=0; i<IMAGE_INSTANCE_PIXMAP_WIDTH (image); i++)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
531 {
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
532 for (j=0; j<height; j++)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
533 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
534 unsigned char* idx = &dibits[j * bpline + i * 3];
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
535
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
536 if (RGB (idx[2], idx[1], idx[0]) == transparent_color)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
537 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
538 idx[0] = idx[1] = idx[2] = 0;
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
539 set_mono_pixel (and_bits, maskbpline, height, i, j, TRUE);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
540 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
541 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
542 {
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
543 set_mono_pixel (and_bits, maskbpline, height, i, j, FALSE);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
544 }
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
545 }
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
546 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
547
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
548 SetDIBits (hcdc,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
549 IMAGE_INSTANCE_MSWINDOWS_BITMAP (image),
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
550 0,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
551 height,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
552 dibits,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
553 bmp_info,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
554 DIB_RGB_COLORS);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
555
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
556 xfree (bmp_info);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
557 xfree (dibits);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
558
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
559 SelectObject(hcdc, old);
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
560
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
561 IMAGE_INSTANCE_MSWINDOWS_MASK (image) = mask;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
562 }
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
563
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
564 void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
565 mswindows_initialize_image_instance_icon (Lisp_Image_Instance* image,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
566 int cursor)
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
567 {
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
568 ICONINFO x_icon;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
569
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
570 /* we rely on windows to do any resizing necessary */
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
571 x_icon.fIcon=cursor ? FALSE : TRUE;
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
572 x_icon.xHotspot=XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (image));
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
573 x_icon.yHotspot=XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (image));
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
574 x_icon.hbmMask=IMAGE_INSTANCE_MSWINDOWS_MASK (image);
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
575 x_icon.hbmColor=IMAGE_INSTANCE_MSWINDOWS_BITMAP (image);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
576
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
577 IMAGE_INSTANCE_MSWINDOWS_ICON (image)=
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
578 CreateIconIndirect (&x_icon);
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
579 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
580
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
581 HBITMAP
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
582 mswindows_create_resized_bitmap (Lisp_Image_Instance* ii,
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
583 struct frame* f,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
584 int newx, int newy)
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
585 {
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
586 HBITMAP newbmp;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
587 HGDIOBJ old1, old2;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
588 HDC hcdc = FRAME_MSWINDOWS_CDC (f);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
589 HDC hdcDst = CreateCompatibleDC (hcdc);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
590
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
591 old1 = SelectObject (hcdc, IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
592
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
593 newbmp = CreateCompatibleBitmap (hcdc, newx, newy);
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
594
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
595 old2 = SelectObject (hdcDst, newbmp);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
596
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
597 if (!StretchBlt (hdcDst, 0, 0, newx, newy,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
598 hcdc, 0, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
599 IMAGE_INSTANCE_PIXMAP_WIDTH (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
600 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii),
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
601 SRCCOPY))
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
602 {
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
603 DeleteObject (newbmp);
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
604 DeleteDC (hdcDst);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
605 return 0;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
606 }
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
607
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
608 SelectObject (hdcDst, old2);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
609 SelectObject (hcdc, old1);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
610 DeleteDC (hdcDst);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
611
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
612 return newbmp;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
613 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
614
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
615 HBITMAP
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
616 mswindows_create_resized_mask (Lisp_Image_Instance* ii,
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
617 struct frame* f,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
618 int newx, int newy)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
619 {
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
620 if (IMAGE_INSTANCE_MSWINDOWS_MASK (ii))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
621 {
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
622 HBITMAP newmask;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
623 HGDIOBJ old1, old2;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
624 HDC hcdc = FRAME_MSWINDOWS_CDC (f);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
625 HDC hdcDst = CreateCompatibleDC (hcdc);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
626
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
627 old1 = SelectObject (hcdc, IMAGE_INSTANCE_MSWINDOWS_MASK (ii));
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
628 newmask = CreateCompatibleBitmap(hcdc, newx, newy);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
629 old2 = SelectObject (hdcDst, newmask);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
630
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
631 if (!StretchBlt(hdcDst, 0, 0, newx, newy,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
632 hcdc, 0, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
633 IMAGE_INSTANCE_PIXMAP_WIDTH (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
634 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii),
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
635 SRCCOPY))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
636 {
373
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
637 DeleteObject (newmask);
6240c7796c7a Import from CVS: tag r21-2b2
cvs
parents: 371
diff changeset
638 DeleteDC (hdcDst);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
639 return NULL;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
640 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
641
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
642 SelectObject (hdcDst, old2);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
643 SelectObject (hcdc, old1);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
644
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
645 DeleteDC (hdcDst);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
646
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
647 return newmask;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
648 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
649
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
650 return NULL;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
651 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
652
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
653 int
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
654 mswindows_resize_dibitmap_instance (Lisp_Image_Instance* ii,
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
655 struct frame* f,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
656 int newx, int newy)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
657 {
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
658 HBITMAP newbmp = mswindows_create_resized_bitmap (ii, f, newx, newy);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
659 HBITMAP newmask = mswindows_create_resized_mask (ii, f, newx, newy);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
660
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
661 if (!newbmp)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
662 return FALSE;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
663
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
664 if (IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
665 DeleteObject (IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii));
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
666 if (IMAGE_INSTANCE_MSWINDOWS_MASK (ii))
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
667 DeleteObject (IMAGE_INSTANCE_MSWINDOWS_MASK (ii));
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
668
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
669 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) = newbmp;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
670 IMAGE_INSTANCE_MSWINDOWS_MASK (ii) = newmask;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
671 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = newx;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
672 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = newy;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
673
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
674 return TRUE;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
675 }
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
676
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
677 /**********************************************************************
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
678 * XPM *
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
679 **********************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
680
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
681 #ifdef HAVE_XPM
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
682
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
683 struct color_symbol
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
684 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
685 char* name;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
686 COLORREF color;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
687 };
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
688
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
689 static struct color_symbol*
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
690 extract_xpm_color_names (Lisp_Object device,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
691 Lisp_Object domain,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
692 Lisp_Object color_symbol_alist,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
693 int* nsymbols)
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
694 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
695 /* This function can GC */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
696 Lisp_Object rest;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
697 Lisp_Object results = Qnil;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
698 int i, j;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
699 struct color_symbol *colortbl;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
700 struct gcpro gcpro1, gcpro2;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
701
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
702 GCPRO2 (results, device);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
703
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
704 /* We built up results to be (("name" . #<color>) ...) so that if an
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
705 error happens we don't lose any malloc()ed data, or more importantly,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
706 leave any pixels allocated in the server. */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
707 i = 0;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
708 LIST_LOOP (rest, color_symbol_alist)
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
709 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
710 Lisp_Object cons = XCAR (rest);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
711 Lisp_Object name = XCAR (cons);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
712 Lisp_Object value = XCDR (cons);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
713 if (NILP (value))
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
714 continue;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
715 if (STRINGP (value))
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
716 value =
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
717 Fmake_color_instance
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
718 (value, device, encode_error_behavior_flag (ERROR_ME_NOT));
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
719 else
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
720 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
721 assert (COLOR_SPECIFIERP (value));
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
722 value = Fspecifier_instance (value, domain, Qnil, Qnil);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
723 }
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
724 if (NILP (value))
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
725 continue;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
726 results = noseeum_cons (noseeum_cons (name, value), results);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
727 i++;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
728 }
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
729 UNGCPRO; /* no more evaluation */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
730
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
731 *nsymbols=i;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
732 if (i == 0) return 0;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
733
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
734 colortbl = xnew_array_and_zero (struct color_symbol, i);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
735
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
736 for (j=0; j<i; j++)
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
737 {
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
738 Lisp_Object cons = XCAR (results);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
739 colortbl[j].color =
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
740 COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (XCDR (cons)));
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
741
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
742 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (cons),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
743 C_STRING_ALLOCA, colortbl[j].name,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
744 Qnative);
396
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
745 colortbl[j].name = xstrdup (colortbl[j].name); /* mustn't lose this when we return */
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
746 free_cons (XCONS (cons));
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
747 cons = results;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
748 results = XCDR (results);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
749 free_cons (XCONS (cons));
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
750 }
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
751 return colortbl;
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
752 }
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
753
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
754 static int xpm_to_eimage (Lisp_Object image, const Extbyte *buffer,
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
755 unsigned char** data,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
756 int* width, int* height,
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
757 int* x_hot, int* y_hot,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
758 int* transp,
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
759 struct color_symbol* color_symbols,
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
760 int nsymbols)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
761 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
762 XpmImage xpmimage;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
763 XpmInfo xpminfo;
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
764 int result, i, j, transp_idx, maskbpline;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
765 unsigned char* dptr;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
766 unsigned int* sptr;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
767 COLORREF color; /* the american spelling virus hits again .. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
768 COLORREF* colortbl;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
769
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
770 xzero (xpmimage);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 269
diff changeset
771 xzero (xpminfo);
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
772 xpminfo.valuemask=XpmHotspot;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
773 *transp=FALSE;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
774
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
775 result = XpmCreateXpmImageFromBuffer ((char*)buffer,
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
776 &xpmimage,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
777 &xpminfo);
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
778 switch (result)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
779 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
780 case XpmSuccess:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
781 break;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
782 case XpmFileInvalid:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
783 {
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
784 signal_simple_error ("Invalid XPM data", image);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
785 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
786 case XpmNoMemory:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
787 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
788 signal_double_file_error ("Parsing pixmap data",
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
789 "out of memory", image);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
790 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
791 default:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
792 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
793 signal_double_file_error_2 ("Parsing pixmap data",
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
794 "unknown error code",
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
795 make_int (result), image);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
796 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
797 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
798
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
799 *width = xpmimage.width;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
800 *height = xpmimage.height;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
801 maskbpline = BPLINE ((~7UL & (unsigned long)(*width + 7)) / 8);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
802
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
803 *data = xnew_array_and_zero (unsigned char, *width * *height * 3);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
804
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
805 if (!*data)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
806 {
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
807 XpmFreeXpmImage (&xpmimage);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
808 XpmFreeXpmInfo (&xpminfo);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
809 return 0;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
810 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
811
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
812 /* build a color table to speed things up */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
813 colortbl = xnew_array_and_zero (COLORREF, xpmimage.ncolors);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
814 if (!colortbl)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
815 {
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
816 xfree (*data);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
817 XpmFreeXpmImage (&xpmimage);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
818 XpmFreeXpmInfo (&xpminfo);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
819 return 0;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
820 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
821
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
822 for (i=0; i<xpmimage.ncolors; i++)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
823 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
824 /* goto alert!!!! */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
825 /* pick up symbolic colors in preference */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
826 if (xpmimage.colorTable[i].symbolic)
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
827 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
828 if (!strcasecmp (xpmimage.colorTable[i].symbolic,"BgColor")
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
829 ||
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
830 !strcasecmp (xpmimage.colorTable[i].symbolic,"None"))
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
831 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
832 *transp=TRUE;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
833 colortbl[i]=transparent_color;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
834 transp_idx=i;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
835 goto label_found_color;
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
836 }
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
837 else if (color_symbols)
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
838 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
839 for (j = 0; j<nsymbols; j++)
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
840 {
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
841 if (!strcmp (xpmimage.colorTable[i].symbolic,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
842 color_symbols[j].name ))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
843 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
844 colortbl[i]=color_symbols[j].color;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
845 goto label_found_color;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
846 }
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
847 }
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
848 }
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
849 else if (xpmimage.colorTable[i].c_color == 0)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
850 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
851 goto label_no_color;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
852 }
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
853 }
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
854 /* pick up transparencies */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
855 if (!strcasecmp (xpmimage.colorTable[i].c_color,"None"))
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
856 {
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
857 *transp=TRUE;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
858 colortbl[i]=transparent_color;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
859 transp_idx=i;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
860 goto label_found_color;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
861 }
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
862 /* finally pick up a normal color spec */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
863 if (xpmimage.colorTable[i].c_color)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
864 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
865 colortbl[i]=
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
866 mswindows_string_to_color (xpmimage.colorTable[i].c_color);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
867 goto label_found_color;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
868 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
869
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
870 label_no_color:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
871 xfree (*data);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
872 xfree (colortbl);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
873 XpmFreeXpmImage (&xpmimage);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
874 XpmFreeXpmInfo (&xpminfo);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
875 return 0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
876
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
877 label_found_color:;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
878 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
879
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
880 /* convert the image */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
881 sptr=xpmimage.data;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
882 dptr=*data;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
883 for (i = 0; i< *width * *height; i++)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
884 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
885 color = colortbl[*sptr++];
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
886
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
887 /* split out the 0x02bbggrr colorref into an rgb triple */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
888 *dptr++=GetRValue (color); /* red */
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
889 *dptr++=GetGValue (color); /* green */
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
890 *dptr++=GetBValue (color); /* blue */
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
891 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
892
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
893 *x_hot=xpminfo.x_hotspot;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
894 *y_hot=xpminfo.y_hotspot;
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
895
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
896 XpmFreeXpmImage (&xpmimage);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
897 XpmFreeXpmInfo (&xpminfo);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
898 xfree (colortbl);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
899 return TRUE;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
900 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
901
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
902 static void
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
903 mswindows_xpm_instantiate (Lisp_Object image_instance,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
904 Lisp_Object instantiator,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
905 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
906 int dest_mask, Lisp_Object domain)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
907 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
908 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
909 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
910 const Extbyte *bytes;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
911 Extcount len;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
912 unsigned char *eimage;
276
6330739388db Import from CVS: tag r21-0b36
cvs
parents: 272
diff changeset
913 int width, height, x_hot, y_hot;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
914 BITMAPINFO* bmp_info;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
915 unsigned char* bmp_data;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
916 int bmp_bits;
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
917 int nsymbols=0, transp;
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
918 struct color_symbol* color_symbols=NULL;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
919
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
920 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
921 Lisp_Object color_symbol_alist = find_keyword_in_vector (instantiator,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
922 Q_color_symbols);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
923
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
924 if (!DEVICE_MSWINDOWS_P (XDEVICE (device)))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
925 signal_simple_error ("Not an mswindows device", device);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
926
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
927 assert (!NILP (data));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
928
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
929 TO_EXTERNAL_FORMAT (LISP_STRING, data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
930 ALLOCA, (bytes, len),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
931 Qbinary);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
932
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
933 /* in case we have color symbols */
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
934 color_symbols = extract_xpm_color_names (device, domain,
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
935 color_symbol_alist, &nsymbols);
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
936
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
937 /* convert to an eimage to make processing easier */
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
938 if (!xpm_to_eimage (image_instance, bytes, &eimage, &width, &height,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
939 &x_hot, &y_hot, &transp, color_symbols, nsymbols))
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
940 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
941 signal_simple_error ("XPM to EImage conversion failed",
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
942 image_instance);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
943 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
944
280
7df0dd720c89 Import from CVS: tag r21-0b38
cvs
parents: 278
diff changeset
945 if (color_symbols)
396
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
946 {
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
947 while (nsymbols--)
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
948 {
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
949 xfree (color_symbols[nsymbols].name);
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
950 }
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
951 xfree(color_symbols);
6719134a07c2 Import from CVS: tag r21-2-13
cvs
parents: 388
diff changeset
952 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
953
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
954 /* build a bitmap from the eimage */
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
955 if (!(bmp_info=convert_EImage_to_DIBitmap (device, width, height, eimage,
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
956 &bmp_bits, &bmp_data)))
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
957 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
958 signal_simple_error ("XPM to EImage conversion failed",
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
959 image_instance);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
960 }
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
961 xfree (eimage);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
962
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
963 /* Now create the pixmap and set up the image instance */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
964 init_image_instance_from_dibitmap (ii, bmp_info, dest_mask,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
965 bmp_data, bmp_bits, 1, instantiator,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
966 x_hot, y_hot, transp);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
967
269
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
968 xfree (bmp_info);
b2472a1930f2 Import from CVS: tag r20-5b33
cvs
parents: 267
diff changeset
969 xfree (bmp_data);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
970 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
971 #endif /* HAVE_XPM */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
972
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
973 /**********************************************************************
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
974 * BMP *
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
975 **********************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
976
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
977 static void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
978 bmp_validate (Lisp_Object instantiator)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
979 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
980 file_or_data_must_be_present (instantiator);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
981 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
982
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
983 static Lisp_Object
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
984 bmp_normalize (Lisp_Object inst, Lisp_Object console_type)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
985 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
986 return simple_image_type_normalize (inst, console_type, Qbmp);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
987 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
988
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
989 static int
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
990 bmp_possible_dest_types (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
991 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
992 return IMAGE_COLOR_PIXMAP_MASK;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
993 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
994
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
995 static void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
996 bmp_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
997 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
998 int dest_mask, Lisp_Object domain)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
999 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1000 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1001 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1002 const Extbyte *bytes;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1003 Extcount len;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1004 BITMAPFILEHEADER* bmp_file_header;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1005 BITMAPINFO* bmp_info;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1006 void* bmp_data;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1007 int bmp_bits;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1008 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1009
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1010 if (!DEVICE_MSWINDOWS_P (XDEVICE (device)))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1011 signal_simple_error ("Not an mswindows device", device);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1012
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1013 assert (!NILP (data));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1014
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1015 TO_EXTERNAL_FORMAT (LISP_STRING, data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1016 ALLOCA, (bytes, len),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1017 Qbinary);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1018
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1019 /* Then slurp the image into memory, decoding along the way.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1020 The result is the image in a simple one-byte-per-pixel
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1021 format. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1022
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1023 bmp_file_header=(BITMAPFILEHEADER*)bytes;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1024 bmp_info = (BITMAPINFO*)(bytes + sizeof(BITMAPFILEHEADER));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1025 bmp_data = (Extbyte*)bytes + bmp_file_header->bfOffBits;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1026 bmp_bits = bmp_file_header->bfSize - bmp_file_header->bfOffBits;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1027
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1028 /* Now create the pixmap and set up the image instance */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1029 init_image_instance_from_dibitmap (ii, bmp_info, dest_mask,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1030 bmp_data, bmp_bits, 1, instantiator,
282
c42ec1d1cded Import from CVS: tag r21-0b39
cvs
parents: 280
diff changeset
1031 0, 0, 0);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1032 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1033
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1034
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1035 /**********************************************************************
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1036 * RESOURCES *
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1037 **********************************************************************/
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1038
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1039 static void
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
1040 mswindows_resource_validate (Lisp_Object instantiator)
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1041 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1042 if ((NILP (find_keyword_in_vector (instantiator, Q_file))
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1043 &&
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1044 NILP (find_keyword_in_vector (instantiator, Q_resource_id)))
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1045 ||
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1046 NILP (find_keyword_in_vector (instantiator, Q_resource_type)))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1047 signal_simple_error ("Must supply :file, :resource-id and :resource-type",
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1048 instantiator);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1049 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1050
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1051 static Lisp_Object
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
1052 mswindows_resource_normalize (Lisp_Object inst, Lisp_Object console_type)
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1053 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1054 /* This function can call lisp */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1055 Lisp_Object file = Qnil;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1056 struct gcpro gcpro1, gcpro2;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1057 Lisp_Object alist = Qnil;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1058
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1059 GCPRO2 (file, alist);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1060
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1061 file = potential_pixmap_file_instantiator (inst, Q_file, Q_data,
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1062 console_type);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1063
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1064 if (CONSP (file)) /* failure locating filename */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1065 signal_double_file_error ("Opening pixmap file",
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1066 "no such file or directory",
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1067 Fcar (file));
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1068
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1069 if (NILP (file)) /* no conversion necessary */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1070 RETURN_UNGCPRO (inst);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1071
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1072 alist = tagged_vector_to_alist (inst);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1073
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1074 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1075 alist = remassq_no_quit (Q_file, alist);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1076 alist = Fcons (Fcons (Q_file, file), alist);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1077 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1078
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1079 {
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
1080 Lisp_Object result = alist_to_tagged_vector (Qmswindows_resource, alist);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1081 free_alist (alist);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1082 RETURN_UNGCPRO (result);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1083 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1084 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1085
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1086 static int
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
1087 mswindows_resource_possible_dest_types (void)
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1088 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1089 return IMAGE_POINTER_MASK | IMAGE_COLOR_PIXMAP_MASK;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1090 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1091
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1092 typedef struct
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1093 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1094 char *name;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1095 int resource_id;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1096 } resource_t;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1097
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1098 #ifndef OCR_ICOCUR
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1099 #define OCR_ICOCUR 32647
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1100 #define OIC_SAMPLE 32512
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1101 #define OIC_HAND 32513
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1102 #define OIC_QUES 32514
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1103 #define OIC_BANG 32515
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1104 #define OIC_NOTE 32516
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1105 #define OIC_WINLOGO 32517
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1106 #if defined (__CYGWIN32__) && CYGWIN_VERSION_DLL_MAJOR < 21
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1107 #define LR_SHARED 0x8000
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1108 #endif
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1109 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1110
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1111 static const resource_t bitmap_table[] =
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1112 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1113 /* bitmaps */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1114 { "close", OBM_CLOSE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1115 { "uparrow", OBM_UPARROW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1116 { "dnarrow", OBM_DNARROW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1117 { "rgarrow", OBM_RGARROW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1118 { "lfarrow", OBM_LFARROW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1119 { "reduce", OBM_REDUCE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1120 { "zoom", OBM_ZOOM },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1121 { "restore", OBM_RESTORE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1122 { "reduced", OBM_REDUCED },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1123 { "zoomd", OBM_ZOOMD },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1124 { "restored", OBM_RESTORED },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1125 { "uparrowd", OBM_UPARROWD },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1126 { "dnarrowd", OBM_DNARROWD },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1127 { "rgarrowd", OBM_RGARROWD },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1128 { "lfarrowd", OBM_LFARROWD },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1129 { "mnarrow", OBM_MNARROW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1130 { "combo", OBM_COMBO },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1131 { "uparrowi", OBM_UPARROWI },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1132 { "dnarrowi", OBM_DNARROWI },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1133 { "rgarrowi", OBM_RGARROWI },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1134 { "lfarrowi", OBM_LFARROWI },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1135 { "size", OBM_SIZE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1136 { "btsize", OBM_BTSIZE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1137 { "check", OBM_CHECK },
377
d883f39b8495 Import from CVS: tag r21-2b4
cvs
parents: 373
diff changeset
1138 { "checkboxes", OBM_CHECKBOXES },
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1139 { "btncorners" , OBM_BTNCORNERS },
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1140 {0}
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1141 };
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1142
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1143 static const resource_t cursor_table[] =
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1144 {
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1145 /* cursors */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1146 { "normal", OCR_NORMAL },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1147 { "ibeam", OCR_IBEAM },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1148 { "wait", OCR_WAIT },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1149 { "cross", OCR_CROSS },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1150 { "up", OCR_UP },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1151 /* { "icon", OCR_ICON }, */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1152 { "sizenwse", OCR_SIZENWSE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1153 { "sizenesw", OCR_SIZENESW },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1154 { "sizewe", OCR_SIZEWE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1155 { "sizens", OCR_SIZENS },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1156 { "sizeall", OCR_SIZEALL },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1157 /* { "icour", OCR_ICOCUR }, */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1158 { "no", OCR_NO },
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1159 { 0 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1160 };
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1161
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1162 static const resource_t icon_table[] =
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1163 {
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1164 /* icons */
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1165 { "sample", OIC_SAMPLE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1166 { "hand", OIC_HAND },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1167 { "ques", OIC_QUES },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1168 { "bang", OIC_BANG },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1169 { "note", OIC_NOTE },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1170 { "winlogo", OIC_WINLOGO },
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1171 {0}
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1172 };
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1173
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1174 static int resource_name_to_resource (Lisp_Object name, int type)
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1175 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1176 const resource_t* res = (type == IMAGE_CURSOR ? cursor_table
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1177 : type == IMAGE_ICON ? icon_table
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1178 : bitmap_table);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1179
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1180 if (INTP (name))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1181 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1182 return XINT (name);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1183 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1184 else if (!STRINGP (name))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1185 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1186 signal_simple_error ("invalid resource identifier", name);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1187 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1188
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1189 do {
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
1190 Extbyte* nm=0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1191 TO_EXTERNAL_FORMAT (LISP_STRING, name,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1192 C_STRING_ALLOCA, nm,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1193 Qnative);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
1194 if (!strcasecmp ((char*)res->name, nm))
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1195 return res->resource_id;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1196 } while ((++res)->name);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1197 return 0;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1198 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1199
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1200 static int
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1201 resource_symbol_to_type (Lisp_Object data)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1202 {
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1203 if (EQ (data, Qcursor))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1204 return IMAGE_CURSOR;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1205 else if (EQ (data, Qicon))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1206 return IMAGE_ICON;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1207 else if (EQ (data, Qbitmap))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1208 return IMAGE_BITMAP;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1209 else
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1210 return 0;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1211 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1212
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1213 static void
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
1214 mswindows_resource_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1215 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1216 int dest_mask, Lisp_Object domain)
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1217 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1218 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1219 unsigned int type = 0;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1220 HANDLE himage = NULL;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1221 LPCTSTR resid=0;
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1222 HINSTANCE hinst = NULL;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1223 ICONINFO iconinfo;
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1224 enum image_instance_type iitype;
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1225 char* fname=0;
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1226 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1227
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1228 Lisp_Object file = find_keyword_in_vector (instantiator, Q_file);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1229 Lisp_Object resource_type = find_keyword_in_vector (instantiator,
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1230 Q_resource_type);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1231 Lisp_Object resource_id = find_keyword_in_vector (instantiator,
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1232 Q_resource_id);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1233
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1234 xzero (iconinfo);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1235
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1236 if (!DEVICE_MSWINDOWS_P (XDEVICE (device)))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1237 signal_simple_error ("Not an mswindows device", device);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1238
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1239 type = resource_symbol_to_type (resource_type);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1240
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1241 if (dest_mask & IMAGE_POINTER_MASK && type == IMAGE_CURSOR)
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1242 iitype = IMAGE_POINTER;
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1243 else if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1244 iitype = IMAGE_COLOR_PIXMAP;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1245 else
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1246 incompatible_image_types (instantiator, dest_mask,
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1247 IMAGE_COLOR_PIXMAP_MASK | IMAGE_POINTER_MASK);
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1248
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1249 /* mess with the keyword info we were provided with */
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1250 if (!NILP (file))
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1251 {
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
1252 Extbyte* f=0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1253 TO_EXTERNAL_FORMAT (LISP_STRING, file,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1254 C_STRING_ALLOCA, f,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1255 Qfile_name);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1256 #ifdef __CYGWIN32__
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
1257 CYGWIN_WIN32_PATH (f, fname);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1258 #else
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1259 fname = f;
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1260 #endif
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1261
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1262 if (NILP (resource_id))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1263 resid = (LPCTSTR)fname;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1264 else
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1265 {
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1266 hinst = LoadLibraryEx (fname, NULL,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1267 LOAD_LIBRARY_AS_DATAFILE);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1268 resid = MAKEINTRESOURCE (resource_name_to_resource (resource_id,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1269 type));
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1270
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1271 if (!resid)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1272 TO_EXTERNAL_FORMAT (LISP_STRING, resource_id,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1273 C_STRING_ALLOCA, resid,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1274 Qnative);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1275 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1276 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1277 else if (!(resid = MAKEINTRESOURCE (resource_name_to_resource (resource_id,
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1278 type))))
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
1279 signal_simple_error ("Invalid resource identifier", resource_id);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1280
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1281 /* load the image */
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1282 if (!(himage = LoadImage (hinst, resid, type, 0, 0,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1283 LR_CREATEDIBSECTION | LR_DEFAULTSIZE |
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1284 LR_SHARED |
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1285 (!NILP (file) ? LR_LOADFROMFILE : 0))))
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1286 {
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
1287 signal_simple_error ("Cannot load image", instantiator);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1288 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1289
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1290 if (hinst)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1291 FreeLibrary (hinst);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1292
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1293 mswindows_initialize_dibitmap_image_instance (ii, 1, iitype);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1294
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1295 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) = file;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1296 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) =
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1297 GetSystemMetrics (type == IMAGE_CURSOR ? SM_CXCURSOR : SM_CXICON);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1298 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) =
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1299 GetSystemMetrics (type == IMAGE_CURSOR ? SM_CYCURSOR : SM_CYICON);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1300 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = 1;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1301
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1302 /* hey, we've got an icon type thing so we can reverse engineer the
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1303 bitmap and mask */
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1304 if (type != IMAGE_BITMAP)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1305 {
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1306 GetIconInfo ((HICON)himage, &iconinfo);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1307 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) = iconinfo.hbmColor;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1308 IMAGE_INSTANCE_MSWINDOWS_MASK (ii) = iconinfo.hbmMask;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1309 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii), iconinfo.xHotspot);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1310 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii), iconinfo.yHotspot);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1311 IMAGE_INSTANCE_MSWINDOWS_ICON (ii) = (HICON) himage;
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1312 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1313 else
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1314 {
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1315 IMAGE_INSTANCE_MSWINDOWS_ICON (ii) = NULL;
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1316 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) = (HBITMAP) himage;
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1317 IMAGE_INSTANCE_MSWINDOWS_MASK (ii) = NULL;
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1318 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii), 0);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1319 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii), 0);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1320 }
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1321 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1322
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1323 static void
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1324 check_valid_resource_symbol (Lisp_Object data)
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1325 {
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1326 CHECK_SYMBOL (data);
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1327 if (!resource_symbol_to_type (data))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1328 signal_simple_error ("invalid resource type", data);
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1329 }
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1330
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1331 static void
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1332 check_valid_resource_id (Lisp_Object data)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1333 {
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1334 if (!resource_name_to_resource (data, IMAGE_CURSOR)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1335 &&
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1336 !resource_name_to_resource (data, IMAGE_ICON)
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1337 &&
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1338 !resource_name_to_resource (data, IMAGE_BITMAP))
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
1339 signal_simple_error ("invalid resource identifier", data);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1340 }
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1341
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1342 /**********************************************************************
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1343 * XBM *
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1344 **********************************************************************/
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1345 #ifndef HAVE_X_WINDOWS
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1346 /* $XConsortium: RdBitF.c,v 1.10 94/04/17 20:16:13 kaleb Exp $ */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1347
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1348 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1349
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1350 Copyright (c) 1988 X Consortium
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1351
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1352 Permission is hereby granted, free of charge, to any person obtaining a copy
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1353 of this software and associated documentation files (the "Software"), to deal
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1354 in the Software without restriction, including without limitation the rights
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1355 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1356 copies of the Software, and to permit persons to whom the Software is
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1357 furnished to do so, subject to the following conditions:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1358
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1359 The above copyright notice and this permission notice shall be included in
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1360 all copies or substantial portions of the Software.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1361
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1362 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1363 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1364 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1365 X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1366 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1367 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1368
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1369 Except as contained in this notice, the name of the X Consortium shall not be
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1370 used in advertising or otherwise to promote the sale, use or other dealings
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1371 in this Software without prior written authorization from the X Consortium.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1372
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1373 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1374
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1375 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1376 * This file contains miscellaneous utility routines and is not part of the
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1377 * Xlib standard.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1378 *
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1379 * Public entry points:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1380 *
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1381 * XmuReadBitmapData read data from FILE descriptor
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1382 * XmuReadBitmapDataFromFile read X10 or X11 format bitmap files
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1383 * and return data
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1384 *
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1385 * Note that this file and ../X/XRdBitF.c look very similar.... Keep them
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1386 * that way (but don't use common source code so that people can have one
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1387 * without the other).
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1388 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1389
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1390
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1391 /*
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 377
diff changeset
1392 * Based on an optimized version provided by Jim Becker, August 5, 1988.
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1393 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1394 #ifndef BitmapSuccess
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1395 #define BitmapSuccess 0
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1396 #define BitmapOpenFailed 1
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1397 #define BitmapFileInvalid 2
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1398 #define BitmapNoMemory 3
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1399 #endif
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1400 #define MAX_SIZE 255
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1401
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1402 /* shared data for the image read/parse logic */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1403 static short hexTable[256]; /* conversion value */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1404 static int initialized = FALSE; /* easier to fill in at run time */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1405
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1406 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1407 * Table index for the hex values. Initialized once, first time.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1408 * Used for translation value or delimiter significance lookup.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1409 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1410 static void initHexTable()
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1411 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1412 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1413 * We build the table at run time for several reasons:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1414 *
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1415 * 1. portable to non-ASCII machines.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1416 * 2. still reentrant since we set the init flag after setting table.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1417 * 3. easier to extend.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1418 * 4. less prone to bugs.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1419 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1420 hexTable['0'] = 0; hexTable['1'] = 1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1421 hexTable['2'] = 2; hexTable['3'] = 3;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1422 hexTable['4'] = 4; hexTable['5'] = 5;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1423 hexTable['6'] = 6; hexTable['7'] = 7;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1424 hexTable['8'] = 8; hexTable['9'] = 9;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1425 hexTable['A'] = 10; hexTable['B'] = 11;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1426 hexTable['C'] = 12; hexTable['D'] = 13;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1427 hexTable['E'] = 14; hexTable['F'] = 15;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1428 hexTable['a'] = 10; hexTable['b'] = 11;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1429 hexTable['c'] = 12; hexTable['d'] = 13;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1430 hexTable['e'] = 14; hexTable['f'] = 15;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1431
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1432 /* delimiters of significance are flagged w/ negative value */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1433 hexTable[' '] = -1; hexTable[','] = -1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1434 hexTable['}'] = -1; hexTable['\n'] = -1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1435 hexTable['\t'] = -1;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1436
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1437 initialized = TRUE;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1438 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1439
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1440 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1441 * read next hex value in the input stream, return -1 if EOF
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1442 */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1443 static int NextInt ( FILE *fstream )
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1444 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1445 int ch;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1446 int value = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1447 int gotone = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1448 int done = 0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1449
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1450 /* loop, accumulate hex value until find delimiter */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1451 /* skip any initial delimiters found in read stream */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1452
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1453 while (!done) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1454 ch = getc(fstream);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1455 if (ch == EOF) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1456 value = -1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1457 done++;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1458 } else {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1459 /* trim high bits, check type and accumulate */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1460 ch &= 0xff;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1461 if (isascii(ch) && isxdigit(ch)) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1462 value = (value << 4) + hexTable[ch];
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1463 gotone++;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1464 } else if ((hexTable[ch]) < 0 && gotone)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1465 done++;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1466 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1467 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1468 return value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1469 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1470
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1471
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1472 /*
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1473 * The data returned by the following routine is always in left-most byte
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1474 * first and left-most bit first. If it doesn't return BitmapSuccess then
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1475 * its arguments won't have been touched. This routine should look as much
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1476 * like the Xlib routine XReadBitmapfile as possible.
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1477 */
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1478 int read_bitmap_data (FILE* fstream, unsigned int *width,
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1479 unsigned int *height, unsigned char **datap,
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1480 int *x_hot, int *y_hot)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1481 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1482 unsigned char *data = NULL; /* working variable */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1483 char line[MAX_SIZE]; /* input line from file */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1484 int size; /* number of bytes of data */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1485 char name_and_type[MAX_SIZE]; /* an input line */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1486 char *type; /* for parsing */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1487 int value; /* from an input line */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1488 int version10p; /* boolean, old format */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1489 int padding; /* to handle alignment */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1490 int bytes_per_line; /* per scanline of data */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1491 unsigned int ww = 0; /* width */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1492 unsigned int hh = 0; /* height */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1493 int hx = -1; /* x hotspot */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1494 int hy = -1; /* y hotspot */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1495
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1496 #define Xmalloc(size) malloc(size)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1497
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1498 /* first time initialization */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1499 if (initialized == FALSE) initHexTable();
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1500
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1501 /* error cleanup and return macro */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1502 #define RETURN(code) { if (data) free (data); return code; }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1503
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1504 while (fgets(line, MAX_SIZE, fstream)) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1505 if (strlen(line) == MAX_SIZE-1) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1506 RETURN (BitmapFileInvalid);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1507 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1508 if (sscanf(line,"#define %s %d",name_and_type,&value) == 2) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1509 if (!(type = strrchr(name_and_type, '_')))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1510 type = name_and_type;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1511 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1512 type++;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1513
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1514 if (!strcmp("width", type))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1515 ww = (unsigned int) value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1516 if (!strcmp("height", type))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1517 hh = (unsigned int) value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1518 if (!strcmp("hot", type)) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1519 if (type-- == name_and_type || type-- == name_and_type)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1520 continue;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1521 if (!strcmp("x_hot", type))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1522 hx = value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1523 if (!strcmp("y_hot", type))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1524 hy = value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1525 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1526 continue;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1527 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1528
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1529 if (sscanf(line, "static short %s = {", name_and_type) == 1)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1530 version10p = 1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1531 else if (sscanf(line,"static unsigned char %s = {",name_and_type) == 1)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1532 version10p = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1533 else if (sscanf(line, "static char %s = {", name_and_type) == 1)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1534 version10p = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1535 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1536 continue;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1537
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1538 if (!(type = strrchr(name_and_type, '_')))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1539 type = name_and_type;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1540 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1541 type++;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1542
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1543 if (strcmp("bits[]", type))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1544 continue;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1545
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1546 if (!ww || !hh)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1547 RETURN (BitmapFileInvalid);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1548
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1549 if ((ww % 16) && ((ww % 16) < 9) && version10p)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1550 padding = 1;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1551 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1552 padding = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1553
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1554 bytes_per_line = (ww+7)/8 + padding;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1555
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1556 size = bytes_per_line * hh;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1557 data = (unsigned char *) Xmalloc ((unsigned int) size);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1558 if (!data)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1559 RETURN (BitmapNoMemory);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1560
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1561 if (version10p) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1562 unsigned char *ptr;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1563 int bytes;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1564
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1565 for (bytes=0, ptr=data; bytes<size; (bytes += 2)) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1566 if ((value = NextInt(fstream)) < 0)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1567 RETURN (BitmapFileInvalid);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1568 *(ptr++) = value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1569 if (!padding || ((bytes+2) % bytes_per_line))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1570 *(ptr++) = value >> 8;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1571 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1572 } else {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1573 unsigned char *ptr;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1574 int bytes;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1575
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1576 for (bytes=0, ptr=data; bytes<size; bytes++, ptr++) {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1577 if ((value = NextInt(fstream)) < 0)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1578 RETURN (BitmapFileInvalid);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1579 *ptr=value;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1580 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1581 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1582 break;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1583 } /* end while */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1584
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1585 if (data == NULL) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1586 RETURN (BitmapFileInvalid);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1587 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1588
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1589 *datap = data;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1590 data = NULL;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1591 *width = ww;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1592 *height = hh;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1593 if (x_hot) *x_hot = hx;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1594 if (y_hot) *y_hot = hy;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1595
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1596 RETURN (BitmapSuccess);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1597 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1598
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1599
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1600 int read_bitmap_data_from_file (const char *filename, unsigned int *width,
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1601 unsigned int *height, unsigned char **datap,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1602 int *x_hot, int *y_hot)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1603 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1604 FILE *fstream;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1605 int status;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1606
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1607 if ((fstream = fopen (filename, "r")) == NULL) {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1608 return BitmapOpenFailed;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1609 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1610 status = read_bitmap_data (fstream, width, height, datap, x_hot, y_hot);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1611 fclose (fstream);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1612 return status;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1613 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1614 #endif /* HAVE_X_WINDOWS */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1615
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1616 /* this table flips four bits around. */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1617 static int flip_table[] =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1618 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1619 0, 8, 4, 12, 2, 10, 6, 14, 1, 9, 5, 13, 3, 11, 7, 15
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1620 };
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1621
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1622 /* the bitmap data comes in the following format: Widths are padded to
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1623 a multiple of 8. Scan lines are stored in increasing byte order
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1624 from left to right, little-endian within a byte. 0 = white, 1 =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1625 black. It must be converted to the following format: Widths are
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1626 padded to a multiple of 16. Scan lines are stored in increasing
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1627 byte order from left to right, big-endian within a byte. 0 =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1628 black, 1 = white. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1629 static HBITMAP
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1630 xbm_create_bitmap_from_data (HDC hdc, char *data,
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1631 unsigned int width, unsigned int height,
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1632 int mask, COLORREF fg, COLORREF bg)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1633 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1634 int old_width = (width + 7)/8;
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1635 int new_width = BPLINE (2*((width + 15)/16));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1636 unsigned char *offset;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1637 void *bmp_buf = 0;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1638 unsigned char *new_data, *new_offset;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1639 int i, j;
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1640 BITMAPINFO *bmp_info =
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
1641 (BITMAPINFO*) xmalloc_and_zero (sizeof(BITMAPINFO) + sizeof(RGBQUAD));
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1642 HBITMAP bitmap;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1643
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1644 if (!bmp_info)
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1645 return NULL;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1646
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1647 new_data = (unsigned char *) xmalloc_and_zero (height * new_width);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1648
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1649 if (!new_data)
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1650 {
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1651 xfree (bmp_info);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1652 return NULL;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1653 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1654
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1655 for (i=0; i<height; i++)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1656 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1657 offset = data + i*old_width;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1658 new_offset = new_data + i*new_width;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1659
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1660 for (j=0; j<old_width; j++)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1661 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1662 int byte = offset[j];
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1663 new_offset[j] = ~ (unsigned char)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1664 ((flip_table[byte & 0xf] << 4) + flip_table[byte >> 4]);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1665 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1666 }
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1667
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1668 /* if we want a mask invert the bits */
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1669 if (!mask)
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1670 {
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1671 new_offset = &new_data[height * new_width];
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1672 while (new_offset-- != new_data)
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1673 {
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1674 *new_offset ^= 0xff;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1675 }
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1676 }
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1677
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1678 bmp_info->bmiHeader.biWidth=width;
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1679 bmp_info->bmiHeader.biHeight=-(LONG)height;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1680 bmp_info->bmiHeader.biPlanes=1;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1681 bmp_info->bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1682 bmp_info->bmiHeader.biBitCount=1;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1683 bmp_info->bmiHeader.biCompression=BI_RGB;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1684 bmp_info->bmiHeader.biClrUsed = 2;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1685 bmp_info->bmiHeader.biClrImportant = 2;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1686 bmp_info->bmiHeader.biSizeImage = height * new_width;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1687 bmp_info->bmiColors[0].rgbRed = GetRValue (fg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1688 bmp_info->bmiColors[0].rgbGreen = GetGValue (fg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1689 bmp_info->bmiColors[0].rgbBlue = GetBValue (fg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1690 bmp_info->bmiColors[0].rgbReserved = 0;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1691 bmp_info->bmiColors[1].rgbRed = GetRValue (bg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1692 bmp_info->bmiColors[1].rgbGreen = GetGValue (bg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1693 bmp_info->bmiColors[1].rgbBlue = GetBValue (bg);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1694 bmp_info->bmiColors[1].rgbReserved = 0;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1695
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1696 bitmap = CreateDIBSection (hdc,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1697 bmp_info,
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1698 DIB_RGB_COLORS,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1699 &bmp_buf,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1700 0,0);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1701
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1702 xfree (bmp_info);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1703
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1704 if (!bitmap || !bmp_buf)
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1705 {
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1706 xfree (new_data);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1707 return NULL;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1708 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1709
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1710 /* copy in the actual bitmap */
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1711 memcpy (bmp_buf, new_data, height * new_width);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1712 xfree (new_data);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1713
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1714 return bitmap;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1715 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1716
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1717 /* Given inline data for a mono pixmap, initialize the given
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1718 image instance accordingly. */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1719
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1720 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1721 init_image_instance_from_xbm_inline (Lisp_Image_Instance *ii,
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1722 int width, int height,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1723 /* Note that data is in ext-format! */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1724 const char *bits,
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1725 Lisp_Object instantiator,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1726 Lisp_Object pointer_fg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1727 Lisp_Object pointer_bg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1728 int dest_mask,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1729 HBITMAP mask,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1730 Lisp_Object mask_filename)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1731 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1732 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1733 struct frame* f = XFRAME (DEVICE_SELECTED_FRAME (XDEVICE (device)));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1734 Lisp_Object foreground = find_keyword_in_vector (instantiator, Q_foreground);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1735 Lisp_Object background = find_keyword_in_vector (instantiator, Q_background);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1736 enum image_instance_type type;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1737 COLORREF black = PALETTERGB (0,0,0);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1738 COLORREF white = PALETTERGB (255,255,255);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1739
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1740 HDC hdc = FRAME_MSWINDOWS_CDC (f);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1741
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1742 if (!DEVICE_MSWINDOWS_P (XDEVICE (device)))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1743 signal_simple_error ("Not an MS-Windows device", device);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1744
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1745 if ((dest_mask & IMAGE_MONO_PIXMAP_MASK) &&
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1746 (dest_mask & IMAGE_COLOR_PIXMAP_MASK))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1747 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1748 if (!NILP (foreground) || !NILP (background))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1749 type = IMAGE_COLOR_PIXMAP;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1750 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1751 type = IMAGE_MONO_PIXMAP;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1752 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1753 else if (dest_mask & IMAGE_MONO_PIXMAP_MASK)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1754 type = IMAGE_MONO_PIXMAP;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1755 else if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1756 type = IMAGE_COLOR_PIXMAP;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1757 else if (dest_mask & IMAGE_POINTER_MASK)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1758 type = IMAGE_POINTER;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1759 else
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1760 incompatible_image_types (instantiator, dest_mask,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1761 IMAGE_MONO_PIXMAP_MASK | IMAGE_COLOR_PIXMAP_MASK
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1762 | IMAGE_POINTER_MASK);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1763
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1764 mswindows_initialize_dibitmap_image_instance (ii, 1, type);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1765
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1766 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1767 find_keyword_in_vector (instantiator, Q_file);
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1768 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = width;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1769 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = height;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1770 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = 1;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1771 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii), 0);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1772 XSETINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii), 0);
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1773 IMAGE_INSTANCE_MSWINDOWS_MASK (ii) = mask ? mask :
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1774 xbm_create_bitmap_from_data (hdc, (Extbyte *) bits, width, height,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1775 TRUE, black, white);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1776
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1777 switch (type)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1778 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1779 case IMAGE_MONO_PIXMAP:
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1780 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) =
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1781 xbm_create_bitmap_from_data (hdc, (Extbyte *) bits, width, height,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1782 FALSE, black, black);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1783 break;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1784
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1785 case IMAGE_COLOR_PIXMAP:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1786 {
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1787 COLORREF fg = black;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1788 COLORREF bg = white;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1789
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1790 if (!NILP (foreground) && !COLOR_INSTANCEP (foreground))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1791 foreground =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1792 Fmake_color_instance (foreground, device,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1793 encode_error_behavior_flag (ERROR_ME));
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1794
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1795 if (COLOR_INSTANCEP (foreground))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1796 fg = COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (foreground));
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1797
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1798 if (!NILP (background) && !COLOR_INSTANCEP (background))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1799 background =
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1800 Fmake_color_instance (background, device,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1801 encode_error_behavior_flag (ERROR_ME));
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1802
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1803 if (COLOR_INSTANCEP (background))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1804 bg = COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (background));
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1805
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1806 IMAGE_INSTANCE_PIXMAP_FG (ii) = foreground;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1807 IMAGE_INSTANCE_PIXMAP_BG (ii) = background;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1808
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1809 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) =
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1810 xbm_create_bitmap_from_data (hdc, (Extbyte *) bits, width, height,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1811 FALSE, fg, black);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1812 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1813 break;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1814
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1815 case IMAGE_POINTER:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1816 {
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1817 COLORREF fg = black;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1818 COLORREF bg = white;
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1819
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1820 if (NILP (foreground))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1821 foreground = pointer_fg;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1822 if (NILP (background))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1823 background = pointer_bg;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1824
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1825 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii) =
382
064ab7fed2e0 Import from CVS: tag r21-2-6
cvs
parents: 380
diff changeset
1826 find_keyword_in_vector (instantiator, Q_hotspot_x);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1827 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii) =
382
064ab7fed2e0 Import from CVS: tag r21-2-6
cvs
parents: 380
diff changeset
1828 find_keyword_in_vector (instantiator, Q_hotspot_y);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1829 IMAGE_INSTANCE_PIXMAP_FG (ii) = foreground;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1830 IMAGE_INSTANCE_PIXMAP_BG (ii) = background;
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1831 if (COLOR_INSTANCEP (foreground))
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1832 fg = COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (foreground));
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1833 if (COLOR_INSTANCEP (background))
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1834 bg = COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (background));
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1835
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1836 IMAGE_INSTANCE_MSWINDOWS_BITMAP (ii) =
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1837 xbm_create_bitmap_from_data (hdc, (Extbyte *) bits, width, height,
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1838 TRUE, fg, black);
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1839 mswindows_initialize_image_instance_icon (ii, TRUE);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1840 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1841 break;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1842
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1843 default:
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1844 abort ();
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1845 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1846 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1847
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1848 static void
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1849 xbm_instantiate_1 (Lisp_Object image_instance, Lisp_Object instantiator,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1850 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1851 int dest_mask, int width, int height,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1852 /* Note that data is in ext-format! */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1853 const char *bits)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1854 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1855 Lisp_Object mask_data = find_keyword_in_vector (instantiator, Q_mask_data);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1856 Lisp_Object mask_file = find_keyword_in_vector (instantiator, Q_mask_file);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1857 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1858 struct frame* f = XFRAME (DEVICE_SELECTED_FRAME
290
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1859 (XDEVICE (IMAGE_INSTANCE_DEVICE (ii))));
c9fe270a4101 Import from CVS: tag r21-0b43
cvs
parents: 288
diff changeset
1860 HDC hdc = FRAME_MSWINDOWS_CDC (f);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1861 HBITMAP mask = 0;
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1862
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1863 if (!NILP (mask_data))
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1864 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1865 const char *ext_data;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1866
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1867 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (XCDR (XCDR (mask_data))),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1868 C_STRING_ALLOCA, ext_data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1869 Qbinary);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1870 mask = xbm_create_bitmap_from_data (hdc,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1871 (unsigned char *) ext_data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1872 XINT (XCAR (mask_data)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1873 XINT (XCAR (XCDR (mask_data))),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1874 FALSE,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1875 PALETTERGB (0,0,0),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1876 PALETTERGB (255,255,255));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1877 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1878
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1879 init_image_instance_from_xbm_inline (ii, width, height, bits,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1880 instantiator, pointer_fg, pointer_bg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1881 dest_mask, mask, mask_file);
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1882 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1883
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1884 /* Instantiate method for XBM's. */
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1885
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1886 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1887 mswindows_xbm_instantiate (Lisp_Object image_instance,
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1888 Lisp_Object instantiator,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1889 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1890 int dest_mask, Lisp_Object domain)
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1891 {
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1892 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1893 const char *ext_data;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1894
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1895 assert (!NILP (data));
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1896
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1897 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (XCDR (XCDR (data))),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1898 C_STRING_ALLOCA, ext_data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1899 Qbinary);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1900
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1901 xbm_instantiate_1 (image_instance, instantiator, pointer_fg,
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1902 pointer_bg, dest_mask, XINT (XCAR (data)),
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1903 XINT (XCAR (XCDR (data))), ext_data);
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1904 }
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 286
diff changeset
1905
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1906 #ifdef HAVE_XFACE
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1907 /**********************************************************************
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1908 * X-Face *
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1909 **********************************************************************/
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1910 #if defined(EXTERN)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1911 /* This is about to get redefined! */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1912 #undef EXTERN
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1913 #endif
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1914 /* We have to define SYSV32 so that compface.h includes string.h
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1915 instead of strings.h. */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1916 #define SYSV32
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1917 #ifdef __cplusplus
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1918 extern "C" {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1919 #endif
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1920 #include <compface.h>
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1921 #ifdef __cplusplus
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1922 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1923 #endif
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1924 /* JMP_BUF cannot be used here because if it doesn't get defined
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1925 to jmp_buf we end up with a conflicting type error with the
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1926 definition in compface.h */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1927 extern jmp_buf comp_env;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1928 #undef SYSV32
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1929
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1930 static void
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1931 mswindows_xface_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1932 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1933 int dest_mask, Lisp_Object domain)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1934 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1935 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1936 int i, stattis;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1937 char *p, *bits, *bp;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1938 const char * volatile emsg = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1939 const char * volatile dstring;
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1940
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1941 assert (!NILP (data));
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1942
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1943 TO_EXTERNAL_FORMAT (LISP_STRING, data,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1944 C_STRING_ALLOCA, dstring,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
1945 Qbinary);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1946
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1947 if ((p = strchr (dstring, ':')))
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1948 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1949 dstring = p + 1;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1950 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1951
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1952 /* Must use setjmp not SETJMP because we used jmp_buf above not JMP_BUF */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1953 if (!(stattis = setjmp (comp_env)))
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1954 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1955 UnCompAll ((char *) dstring);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1956 UnGenFace ();
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1957 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1958
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1959 switch (stattis)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1960 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1961 case -2:
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1962 emsg = "uncompface: internal error";
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1963 break;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1964 case -1:
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1965 emsg = "uncompface: insufficient or invalid data";
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1966 break;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1967 case 1:
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1968 emsg = "uncompface: excess data ignored";
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1969 break;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1970 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1971
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1972 if (emsg)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1973 signal_simple_error_2 (emsg, data, Qimage);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1974
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1975 bp = bits = (char *) alloca (PIXELS / 8);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1976
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1977 /* the compface library exports char F[], which uses a single byte per
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1978 pixel to represent a 48x48 bitmap. Yuck. */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1979 for (i = 0, p = F; i < (PIXELS / 8); ++i)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1980 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1981 int n, b;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1982 /* reverse the bit order of each byte... */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1983 for (b = n = 0; b < 8; ++b)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1984 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1985 n |= ((*p++) << b);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1986 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1987 *bp++ = (char) n;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1988 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1989
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1990 xbm_instantiate_1 (image_instance, instantiator, pointer_fg,
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1991 pointer_bg, dest_mask, 48, 48, bits);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1992 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1993 #endif /* HAVE_XFACE */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
1994
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
1995
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1996 /************************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1997 /* image instance methods */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1998 /************************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
1999
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2000 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2001 mswindows_print_image_instance (Lisp_Image_Instance *p,
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2002 Lisp_Object printcharfun,
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2003 int escapeflag)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2004 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2005 char buf[100];
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2006
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2007 switch (IMAGE_INSTANCE_TYPE (p))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2008 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2009 case IMAGE_MONO_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2010 case IMAGE_COLOR_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2011 case IMAGE_POINTER:
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2012 sprintf (buf, " (0x%lx",
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2013 (unsigned long) IMAGE_INSTANCE_MSWINDOWS_BITMAP (p));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2014 write_c_string (buf, printcharfun);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2015 if (IMAGE_INSTANCE_MSWINDOWS_MASK (p))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2016 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2017 sprintf (buf, "/0x%lx",
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2018 (unsigned long) IMAGE_INSTANCE_MSWINDOWS_MASK (p));
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2019 write_c_string (buf, printcharfun);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2020 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2021 write_c_string (")", printcharfun);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2022 break;
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2023
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2024 default:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2025 break;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2026 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2027 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2028
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2029 #ifdef DEBUG_WIDGETS
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2030 extern int debug_widget_instances;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2031 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2032
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2033 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2034 mswindows_finalize_image_instance (Lisp_Image_Instance *p)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2035 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2036 if (DEVICE_LIVE_P (XDEVICE (p->device)))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2037 {
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2038 if (IMAGE_INSTANCE_TYPE (p) == IMAGE_WIDGET
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2039 ||
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2040 IMAGE_INSTANCE_TYPE (p) == IMAGE_SUBWINDOW)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2041 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2042 #ifdef DEBUG_WIDGETS
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2043 debug_widget_instances--;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2044 stderr_out ("widget destroyed, %d left\n", debug_widget_instances);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2045 #endif
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2046 if (IMAGE_INSTANCE_SUBWINDOW_ID (p))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2047 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2048 DestroyWindow (WIDGET_INSTANCE_MSWINDOWS_HANDLE (p));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2049 DestroyWindow (IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (p));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2050 IMAGE_INSTANCE_SUBWINDOW_ID (p) = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2051 }
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2052 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2053 else if (p->data)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2054 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2055 int i;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2056 if (IMAGE_INSTANCE_PIXMAP_TIMEOUT (p))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2057 disable_glyph_animated_timeout (IMAGE_INSTANCE_PIXMAP_TIMEOUT (p));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2058
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2059 if (IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICES (p))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2060 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2061 for (i = 0; i < IMAGE_INSTANCE_PIXMAP_MAXSLICE (p); i++)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2062 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2063 if (IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICE (p, i))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2064 DeleteObject (IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICE (p, i));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2065 IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICE (p, i) = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2066 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2067 xfree (IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICES (p));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2068 IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICES (p) = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2069 }
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2070 if (IMAGE_INSTANCE_MSWINDOWS_MASK (p))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2071 DeleteObject (IMAGE_INSTANCE_MSWINDOWS_MASK (p));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2072 IMAGE_INSTANCE_MSWINDOWS_MASK (p) = 0;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2073 if (IMAGE_INSTANCE_MSWINDOWS_ICON (p))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2074 DestroyIcon (IMAGE_INSTANCE_MSWINDOWS_ICON (p));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2075 IMAGE_INSTANCE_MSWINDOWS_ICON (p) = 0;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2076 }
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2077 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2078
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2079 if (p->data)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2080 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2081 xfree (p->data);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2082 p->data = 0;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2083 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2084 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2085
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2086 /************************************************************************/
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2087 /* subwindow and widget support */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2088 /************************************************************************/
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2089
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2090 static HFONT
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2091 mswindows_widget_hfont (Lisp_Image_Instance *p,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2092 Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2093 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2094 Lisp_Object face = IMAGE_INSTANCE_WIDGET_FACE (p);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2095 int under = FACE_UNDERLINE_P (face, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2096 int strike = FACE_STRIKETHRU_P (face, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2097 Lisp_Object font = query_string_font (IMAGE_INSTANCE_WIDGET_TEXT (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2098 face, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2099
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2100 return mswindows_get_hfont (XFONT_INSTANCE (font), under, strike);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2101 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2102
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2103 /* unmap the image if it is a widget. This is used by redisplay via
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2104 redisplay_unmap_subwindows */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2105 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2106 mswindows_unmap_subwindow (Lisp_Image_Instance *p)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2107 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2108 if (IMAGE_INSTANCE_SUBWINDOW_ID (p))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2109 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2110 SetWindowPos (IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2111 NULL,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2112 0, 0, 0, 0,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2113 SWP_HIDEWINDOW | SWP_NOMOVE | SWP_NOSIZE
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2114 | SWP_NOSENDCHANGING);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2115 if (GetFocus() == WIDGET_INSTANCE_MSWINDOWS_HANDLE (p))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2116 SetFocus (GetParent (IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (p)));
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2117 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2118 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2119
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2120 /* map the subwindow. This is used by redisplay via
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2121 redisplay_output_subwindow */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2122 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2123 mswindows_map_subwindow (Lisp_Image_Instance *p, int x, int y,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2124 struct display_glyph_area* dga)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2125 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2126 /* move the window before mapping it ... */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2127 SetWindowPos (IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2128 NULL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2129 x, y, dga->width, dga->height,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2130 SWP_NOZORDER
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2131 | SWP_NOCOPYBITS | SWP_NOSENDCHANGING);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2132 /* ... adjust the child ... */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2133 SetWindowPos (WIDGET_INSTANCE_MSWINDOWS_HANDLE (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2134 NULL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2135 -dga->xoffset, -dga->yoffset, 0, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2136 SWP_NOZORDER | SWP_NOSIZE
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2137 | SWP_NOCOPYBITS | SWP_NOSENDCHANGING);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2138 /* ... now map it - we are not allowed to move it at the same time. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2139 SetWindowPos (IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2140 NULL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2141 0, 0, 0, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2142 SWP_NOZORDER | SWP_NOSIZE | SWP_NOMOVE
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2143 | SWP_SHOWWINDOW | SWP_NOCOPYBITS
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2144 | SWP_NOSENDCHANGING);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2145 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2146
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2147 /* resize the subwindow instance */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2148 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2149 mswindows_resize_subwindow (Lisp_Image_Instance* ii, int w, int h)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2150 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2151 /* Set the size of the control .... */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2152 SetWindowPos (WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2153 NULL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2154 0, 0, w, h,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2155 SWP_NOZORDER | SWP_NOMOVE
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2156 | SWP_NOCOPYBITS | SWP_NOSENDCHANGING);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2157 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2158
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2159 /* Simply resize the window here. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2160 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2161 mswindows_update_subwindow (Lisp_Image_Instance *p)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2162 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2163 mswindows_resize_subwindow (p,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2164 IMAGE_INSTANCE_WIDTH (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2165 IMAGE_INSTANCE_HEIGHT (p));
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2166 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2167
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2168 /* when you click on a widget you may activate another widget this
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2169 needs to be checked and all appropriate widgets updated */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2170 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2171 mswindows_update_widget (Lisp_Image_Instance *p)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2172 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2173 /* Possibly update the face font and colors. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2174 if (IMAGE_INSTANCE_WIDGET_FACE_CHANGED (p))
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2175 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2176 /* set the widget font from the widget face */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2177 SendMessage (WIDGET_INSTANCE_MSWINDOWS_HANDLE (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2178 WM_SETFONT,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2179 (WPARAM) mswindows_widget_hfont
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2180 (p, IMAGE_INSTANCE_SUBWINDOW_FRAME (p)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2181 MAKELPARAM (TRUE, 0));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2182 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2183 /* Possibly update the dimensions. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2184 if (IMAGE_INSTANCE_SIZE_CHANGED (p))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2185 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2186 mswindows_resize_subwindow (p,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2187 IMAGE_INSTANCE_WIDTH (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2188 IMAGE_INSTANCE_HEIGHT (p));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2189 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2190 /* Possibly update the text in the widget. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2191 if (IMAGE_INSTANCE_TEXT_CHANGED (p))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2192 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2193 Extbyte* lparam=0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2194 TO_EXTERNAL_FORMAT (LISP_STRING, IMAGE_INSTANCE_WIDGET_TEXT (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2195 C_STRING_ALLOCA, lparam,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2196 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2197 SendMessage (WIDGET_INSTANCE_MSWINDOWS_HANDLE (p),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2198 WM_SETTEXT, 0, (LPARAM)lparam);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2199 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2200 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2201
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2202 /* register widgets into our hastable so that we can cope with the
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2203 callbacks. The hashtable is weak so deregistration is handled
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2204 automatically */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2205 static int
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2206 mswindows_register_gui_item (Lisp_Object gui, Lisp_Object domain)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2207 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2208 Lisp_Object frame = FW_FRAME (domain);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2209 struct frame* f = XFRAME (frame);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2210 int id = gui_item_id_hash (FRAME_MSWINDOWS_WIDGET_HASH_TABLE (f),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2211 gui,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2212 WIDGET_GLYPH_SLOT);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2213 Fputhash (make_int (id),
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2214 XGUI_ITEM (gui)->callback,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2215 FRAME_MSWINDOWS_WIDGET_HASH_TABLE (f));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2216 return id;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2217 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2218
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2219 static int
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2220 mswindows_register_widget_instance (Lisp_Object instance, Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2221 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2222 return mswindows_register_gui_item (XIMAGE_INSTANCE_WIDGET_ITEM (instance),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2223 domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2224 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2225
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2226 static void
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2227 mswindows_subwindow_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2228 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2229 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2230 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2231 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2232 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2233 struct device* d = XDEVICE (device);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2234 Lisp_Object frame = FW_FRAME (domain);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2235 HWND wnd;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2236
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2237 if (!DEVICE_MSWINDOWS_P (d))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2238 signal_simple_error ("Not an mswindows device", device);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2239
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2240 /* have to set the type this late in case there is no device
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2241 instantiation for a widget */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2242 IMAGE_INSTANCE_TYPE (ii) = IMAGE_SUBWINDOW;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2243 /* Allocate space for the clip window */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2244 ii->data = xnew_and_zero (struct mswindows_subwindow_data);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2245
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2246 if ((IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (ii)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2247 = CreateWindowEx(
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2248 0, /* EX flags */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2249 XEMACS_CONTROL_CLASS,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2250 0, /* text */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2251 WS_CLIPCHILDREN | WS_CLIPSIBLINGS | WS_CHILD,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2252 0, /* starting x position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2253 0, /* starting y position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2254 IMAGE_INSTANCE_WIDGET_WIDTH (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2255 IMAGE_INSTANCE_WIDGET_HEIGHT (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2256 /* parent window */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2257 FRAME_MSWINDOWS_HANDLE (XFRAME (frame)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2258 NULL, /* No menu */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2259 NULL, /* must be null for this class */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2260 NULL)) == NULL)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2261 signal_simple_error ("window creation failed with code",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2262 make_int (GetLastError()));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2263
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2264 wnd = CreateWindow( "STATIC",
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2265 "",
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2266 WS_CHILD,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2267 0, /* starting x position */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2268 0, /* starting y position */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2269 IMAGE_INSTANCE_WIDGET_WIDTH (ii),
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2270 IMAGE_INSTANCE_WIDGET_HEIGHT (ii),
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2271 IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (ii),
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2272 0,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2273 (HINSTANCE)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2274 GetWindowLong (FRAME_MSWINDOWS_HANDLE (XFRAME (frame)),
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2275 GWL_HINSTANCE),
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2276 NULL);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2277
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2278 SetWindowLong (wnd, GWL_USERDATA, (LONG)LISP_TO_VOID(image_instance));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2279 IMAGE_INSTANCE_SUBWINDOW_ID (ii) = wnd;
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2280 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2281
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2282 static int
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2283 mswindows_image_instance_equal (Lisp_Image_Instance *p1,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2284 Lisp_Image_Instance *p2, int depth)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2285 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2286 switch (IMAGE_INSTANCE_TYPE (p1))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2287 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2288 case IMAGE_MONO_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2289 case IMAGE_COLOR_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2290 case IMAGE_POINTER:
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2291 if (IMAGE_INSTANCE_MSWINDOWS_BITMAP (p1)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2292 != IMAGE_INSTANCE_MSWINDOWS_BITMAP (p2))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2293 return 0;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2294 break;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2295
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2296 default:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2297 break;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2298 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2299
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2300 return 1;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2301 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2302
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2303 static unsigned long
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2304 mswindows_image_instance_hash (Lisp_Image_Instance *p, int depth)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2305 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2306 switch (IMAGE_INSTANCE_TYPE (p))
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2307 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2308 case IMAGE_MONO_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2309 case IMAGE_COLOR_PIXMAP:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2310 case IMAGE_POINTER:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2311 return (unsigned long) IMAGE_INSTANCE_MSWINDOWS_BITMAP (p);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2312
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2313 default:
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2314 return 0;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2315 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2316 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2317
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2318 /* Set all the slots in an image instance structure to reasonable
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2319 default values. This is used somewhere within an instantiate
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2320 method. It is assumed that the device slot within the image
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2321 instance is already set -- this is the case when instantiate
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2322 methods are called. */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2323
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2324 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2325 mswindows_initialize_dibitmap_image_instance (Lisp_Image_Instance *ii,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2326 int slices,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2327 enum image_instance_type type)
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2328 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2329 ii->data = xnew_and_zero (struct mswindows_image_instance_data);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2330 IMAGE_INSTANCE_TYPE (ii) = type;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2331 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2332 IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (ii) = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2333 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii) = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2334 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii) = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2335 IMAGE_INSTANCE_PIXMAP_FG (ii) = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2336 IMAGE_INSTANCE_PIXMAP_BG (ii) = Qnil;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2337 IMAGE_INSTANCE_PIXMAP_MAXSLICE (ii) = slices;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2338 IMAGE_INSTANCE_MSWINDOWS_BITMAP_SLICES (ii) =
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2339 xnew_array_and_zero (HBITMAP, slices);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2340 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2341
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2342
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2343 #ifdef HAVE_WIDGETS
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2344
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2345 /************************************************************************/
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2346 /* widgets */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2347 /************************************************************************/
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2348 static void
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2349 mswindows_widget_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2350 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2351 int dest_mask, Lisp_Object domain,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2352 const char* class, int flags, int exflags)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2353 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2354 /* this function can call lisp */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2355 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2356 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii), style;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2357 struct device* d = XDEVICE (device);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2358 Lisp_Object frame = FW_FRAME (domain);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2359 Extbyte* nm=0;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2360 HWND wnd;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2361 int id = 0xffff;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2362 Lisp_Object gui = IMAGE_INSTANCE_WIDGET_ITEM (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2363 Lisp_Gui_Item* pgui = XGUI_ITEM (gui);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2364
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2365 if (!DEVICE_MSWINDOWS_P (d))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2366 signal_simple_error ("Not an mswindows device", device);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2367
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2368 if (!gui_item_active_p (gui))
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2369 flags |= WS_DISABLED;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2370
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2371 style = pgui->style;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2372
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2373 if (!NILP (pgui->callback))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2374 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2375 id = mswindows_register_widget_instance (image_instance, domain);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2376 }
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2377
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2378 if (!NILP (IMAGE_INSTANCE_WIDGET_TEXT (ii)))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2379 TO_EXTERNAL_FORMAT (LISP_STRING, IMAGE_INSTANCE_WIDGET_TEXT (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2380 C_STRING_ALLOCA, nm,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2381 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2382
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2383 /* allocate space for the clip window and then allocate the clip window */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2384 ii->data = xnew_and_zero (struct mswindows_subwindow_data);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2385
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2386 if ((IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (ii)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2387 = CreateWindowEx(
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2388 WS_EX_CONTROLPARENT, /* EX flags */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2389 XEMACS_CONTROL_CLASS,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2390 0, /* text */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2391 WS_CLIPCHILDREN | WS_CLIPSIBLINGS | WS_CHILD,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2392 0, /* starting x position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2393 0, /* starting y position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2394 IMAGE_INSTANCE_WIDGET_WIDTH (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2395 IMAGE_INSTANCE_WIDGET_HEIGHT (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2396 /* parent window */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2397 FRAME_MSWINDOWS_HANDLE (XFRAME (frame)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2398 (HMENU)id, /* No menu */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2399 NULL, /* must be null for this class */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2400 NULL)) == NULL)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2401 signal_simple_error ("window creation failed with code",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2402 make_int (GetLastError()));
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2403
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2404 if ((wnd = CreateWindowEx(
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2405 exflags /* | WS_EX_NOPARENTNOTIFY*/,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2406 class,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2407 nm,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2408 flags | WS_CHILD | WS_VISIBLE,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2409 0, /* starting x position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2410 0, /* starting y position */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2411 IMAGE_INSTANCE_WIDGET_WIDTH (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2412 IMAGE_INSTANCE_WIDGET_HEIGHT (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2413 /* parent window */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2414 IMAGE_INSTANCE_MSWINDOWS_CLIPWINDOW (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2415 (HMENU)id, /* No menu */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2416 (HINSTANCE)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2417 GetWindowLong
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2418 (FRAME_MSWINDOWS_HANDLE (XFRAME (frame)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2419 GWL_HINSTANCE),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2420 NULL)) == NULL)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2421 signal_simple_error ("window creation failed with code",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2422 make_int (GetLastError()));
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2423
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2424 IMAGE_INSTANCE_SUBWINDOW_ID (ii) = wnd;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2425 SetWindowLong (wnd, GWL_USERDATA, (LONG)LISP_TO_VOID(image_instance));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2426 /* set the widget font from the widget face */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2427 SendMessage (wnd, WM_SETFONT,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2428 (WPARAM) mswindows_widget_hfont (ii, domain),
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2429 MAKELPARAM (TRUE, 0));
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2430 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2431
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2432 /* Instantiate a button widget. Unfortunately instantiated widgets are
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2433 particular to a frame since they need to have a parent. It's not
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2434 like images where you just select the image into the context you
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2435 want to display it in and BitBlt it. So image instances can have a
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2436 many-to-one relationship with things you see, whereas widgets can
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2437 only be one-to-one (i.e. per frame) */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2438 static void
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2439 mswindows_button_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2440 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2441 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2442 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2443 /* this function can call lisp */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2444 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2445 HWND wnd;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2446 int flags = WS_TABSTOP;/* BS_NOTIFY #### is needed to get exotic feedback
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2447 only. Since we seem to want nothing beyond BN_CLICK,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2448 the style is perhaps not necessary -- kkm */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2449 Lisp_Object style;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2450 Lisp_Object gui = IMAGE_INSTANCE_WIDGET_ITEM (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2451 Lisp_Gui_Item* pgui = XGUI_ITEM (gui);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2452 Lisp_Object glyph = find_keyword_in_vector (instantiator, Q_image);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2453
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2454 if (!NILP (glyph))
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2455 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2456 if (!IMAGE_INSTANCEP (glyph))
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2457 glyph = glyph_image_instance (glyph, domain, ERROR_ME, 1);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2458
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2459 if (IMAGE_INSTANCEP (glyph))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2460 flags |= XIMAGE_INSTANCE_MSWINDOWS_BITMAP (glyph) ?
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2461 BS_BITMAP : BS_ICON;
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2462 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2463
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2464 style = pgui->style;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2465
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2466 /* #### consider using the default face for radio and toggle
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2467 buttons. */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2468 if (EQ (style, Qradio))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2469 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2470 flags |= BS_RADIOBUTTON;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2471 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2472 else if (EQ (style, Qtoggle))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2473 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2474 flags |= BS_AUTOCHECKBOX;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2475 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2476 else
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2477 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2478 flags |= BS_DEFPUSHBUTTON;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2479 }
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2480
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2481 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2482 pointer_bg, dest_mask, domain, "BUTTON",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2483 flags, 0);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2484
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2485 wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2486 /* set the checked state */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2487 if (gui_item_selected_p (gui))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2488 SendMessage (wnd, BM_SETCHECK, (WPARAM)BST_CHECKED, 0);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2489 else
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2490 SendMessage (wnd, BM_SETCHECK, (WPARAM)BST_UNCHECKED, 0);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2491 /* add the image if one was given */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2492 if (!NILP (glyph) && IMAGE_INSTANCEP (glyph)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2493 &&
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2494 IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (glyph)))
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2495 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2496 SendMessage (wnd, BM_SETIMAGE,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2497 (WPARAM) (XIMAGE_INSTANCE_MSWINDOWS_BITMAP (glyph) ?
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2498 IMAGE_BITMAP : IMAGE_ICON),
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2499 (XIMAGE_INSTANCE_MSWINDOWS_BITMAP (glyph) ?
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2500 (LPARAM) XIMAGE_INSTANCE_MSWINDOWS_BITMAP (glyph) :
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2501 (LPARAM) XIMAGE_INSTANCE_MSWINDOWS_ICON (glyph)));
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2502 }
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2503 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2504
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2505 /* Update the state of a button. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2506 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2507 mswindows_button_update (Lisp_Object image_instance)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2508 {
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2509 /* This function can GC if IN_REDISPLAY is false. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2510 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2511
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2512 /* buttons checked or otherwise */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2513 if (gui_item_selected_p (IMAGE_INSTANCE_WIDGET_ITEM (ii)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2514 SendMessage (WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2515 BM_SETCHECK, (WPARAM)BST_CHECKED, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2516 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2517 SendMessage (WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2518 BM_SETCHECK, (WPARAM)BST_UNCHECKED, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2519 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2520
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2521 /* instantiate an edit control */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2522 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2523 mswindows_edit_field_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2524 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2525 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2526 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2527 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2528 pointer_bg, dest_mask, domain, "EDIT",
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2529 ES_LEFT | ES_AUTOHSCROLL | WS_TABSTOP
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2530 | WS_BORDER, WS_EX_CLIENTEDGE);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2531 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2532
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2533 /* instantiate a progress gauge */
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2534 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2535 mswindows_progress_gauge_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2536 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2537 int dest_mask, Lisp_Object domain)
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2538 {
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2539 HWND wnd;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2540 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2541 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2542 pointer_bg, dest_mask, domain, PROGRESS_CLASS,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2543 WS_BORDER | PBS_SMOOTH, WS_EX_CLIENTEDGE);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2544 wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2545 /* set the colors */
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2546 #ifdef PBS_SETBKCOLOR
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2547 SendMessage (wnd, PBS_SETBKCOLOR, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2548 (LPARAM) (COLOR_INSTANCE_MSWINDOWS_COLOR
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2549 (XCOLOR_INSTANCE
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2550 (FACE_BACKGROUND
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2551 (XIMAGE_INSTANCE_WIDGET_FACE (ii),
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2552 XIMAGE_INSTANCE_SUBWINDOW_FRAME (ii))))));
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2553 #endif
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2554 #ifdef PBS_SETBARCOLOR
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2555 SendMessage (wnd, PBS_SETBARCOLOR, 0,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2556 (L:PARAM) (COLOR_INSTANCE_MSWINDOWS_COLOR
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2557 (XCOLOR_INSTANCE
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2558 (FACE_FOREGROUND
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2559 (XIMAGE_INSTANCE_WIDGET_FACE (ii),
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2560 XIMAGE_INSTANCE_SUBWINDOW_FRAME (ii))))));
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2561 #endif
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2562 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2563
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2564 /* instantiate a tree view widget */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2565 static HTREEITEM add_tree_item (Lisp_Object image_instance,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2566 HWND wnd, HTREEITEM parent, Lisp_Object item,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2567 int children, Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2568 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2569 TV_INSERTSTRUCT tvitem;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2570 HTREEITEM ret;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2571
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2572 tvitem.hParent = parent;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2573 tvitem.hInsertAfter = TVI_LAST;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2574 tvitem.item.mask = TVIF_TEXT | TVIF_CHILDREN;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2575 tvitem.item.cChildren = children;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2576
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2577 if (GUI_ITEMP (item))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2578 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2579 tvitem.item.lParam = mswindows_register_gui_item (item, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2580 tvitem.item.mask |= TVIF_PARAM;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2581 TO_EXTERNAL_FORMAT (LISP_STRING, XGUI_ITEM (item)->name,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2582 C_STRING_ALLOCA, tvitem.item.pszText,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2583 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2584 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2585 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2586 TO_EXTERNAL_FORMAT (LISP_STRING, item,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2587 C_STRING_ALLOCA, tvitem.item.pszText,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2588 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2589
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2590 tvitem.item.cchTextMax = strlen (tvitem.item.pszText);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2591
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2592 if ((ret = (HTREEITEM)SendMessage (wnd, TVM_INSERTITEM,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2593 0, (LPARAM)&tvitem)) == 0)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2594 signal_simple_error ("error adding tree view entry", item);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2595
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2596 return ret;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2597 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2598
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2599 static void add_tree_item_list (Lisp_Object image_instance,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2600 HWND wnd, HTREEITEM parent, Lisp_Object list,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2601 Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2602 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2603 Lisp_Object rest;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2604
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2605 /* get the first item */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2606 parent = add_tree_item (image_instance, wnd, parent, XCAR (list), TRUE, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2607 /* recursively add items to the tree view */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2608 LIST_LOOP (rest, XCDR (list))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2609 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2610 if (LISTP (XCAR (rest)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2611 add_tree_item_list (image_instance, wnd, parent, XCAR (rest), domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2612 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2613 add_tree_item (image_instance, wnd, parent, XCAR (rest), FALSE, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2614 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2615 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2616
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2617 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2618 mswindows_tree_view_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2619 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2620 int dest_mask, Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2621 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2622 Lisp_Object rest;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2623 HWND wnd;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2624 HTREEITEM parent;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2625 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2626 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2627 pointer_bg, dest_mask, domain, WC_TREEVIEW,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2628 WS_TABSTOP | WS_BORDER | PBS_SMOOTH
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2629 | TVS_HASLINES | TVS_HASBUTTONS,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2630 WS_EX_CLIENTEDGE);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2631
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2632 wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2633
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2634 /* define a root */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2635 parent = add_tree_item (image_instance, wnd, NULL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2636 XCAR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2637 TRUE, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2638
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2639 /* recursively add items to the tree view */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2640 /* add items to the tab */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2641 LIST_LOOP (rest, XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2642 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2643 if (LISTP (XCAR (rest)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2644 add_tree_item_list (image_instance, wnd, parent, XCAR (rest), domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2645 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2646 add_tree_item (image_instance, wnd, parent, XCAR (rest), FALSE, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2647 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2648 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2649
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2650 /* instantiate a tab control */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2651 static TC_ITEM* add_tab_item (Lisp_Object image_instance,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2652 HWND wnd, Lisp_Object item,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2653 Lisp_Object domain, int i)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2654 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2655 TC_ITEM tvitem, *ret;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2656
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2657 tvitem.mask = TCIF_TEXT;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2658
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2659 if (GUI_ITEMP (item))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2660 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2661 tvitem.lParam = mswindows_register_gui_item (item, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2662 tvitem.mask |= TCIF_PARAM;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2663 TO_EXTERNAL_FORMAT (LISP_STRING, XGUI_ITEM (item)->name,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2664 C_STRING_ALLOCA, tvitem.pszText,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2665 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2666 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2667 else
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2668 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2669 CHECK_STRING (item);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2670 TO_EXTERNAL_FORMAT (LISP_STRING, item,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2671 C_STRING_ALLOCA, tvitem.pszText,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2672 Qnative);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2673 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2674
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2675 tvitem.cchTextMax = strlen (tvitem.pszText);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2676
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2677 if ((ret = (TC_ITEM*)SendMessage (wnd, TCM_INSERTITEM,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2678 i, (LPARAM)&tvitem)) < 0)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2679 signal_simple_error ("error adding tab entry", item);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2680
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2681 return ret;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2682 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2683
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2684 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2685 mswindows_tab_control_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2686 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2687 int dest_mask, Lisp_Object domain)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2688 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2689 Lisp_Object rest;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2690 HWND wnd;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2691 int i = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2692 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2693 Lisp_Object orient = find_keyword_in_vector (instantiator, Q_orientation);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2694 unsigned int flags = WS_TABSTOP;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2695
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2696 if (EQ (orient, Qleft) || EQ (orient, Qright))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2697 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2698 flags |= TCS_VERTICAL | TCS_MULTILINE;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2699 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2700 if (EQ (orient, Qright) || EQ (orient, Qbottom))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2701 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2702 flags |= TCS_BOTTOM;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2703 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2704
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2705 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2706 pointer_bg, dest_mask, domain, WC_TABCONTROL,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2707 /* borders don't suit tabs so well */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2708 flags, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2709
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2710 wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2711 /* add items to the tab */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2712 LIST_LOOP (rest, XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2713 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2714 add_tab_item (image_instance, wnd, XCAR (rest), domain, i);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2715 i++;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2716 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2717 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2718
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2719 /* set the properties of a tab control */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2720 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2721 mswindows_tab_control_update (Lisp_Object image_instance)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2722 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2723 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2724
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2725 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2726 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2727 HWND wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2728 int i = 0;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2729 Lisp_Object rest;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2730
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2731 /* delete the pre-existing items */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2732 SendMessage (wnd, TCM_DELETEALLITEMS, 0, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2733
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2734 /* add items to the tab */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2735 LIST_LOOP (rest, XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2736 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2737 add_tab_item (image_instance, wnd, XCAR (rest),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2738 IMAGE_INSTANCE_SUBWINDOW_FRAME (ii), i);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2739 i++;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2740 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2741 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2742 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2743
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2744 /* instantiate a static control possible for putting other things in */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2745 static void
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2746 mswindows_label_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2747 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2748 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2749 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2750 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2751 pointer_bg, dest_mask, domain, "STATIC",
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2752 0, WS_EX_STATICEDGE);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2753 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2754
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2755 /* instantiate a scrollbar control */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2756 static void
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2757 mswindows_scrollbar_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2758 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2759 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2760 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2761 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2762 pointer_bg, dest_mask, domain, "SCROLLBAR",
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2763 WS_TABSTOP, WS_EX_CLIENTEDGE);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2764 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2765
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2766 /* instantiate a combo control */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2767 static void
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2768 mswindows_combo_box_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2769 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2770 int dest_mask, Lisp_Object domain)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2771 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2772 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2773 HWND wnd;
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2774 Lisp_Object rest;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2775 Lisp_Object data = Fplist_get (find_keyword_in_vector (instantiator, Q_properties),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2776 Q_items, Qnil);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2777 int len, height;
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2778
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2779 /* Maybe ought to generalise this more but it may be very windows
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2780 specific. In windows the window height of a combo box is the
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2781 height when the combo box is open. Thus we need to set the height
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2782 before creating the window and then reset it to a single line
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2783 after the window is created so that redisplay does the right
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2784 thing. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2785 widget_instantiate (image_instance, instantiator, pointer_fg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2786 pointer_bg, dest_mask, domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2787
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2788 /* We now have everything right apart from the height. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2789 default_face_font_info (domain, 0, 0, &height, 0, 0);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2790 GET_LIST_LENGTH (data, len);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2791
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2792 height = (height + WIDGET_BORDER_HEIGHT * 2 ) * len;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2793 IMAGE_INSTANCE_HEIGHT (ii) = height;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2794
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2795 /* Now create the widget. */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2796 mswindows_widget_instantiate (image_instance, instantiator, pointer_fg,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2797 pointer_bg, dest_mask, domain, "COMBOBOX",
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2798 WS_BORDER | WS_TABSTOP | CBS_DROPDOWN
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2799 | CBS_AUTOHSCROLL
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2800 | CBS_HASSTRINGS | WS_VSCROLL,
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2801 WS_EX_CLIENTEDGE);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2802 /* Reset the height. layout will probably do this safely, but better make sure. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2803 image_instance_layout (image_instance,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2804 IMAGE_UNSPECIFIED_GEOMETRY,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2805 IMAGE_UNSPECIFIED_GEOMETRY,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2806 domain);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2807
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2808 wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2809 /* add items to the combo box */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2810 SendMessage (wnd, CB_RESETCONTENT, 0, 0);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2811 LIST_LOOP (rest, Fplist_get (IMAGE_INSTANCE_WIDGET_PROPS (ii), Q_items, Qnil))
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2812 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2813 Extbyte* lparam;
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2814 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (rest),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2815 C_STRING_ALLOCA, lparam,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2816 Qnative);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2817 if (SendMessage (wnd, CB_ADDSTRING, 0, (LPARAM)lparam) == CB_ERR)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2818 signal_simple_error ("error adding combo entries", instantiator);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2819 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2820 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2821
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2822 /* get properties of a control */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2823 static Lisp_Object
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2824 mswindows_widget_property (Lisp_Object image_instance, Lisp_Object prop)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2825 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2826 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2827 HWND wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2828 /* get the text from a control */
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2829 if (EQ (prop, Q_text))
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2830 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2831 Extcount len = SendMessage (wnd, WM_GETTEXTLENGTH, 0, 0);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2832 Extbyte *buf = (Extbyte*) alloca (len+1);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2833
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2834 SendMessage (wnd, WM_GETTEXT, (WPARAM)len+1, (LPARAM) buf);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2835 return build_ext_string (buf, Qnative);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2836 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2837 return Qunbound;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2838 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2839
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2840 /* get properties of a button */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2841 static Lisp_Object
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2842 mswindows_button_property (Lisp_Object image_instance, Lisp_Object prop)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2843 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2844 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2845 HWND wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2846 /* check the state of a button */
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2847 if (EQ (prop, Q_selected))
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2848 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2849 if (SendMessage (wnd, BM_GETSTATE, 0, 0) & BST_CHECKED)
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2850 return Qt;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2851 else
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2852 return Qnil;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2853 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2854 return Qunbound;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2855 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2856
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2857 /* get properties of a combo box */
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2858 static Lisp_Object
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2859 mswindows_combo_box_property (Lisp_Object image_instance, Lisp_Object prop)
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2860 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2861 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2862 HWND wnd = WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2863 /* get the text from a control */
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2864 if (EQ (prop, Q_text))
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2865 {
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2866 long item = SendMessage (wnd, CB_GETCURSEL, 0, 0);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2867 Extcount len = SendMessage (wnd, CB_GETLBTEXTLEN, (WPARAM)item, 0);
400
a86b2b5e0111 Import from CVS: tag r21-2-30
cvs
parents: 398
diff changeset
2868 Extbyte* buf = (Extbyte*) alloca (len+1);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2869 SendMessage (wnd, CB_GETLBTEXT, (WPARAM)item, (LPARAM)buf);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2870 return build_ext_string (buf, Qnative);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2871 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2872 return Qunbound;
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2873 }
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2874
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2875 /* set the properties of a progres guage */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2876 static void
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2877 mswindows_progress_gauge_update (Lisp_Object image_instance)
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2878 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2879 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2880
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2881 if (IMAGE_INSTANCE_WIDGET_PERCENT_CHANGED (ii))
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2882 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2883 /* #### I'm not convinced we should store this in the plist. */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2884 Lisp_Object val = Fplist_get (IMAGE_INSTANCE_WIDGET_PROPS (ii),
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2885 Q_percent, Qnil);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2886 CHECK_INT (val);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2887 SendMessage (WIDGET_INSTANCE_MSWINDOWS_HANDLE (ii),
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2888 PBM_SETPOS, (WPARAM)XINT (val), 0);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2889 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2890 }
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2891
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2892 LRESULT WINAPI
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2893 mswindows_control_wnd_proc (HWND hwnd, UINT msg,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2894 WPARAM wParam, LPARAM lParam)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2895 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2896 switch (msg)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2897 {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2898 case WM_NOTIFY:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2899 case WM_COMMAND:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2900 case WM_CTLCOLORBTN:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2901 case WM_CTLCOLORLISTBOX:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2902 case WM_CTLCOLOREDIT:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2903 case WM_CTLCOLORSTATIC:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2904 case WM_CTLCOLORSCROLLBAR:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2905
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2906 return mswindows_wnd_proc (GetParent (hwnd), msg, wParam, lParam);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2907 default:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2908 return DefWindowProc (hwnd, msg, wParam, lParam);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2909 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2910 }
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2911
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2912 #endif /* HAVE_WIDGETS */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2913
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2914
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2915 /************************************************************************/
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2916 /* initialization */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2917 /************************************************************************/
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2918
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2919 void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2920 syms_of_glyphs_mswindows (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2921 {
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
2922 defkeyword (&Q_resource_id, ":resource-id");
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
2923 defkeyword (&Q_resource_type, ":resource-type");
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2924 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2925
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2926 void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2927 console_type_create_glyphs_mswindows (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2928 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2929 /* image methods */
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2930
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2931 CONSOLE_HAS_METHOD (mswindows, print_image_instance);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2932 CONSOLE_HAS_METHOD (mswindows, finalize_image_instance);
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2933 CONSOLE_HAS_METHOD (mswindows, unmap_subwindow);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2934 CONSOLE_HAS_METHOD (mswindows, map_subwindow);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2935 CONSOLE_HAS_METHOD (mswindows, update_subwindow);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2936 CONSOLE_HAS_METHOD (mswindows, update_widget);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2937 CONSOLE_HAS_METHOD (mswindows, image_instance_equal);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2938 CONSOLE_HAS_METHOD (mswindows, image_instance_hash);
278
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
2939 CONSOLE_HAS_METHOD (mswindows, init_image_instance_from_eimage);
90d73dddcdc4 Import from CVS: tag r21-0b37
cvs
parents: 276
diff changeset
2940 CONSOLE_HAS_METHOD (mswindows, locate_pixmap_file);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2941 CONSOLE_HAS_METHOD (mswindows, resize_subwindow);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2942 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2943
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2944 void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2945 image_instantiator_format_create_glyphs_mswindows (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2946 {
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2947 IIFORMAT_VALID_CONSOLE (mswindows, nothing);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2948 IIFORMAT_VALID_CONSOLE (mswindows, string);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2949 IIFORMAT_VALID_CONSOLE (mswindows, layout);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2950 IIFORMAT_VALID_CONSOLE (mswindows, formatted_string);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2951 IIFORMAT_VALID_CONSOLE (mswindows, inherit);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
2952 /* image-instantiator types */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2953 #ifdef HAVE_XPM
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2954 INITIALIZE_DEVICE_IIFORMAT (mswindows, xpm);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2955 IIFORMAT_HAS_DEVMETHOD (mswindows, xpm, instantiate);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2956 #endif
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2957 INITIALIZE_DEVICE_IIFORMAT (mswindows, xbm);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2958 IIFORMAT_HAS_DEVMETHOD (mswindows, xbm, instantiate);
388
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2959 #ifdef HAVE_XFACE
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2960 INITIALIZE_DEVICE_IIFORMAT (mswindows, xface);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2961 IIFORMAT_HAS_DEVMETHOD (mswindows, xface, instantiate);
aabb7f5b1c81 Import from CVS: tag r21-2-9
cvs
parents: 384
diff changeset
2962 #endif
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2963 #ifdef HAVE_JPEG
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2964 IIFORMAT_VALID_CONSOLE (mswindows, jpeg);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2965 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2966 #ifdef HAVE_TIFF
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2967 IIFORMAT_VALID_CONSOLE (mswindows, tiff);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2968 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2969 #ifdef HAVE_PNG
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2970 IIFORMAT_VALID_CONSOLE (mswindows, png);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2971 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2972 #ifdef HAVE_GIF
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2973 IIFORMAT_VALID_CONSOLE (mswindows, gif);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2974 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2975 #ifdef HAVE_WIDGETS
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2976 /* button widget */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2977 INITIALIZE_DEVICE_IIFORMAT (mswindows, button);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2978 IIFORMAT_HAS_DEVMETHOD (mswindows, button, property);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2979 IIFORMAT_HAS_DEVMETHOD (mswindows, button, instantiate);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2980 IIFORMAT_HAS_DEVMETHOD (mswindows, button, update);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2981
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2982 INITIALIZE_DEVICE_IIFORMAT (mswindows, edit_field);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2983 IIFORMAT_HAS_DEVMETHOD (mswindows, edit_field, instantiate);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2984
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2985 INITIALIZE_DEVICE_IIFORMAT (mswindows, subwindow);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2986 IIFORMAT_HAS_DEVMETHOD (mswindows, subwindow, instantiate);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2987
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2988 INITIALIZE_DEVICE_IIFORMAT (mswindows, widget);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2989 IIFORMAT_HAS_DEVMETHOD (mswindows, widget, property);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2990
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2991 /* label */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2992 INITIALIZE_DEVICE_IIFORMAT (mswindows, label);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2993 IIFORMAT_HAS_DEVMETHOD (mswindows, label, instantiate);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
2994
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2995 /* combo box */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2996 INITIALIZE_DEVICE_IIFORMAT (mswindows, combo_box);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2997 IIFORMAT_HAS_DEVMETHOD (mswindows, combo_box, property);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2998 IIFORMAT_HAS_DEVMETHOD (mswindows, combo_box, instantiate);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
2999
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3000 /* scrollbar */
384
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
3001 INITIALIZE_DEVICE_IIFORMAT (mswindows, scrollbar);
bbff43aa5eb7 Import from CVS: tag r21-2-7
cvs
parents: 382
diff changeset
3002 IIFORMAT_HAS_DEVMETHOD (mswindows, scrollbar, instantiate);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3003
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3004 /* progress gauge */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3005 INITIALIZE_DEVICE_IIFORMAT (mswindows, progress_gauge);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3006 IIFORMAT_HAS_DEVMETHOD (mswindows, progress_gauge, update);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3007 IIFORMAT_HAS_DEVMETHOD (mswindows, progress_gauge, instantiate);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3008
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3009 /* tree view widget */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3010 INITIALIZE_DEVICE_IIFORMAT (mswindows, tree_view);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3011 /* IIFORMAT_HAS_DEVMETHOD (mswindows, progress, set_property);*/
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3012 IIFORMAT_HAS_DEVMETHOD (mswindows, tree_view, instantiate);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3013
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3014 /* tab control widget */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3015 INITIALIZE_DEVICE_IIFORMAT (mswindows, tab_control);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3016 IIFORMAT_HAS_DEVMETHOD (mswindows, tab_control, instantiate);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3017 IIFORMAT_HAS_DEVMETHOD (mswindows, tab_control, update);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3018 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3019 /* windows bitmap format */
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3020 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (bmp, "bmp");
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3021 IIFORMAT_HAS_METHOD (bmp, validate);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3022 IIFORMAT_HAS_METHOD (bmp, normalize);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3023 IIFORMAT_HAS_METHOD (bmp, possible_dest_types);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3024 IIFORMAT_HAS_METHOD (bmp, instantiate);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3025
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3026 IIFORMAT_VALID_KEYWORD (bmp, Q_data, check_valid_string);
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3027 IIFORMAT_VALID_KEYWORD (bmp, Q_file, check_valid_string);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3028 IIFORMAT_VALID_CONSOLE (mswindows, bmp);
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3029
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3030 /* mswindows resources */
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3031 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (mswindows_resource,
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3032 "mswindows-resource");
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
3033
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3034 IIFORMAT_HAS_METHOD (mswindows_resource, validate);
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3035 IIFORMAT_HAS_METHOD (mswindows_resource, normalize);
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3036 IIFORMAT_HAS_METHOD (mswindows_resource, possible_dest_types);
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3037 IIFORMAT_HAS_METHOD (mswindows_resource, instantiate);
284
558f606b08ae Import from CVS: tag r21-0b40
cvs
parents: 282
diff changeset
3038
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3039 IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_resource_type,
286
57709be46d1b Import from CVS: tag r21-0b41
cvs
parents: 284
diff changeset
3040 check_valid_resource_symbol);
304
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3041 IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_resource_id, check_valid_resource_id);
c6de09ad3017 Import from CVS: tag r21-0b50
cvs
parents: 298
diff changeset
3042 IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_file, check_valid_string);
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents: 396
diff changeset
3043 IIFORMAT_VALID_CONSOLE (mswindows, mswindows_resource);
267
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3044 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3045
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3046 void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3047 vars_of_glyphs_mswindows (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3048 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3049 DEFVAR_LISP ("mswindows-bitmap-file-path", &Vmswindows_bitmap_file_path /*
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3050 A list of the directories in which mswindows bitmap files may be found.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3051 This is used by the `make-image-instance' function.
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3052 */ );
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3053 Vmswindows_bitmap_file_path = Qnil;
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3054 }
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3055
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3056 void
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3057 complex_vars_of_glyphs_mswindows (void)
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3058 {
966663fcf606 Import from CVS: tag r20-5b32
cvs
parents:
diff changeset
3059 }