git.chise.org Git - chise/xemacs-chise.git.1/blob - src/glyphs-msw.c

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