Mercurial > emacs

comparison src/w32fns.c @ 35359:b5a2207901e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(QCconversion): Replaces QCalgorithm. Update copyright.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 17 Jan 2001 13:13:34 +0000
parents 912ea0b8e09b
children 62b578dd28ce
comparison
equal deleted inserted replaced
35358:a96d25a00f5b 35359:b5a2207901e0
1 /* Graphical user interface functions for the Microsoft W32 API. 1 /* Graphical user interface functions for the Microsoft W32 API.
2 Copyright (C) 1989, 92, 93, 94, 95, 1996, 1997, 1998, 1999 2 Copyright (C) 1989, 92, 93, 94, 95, 1996, 1997, 1998, 1999, 2000, 2001
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
7612 /* Keywords. */ 7612 /* Keywords. */
7613 7613
7614 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile; 7614 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground, QCfile;
7615 extern Lisp_Object QCdata; 7615 extern Lisp_Object QCdata;
7616 Lisp_Object QCtype, QCascent, QCmargin, QCrelief; 7616 Lisp_Object QCtype, QCascent, QCmargin, QCrelief;
7617 Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask; 7617 Lisp_Object QCconversion, QCcolor_symbols, QCheuristic_mask;
7618 Lisp_Object QCindex; 7618 Lisp_Object QCindex;
7619 7619
7620 /* Other symbols. */ 7620 /* Other symbols. */
7621 7621
7622 Lisp_Object Qlaplace; 7622 Lisp_Object Qlaplace;
8375 } 8375 }
8376 8376
8377 /* Should we apply an image transformation algorithm? */ 8377 /* Should we apply an image transformation algorithm? */
8378 if (img->pixmap) 8378 if (img->pixmap)
8379 { 8379 {
8380 Lisp_Object algorithm; 8380 Lisp_Object conversion;
8381 8381
8382 algorithm = image_spec_value (spec, QCalgorithm, NULL); 8382 algorithm = image_spec_value (spec, QCconversion, NULL);
8383 if (EQ (algorithm, Qdisabled)) 8383 if (EQ (conversion, Qdisabled))
8384 x_disable_image (f, img); 8384 x_disable_image (f, img);
8385 else if (EQ (algorithm, Qlaplace)) 8385 else if (EQ (conversion, Qlaplace))
8386 x_laplace (f, img); 8386 x_laplace (f, img);
8387 else if (EQ (algorithm, Qemboss)) 8387 else if (EQ (conversion, Qemboss))
8388 x_emboss (f, img); 8388 x_emboss (f, img);
8389 else if (CONSP (algorithm) 8389 else if (CONSP (conversion)
8390 && EQ (XCAR (algorithm), Qedge_detection)) 8390 && EQ (XCAR (conversion), Qedge_detection))
8391 { 8391 {
8392 Lisp_Object tem; 8392 Lisp_Object tem;
8393 tem = XCDR (algorithm); 8393 tem = XCDR (conversion);
8394 if (CONSP (tem)) 8394 if (CONSP (tem))
8395 x_edge_detection (f, img, 8395 x_edge_detection (f, img,
8396 Fplist_get (tem, QCmatrix), 8396 Fplist_get (tem, QCmatrix),
8397 Fplist_get (tem, QCcolor_adjustment)); 8397 Fplist_get (tem, QCcolor_adjustment));
8398 } 8398 }
8652 {":foreground", IMAGE_STRING_VALUE, 0}, 8652 {":foreground", IMAGE_STRING_VALUE, 0},
8653 {":background", IMAGE_STRING_VALUE, 0}, 8653 {":background", IMAGE_STRING_VALUE, 0},
8654 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 8654 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
8655 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 8655 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
8656 {":relief", IMAGE_INTEGER_VALUE, 0}, 8656 {":relief", IMAGE_INTEGER_VALUE, 0},
8657 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 8657 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
8658 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 8658 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
8659 }; 8659 };
8660 8660
8661 /* Structure describing the image type XBM. */ 8661 /* Structure describing the image type XBM. */
8662 8662
9242 {":file", IMAGE_STRING_VALUE, 0}, 9242 {":file", IMAGE_STRING_VALUE, 0},
9243 {":data", IMAGE_STRING_VALUE, 0}, 9243 {":data", IMAGE_STRING_VALUE, 0},
9244 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 9244 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
9245 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 9245 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
9246 {":relief", IMAGE_INTEGER_VALUE, 0}, 9246 {":relief", IMAGE_INTEGER_VALUE, 0},
9247 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 9247 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
9248 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 9248 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
9249 {":color-symbols", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 9249 {":color-symbols", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
9250 }; 9250 };
9251 9251
9252 /* Structure describing the image type XBM. */ 9252 /* Structure describing the image type XBM. */
9932 {":file", IMAGE_STRING_VALUE, 0}, 9932 {":file", IMAGE_STRING_VALUE, 0},
9933 {":data", IMAGE_STRING_VALUE, 0}, 9933 {":data", IMAGE_STRING_VALUE, 0},
9934 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 9934 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
9935 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 9935 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
9936 {":relief", IMAGE_INTEGER_VALUE, 0}, 9936 {":relief", IMAGE_INTEGER_VALUE, 0},
9937 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 9937 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
9938 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 9938 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
9939 }; 9939 };
9940 9940
9941 /* Structure describing the image type `pbm'. */ 9941 /* Structure describing the image type `pbm'. */
9942 9942
10288 {":data", IMAGE_STRING_VALUE, 0}, 10288 {":data", IMAGE_STRING_VALUE, 0},
10289 {":file", IMAGE_STRING_VALUE, 0}, 10289 {":file", IMAGE_STRING_VALUE, 0},
10290 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 10290 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
10291 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 10291 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
10292 {":relief", IMAGE_INTEGER_VALUE, 0}, 10292 {":relief", IMAGE_INTEGER_VALUE, 0},
10293 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 10293 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
10294 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 10294 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
10295 }; 10295 };
10296 10296
10297 /* Structure describing the image type `png'. */ 10297 /* Structure describing the image type `png'. */
10298 10298
10774 {":data", IMAGE_STRING_VALUE, 0}, 10774 {":data", IMAGE_STRING_VALUE, 0},
10775 {":file", IMAGE_STRING_VALUE, 0}, 10775 {":file", IMAGE_STRING_VALUE, 0},
10776 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 10776 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
10777 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 10777 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
10778 {":relief", IMAGE_INTEGER_VALUE, 0}, 10778 {":relief", IMAGE_INTEGER_VALUE, 0},
10779 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 10779 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
10780 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 10780 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
10781 }; 10781 };
10782 10782
10783 /* Structure describing the image type `jpeg'. */ 10783 /* Structure describing the image type `jpeg'. */
10784 10784
11137 {":data", IMAGE_STRING_VALUE, 0}, 11137 {":data", IMAGE_STRING_VALUE, 0},
11138 {":file", IMAGE_STRING_VALUE, 0}, 11138 {":file", IMAGE_STRING_VALUE, 0},
11139 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 11139 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
11140 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 11140 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
11141 {":relief", IMAGE_INTEGER_VALUE, 0}, 11141 {":relief", IMAGE_INTEGER_VALUE, 0},
11142 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 11142 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
11143 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 11143 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
11144 }; 11144 };
11145 11145
11146 /* Structure describing the image type `tiff'. */ 11146 /* Structure describing the image type `tiff'. */
11147 11147
11456 {":data", IMAGE_STRING_VALUE, 0}, 11456 {":data", IMAGE_STRING_VALUE, 0},
11457 {":file", IMAGE_STRING_VALUE, 0}, 11457 {":file", IMAGE_STRING_VALUE, 0},
11458 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 11458 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
11459 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 11459 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
11460 {":relief", IMAGE_INTEGER_VALUE, 0}, 11460 {":relief", IMAGE_INTEGER_VALUE, 0},
11461 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 11461 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
11462 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 11462 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
11463 {":image", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0} 11463 {":image", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}
11464 }; 11464 };
11465 11465
11466 /* Structure describing the image type `gif'. */ 11466 /* Structure describing the image type `gif'. */
11771 {":loader", IMAGE_FUNCTION_VALUE, 0}, 11771 {":loader", IMAGE_FUNCTION_VALUE, 0},
11772 {":bounding-box", IMAGE_DONT_CHECK_VALUE_TYPE, 1}, 11772 {":bounding-box", IMAGE_DONT_CHECK_VALUE_TYPE, 1},
11773 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0}, 11773 {":ascent", IMAGE_NON_NEGATIVE_INTEGER_VALUE, 0},
11774 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0}, 11774 {":margin", IMAGE_POSITIVE_INTEGER_VALUE_OR_PAIR, 0},
11775 {":relief", IMAGE_INTEGER_VALUE, 0}, 11775 {":relief", IMAGE_INTEGER_VALUE, 0},
11776 {":algorithm", IMAGE_DONT_CHECK_VALUE_TYPE, 0}, 11776 {":conversion", IMAGE_DONT_CHECK_VALUE_TYPE, 0},
11777 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0} 11777 {":heuristic-mask", IMAGE_DONT_CHECK_VALUE_TYPE, 0}
11778 }; 11778 };
11779 11779
11780 /* Structure describing the image type `ghostscript'. */ 11780 /* Structure describing the image type `ghostscript'. */
11781 11781
13839 /* Images. */ 13839 /* Images. */
13840 Qxbm = intern ("xbm"); 13840 Qxbm = intern ("xbm");
13841 staticpro (&Qxbm); 13841 staticpro (&Qxbm);
13842 QCtype = intern (":type"); 13842 QCtype = intern (":type");
13843 staticpro (&QCtype); 13843 staticpro (&QCtype);
13844 QCalgorithm = intern (":algorithm"); 13844 QCconversion = intern (":conversion");
13845 staticpro (&QCalgorithm); 13845 staticpro (&QCconversion);
13846 QCheuristic_mask = intern (":heuristic-mask"); 13846 QCheuristic_mask = intern (":heuristic-mask");
13847 staticpro (&QCheuristic_mask); 13847 staticpro (&QCheuristic_mask);
13848 QCcolor_symbols = intern (":color-symbols"); 13848 QCcolor_symbols = intern (":color-symbols");
13849 staticpro (&QCcolor_symbols); 13849 staticpro (&QCcolor_symbols);
13850 QCascent = intern (":ascent"); 13850 QCascent = intern (":ascent");