|
872
|
1 /* Generic object functions -- interface.
|
|
428
|
2 Copyright (C) 1995 Board of Trustees, University of Illinois.
|
|
872
|
3 Copyright (C) 1995, 1996, 2002 Ben Wing.
|
|
428
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to
|
|
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 Boston, MA 02111-1307, USA. */
|
|
|
21
|
|
|
22 /* Synched up with: Not in FSF. */
|
|
|
23
|
|
440
|
24 #ifndef INCLUDED_objects_h_
|
|
|
25 #define INCLUDED_objects_h_
|
|
428
|
26
|
|
|
27 void finalose (void *ptr);
|
|
|
28
|
|
872
|
29 /****************************************************************************
|
|
|
30 * Color Instance Object *
|
|
|
31 ****************************************************************************/
|
|
428
|
32
|
|
872
|
33 DECLARE_LRECORD (color_instance, Lisp_Color_Instance);
|
|
|
34 #define XCOLOR_INSTANCE(x) XRECORD (x, color_instance, Lisp_Color_Instance)
|
|
|
35 #define wrap_color_instance(p) wrap_record (p, color_instance)
|
|
|
36 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
|
|
|
37 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
|
|
|
38 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
|
|
428
|
39
|
|
872
|
40 EXFUN (Fmake_color_instance, 3);
|
|
|
41
|
|
|
42 extern Lisp_Object Vthe_null_color_instance;
|
|
428
|
43
|
|
|
44 void set_color_attached_to (Lisp_Object obj, Lisp_Object face,
|
|
|
45 Lisp_Object property);
|
|
|
46
|
|
872
|
47 /****************************************************************************
|
|
|
48 * Font Instance Object *
|
|
|
49 ****************************************************************************/
|
|
428
|
50
|
|
872
|
51 void initialize_charset_font_caches (struct device *d);
|
|
|
52 void invalidate_charset_font_caches (Lisp_Object charset);
|
|
428
|
53
|
|
872
|
54 DECLARE_LRECORD (font_instance, Lisp_Font_Instance);
|
|
|
55 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, Lisp_Font_Instance)
|
|
|
56 #define wrap_font_instance(p) wrap_record (p, font_instance)
|
|
|
57 #define FONT_INSTANCEP(x) RECORDP (x, font_instance)
|
|
|
58 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance)
|
|
|
59 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance)
|
|
428
|
60
|
|
872
|
61 EXFUN (Fmake_font_instance, 3);
|
|
|
62 EXFUN (Ffont_instance_name, 1);
|
|
|
63 EXFUN (Ffont_instance_p, 1);
|
|
|
64 EXFUN (Ffont_instance_truename, 1);
|
|
|
65
|
|
|
66 extern Lisp_Object Vthe_null_font_instance;
|
|
428
|
67
|
|
|
68 void set_font_attached_to (Lisp_Object obj, Lisp_Object face,
|
|
|
69 Lisp_Object property);
|
|
|
70
|
|
|
71 /*****************************************************************************
|
|
|
72 * Face Boolean Specifier Object *
|
|
|
73 *****************************************************************************/
|
|
|
74
|
|
|
75 void set_face_boolean_attached_to (Lisp_Object obj, Lisp_Object face,
|
|
|
76 Lisp_Object property);
|
|
|
77
|
|
440
|
78 #endif /* INCLUDED_objects_h_ */
|
