Mercurial > hg > xemacs-beta

comparison src/objects.h @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */ 20 Boston, MA 02111-1307, USA. */
21 21
22 /* Synched up with: Not in FSF. */ 22 /* Synched up with: Not in FSF. */
23 23
24 #ifndef _XEMACS_OBJECTS_H_ 24 #ifndef INCLUDED_objects_h_
25 #define _XEMACS_OBJECTS_H_ 25 #define INCLUDED_objects_h_
26 26
27 #include "specifier.h" 27 #include "specifier.h"
28 28
29 void finalose (void *ptr); 29 void finalose (void *ptr);
30 30
109 109
110 /**************************************************************************** 110 /****************************************************************************
111 * Color Instance Object * 111 * Color Instance Object *
112 ****************************************************************************/ 112 ****************************************************************************/
113 113
114 DECLARE_LRECORD (color_instance, struct Lisp_Color_Instance);
115 #define XCOLOR_INSTANCE(x) \
116 XRECORD (x, color_instance, struct Lisp_Color_Instance)
117 #define XSETCOLOR_INSTANCE(x, p) XSETRECORD (x, p, color_instance)
118 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
119 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
120 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
121
122 EXFUN (Fmake_color_instance, 3); 114 EXFUN (Fmake_color_instance, 3);
123 115
124 extern Lisp_Object Vthe_null_color_instance; 116 extern Lisp_Object Vthe_null_color_instance;
125 117
126 struct Lisp_Color_Instance 118 struct Lisp_Color_Instance
131 123
132 /* console-type-specific data */ 124 /* console-type-specific data */
133 void *data; 125 void *data;
134 }; 126 };
135 127
128 DECLARE_LRECORD (color_instance, Lisp_Color_Instance);
129 #define XCOLOR_INSTANCE(x) XRECORD (x, color_instance, Lisp_Color_Instance)
130 #define XSETCOLOR_INSTANCE(x, p) XSETRECORD (x, p, color_instance)
131 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
132 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
133 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
134
136 #define COLOR_INSTANCE_NAME(c) ((c)->name) 135 #define COLOR_INSTANCE_NAME(c) ((c)->name)
137 #define COLOR_INSTANCE_DEVICE(c) ((c)->device) 136 #define COLOR_INSTANCE_DEVICE(c) ((c)->device)
138 137
139 /**************************************************************************** 138 /****************************************************************************
140 * Font Instance Object * 139 * Font Instance Object *
141 ****************************************************************************/ 140 ****************************************************************************/
142 141
143 DECLARE_LRECORD (font_instance, struct Lisp_Font_Instance); 142 DECLARE_LRECORD (font_instance, Lisp_Font_Instance);
144 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, struct Lisp_Font_Instance) 143 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, Lisp_Font_Instance)
145 #define XSETFONT_INSTANCE(x, p) XSETRECORD (x, p, font_instance) 144 #define XSETFONT_INSTANCE(x, p) XSETRECORD (x, p, font_instance)
146 #define FONT_INSTANCEP(x) RECORDP (x, font_instance) 145 #define FONT_INSTANCEP(x) RECORDP (x, font_instance)
147 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance) 146 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance)
148 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance) 147 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance)
149 148
182 #define FONT_INSTANCE_ASCENT(f) ((f)->ascent) 181 #define FONT_INSTANCE_ASCENT(f) ((f)->ascent)
183 #define FONT_INSTANCE_DESCENT(f) ((f)->descent) 182 #define FONT_INSTANCE_DESCENT(f) ((f)->descent)
184 #define FONT_INSTANCE_WIDTH(f) ((f)->width) 183 #define FONT_INSTANCE_WIDTH(f) ((f)->width)
185 #define FONT_INSTANCE_HEIGHT(f) ((f)->height) 184 #define FONT_INSTANCE_HEIGHT(f) ((f)->height)
186 185
187 #endif /* _XEMACS_OBJECTS_H_ */ 186 #endif /* INCLUDED_objects_h_ */