annotate src/glyphs.h @ 826:6728e641994e

[xemacs-hg @ 2002-05-05 11:30:15 by ben] syntax cache, 8-bit-format, lots of code cleanup README.packages: Update info about --package-path. i.c: Create an inheritable event and pass it on to XEmacs, so that ^C can be handled properly. Intercept ^C and signal the event. "Stop Build" in VC++ now works. bytecomp-runtime.el: Doc string changes. compat.el: Some attempts to redo this to make it truly useful and fix the "multiple versions interacting with each other" problem. Not yet done. Currently doesn't work. files.el: Use with-obsolete-variable to avoid warnings in new revert-buffer code. xemacs.mak: Split up CFLAGS into a version without flags specifying the C library. The problem seems to be that minitar depends on zlib, which depends specifically on libc.lib, not on any of the other C libraries. Unless you compile with libc.lib, you get errors -- specifically, no _errno in the other libraries, which must make it something other than an int. (#### But this doesn't seem to obtain in XEmacs, which also uses zlib, and can be linked with any of the C libraries. Maybe zlib is used differently and doesn't need errno, or maybe XEmacs provides an int errno; ... I don't understand. Makefile.in.in: Fix so that packages are around when testing. abbrev.c, alloc.c, buffer.c, buffer.h, bytecode.c, callint.c, casefiddle.c, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, cmds.c, console-msw.h, console-stream.c, console-x.c, console.c, console.h, data.c, device-msw.c, device.c, device.h, dialog-msw.c, dialog-x.c, dired-msw.c, dired.c, doc.c, doprnt.c, dumper.c, editfns.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, events.h, extents.c, extents.h, faces.c, file-coding.c, file-coding.h, fileio.c, fns.c, font-lock.c, frame-gtk.c, frame-msw.c, frame-x.c, frame.c, frame.h, glade.c, glyphs-gtk.c, glyphs-msw.c, glyphs-msw.h, glyphs-x.c, glyphs.c, glyphs.h, gui-msw.c, gui-x.c, gui.h, gutter.h, hash.h, indent.c, insdel.c, intl-win32.c, intl.c, keymap.c, lisp-disunion.h, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, marker.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, mule-ccl.c, mule-charset.c, mule-coding.c, mule-wnnfns.c, nas.c, objects-msw.c, objects-x.c, opaque.c, postgresql.c, print.c, process-nt.c, process-unix.c, process.c, process.h, profile.c, rangetab.c, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-x.c, redisplay.c, redisplay.h, regex.c, regex.h, scrollbar-msw.c, search.c, select-x.c, specifier.c, specifier.h, symbols.c, symsinit.h, syntax.c, syntax.h, syswindows.h, tests.c, text.c, text.h, tooltalk.c, ui-byhand.c, ui-gtk.c, unicode.c, win32.c, window.c: Another big Ben patch. -- FUNCTIONALITY CHANGES: add partial support for 8-bit-fixed, 16-bit-fixed, and 32-bit-fixed formats. not quite done yet. (in particular, needs functions to actually convert the buffer.) NOTE: lots of changes to regex.c here. also, many new *_fmt() inline funs that take an Internal_Format argument. redo syntax cache code. make the cache per-buffer; keep the cache valid across calls to functions that use it. also keep it valid across insertions/deletions and extent changes, as much as is possible. eliminate the junky regex-reentrancy code by passing in the relevant lisp info to the regex routines as local vars. add general mechanism in extents code for signalling extent changes. fix numerous problems with the case-table implementation; yoshiki never properly transferred many algorithms from old-style to new-style case tables. redo char tables to support a default argument, so that mapping only occurs over changed args. change many chartab functions to accept Lisp_Object instead of Lisp_Char_Table *. comment out the code in font-lock.c by default, because font-lock.el no longer uses it. we should consider eliminating it entirely. Don't output bell as ^G in console-stream when not a TTY. add -mswindows-termination-handle to interface with i.c, so we can properly kill a build. add more error-checking to buffer/string macros. add some additional buffer_or_string_() funs. -- INTERFACE CHANGES AFFECTING MORE CODE: switch the arguments of write_c_string and friends to be consistent with write_fmt_string, which must have printcharfun first. change BI_* macros to BYTE_* for increased clarity; similarly for bi_* local vars. change VOID_TO_LISP to be a one-argument function. eliminate no-longer-needed CVOID_TO_LISP. -- char/string macro changes: rename MAKE_CHAR() to make_emchar() for slightly less confusion with make_char(). (The former generates an Emchar, the latter a Lisp object. Conceivably we should rename make_char() -> wrap_char() and similarly for make_int(), make_float().) Similar changes for other *CHAR* macros -- we now consistently use names with `emchar' whenever we are working with Emchars. Any remaining name with just `char' always refers to a Lisp object. rename macros with XSTRING_* to string_* except for those that reference actual fields in the Lisp_String object, following conventions used elsewhere. rename set_string_{data,length} macros (the only ones to work with a Lisp_String_* instead of a Lisp_Object) to set_lispstringp_* to make the difference clear. try to be consistent about caps vs. lowercase in macro/inline-fun names for chars and such, which wasn't the case before. we now reserve caps either for XFOO_ macros that reference object fields (e.g. XSTRING_DATA) or for things that have non-function semantics, e.g. directly modifying an arg (BREAKUP_EMCHAR) or evaluating an arg (any arg) more than once. otherwise, use lowercase. here is a summary of most of the macros/inline funs changed by all of the above changes: BYTE_*_P -> byte_*_p XSTRING_BYTE -> string_byte set_string_data/length -> set_lispstringp_data/length XSTRING_CHAR_LENGTH -> string_char_length XSTRING_CHAR -> string_emchar INTBYTE_FIRST_BYTE_P -> intbyte_first_byte_p INTBYTE_LEADING_BYTE_P -> intbyte_leading_byte_p charptr_copy_char -> charptr_copy_emchar LEADING_BYTE_* -> leading_byte_* CHAR_* -> EMCHAR_* *_CHAR_* -> *_EMCHAR_* *_CHAR -> *_EMCHAR CHARSET_BY_ -> charset_by_* BYTE_SHIFT_JIS* -> byte_shift_jis* BYTE_BIG5* -> byte_big5* REP_BYTES_BY_FIRST_BYTE -> rep_bytes_by_first_byte char_to_unicode -> emchar_to_unicode valid_char_p -> valid_emchar_p Change intbyte_strcmp -> qxestrcmp_c (duplicated functionality). -- INTERFACE CHANGES AFFECTING LESS CODE: use DECLARE_INLINE_HEADER in various places. remove '#ifdef emacs' from XEmacs-only files. eliminate CHAR_TABLE_VALUE(), which duplicated the functionality of get_char_table(). add BUFFER_TEXT_LOOP to simplify iterations over buffer text. define typedefs for signed and unsigned types of fixed sizes (INT_32_BIT, UINT_32_BIT, etc.). create ALIGN_FOR_TYPE as a higher-level interface onto ALIGN_SIZE; fix code to use it. add charptr_emchar_len to return the text length of the character pointed to by a ptr; use it in place of charcount_to_bytecount(..., 1). add emchar_len to return the text length of a given character. add types Bytexpos and Charxpos to generalize Bytebpos/Bytecount and Charbpos/Charcount, in code (particularly, the extents code and redisplay code) that works with either kind of index. rename redisplay struct params with names such as `charbpos' to e.g. `charpos' when they are e.g. a Charxpos, not a Charbpos. eliminate xxDEFUN in place of DEFUN; no longer necessary with changes awhile back to doc.c. split up big ugly combined list of EXFUNs in lisp.h on a file-by-file basis, since other prototypes are similarly split. rewrite some "*_UNSAFE" macros as inline funs and eliminate the _UNSAFE suffix. move most string code from lisp.h to text.h; the string code and text.h code is now intertwined in such a fashion that they need to be in the same place and partially interleaved. (you can't create forward references for inline funs) automated/lisp-tests.el, automated/symbol-tests.el, automated/test-harness.el: Fix test harness to output FAIL messages to stderr when in batch mode. Fix up some problems in lisp-tests/symbol-tests that were causing spurious failures.
author ben
date Sun, 05 May 2002 11:33:57 +0000
parents a5954632b187
children 42375619fa45
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1 /* Generic glyph data structures + display tables
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1994 Board of Trustees, University of Illinois.
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
3 Copyright (C) 1995, 1996, 2002 Ben Wing
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
24 #ifndef INCLUDED_glyphs_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
25 #define INCLUDED_glyphs_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 #include "specifier.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
28 #include "window.h" /* need for GLYPH_CACHEL_WIDTH */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 /* Image Instantiators */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 struct image_instantiator_methods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 /* Remember the distinction between image instantiator formats and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 image instance types. Here's an approximate mapping:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 image instantiator format image instance type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 ------------------------- -------------------
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 nothing nothing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 string text
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 formatted-string text
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 xbm mono-pixmap, color-pixmap, pointer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 xpm color-pixmap, mono-pixmap, pointer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 xface mono-pixmap, color-pixmap, pointer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 gif color-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 jpeg color-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 png color-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 tiff color-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 bmp color-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 cursor-font pointer
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
53 mswindows-resource pointer, color-pixmap
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 font pointer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 subwindow subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 inherit mono-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 autodetect mono-pixmap, color-pixmap, pointer, text
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
58 button widget
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 edit-field widget
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
60 combo-box widget
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 progress-gauge widget
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 tab-control widget
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 tree-view widget
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 scrollbar widget
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
65 label widget
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
66 layout widget
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
67 native-layout widget
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 /* These are methods specific to a particular format of image instantiator
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 (e.g. xpm, string, etc.). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 typedef struct ii_keyword_entry ii_keyword_entry;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 struct ii_keyword_entry
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 Lisp_Object keyword;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 void (*validate) (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 int multiple_p;
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
79 int copy_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 typedef struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 Dynarr_declare (ii_keyword_entry);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 } ii_keyword_entry_dynarr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 extern const struct struct_description iim_description;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
89 enum image_instance_geometry
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
90 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
91 IMAGE_GEOMETRY,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
92 IMAGE_DESIRED_GEOMETRY,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
93 IMAGE_MIN_GEOMETRY,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
94 IMAGE_MAX_GEOMETRY
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
95 };
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
96
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
97 #define IMAGE_UNSPECIFIED_GEOMETRY -1
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
98 #define IMAGE_UNCHANGED_GEOMETRY -2
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
99
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
100 #define WIDGET_BORDER_HEIGHT 4
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
101 #define WIDGET_BORDER_WIDTH 4
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
102
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
103 enum governing_domain
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
104 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
105 GOVERNING_DOMAIN_WINDOW,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
106 GOVERNING_DOMAIN_FRAME,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
107 GOVERNING_DOMAIN_DEVICE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
108 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
109
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 struct image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 Lisp_Object symbol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 Lisp_Object device; /* sometimes used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 ii_keyword_entry_dynarr *keywords;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 /* consoles this ii is supported on */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 console_type_entry_dynarr *consoles;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 /* Implementation specific methods: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 /* Validate method: Given an instantiator vector, signal an error if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 it's invalid for this image-instantiator format. Note that this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 validation only occurs after all the keyword-specific validation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 has already been performed. This is chiefly useful for making
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 sure that certain required keywords are present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 void (*validate_method) (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /* Normalize method: Given an instantiator, convert it to the form
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 that should be used in a glyph, for devices of type CONSOLE_TYPE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 Signal an error if conversion fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 Lisp_Object (*normalize_method) (Lisp_Object instantiator,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
132 Lisp_Object console_type,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
133 Lisp_Object dest_mask);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
134
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
135 /* Governing domain method: Return an int indicating what type of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
136 domain an instance in this format is governed by. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
137 int (*governing_domain_method) (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 /* Possible-dest-types method: Return a mask indicating what dest types
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 are compatible with this format. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 int (*possible_dest_types_method) (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 /* Instantiate method: Given an instantiator and a partially
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 filled-in image instance, complete the filling-in. Return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 non-zero if the instantiation succeeds, 0 if it fails.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 This must be present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 void (*instantiate_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 Lisp_Object pointer_fg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 int dest_mask,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
153 /* Post instantiate method: finish instantiation of the image
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
154 instance. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
155 void (*post_instantiate_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
156 Lisp_Object instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
157 Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 /* Property method: Given an image instance, return device specific
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 Lisp_Object (*property_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 Lisp_Object property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 /* Set-property method: Given an image instance, set device specific
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 Lisp_Object (*set_property_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 Lisp_Object val);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
167 /* Asynchronously update properties. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
168 void (*update_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
169 Lisp_Object instantiator);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
170 void (*redisplay_method) (Lisp_Object image_instance);
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
171
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
172 /* Find out the desired geometry, as given by disp, of this image
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
173 instance. Actual geometry is stored in the appropriate slots in the
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
174 image instance. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
175 void (*query_geometry_method) (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
176 int* width, int* height,
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
177 enum image_instance_geometry disp,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
178 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
179
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
180 /* Layout the instance and its children bounded by the provided
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
181 dimensions. Returns success or failure. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
182 int (*layout_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
183 int width, int height, int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
184 Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 /***** Calling an image-instantiator method *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 #define HAS_IIFORMAT_METH_P(mstruc, m) (((mstruc)->m##_method) != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 #define IIFORMAT_METH(mstruc, m, args) (((mstruc)->m##_method) args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 /* Call a void-returning specifier method, if it exists */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 #define MAYBE_IIFORMAT_METH(mstruc, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 struct image_instantiator_methods *MIM_mstruc = (mstruc); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 if (MIM_mstruc && HAS_IIFORMAT_METH_P (MIM_mstruc, m)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 IIFORMAT_METH (MIM_mstruc, m, args); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 #define MAYBE_IIFORMAT_DEVMETH(device, mstruc, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 struct image_instantiator_methods *MID_mstruc = \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 decode_ii_device (device, mstruc); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 if (MID_mstruc) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 MAYBE_IIFORMAT_METH(MID_mstruc, m, args); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 /* Call a specifier method, if it exists; otherwise return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 the specified value */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 #define IIFORMAT_METH_OR_GIVEN(mstruc, m, args, given) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
213 ((mstruc && HAS_IIFORMAT_METH_P (mstruc, m)) ? \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 IIFORMAT_METH (mstruc, m, args) : (given))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 /***** Defining new image-instantiator types *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 #define DECLARE_IMAGE_INSTANTIATOR_FORMAT(format) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 extern struct image_instantiator_methods *format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 #define DEFINE_IMAGE_INSTANTIATOR_FORMAT(format) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 struct image_instantiator_methods *format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 #define INITIALIZE_IMAGE_INSTANTIATOR_FORMAT_NO_SYM(format, obj_name) \
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
225 do { \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
226 format##_image_instantiator_methods = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
227 xnew_and_zero (struct image_instantiator_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
228 format##_image_instantiator_methods->symbol = Q##format; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
229 format##_image_instantiator_methods->device = Qnil; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
230 format##_image_instantiator_methods->keywords = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
231 Dynarr_new (ii_keyword_entry); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
232 format##_image_instantiator_methods->consoles = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
233 Dynarr_new (console_type_entry); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
234 add_entry_to_image_instantiator_format_list \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
235 (Q##format, format##_image_instantiator_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
236 dump_add_root_struct_ptr (&format##_image_instantiator_methods, \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
237 &iim_description); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 #define INITIALIZE_IMAGE_INSTANTIATOR_FORMAT(format, obj_name) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 defsymbol (&Q##format, obj_name); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT_NO_SYM(format, obj_name);\
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 /* Declare that image-instantiator format FORMAT has method M; used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 initialization routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 #define IIFORMAT_HAS_METHOD(format, m) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 (format##_image_instantiator_methods->m##_method = format##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 #define IIFORMAT_HAS_SHARED_METHOD(format, m, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 (format##_image_instantiator_methods->m##_method = type##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 /* Declare that KEYW is a valid keyword for image-instantiator format
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 FORMAT. VALIDATE_FUN if a function that returns whether the data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 is valid. The keyword may not appear more than once. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
257 #define IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, copy, multi) \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
258 do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 struct ii_keyword_entry entry; \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
260 \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
261 entry.keyword = keyw; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 entry.validate = validate_fun; \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
263 entry.multiple_p = multi; \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
264 entry.copy_p = copy; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 Dynarr_add (format##_image_instantiator_methods->keywords, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 entry); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
269 #define IIFORMAT_VALID_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
270 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 1, 0)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
271
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 /* Same as IIFORMAT_VALID_KEYWORD except that the keyword may
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 appear multiple times. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
274 #define IIFORMAT_VALID_MULTI_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
275 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 1, 1)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
276
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 /* Same as IIFORMAT_VALID_KEYWORD except that the argument is not
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
278 copied by the specifier functions. This is necessary for things
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
279 like callbacks etc. */
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
280 #define IIFORMAT_VALID_NONCOPY_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
281 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 0, 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
283 /* Declare that image-instantiator format FORMAT is supported on
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 CONSOLE type. */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
285 #define IIFORMAT_VALID_CONSOLE(console, format) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 struct console_type_entry entry; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 entry.symbol = Q##console; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 entry.meths = console##_console_methods; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 Dynarr_add (format##_image_instantiator_methods->consoles, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 entry); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
295 #define IIFORMAT_VALID_CONSOLE2(con1, con2, format) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
296 IIFORMAT_VALID_CONSOLE (con1, format); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
297 IIFORMAT_VALID_CONSOLE (con2, format);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
298
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
299 #define DEFINE_DEVICE_IIFORMAT(type, format) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
300 DECLARE_IMAGE_INSTANTIATOR_FORMAT(format); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 struct image_instantiator_methods *type##_##format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
303 #define INITIALIZE_DEVICE_IIFORMAT(type, format) \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
304 do { \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
305 type##_##format##_image_instantiator_methods = \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
306 xnew_and_zero (struct image_instantiator_methods); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
307 type##_##format##_image_instantiator_methods->symbol = Q##format; \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
308 type##_##format##_image_instantiator_methods->device = Q##type; \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
309 type##_##format##_image_instantiator_methods->keywords = \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
310 Dynarr_new (ii_keyword_entry); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
311 add_entry_to_device_ii_format_list \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
312 (Q##type, Q##format, type##_##format##_image_instantiator_methods); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
313 IIFORMAT_VALID_CONSOLE(type,format); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
314 dump_add_root_struct_ptr (&type##_##format##_image_instantiator_methods, \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
315 &iim_description); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 /* Declare that image-instantiator format FORMAT has method M; used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 initialization routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 #define IIFORMAT_HAS_DEVMETHOD(type, format, m) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 (type##_##format##_image_instantiator_methods->m##_method = type##_##format##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 #define IIFORMAT_HAS_SHARED_DEVMETHOD(type, format, m, fromformat) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 (type##_##format##_image_instantiator_methods->m##_method = type##_##fromformat##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
325 #define IIFORMAT_INHERITS_DEVMETHOD(type, from, format, m) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
326 (type##_##format##_image_instantiator_methods->m##_method = from##_##format##_##m)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
327 #define IIFORMAT_INHERITS_SHARED_DEVMETHOD(type, from, format, m, fromformat) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
328 (type##_##format##_image_instantiator_methods->m##_method = from##_##fromformat##_##m)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
329
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
330 #define INSTANTIATOR_TYPE(inst) (XVECTOR_DATA ((inst))[0])
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
331
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
332 struct image_instantiator_methods *decode_device_ii_format (Lisp_Object device,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
333 Lisp_Object format,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
334 Error_Behavior
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
335 errb);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
336 struct image_instantiator_methods *decode_image_instantiator_format
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
337 (Lisp_Object format, Error_Behavior errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 void add_entry_to_image_instantiator_format_list (Lisp_Object symbol,
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
340 struct
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
341 image_instantiator_methods *
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
342 meths);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
343 void add_entry_to_device_ii_format_list (Lisp_Object device,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
344 Lisp_Object symbol,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
345 struct image_instantiator_methods *
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
346 meths);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 Lisp_Object find_keyword_in_vector (Lisp_Object vector,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 Lisp_Object keyword);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 Lisp_Object find_keyword_in_vector_or_given (Lisp_Object vector,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 Lisp_Object keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 Lisp_Object default_);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 Lisp_Object simple_image_type_normalize (Lisp_Object inst,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 Lisp_Object console_type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 Lisp_Object image_type_tag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 Lisp_Object potential_pixmap_file_instantiator (Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 Lisp_Object file_keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 Lisp_Object data_keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 Lisp_Object console_type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 void check_valid_string (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 void check_valid_int (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 void check_valid_face (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 void check_valid_vector (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
364 void initialize_subwindow_image_instance (Lisp_Image_Instance*);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 void subwindow_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 int dest_mask, Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
368 int subwindow_governing_domain (void);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
369 void widget_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
370 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
371 int dest_mask, Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
372 void image_instance_query_geometry (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
373 int* width, int* height,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
374 enum image_instance_geometry disp,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
375 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
376 void image_instance_layout (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
377 int width, int height, int xoffset, int yoffset,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
378 Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
379 int layout_layout (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
380 int width, int height, int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
381 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
382 int invalidate_glyph_geometry_maybe (Lisp_Object glyph_or_ii, struct window* w);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
383 Lisp_Object make_image_instance_cache_hash_table (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 DECLARE_DOESNT_RETURN (incompatible_image_types (Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 int given_dest_mask,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 int desired_dest_mask));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
388 DECLARE_DOESNT_RETURN (signal_image_error (const char *, Lisp_Object));
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
389 DECLARE_DOESNT_RETURN (signal_image_error_2 (const char *, Lisp_Object,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
390 Lisp_Object));
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
391 DECLARE_DOESNT_RETURN (signal_double_image_error (const char *string1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
392 const char *string2,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
393 Lisp_Object data));
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
394 DECLARE_DOESNT_RETURN (signal_double_image_error_2 (const char *string1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
395 const char *string2,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
396 Lisp_Object data1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
397 Lisp_Object data2));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 /* Image Specifier Object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 DECLARE_SPECIFIER_TYPE (image);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 #define XIMAGE_SPECIFIER(x) XSPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 #define IMAGE_SPECIFIERP(x) SPECIFIER_TYPEP (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 #define CHECK_IMAGE_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 #define CONCHECK_IMAGE_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 void set_image_attached_to (Lisp_Object obj, Lisp_Object face_or_glyph,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 Lisp_Object property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 struct image_specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 int allowed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 Lisp_Object attachee; /* face or glyph this is attached to, or nil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 Lisp_Object attachee_property;/* property of that face or glyph */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 452
diff changeset
419 #define IMAGE_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, image)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 #define IMAGE_SPECIFIER_ALLOWED(g) (IMAGE_SPECIFIER_DATA (g)->allowed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 #define IMAGE_SPECIFIER_ATTACHEE(g) (IMAGE_SPECIFIER_DATA (g)->attachee)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 #define IMAGE_SPECIFIER_ATTACHEE_PROPERTY(g) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 (IMAGE_SPECIFIER_DATA (g)->attachee_property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 #define XIMAGE_SPECIFIER_ALLOWED(g) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 IMAGE_SPECIFIER_ALLOWED (XIMAGE_SPECIFIER (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 /* Image Instance Object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
432 DECLARE_LRECORD (image_instance, Lisp_Image_Instance);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
433 #define XIMAGE_INSTANCE(x) XRECORD (x, image_instance, Lisp_Image_Instance)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
434 #define wrap_image_instance(p) wrap_record (p, image_instance)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 #define IMAGE_INSTANCEP(x) RECORDP (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 #define CHECK_IMAGE_INSTANCE(x) CHECK_RECORD (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 #define CONCHECK_IMAGE_INSTANCE(x) CONCHECK_RECORD (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
439 #ifdef ERROR_CHECK_GLYPHS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
440 void check_image_instance_structure (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
441 void check_window_subwindow_cache (struct window* w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
442 #define ERROR_CHECK_IMAGE_INSTANCE(ii) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
443 check_image_instance_structure (ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
444 #define ERROR_CHECK_SUBWINDOW_CACHE(w) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
445 check_window_subwindow_cache (w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
446 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
447 #define ERROR_CHECK_IMAGE_INSTANCE(ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
448 #define ERROR_CHECK_SUBWINDOW_CACHE(w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
449 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
450
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 enum image_instance_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 IMAGE_UNKNOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 IMAGE_NOTHING,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 IMAGE_TEXT,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 IMAGE_MONO_PIXMAP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 IMAGE_COLOR_PIXMAP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 IMAGE_POINTER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 IMAGE_SUBWINDOW,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
460 IMAGE_WIDGET
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 #define IMAGE_NOTHING_MASK (1 << 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 #define IMAGE_TEXT_MASK (1 << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 #define IMAGE_MONO_PIXMAP_MASK (1 << 2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 #define IMAGE_COLOR_PIXMAP_MASK (1 << 3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 #define IMAGE_POINTER_MASK (1 << 4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 #define IMAGE_SUBWINDOW_MASK (1 << 5)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 #define IMAGE_WIDGET_MASK (1 << 6)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
470
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
471 /* This depends on the fact that enums are assigned consecutive
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
472 integers starting at 0. (Remember that IMAGE_UNKNOWN is the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
473 first enum.) I'm fairly sure this behavior is ANSI-mandated,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
474 so there should be no portability problems here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
475 #define image_instance_type_to_mask(type) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
476 ((int) (1 << ((int) (type) - 1)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 #define IMAGE_INSTANCE_TYPE_P(ii, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 (IMAGE_INSTANCEP (ii) && XIMAGE_INSTANCE_TYPE (ii) == type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 #define NOTHING_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_NOTHING)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 #define TEXT_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_TEXT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 #define MONO_PIXMAP_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_MONO_PIXMAP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 #define COLOR_PIXMAP_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_COLOR_PIXMAP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 #define POINTER_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_POINTER)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 #define SUBWINDOW_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_SUBWINDOW)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 #define WIDGET_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_WIDGET)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
496 #define CHECK_NOTHING_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
497 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 if (!NOTHING_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 x = wrong_type_argument (Qnothing_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
502 #define CHECK_TEXT_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
503 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 if (!TEXT_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 x = wrong_type_argument (Qtext_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 #define CHECK_MONO_PIXMAP_IMAGE_INSTANCE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 CHECK_IMAGE_INSTANCE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 if (!MONO_PIXMAP_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 x = wrong_type_argument (Qmono_pixmap_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
514 #define CHECK_COLOR_PIXMAP_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
515 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 if (!COLOR_PIXMAP_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 x = wrong_type_argument (Qcolor_pixmap_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
520 #define CHECK_POINTER_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
521 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 if (!POINTER_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 x = wrong_type_argument (Qpointer_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
526 #define CHECK_SUBWINDOW_IMAGE_INSTANCE(x) do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 CHECK_IMAGE_INSTANCE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 if (!SUBWINDOW_IMAGE_INSTANCEP (x) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 && !WIDGET_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 x = wrong_type_argument (Qsubwindow_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
533 #define CHECK_WIDGET_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
534 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 if (!WIDGET_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 x = wrong_type_argument (Qwidget_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 struct Lisp_Image_Instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 struct lcrecord_header header;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
542 Lisp_Object domain; /* The domain in which we were cached. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
543 Lisp_Object device; /* The device of the domain. Recorded
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
544 since the domain may get deleted
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
545 before us. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 Lisp_Object name;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
547 /* The glyph from which we were instantiated. This is a weak
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
548 reference. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
549 Lisp_Object parent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
550 /* The instantiator from which we were instantiated. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
551 Lisp_Object instantiator;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 enum image_instance_type type;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
553 int x_offset, y_offset; /* for layout purposes */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
554 int width, height, margin_width;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
555 Hashcode display_hash; /* Hash value representing the structure
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
556 of the image_instance when it was
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
557 last displayed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 unsigned int dirty : 1;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
559 unsigned int size_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
560 unsigned int text_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
561 unsigned int layout_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
562 unsigned int optimize_output : 1; /* For outputting layouts. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
563 unsigned int initialized : 1; /* When we're fully done. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
564 unsigned int wants_initial_focus : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
565
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 union
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
570 int descent;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 Lisp_Object string;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 } text;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
575 int depth;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
576 int slice, maxslice, timeout;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 Lisp_Object hotspot_x, hotspot_y; /* integer or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 Lisp_Object filename; /* string or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 Lisp_Object mask_filename; /* string or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 Lisp_Object fg, bg; /* foreground and background colors,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 if this is a colorized mono-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 or a pointer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 Lisp_Object auxdata; /* list or Qnil: any additional data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 to be seen from lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 void* mask; /* mask that can be seen from all windowing systems */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 } pixmap; /* used for pointers as well */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 void* subwindow; /* specific devices can use this as necessary */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
590 struct
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
591 { /* We need these so we can do without
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
592 subwindow_cachel */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
593 int x, y;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
594 int width, height;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
595 } display_data;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
596 unsigned int being_displayed : 1; /* used to detect when needs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
597 to be unmapped */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
598 unsigned int v_resize : 1; /* Whether the vsize is allowed to change. */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
599 unsigned int h_resize : 1; /* Whether the hsize is allowed to change. */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
600 unsigned int orientation : 1; /* Vertical or horizontal. */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
601 unsigned int justification : 2; /* Left, right or center. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
602 /* Face for colors and font. We specify this here because we
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
603 want people to be able to put :face in the instantiator
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
604 spec. Using glyph-face is more inconvenient, although more
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
605 general. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
606 Lisp_Object face;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
607 Lisp_Object type;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
608 Lisp_Object props; /* properties or border*/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
609 Lisp_Object items; /* a list of displayed gui_items */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
610 Lisp_Object pending_items; /* gui_items that should be displayed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
611 Lisp_Object children; /* a list of children */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
612 Lisp_Object width; /* dynamic width spec. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
613 Lisp_Object height; /* dynamic height spec. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
614 /* Change flags to augment dirty. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
615 unsigned int face_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
616 unsigned int items_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
617 unsigned int action_occurred : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 } subwindow;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 } u;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 /* console-type- and image-type-specific data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 void *data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
625 /* Layout bit-fields. */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
626 #define LAYOUT_HORIZONTAL 0
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
627 #define LAYOUT_VERTICAL 1
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
628
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
629 #define LAYOUT_JUSTIFY_LEFT 0
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
630 #define LAYOUT_JUSTIFY_RIGHT 1
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
631 #define LAYOUT_JUSTIFY_CENTER 2
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
632
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
633 #define IMAGE_INSTANCE_HASH_DEPTH 0
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
634
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
635 /* Accessor macros. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
636 #define IMAGE_INSTANCE_DOMAIN(i) ((i)->domain)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
637 #define IMAGE_INSTANCE_DOMAIN_LIVE_P(i) (DOMAIN_LIVE_P ((i)->domain))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 #define IMAGE_INSTANCE_DEVICE(i) ((i)->device)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
639 #define IMAGE_INSTANCE_FRAME(i) (DOMAIN_FRAME ((i)->domain))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 #define IMAGE_INSTANCE_NAME(i) ((i)->name)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
641 #define IMAGE_INSTANCE_PARENT(i) ((i)->parent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
642 #define IMAGE_INSTANCE_INSTANTIATOR(i) ((i)->instantiator)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
643 #define IMAGE_INSTANCE_GLYPH(i) (image_instance_parent_glyph(i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 #define IMAGE_INSTANCE_TYPE(i) ((i)->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 #define IMAGE_INSTANCE_XOFFSET(i) ((i)->x_offset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 #define IMAGE_INSTANCE_YOFFSET(i) ((i)->y_offset)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
647 #define IMAGE_INSTANCE_WIDTH(i) ((i)->width)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
648 #define IMAGE_INSTANCE_MARGIN_WIDTH(i) ((i)->margin_width)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
649 #define IMAGE_INSTANCE_HEIGHT(i) ((i)->height)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
650 #define IMAGE_INSTANCE_INITIALIZED(i) ((i)->initialized)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
651 #define IMAGE_INSTANCE_DISPLAY_HASH(i) ((i)->display_hash)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
652 #define IMAGE_INSTANCE_PIXMAP_TYPE_P(i) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
653 ((IMAGE_INSTANCE_TYPE (i) == IMAGE_MONO_PIXMAP) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 || (IMAGE_INSTANCE_TYPE (i) == IMAGE_COLOR_PIXMAP))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 #define IMAGE_INSTANCE_DIRTYP(i) ((i)->dirty)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
656 #define IMAGE_INSTANCE_NEEDS_LAYOUT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
657 ((IMAGE_INSTANCE_DIRTYP (i) && IMAGE_INSTANCE_LAYOUT_CHANGED (i)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
658 || (FRAMEP (IMAGE_INSTANCE_FRAME (i)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
659 && XFRAME (IMAGE_INSTANCE_FRAME (i))->size_changed))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
660 #define IMAGE_INSTANCE_FACE(i) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
661 (GLYPHP (IMAGE_INSTANCE_GLYPH (i)) ? \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
662 XGLYPH_FACE (IMAGE_INSTANCE_GLYPH (i)) : Qnil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
663 #define IMAGE_INSTANCE_WANTS_INITIAL_FOCUS(i) ((i)->wants_initial_focus)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
665 /* Changed flags */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
666 #define IMAGE_INSTANCE_TEXT_CHANGED(i) ((i)->text_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
667 #define IMAGE_INSTANCE_SIZE_CHANGED(i) ((i)->size_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
668 #define IMAGE_INSTANCE_WIDGET_FACE_CHANGED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
669 ((i)->u.subwindow.face_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
670 #define IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
671 ((i)->u.subwindow.items_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
672 #define IMAGE_INSTANCE_WIDGET_ACTION_OCCURRED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
673 ((i)->u.subwindow.action_occurred)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
674 #define IMAGE_INSTANCE_LAYOUT_CHANGED(i) ((i)->layout_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
675 #define IMAGE_INSTANCE_OPTIMIZE_OUTPUT(i) ((i)->optimize_output)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
676
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
677 /* Text properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 #define IMAGE_INSTANCE_TEXT_STRING(i) ((i)->u.text.string)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
679 #define IMAGE_INSTANCE_TEXT_WIDTH(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
680 IMAGE_INSTANCE_WIDTH(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
681 #define IMAGE_INSTANCE_TEXT_HEIGHT(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
682 IMAGE_INSTANCE_HEIGHT(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
683 #define IMAGE_INSTANCE_TEXT_DESCENT(i) ((i)->u.text.descent)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
684 #define IMAGE_INSTANCE_TEXT_ASCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
685 (IMAGE_INSTANCE_TEXT_HEIGHT(i) - IMAGE_INSTANCE_TEXT_DESCENT(i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
687 /* Pixmap properties */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
688 #define IMAGE_INSTANCE_PIXMAP_WIDTH(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
689 IMAGE_INSTANCE_WIDTH(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
690 #define IMAGE_INSTANCE_PIXMAP_HEIGHT(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
691 IMAGE_INSTANCE_HEIGHT(i)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 #define IMAGE_INSTANCE_PIXMAP_DEPTH(i) ((i)->u.pixmap.depth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 #define IMAGE_INSTANCE_PIXMAP_FILENAME(i) ((i)->u.pixmap.filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 #define IMAGE_INSTANCE_PIXMAP_MASK_FILENAME(i) ((i)->u.pixmap.mask_filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 #define IMAGE_INSTANCE_PIXMAP_HOTSPOT_X(i) ((i)->u.pixmap.hotspot_x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 #define IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y(i) ((i)->u.pixmap.hotspot_y)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 #define IMAGE_INSTANCE_PIXMAP_FG(i) ((i)->u.pixmap.fg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 #define IMAGE_INSTANCE_PIXMAP_BG(i) ((i)->u.pixmap.bg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 #define IMAGE_INSTANCE_PIXMAP_AUXDATA(i) ((i)->u.pixmap.auxdata)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 #define IMAGE_INSTANCE_PIXMAP_MASK(i) ((i)->u.pixmap.mask)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 #define IMAGE_INSTANCE_PIXMAP_SLICE(i) ((i)->u.pixmap.slice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 #define IMAGE_INSTANCE_PIXMAP_MAXSLICE(i) ((i)->u.pixmap.maxslice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 #define IMAGE_INSTANCE_PIXMAP_TIMEOUT(i) ((i)->u.pixmap.timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
705 /* Subwindow properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 #define IMAGE_INSTANCE_SUBWINDOW_ID(i) ((i)->u.subwindow.subwindow)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
707 /* Display data. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
708 #define IMAGE_INSTANCE_DISPLAY_X(i) ((i)->u.subwindow.display_data.x)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
709 #define IMAGE_INSTANCE_DISPLAY_Y(i) ((i)->u.subwindow.display_data.y)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
710 #define IMAGE_INSTANCE_DISPLAY_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
711 ((i)->u.subwindow.display_data.width)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
712 #define IMAGE_INSTANCE_DISPLAY_HEIGHT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
713 ((i)->u.subwindow.display_data.height)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 #define IMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 ((i)->u.subwindow.being_displayed)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
716 #define IMAGE_INSTANCE_SUBWINDOW_V_RESIZEP(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
717 ((i)->u.subwindow.v_resize)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
718 #define IMAGE_INSTANCE_SUBWINDOW_H_RESIZEP(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
719 ((i)->u.subwindow.h_resize)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
720 #define IMAGE_INSTANCE_SUBWINDOW_ORIENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
721 ((i)->u.subwindow.orientation)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
722 #define IMAGE_INSTANCE_SUBWINDOW_JUSTIFY(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
723 ((i)->u.subwindow.justification)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
724 #define IMAGE_INSTANCE_SUBWINDOW_FACE(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 ((i)->u.subwindow.face)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727 /* Widget properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 #define IMAGE_INSTANCE_WIDGET_WIDTH(i) \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
729 IMAGE_INSTANCE_WIDTH(i)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 #define IMAGE_INSTANCE_WIDGET_HEIGHT(i) \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
731 IMAGE_INSTANCE_HEIGHT(i)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
732 #define IMAGE_INSTANCE_WIDGET_WIDTH_SUBR(i) ((i)->u.subwindow.width)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
733 #define IMAGE_INSTANCE_WIDGET_HEIGHT_SUBR(i) ((i)->u.subwindow.height)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
734 #define IMAGE_INSTANCE_WIDGET_TYPE(i) ((i)->u.subwindow.type)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
735 #define IMAGE_INSTANCE_WIDGET_PROPS(i) ((i)->u.subwindow.props)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
736 #define SET_IMAGE_INSTANCE_WIDGET_FACE(i,f) \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
737 ((i)->u.subwindow.face = f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
738 #define IMAGE_INSTANCE_WIDGET_FACE(i) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
739 (!NILP ((i)->u.subwindow.face) ? (i)->u.subwindow.face : \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
740 !NILP (IMAGE_INSTANCE_FACE (i)) ? IMAGE_INSTANCE_FACE (i) : \
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
741 Vwidget_face)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
742 #define IMAGE_INSTANCE_WIDGET_ITEMS(i) ((i)->u.subwindow.items)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
743 #define IMAGE_INSTANCE_WIDGET_PENDING_ITEMS(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
744 ((i)->u.subwindow.pending_items)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
745 #define IMAGE_INSTANCE_WIDGET_ITEM(i) \
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
746 (CONSP (IMAGE_INSTANCE_WIDGET_ITEMS (i)) ? \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
747 XCAR (IMAGE_INSTANCE_WIDGET_ITEMS (i)) : \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
748 IMAGE_INSTANCE_WIDGET_ITEMS (i))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
749 #define IMAGE_INSTANCE_WIDGET_TEXT(i) \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
750 XGUI_ITEM (IMAGE_INSTANCE_WIDGET_ITEM (i))->name
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
752 /* Layout properties */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
753 #define IMAGE_INSTANCE_LAYOUT_CHILDREN(i) ((i)->u.subwindow.children)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
754 #define IMAGE_INSTANCE_LAYOUT_BORDER(i) ((i)->u.subwindow.props)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
756 #define XIMAGE_INSTANCE_DOMAIN(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
757 IMAGE_INSTANCE_DOMAIN (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
758 #define XIMAGE_INSTANCE_DOMAIN_LIVE_P(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
759 IMAGE_INSTANCE_DOMAIN_LIVE_P (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 #define XIMAGE_INSTANCE_DEVICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 IMAGE_INSTANCE_DEVICE (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
762 #define XIMAGE_INSTANCE_FRAME(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
763 IMAGE_INSTANCE_FRAME (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 #define XIMAGE_INSTANCE_NAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 IMAGE_INSTANCE_NAME (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
766 #define XIMAGE_INSTANCE_GLYPH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
767 IMAGE_INSTANCE_GLYPH (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
768 #define XIMAGE_INSTANCE_PARENT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
769 IMAGE_INSTANCE_PARENT (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
770 #define XIMAGE_INSTANCE_INSTANTIATOR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
771 IMAGE_INSTANCE_INSTANTIATOR (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 #define XIMAGE_INSTANCE_TYPE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 IMAGE_INSTANCE_TYPE (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
774 #define XIMAGE_INSTANCE_DISPLAY_HASH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
775 IMAGE_INSTANCE_DISPLAY_HASH (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 #define XIMAGE_INSTANCE_XOFFSET(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 IMAGE_INSTANCE_XOFFSET (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 #define XIMAGE_INSTANCE_YOFFSET(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 IMAGE_INSTANCE_YOFFSET (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 #define XIMAGE_INSTANCE_DIRTYP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 IMAGE_INSTANCE_DIRTYP (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
782 #define XIMAGE_INSTANCE_NEEDS_LAYOUT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
783 IMAGE_INSTANCE_NEEDS_LAYOUT (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
784 #define XIMAGE_INSTANCE_WIDTH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
785 IMAGE_INSTANCE_WIDTH (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
786 #define XIMAGE_INSTANCE_MARGIN_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
787 IMAGE_INSTANCE_MARGIN_WIDTH (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
788 #define XIMAGE_INSTANCE_HEIGHT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
789 IMAGE_INSTANCE_HEIGHT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
790 #define XIMAGE_INSTANCE_INITIALIZED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
791 IMAGE_INSTANCE_INITIALIZED (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
792 #define XIMAGE_INSTANCE_FACE(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
793 IMAGE_INSTANCE_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 #define XIMAGE_INSTANCE_TEXT_STRING(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 IMAGE_INSTANCE_TEXT_STRING (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
797 #define XIMAGE_INSTANCE_TEXT_WIDTH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
798 IMAGE_INSTANCE_TEXT_WIDTH (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
799 #define XIMAGE_INSTANCE_TEXT_HEIGHT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
800 IMAGE_INSTANCE_TEXT_HEIGHT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
801 #define XIMAGE_INSTANCE_TEXT_ASCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
802 IMAGE_INSTANCE_TEXT_ASCENT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
803 #define XIMAGE_INSTANCE_TEXT_DESCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
804 IMAGE_INSTANCE_TEXT_DESCENT (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 #define XIMAGE_INSTANCE_PIXMAP_WIDTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 IMAGE_INSTANCE_PIXMAP_WIDTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 #define XIMAGE_INSTANCE_PIXMAP_HEIGHT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 IMAGE_INSTANCE_PIXMAP_HEIGHT (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 #define XIMAGE_INSTANCE_PIXMAP_DEPTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 IMAGE_INSTANCE_PIXMAP_DEPTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 #define XIMAGE_INSTANCE_PIXMAP_FILENAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 IMAGE_INSTANCE_PIXMAP_FILENAME (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 #define XIMAGE_INSTANCE_PIXMAP_MASK_FILENAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 #define XIMAGE_INSTANCE_PIXMAP_HOTSPOT_X(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 #define XIMAGE_INSTANCE_PIXMAP_HOTSPOT_Y(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 #define XIMAGE_INSTANCE_PIXMAP_FG(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 IMAGE_INSTANCE_PIXMAP_FG (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 #define XIMAGE_INSTANCE_PIXMAP_BG(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 IMAGE_INSTANCE_PIXMAP_BG (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 #define XIMAGE_INSTANCE_PIXMAP_MASK(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 IMAGE_INSTANCE_PIXMAP_MASK (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 #define XIMAGE_INSTANCE_PIXMAP_SLICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 IMAGE_INSTANCE_PIXMAP_SLICE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 #define XIMAGE_INSTANCE_PIXMAP_MAXSLICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 IMAGE_INSTANCE_PIXMAP_MAXSLICE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 #define XIMAGE_INSTANCE_PIXMAP_TIMEOUT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 IMAGE_INSTANCE_PIXMAP_TIMEOUT (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 #define XIMAGE_INSTANCE_WIDGET_WIDTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 IMAGE_INSTANCE_WIDGET_WIDTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 #define XIMAGE_INSTANCE_WIDGET_HEIGHT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 IMAGE_INSTANCE_WIDGET_HEIGHT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
837 #define XIMAGE_INSTANCE_WIDGET_WIDTH_SUBR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
838 IMAGE_INSTANCE_WIDGET_WIDTH_SUBR (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
839 #define XIMAGE_INSTANCE_WIDGET_HEIGHT_SUBR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
840 IMAGE_INSTANCE_WIDGET_HEIGHT_SUBR (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 #define XIMAGE_INSTANCE_WIDGET_TYPE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 IMAGE_INSTANCE_WIDGET_TYPE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 #define XIMAGE_INSTANCE_WIDGET_PROPS(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 IMAGE_INSTANCE_WIDGET_PROPS (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 #define XIMAGE_INSTANCE_WIDGET_FACE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 IMAGE_INSTANCE_WIDGET_FACE (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
847 #define XSET_IMAGE_INSTANCE_WIDGET_FACE(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
848 SET_IMAGE_INSTANCE_WIDGET_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 #define XIMAGE_INSTANCE_WIDGET_ITEM(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 IMAGE_INSTANCE_WIDGET_ITEM (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 #define XIMAGE_INSTANCE_WIDGET_ITEMS(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 IMAGE_INSTANCE_WIDGET_ITEMS (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
853 #define XIMAGE_INSTANCE_WIDGET_PENDING_ITEMS(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
854 IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 #define XIMAGE_INSTANCE_WIDGET_TEXT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 IMAGE_INSTANCE_WIDGET_TEXT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
857 #define XIMAGE_INSTANCE_WIDGET_ACTION_OCCURRED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
858 IMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 #define XIMAGE_INSTANCE_LAYOUT_CHILDREN(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 IMAGE_INSTANCE_LAYOUT_CHILDREN (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 #define XIMAGE_INSTANCE_LAYOUT_BORDER(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 IMAGE_INSTANCE_LAYOUT_BORDER (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 #define XIMAGE_INSTANCE_SUBWINDOW_ID(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 IMAGE_INSTANCE_SUBWINDOW_ID (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
867 #define XIMAGE_INSTANCE_DISPLAY_X(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
868 IMAGE_INSTANCE_DISPLAY_X (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
869 #define XIMAGE_INSTANCE_DISPLAY_Y(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
870 IMAGE_INSTANCE_DISPLAY_Y (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
871 #define XIMAGE_INSTANCE_DISPLAY_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
872 IMAGE_INSTANCE_DISPLAY_WIDTH (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
873 #define XIMAGE_INSTANCE_DISPLAY_HEIGHT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
874 IMAGE_INSTANCE_DISPLAY_HEIGHT (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 #define XIMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 IMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
877 #define XIMAGE_INSTANCE_SUBWINDOW_ORIENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
878 IMAGE_INSTANCE_SUBWINDOW_ORIENT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
879 #define XIMAGE_INSTANCE_SUBWINDOW_JUSTIFY(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
880 IMAGE_INSTANCE_SUBWINDOW_JUSTIFY (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
881 #define XIMAGE_INSTANCE_SUBWINDOW_FACE(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
882 IMAGE_INSTANCE_SUBWINDOW_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 #define MARK_IMAGE_INSTANCE_CHANGED(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 (IMAGE_INSTANCE_DIRTYP (i) = 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
887 Lisp_Object image_instance_device (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
888 Lisp_Object image_instance_frame (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
889 Lisp_Object image_instance_window (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
890 int image_instance_live_p (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
891
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 #ifdef HAVE_XPM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 Lisp_Object evaluate_xpm_color_symbols (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 Lisp_Object pixmap_to_lisp_data (Lisp_Object name, int ok_if_data_invalid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 #endif /* HAVE_XPM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 Lisp_Object bitmap_to_lisp_data (Lisp_Object name, int *xhot, int *yhot,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 int ok_if_data_invalid);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
899 int read_bitmap_data_from_file (Lisp_Object filename, int *width,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
900 int *height, UChar_Binary **datap,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 int *x_hot, int *y_hot);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 Lisp_Object xbm_mask_file_munging (Lisp_Object alist, Lisp_Object file,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 Lisp_Object mask_file,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 Lisp_Object console_type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 /* Glyph Object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 enum glyph_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 GLYPH_UNKNOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 GLYPH_BUFFER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 GLYPH_POINTER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 GLYPH_ICON
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 struct Lisp_Glyph
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 enum glyph_type type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 /* specifiers: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 Lisp_Object image; /* the actual image */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 Lisp_Object contrib_p; /* whether to figure into line height */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 Lisp_Object baseline; /* percent above baseline */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 Lisp_Object face; /* if non-nil, face to use when displaying */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
931
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 Lisp_Object plist;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 void (*after_change) (Lisp_Object glyph, Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 Lisp_Object locale);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 unsigned int dirty : 1; /* So that we can selectively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 redisplay changed glyphs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 };
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
939 typedef struct Lisp_Glyph Lisp_Glyph;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
941 DECLARE_LRECORD (glyph, Lisp_Glyph);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
942 #define XGLYPH(x) XRECORD (x, glyph, Lisp_Glyph)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
943 #define wrap_glyph(p) wrap_record (p, glyph)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 #define GLYPHP(x) RECORDP (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 #define CHECK_GLYPH(x) CHECK_RECORD (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 #define CONCHECK_GLYPH(x) CONCHECK_RECORD (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 #define CHECK_BUFFER_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 if (XGLYPH (x)->type != GLYPH_BUFFER) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 x = wrong_type_argument (Qbuffer_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 #define CHECK_POINTER_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 if (XGLYPH (x)->type != GLYPH_POINTER) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 x = wrong_type_argument (Qpointer_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 #define CHECK_ICON_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 if (XGLYPH (x)->type != GLYPH_ICON) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 x = wrong_type_argument (Qicon_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 #define GLYPH_TYPE(g) ((g)->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 #define GLYPH_IMAGE(g) ((g)->image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 #define GLYPH_CONTRIB_P(g) ((g)->contrib_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 #define GLYPH_BASELINE(g) ((g)->baseline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 #define GLYPH_FACE(g) ((g)->face)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 #define GLYPH_DIRTYP(g) ((g)->dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 #define XGLYPH_TYPE(g) GLYPH_TYPE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 #define XGLYPH_IMAGE(g) GLYPH_IMAGE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 #define XGLYPH_CONTRIB_P(g) GLYPH_CONTRIB_P (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 #define XGLYPH_BASELINE(g) GLYPH_BASELINE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 #define XGLYPH_FACE(g) GLYPH_FACE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 #define XGLYPH_DIRTYP(g) GLYPH_DIRTYP (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 #define MARK_GLYPH_CHANGED(g) (GLYPH_DIRTYP (g) = 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 extern Lisp_Object Qxpm, Qxface, Qetched_in, Qetched_out, Qbevel_in, Qbevel_out;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 extern Lisp_Object Q_data, Q_file, Q_color_symbols, Qconst_glyph_variable;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 extern Lisp_Object Qxbm, Qedit_field, Qgroup, Qlabel, Qcombo_box, Qscrollbar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 extern Lisp_Object Qtree_view, Qtab_control, Qprogress_gauge, Q_border;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 extern Lisp_Object Q_mask_file, Q_mask_data, Q_hotspot_x, Q_hotspot_y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 extern Lisp_Object Q_foreground, Q_background, Q_face, Q_descriptor, Q_group;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 extern Lisp_Object Q_width, Q_height, Q_pixel_width, Q_pixel_height, Q_text;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
989 extern Lisp_Object Q_items, Q_properties, Q_image, Qimage_conversion_error;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
990 extern Lisp_Object Q_orientation, Q_margin_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 extern Lisp_Object Vcontinuation_glyph, Vcontrol_arrow_glyph, Vhscroll_glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 extern Lisp_Object Vinvisible_text_glyph, Voctal_escape_glyph, Vtruncation_glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 extern Lisp_Object Vxemacs_logo;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
995
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
996 unsigned short glyph_width (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
997 unsigned short glyph_ascent (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
998 unsigned short glyph_descent (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
999 unsigned short glyph_height (Lisp_Object glyph, Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 Lisp_Object glyph_baseline (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 Lisp_Object glyph_face (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 int glyph_contrib_p (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 Lisp_Object glyph_image_instance (Lisp_Object glyph,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 Lisp_Object domain,
578
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben]
ben
parents: 563
diff changeset
1005 Error_Behavior errb, int no_quit);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 void file_or_data_must_be_present (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 void data_must_be_present (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 Lisp_Object make_string_from_file (Lisp_Object file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 Lisp_Object tagged_vector_to_alist (Lisp_Object vector);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 Lisp_Object alist_to_tagged_vector (Lisp_Object tag, Lisp_Object alist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 void string_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 int dest_mask, Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1014 int tab_control_order_only_changed (Lisp_Object image_instance);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 Lisp_Object allocate_glyph (enum glyph_type type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 void (*after_change) (Lisp_Object glyph,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 Lisp_Object locale));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1019 Lisp_Object normalize_image_instantiator (Lisp_Object instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1020 Lisp_Object contype,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1021 Lisp_Object dest_mask);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1022 void glyph_query_geometry (Lisp_Object glyph_or_image, int* width, int* height,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1023 enum image_instance_geometry disp,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1024 Lisp_Object domain);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1025 void glyph_do_layout (Lisp_Object glyph_or_image, int width, int height,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1026 int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1027 Lisp_Object domain);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1028 void query_string_geometry ( Lisp_Object string, Lisp_Object face,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1029 int* width, int* height, int* descent,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1030 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1031 Lisp_Object query_string_font (Lisp_Object string,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1032 Lisp_Object face, Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 Lisp_Object add_glyph_animated_timeout (EMACS_INT tickms, Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 void disable_glyph_animated_timeout (int i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 /* Glyph Cachels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 typedef struct glyph_cachel glyph_cachel;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 struct glyph_cachel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 Lisp_Object glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 unsigned int dirty :1; /* I'm copying faces here. I'm not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 sure why we need two dirty
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 flags. Maybe because an image
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 instance can be dirty and so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 need to frob this in the same way
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 as other image instance properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 unsigned int updated :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 unsigned short width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 unsigned short ascent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 unsigned short descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 #define CONT_GLYPH_INDEX (glyph_index) 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 #define TRUN_GLYPH_INDEX (glyph_index) 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 #define HSCROLL_GLYPH_INDEX (glyph_index) 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 #define CONTROL_GLYPH_INDEX (glyph_index) 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 #define OCT_ESC_GLYPH_INDEX (glyph_index) 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 #define INVIS_GLYPH_INDEX (glyph_index) 5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1065 #ifdef ERROR_CHECK_GLYPHS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1066
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1067 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1068 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1069 GLYPH_CACHEL_WIDTH (struct window *window, int ind)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1070 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 int wid = Dynarr_atp (window->glyph_cachels, ind)->width;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1073 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1074 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1075 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1076
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1077 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1078 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1079 GLYPH_CACHEL_ASCENT (struct window *window, int ind)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1080 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1081 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1082 int wid = Dynarr_atp (window->glyph_cachels, ind)->ascent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1083 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1084 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1085 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1086
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1087 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1088 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1089 GLYPH_CACHEL_DESCENT (struct window *window, int ind)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1090 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1091 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1092 int wid = Dynarr_atp (window->glyph_cachels, ind)->descent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1093 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1094 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1095 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1096
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1097 #else /* not ERROR_CHECK_GLYPHS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1098
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1099 #define GLYPH_CACHEL_WIDTH(window, ind) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1100 Dynarr_atp (window->glyph_cachels, ind)->width
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1101 #define GLYPH_CACHEL_ASCENT(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1102 Dynarr_atp (window->glyph_cachels, ind)->ascent
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1103 #define GLYPH_CACHEL_DESCENT(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1104 Dynarr_atp (window->glyph_cachels, ind)->descent
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1105
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1106 #endif /* not ERROR_CHECK_GLYPHS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1107
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1108 #define GLYPH_CACHEL(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1109 Dynarr_atp (window->glyph_cachels, ind)
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1110 #define GLYPH_CACHEL_GLYPH(window, ind) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1111 Dynarr_atp (window->glyph_cachels, ind)->glyph
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1112 #define GLYPH_CACHEL_DIRTYP(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1113 Dynarr_atp (window->glyph_cachels, ind)->dirty
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 void mark_glyph_cachels (glyph_cachel_dynarr *elements);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 void mark_glyph_cachels_as_not_updated (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 void mark_glyph_cachels_as_clean (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 void reset_glyph_cachels (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 glyph_index get_glyph_cachel_index (struct window *w, Lisp_Object glyph);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 int compute_glyph_cachel_usage (glyph_cachel_dynarr *glyph_cachels,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 struct overhead_stats *ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124 #endif /* MEMORY_USAGE_STATS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 /* Display Tables */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 Lisp_Object display_table_entry (Emchar, Lisp_Object, Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 void get_display_tables (struct window *, face_index,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 Lisp_Object *, Lisp_Object *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 /****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 * Subwindow Object *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 void unmap_subwindow (Lisp_Object subwindow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 void map_subwindow (Lisp_Object subwindow, int x, int y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 struct display_glyph_area *dga);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1141 int find_matching_subwindow (struct frame* f, int x, int y, int width,
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1142 int height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1143 void redisplay_widget (Lisp_Object widget);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1144 void update_widget_instances (Lisp_Object frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1145 void redisplay_subwindow (Lisp_Object subwindow);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1146 Lisp_Object image_instance_parent_glyph (struct Lisp_Image_Instance*);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1147 int image_instance_changed (Lisp_Object image);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1148 void free_frame_subwindow_instances (struct frame* f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 void reset_frame_subwindow_instance_cache (struct frame* f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1150 int unmap_subwindow_instance_cache_mapper (Lisp_Object key,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1151 Lisp_Object value, void* finalize);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 struct expose_ignore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1155 int x, y;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1156 int width, height;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 struct expose_ignore *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1160 int check_for_ignored_expose (struct frame* f, int x, int y, int width,
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1161 int height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 extern int hold_ignored_expose_registration;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1164 #endif /* INCLUDED_glyphs_h_ */