xemacs-beta: src/glyphs.c comparison

comparison src/glyphs.c @ 2959:4eb2a8c07cb3

[xemacs-hg @ 2005-09-27 05:48:22 by ben] Implement color pixmap cursors glyphs.c, glyphs-eimage.c, glyphs-x.c, glyphs-gtk.c, glyphs-msw.c, console-impl.h: Allow all kinds of color images (GIF, JPEG, ...) to be mouse pointers. new -> new_, 'foo -> `foo'.

author	ben
date	Tue, 27 Sep 2005 05:48:27 +0000
parents	6fa9919a9a0b
children	1e7cc382eb16

comparison

equal deleted inserted replaced

-:9e04ad6a1ac6
+:4eb2a8c07cb3
 /* Generic glyph/image implementation + display tables
 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
 Copyright (C) 1995 Tinker Systems
-Copyright (C) 1995, 1996, 2000, 2001, 2002, 2004 Ben Wing
+Copyright (C) 1995, 1996, 2000, 2001, 2002, 2004, 2005 Ben Wing
 Copyright (C) 1995 Sun Microsystems
 Copyright (C) 1998, 1999, 2000 Andy Piper
 This file is part of XEmacs.
 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 /* Synched up with: Not in FSF. */
-/* Written by Ben Wing and Chuck Thompson. Heavily modified /
+/* This file mostly written by Ben Wing, with some code by Chuck Thompson.
-rewritten by Andy Piper. */
+Heavily modified / rewritten by Andy Piper.
+Earliest glyph support, Jamie Zawinski for 19.8?
+subwindow support added by Chuck Thompson
+additional XPM support added by Chuck Thompson
+initial X-Face support added by Stig
+Majorly rewritten/restructured by Ben Wing, including creation of
+glyph and image-instance objects, for 19.12/19.13
+GIF/JPEG/etc. support originally in this file -- see glyph-eimage.c
+Pointer/icon overhaul, more restructuring by Ben Wing for 19.14
+Many changes for color work and optimizations by Jareth Hein for 21.0
+Switch of GIF/JPEG/PNG to new EImage intermediate code by Jareth Hein for 21.0
+TIFF code by Jareth Hein for 21.0
+Generalization for ms-windows by Andy Piper for 21.0
+TODO:
+Convert images.el to C and stick it in here?
+*/
 #include <config.h>
 #include "lisp.h"
 #include "blocktype.h"
 1, 2, 0, /*
 Given an IMAGE-INSTANTIATOR-FORMAT, return non-nil if it is valid.
 If LOCALE is non-nil then the format is checked in that locale.
 If LOCALE is nil the current console is used.
-Valid formats are some subset of 'nothing, 'string, 'formatted-string,
+Valid formats are some subset of `nothing', `string', `formatted-string',
-'xpm, 'xbm, 'xface, 'gif, 'jpeg, 'png, 'tiff, 'cursor-font, 'font,
+`xpm', `xbm', `xface', `gif', `jpeg', `png', `tiff', `cursor-font', `font',
-'autodetect, 'subwindow, 'inherit, 'mswindows-resource, 'bmp,
+`autodetect', `subwindow', `inherit', `mswindows-resource', `bmp',
-'native-layout, 'layout, 'label, 'tab-control, 'tree-view,
+`native-layout', `layout', `label', `tab-control', `tree-view',
-'progress-gauge, 'scrollbar, 'combo-box, 'edit-field, 'button,
+`progress-gauge', `scrollbar', `combo-box', `edit-field', `button',
-'widget, 'pointer, and 'text, depending on how XEmacs was compiled.
+`widget', `pointer', and `text', depending on how XEmacs was compiled.
 */
 (image_instantiator_format, locale))
 {
 return valid_image_instantiator_format_p (image_instantiator_format,
 					    locale) ?
 {
 return find_keyword_in_vector_or_given (vector, keyword, Qnil);
 }
 static Lisp_Object
-find_instantiator_differences (Lisp_Object new, Lisp_Object old)
+find_instantiator_differences (Lisp_Object new_, Lisp_Object old)
 {
 Lisp_Object alist = Qnil;
-Lisp_Object *elt = XVECTOR_DATA (new);
+Lisp_Object *elt = XVECTOR_DATA (new_);
 Lisp_Object *old_elt = XVECTOR_DATA (old);
-int len = XVECTOR_LENGTH (new);
+int len = XVECTOR_LENGTH (new_);
 struct gcpro gcpro1;
 /* If the vector length has changed then consider everything
 changed. We could try and figure out what properties have
 disappeared or been added, but this code is only used as an
 optimization anyway so lets not bother. */
 if (len != XVECTOR_LENGTH (old))
-return new;
+return new_;
 GCPRO1 (alist);
 for (len -= 2; len >= 1; len -= 2)
 {
 return !NILP (memq_no_quit (type, Vimage_instance_type_list));
 }
 DEFUN ("valid-image-instance-type-p", Fvalid_image_instance_type_p, 1, 1, 0, /*
 Given an IMAGE-INSTANCE-TYPE, return non-nil if it is valid.
-Valid types are some subset of 'nothing, 'text, 'mono-pixmap, 'color-pixmap,
+Valid types are some subset of `nothing', `text', `mono-pixmap',
-'pointer, 'subwindow, and 'widget, depending on how XEmacs was compiled.
+`color-pixmap', `pointer', `subwindow', and `widget', depending on how
+XEmacs was compiled.
 */
 (image_instance_type))
 {
 return valid_image_instance_type_p (image_instance_type) ? Qt : Qnil;
 }
 `make-image-specifier' for a description of the allowed values.
 DEST-TYPES should be a list of allowed image instance types that can
 be generated.  The recognized image instance types are
-'nothing
+`nothing'
 Nothing is displayed.
-'text
+`text'
 Displayed as text.  The foreground and background colors and the
 font of the text are specified independent of the pixmap.  Typically
 these attributes will come from the face of the surrounding text,
 unless a face is specified for the glyph in which the image appears.
-'mono-pixmap
+`mono-pixmap'
 Displayed as a mono pixmap (a pixmap with only two colors where the
 foreground and background can be specified independent of the pixmap;
 typically the pixmap assumes the foreground and background colors of
 the text around it, unless a face is specified for the glyph in which
 the image appears).
-'color-pixmap
+`color-pixmap'
 Displayed as a color pixmap.
-'pointer
+`pointer'
 Used as the mouse pointer for a window.
-'subwindow
+`subwindow'
 A child window that is treated as an image.  This allows (e.g.)
 another program to be responsible for drawing into the window.
-'widget
+`widget'
 A child window that contains a window-system widget, e.g. a push
 button, text field, or slider.
 The DEST-TYPES list is unordered.  If multiple destination types are
 possible for a given instantiator, the "most natural" type for the
 return IMAGE_INSTANCEP (object) ? Qt : Qnil;
 }
 DEFUN ("image-instance-type", Fimage_instance_type, 1, 1, 0, /*
 Return the type of the given image instance.
-The return value will be one of 'nothing, 'text, 'mono-pixmap,
+The return value will be one of `nothing', `text', `mono-pixmap',
-'color-pixmap, 'pointer, 'subwindow, or 'widget.
+`color-pixmap', `pointer', `subwindow', or `widget'.
 */
 (image_instance))
 {
 CHECK_IMAGE_INSTANCE (image_instance);
 ERROR_CHECK_IMAGE_INSTANCE (image_instance);
 colors and as specified.  Currently, this only does anything if the image
 instance is a mono pixmap; otherwise, the same image instance is returned.
 */
 (image_instance, foreground, background))
 {
-Lisp_Object new;
+Lisp_Object new_;
 Lisp_Object device;
 CHECK_IMAGE_INSTANCE (image_instance);
 ERROR_CHECK_IMAGE_INSTANCE (image_instance);
 CHECK_COLOR_INSTANCE (foreground);
 if (!HAS_DEVMETH_P (XDEVICE (device), colorize_image_instance))
 return image_instance;
 /* #### There should be a copy_image_instance(), which calls a
 device-specific method to copy the window-system subobject. */
-new = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance),
+new_ = allocate_image_instance (XIMAGE_INSTANCE_DOMAIN (image_instance),
 				 Qnil, Qnil);
 #ifdef MC_ALLOC
-copy_lrecord (XIMAGE_INSTANCE (new), XIMAGE_INSTANCE (image_instance));
+copy_lrecord (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
 #else /* not MC_ALLOC */
-copy_lcrecord (XIMAGE_INSTANCE (new), XIMAGE_INSTANCE (image_instance));
+copy_lcrecord (XIMAGE_INSTANCE (new_), XIMAGE_INSTANCE (image_instance));
 #endif /* not MC_ALLOC */
 /* note that if this method returns non-zero, this method MUST
 copy any window-system resources, so that when one image instance is
 freed, the other one is not hosed. */
-if (!DEVMETH (XDEVICE (device), colorize_image_instance, (new, foreground,
+if (!DEVMETH (XDEVICE (device), colorize_image_instance, (new_, foreground,
 							    background)))
 return image_instance;
-return new;
+return new_;
 }
 /************************************************************************/
 /*                              Geometry calculations                   */
 return GLYPHP (object) ? Qt : Qnil;
 }
 DEFUN ("glyph-type", Fglyph_type, 1, 1, 0, /*
 Return the type of the given glyph.
-The return value will be one of 'buffer, 'pointer, or 'icon.
+The return value will be one of `buffer', `pointer', or `icon'.
 */
 (glyph))
 {
 CHECK_GLYPH (glyph);
 switch (XGLYPH_TYPE (glyph))
 glyph_image_instance (Lisp_Object glyph, Lisp_Object domain,
 		      Error_Behavior errb, int no_quit)
 {
 Lisp_Object specifier = GLYPH_IMAGE (XGLYPH (glyph));
-/* This can never return Qunbound.  All glyphs have 'nothing as
+/* This can never return Qunbound.  All glyphs have `nothing' as
 a fallback. */
 Lisp_Object image_instance = specifier_instance (specifier, Qunbound,
 						   domain, errb, no_quit, 0,
 						   Qzero);
 assert (!UNBOUNDP (image_instance));
 IIFORMAT_HAS_METHOD (xface, normalize);
 IIFORMAT_HAS_METHOD (xface, possible_dest_types);
 IIFORMAT_VALID_KEYWORD (xface, Q_data, check_valid_string);
 IIFORMAT_VALID_KEYWORD (xface, Q_file, check_valid_string);
+IIFORMAT_VALID_KEYWORD (xface, Q_mask_data, check_valid_xbm_inline);
+IIFORMAT_VALID_KEYWORD (xface, Q_mask_file, check_valid_string);
 IIFORMAT_VALID_KEYWORD (xface, Q_hotspot_x, check_valid_int);
 IIFORMAT_VALID_KEYWORD (xface, Q_hotspot_y, check_valid_int);
 IIFORMAT_VALID_KEYWORD (xface, Q_foreground, check_valid_string);
 IIFORMAT_VALID_KEYWORD (xface, Q_background, check_valid_string);
 #endif

Mercurial > hg > xemacs-beta

comparison src/glyphs.c @ 2959:4eb2a8c07cb3