Mercurial > hg > xemacs-beta
diff src/glyphs-msw.c @ 304:c6de09ad3017 r21-0b50
Import from CVS: tag r21-0b50
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:41:12 +0200 |
parents | 70ad99077275 |
children | 33bdb3d4b97f |
line wrap: on
line diff
--- a/src/glyphs-msw.c Mon Aug 13 10:40:50 2007 +0200 +++ b/src/glyphs-msw.c Mon Aug 13 10:41:12 2007 +0200 @@ -52,8 +52,9 @@ Lisp_Object Vmswindows_bitmap_file_path; static COLORREF transparent_color = RGB (1,1,1); -DEFINE_IMAGE_INSTANTIATOR_FORMAT (resource); +DEFINE_IMAGE_INSTANTIATOR_FORMAT (mswindows_resource); Lisp_Object Q_resource_type, Q_resource_id; +Lisp_Object Qmswindows_resource; static void mswindows_initialize_dibitmap_image_instance (struct Lisp_Image_Instance *ii, @@ -940,7 +941,7 @@ **********************************************************************/ static void -resource_validate (Lisp_Object instantiator) +mswindows_resource_validate (Lisp_Object instantiator) { if ((NILP (find_keyword_in_vector (instantiator, Q_file)) && @@ -952,7 +953,7 @@ } static Lisp_Object -resource_normalize (Lisp_Object inst, Lisp_Object console_type) +mswindows_resource_normalize (Lisp_Object inst, Lisp_Object console_type) { /* This function can call lisp */ Lisp_Object file = Qnil; @@ -980,14 +981,14 @@ } { - Lisp_Object result = alist_to_tagged_vector (Qresource, alist); + Lisp_Object result = alist_to_tagged_vector (Qmswindows_resource, alist); free_alist (alist); RETURN_UNGCPRO (result); } } static int -resource_possible_dest_types (void) +mswindows_resource_possible_dest_types (void) { return IMAGE_POINTER_MASK | IMAGE_COLOR_PIXMAP_MASK; } @@ -1108,7 +1109,7 @@ } static void -resource_instantiate (Lisp_Object image_instance, Lisp_Object instantiator, +mswindows_resource_instantiate (Lisp_Object image_instance, Lisp_Object instantiator, Lisp_Object pointer_fg, Lisp_Object pointer_bg, int dest_mask, Lisp_Object domain) { @@ -1960,24 +1961,25 @@ IIFORMAT_VALID_KEYWORD (bmp, Q_data, check_valid_string); IIFORMAT_VALID_KEYWORD (bmp, Q_file, check_valid_string); - INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (resource, "resource"); + INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (mswindows_resource, + "mswindows-resource"); - IIFORMAT_HAS_METHOD (resource, validate); - IIFORMAT_HAS_METHOD (resource, normalize); - IIFORMAT_HAS_METHOD (resource, possible_dest_types); - IIFORMAT_HAS_METHOD (resource, instantiate); + IIFORMAT_HAS_METHOD (mswindows_resource, validate); + IIFORMAT_HAS_METHOD (mswindows_resource, normalize); + IIFORMAT_HAS_METHOD (mswindows_resource, possible_dest_types); + IIFORMAT_HAS_METHOD (mswindows_resource, instantiate); - IIFORMAT_VALID_KEYWORD (resource, Q_resource_type, + IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_resource_type, check_valid_resource_symbol); - IIFORMAT_VALID_KEYWORD (resource, Q_resource_id, check_valid_resource_id); - IIFORMAT_VALID_KEYWORD (resource, Q_file, check_valid_string); + IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_resource_id, check_valid_resource_id); + IIFORMAT_VALID_KEYWORD (mswindows_resource, Q_file, check_valid_string); } void vars_of_glyphs_mswindows (void) { Fprovide (Qbmp); - Fprovide (Qresource); + Fprovide (Qmswindows_resource); DEFVAR_LISP ("mswindows-bitmap-file-path", &Vmswindows_bitmap_file_path /* A list of the directories in which mswindows bitmap files may be found. This is used by the `make-image-instance' function.