annotate src/glyphs.h @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents 804517e16990
children 184461bc8de4
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"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
28 #include "window-impl.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
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
100 #define DEFAULT_WIDGET_BORDER_WIDTH 2
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
101 #define DEFAULT_WIDGET_SPACING 3
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
102 #define DEFAULT_WIDGET_SHADOW_WIDTH 2
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
103
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
104 enum governing_domain
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
105 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
106 GOVERNING_DOMAIN_WINDOW,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
107 GOVERNING_DOMAIN_FRAME,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
108 GOVERNING_DOMAIN_DEVICE
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
109 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
110
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 struct image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 Lisp_Object symbol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 Lisp_Object device; /* sometimes used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 ii_keyword_entry_dynarr *keywords;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 /* consoles this ii is supported on */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 console_type_entry_dynarr *consoles;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 /* Implementation specific methods: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 /* Validate method: Given an instantiator vector, signal an error if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 it's invalid for this image-instantiator format. Note that this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 validation only occurs after all the keyword-specific validation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 has already been performed. This is chiefly useful for making
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 sure that certain required keywords are present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 void (*validate_method) (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 /* Normalize method: Given an instantiator, convert it to the form
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 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
131 Signal an error if conversion fails. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 Lisp_Object (*normalize_method) (Lisp_Object instantiator,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
133 Lisp_Object console_type,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
134 Lisp_Object dest_mask);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
135
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
136 /* Governing domain method: Return an int indicating what type of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
137 domain an instance in this format is governed by. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
138 int (*governing_domain_method) (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 /* Possible-dest-types method: Return a mask indicating what dest types
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 are compatible with this format. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 int (*possible_dest_types_method) (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 /* Instantiate method: Given an instantiator and a partially
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 filled-in image instance, complete the filling-in. Return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 non-zero if the instantiation succeeds, 0 if it fails.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 This must be present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 void (*instantiate_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 Lisp_Object pointer_fg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 int dest_mask,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
154 /* Post instantiate method: finish instantiation of the image
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
155 instance. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
156 void (*post_instantiate_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
157 Lisp_Object instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
158 Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* Property method: Given an image instance, return device specific
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 Lisp_Object (*property_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 Lisp_Object property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 /* Set-property method: Given an image instance, set device specific
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 Lisp_Object (*set_property_method) (Lisp_Object image_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 Lisp_Object val);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
168 /* Asynchronously update properties. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
169 void (*update_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
170 Lisp_Object instantiator);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
171 void (*redisplay_method) (Lisp_Object image_instance);
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
172
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
173 /* 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
174 instance. Actual geometry is stored in the appropriate slots in the
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
175 image instance. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
176 void (*query_geometry_method) (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
177 int* width, int* height,
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
178 enum image_instance_geometry disp,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
179 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
180
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
181 /* Layout the instance and its children bounded by the provided
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
182 dimensions. Returns success or failure. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
183 int (*layout_method) (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
184 int width, int height, int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
185 Lisp_Object domain);
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 /***** Calling an image-instantiator method *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 #define HAS_IIFORMAT_METH_P(mstruc, m) (((mstruc)->m##_method) != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 #define IIFORMAT_METH(mstruc, m, args) (((mstruc)->m##_method) args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 /* Call a void-returning specifier method, if it exists */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 #define MAYBE_IIFORMAT_METH(mstruc, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 struct image_instantiator_methods *MIM_mstruc = (mstruc); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 if (MIM_mstruc && HAS_IIFORMAT_METH_P (MIM_mstruc, m)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 IIFORMAT_METH (MIM_mstruc, m, args); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 #define MAYBE_IIFORMAT_DEVMETH(device, mstruc, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 struct image_instantiator_methods *MID_mstruc = \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 decode_ii_device (device, mstruc); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 if (MID_mstruc) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 MAYBE_IIFORMAT_METH(MID_mstruc, m, args); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 } while (0)
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 /* Call a specifier method, if it exists; otherwise return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 the specified value */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 #define IIFORMAT_METH_OR_GIVEN(mstruc, m, args, given) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
214 ((mstruc && HAS_IIFORMAT_METH_P (mstruc, m)) ? \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 IIFORMAT_METH (mstruc, m, args) : (given))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 /***** Defining new image-instantiator types *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 #define DECLARE_IMAGE_INSTANTIATOR_FORMAT(format) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 extern struct image_instantiator_methods *format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 #define DEFINE_IMAGE_INSTANTIATOR_FORMAT(format) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 struct image_instantiator_methods *format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 #define INITIALIZE_IMAGE_INSTANTIATOR_FORMAT_NO_SYM(format, obj_name) \
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
226 do { \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
227 format##_image_instantiator_methods = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
228 xnew_and_zero (struct image_instantiator_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
229 format##_image_instantiator_methods->symbol = Q##format; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
230 format##_image_instantiator_methods->device = Qnil; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
231 format##_image_instantiator_methods->keywords = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
232 Dynarr_new (ii_keyword_entry); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
233 format##_image_instantiator_methods->consoles = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
234 Dynarr_new (console_type_entry); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
235 add_entry_to_image_instantiator_format_list \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
236 (Q##format, format##_image_instantiator_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
237 dump_add_root_struct_ptr (&format##_image_instantiator_methods, \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 450
diff changeset
238 &iim_description); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 #define INITIALIZE_IMAGE_INSTANTIATOR_FORMAT(format, obj_name) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 defsymbol (&Q##format, obj_name); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT_NO_SYM(format, obj_name);\
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 /* Declare that image-instantiator format FORMAT has method M; used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 initialization routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 #define IIFORMAT_HAS_METHOD(format, m) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 (format##_image_instantiator_methods->m##_method = format##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #define IIFORMAT_HAS_SHARED_METHOD(format, m, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 (format##_image_instantiator_methods->m##_method = type##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 /* Declare that KEYW is a valid keyword for image-instantiator format
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 FORMAT. VALIDATE_FUN if a function that returns whether the data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 is valid. The keyword may not appear more than once. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
258 #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
259 do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 struct ii_keyword_entry entry; \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
261 \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
262 entry.keyword = keyw; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 entry.validate = validate_fun; \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
264 entry.multiple_p = multi; \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
265 entry.copy_p = copy; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 Dynarr_add (format##_image_instantiator_methods->keywords, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 entry); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
270 #define IIFORMAT_VALID_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
271 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 1, 0)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
272
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 /* Same as IIFORMAT_VALID_KEYWORD except that the keyword may
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 appear multiple times. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
275 #define IIFORMAT_VALID_MULTI_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
276 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 1, 1)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
277
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
278 /* 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
279 copied by the specifier functions. This is necessary for things
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
280 like callbacks etc. */
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
281 #define IIFORMAT_VALID_NONCOPY_KEYWORD(format, keyw, validate_fun) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
282 IIFORMAT_VALID_GENERIC_KEYWORD(format, keyw, validate_fun, 0, 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
284 /* Declare that image-instantiator format FORMAT is supported on
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 CONSOLE type. */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
286 #define IIFORMAT_VALID_CONSOLE(console, format) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 struct console_type_entry entry; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 entry.symbol = Q##console; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 entry.meths = console##_console_methods; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 Dynarr_add (format##_image_instantiator_methods->consoles, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 entry); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
296 #define IIFORMAT_VALID_CONSOLE2(con1, con2, format) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
297 IIFORMAT_VALID_CONSOLE (con1, format); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
298 IIFORMAT_VALID_CONSOLE (con2, format);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
299
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
300 #define DEFINE_DEVICE_IIFORMAT(type, format) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
301 DECLARE_IMAGE_INSTANTIATOR_FORMAT(format); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 struct image_instantiator_methods *type##_##format##_image_instantiator_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
304 #define INITIALIZE_DEVICE_IIFORMAT(type, format) \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
305 do { \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
306 type##_##format##_image_instantiator_methods = \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
307 xnew_and_zero (struct image_instantiator_methods); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
308 type##_##format##_image_instantiator_methods->symbol = Q##format; \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
309 type##_##format##_image_instantiator_methods->device = Q##type; \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
310 type##_##format##_image_instantiator_methods->keywords = \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
311 Dynarr_new (ii_keyword_entry); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
312 add_entry_to_device_ii_format_list \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
313 (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
314 IIFORMAT_VALID_CONSOLE(type,format); \
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
315 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
316 &iim_description); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 /* Declare that image-instantiator format FORMAT has method M; used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 initialization routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 #define IIFORMAT_HAS_DEVMETHOD(type, format, m) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 (type##_##format##_image_instantiator_methods->m##_method = type##_##format##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 #define IIFORMAT_HAS_SHARED_DEVMETHOD(type, format, m, fromformat) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 (type##_##format##_image_instantiator_methods->m##_method = type##_##fromformat##_##m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
326 #define IIFORMAT_INHERITS_DEVMETHOD(type, from, format, m) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
327 (type##_##format##_image_instantiator_methods->m##_method = from##_##format##_##m)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
328 #define IIFORMAT_INHERITS_SHARED_DEVMETHOD(type, from, format, m, fromformat) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
329 (type##_##format##_image_instantiator_methods->m##_method = from##_##fromformat##_##m)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
330
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
331 #define INSTANTIATOR_TYPE(inst) (XVECTOR_DATA ((inst))[0])
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
332
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
333 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
334 Lisp_Object format,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
335 Error_Behavior
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
336 errb);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
337 struct image_instantiator_methods *decode_image_instantiator_format
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
338 (Lisp_Object format, Error_Behavior errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 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
341 struct
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
342 image_instantiator_methods *
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
343 meths);
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
344 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
345 Lisp_Object symbol,
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
346 struct image_instantiator_methods *
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
347 meths);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 Lisp_Object find_keyword_in_vector (Lisp_Object vector,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 Lisp_Object keyword);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 Lisp_Object find_keyword_in_vector_or_given (Lisp_Object vector,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 Lisp_Object keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 Lisp_Object default_);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 Lisp_Object simple_image_type_normalize (Lisp_Object inst,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 Lisp_Object console_type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 Lisp_Object image_type_tag);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 Lisp_Object potential_pixmap_file_instantiator (Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 Lisp_Object file_keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 Lisp_Object data_keyword,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 Lisp_Object console_type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 void check_valid_string (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 void check_valid_int (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 void check_valid_face (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 void check_valid_vector (Lisp_Object data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
365 void initialize_subwindow_image_instance (Lisp_Image_Instance*);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 void subwindow_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 int dest_mask, Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
369 int subwindow_governing_domain (void);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
370 void widget_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
371 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
372 int dest_mask, Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
373 void image_instance_query_geometry (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
374 int* width, int* height,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
375 enum image_instance_geometry disp,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
376 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
377 void image_instance_layout (Lisp_Object image_instance,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
378 int width, int height, int xoffset, int yoffset,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
379 Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
380 int layout_layout (Lisp_Object image_instance,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
381 int width, int height, int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
382 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
383 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
384 Lisp_Object make_image_instance_cache_hash_table (void);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 DECLARE_DOESNT_RETURN (incompatible_image_types (Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 int given_dest_mask,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 int desired_dest_mask));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
389 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
390 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
391 Lisp_Object));
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
392 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
393 const char *string2,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
394 Lisp_Object data));
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
395 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
396 const char *string2,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
397 Lisp_Object data1,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 456
diff changeset
398 Lisp_Object data2));
428
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 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 /* Image Specifier Object */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 DECLARE_SPECIFIER_TYPE (image);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 #define XIMAGE_SPECIFIER(x) XSPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 #define IMAGE_SPECIFIERP(x) SPECIFIER_TYPEP (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 #define CHECK_IMAGE_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 #define CONCHECK_IMAGE_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 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
411 Lisp_Object property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 struct image_specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 int allowed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 Lisp_Object attachee; /* face or glyph this is attached to, or nil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 Lisp_Object attachee_property;/* property of that face or glyph */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 452
diff changeset
420 #define IMAGE_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, image)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 #define IMAGE_SPECIFIER_ALLOWED(g) (IMAGE_SPECIFIER_DATA (g)->allowed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 #define IMAGE_SPECIFIER_ATTACHEE(g) (IMAGE_SPECIFIER_DATA (g)->attachee)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 #define IMAGE_SPECIFIER_ATTACHEE_PROPERTY(g) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 (IMAGE_SPECIFIER_DATA (g)->attachee_property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 #define XIMAGE_SPECIFIER_ALLOWED(g) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 IMAGE_SPECIFIER_ALLOWED (XIMAGE_SPECIFIER (g))
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 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 /* Image Instance Object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
433 DECLARE_LRECORD (image_instance, Lisp_Image_Instance);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
434 #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
435 #define wrap_image_instance(p) wrap_record (p, image_instance)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 #define IMAGE_INSTANCEP(x) RECORDP (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 #define CHECK_IMAGE_INSTANCE(x) CHECK_RECORD (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 #define CONCHECK_IMAGE_INSTANCE(x) CONCHECK_RECORD (x, image_instance)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
440 #ifdef ERROR_CHECK_GLYPHS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
441 void check_image_instance_structure (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
442 void check_window_subwindow_cache (struct window* w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
443 #define ERROR_CHECK_IMAGE_INSTANCE(ii) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
444 check_image_instance_structure (ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
445 #define ERROR_CHECK_SUBWINDOW_CACHE(w) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
446 check_window_subwindow_cache (w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
447 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
448 #define ERROR_CHECK_IMAGE_INSTANCE(ii)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
449 #define ERROR_CHECK_SUBWINDOW_CACHE(w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
450 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
451
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 enum image_instance_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 IMAGE_UNKNOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 IMAGE_NOTHING,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 IMAGE_TEXT,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 IMAGE_MONO_PIXMAP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 IMAGE_COLOR_PIXMAP,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 IMAGE_POINTER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 IMAGE_SUBWINDOW,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
461 IMAGE_WIDGET
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 #define IMAGE_NOTHING_MASK (1 << 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 #define IMAGE_TEXT_MASK (1 << 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 #define IMAGE_MONO_PIXMAP_MASK (1 << 2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 #define IMAGE_COLOR_PIXMAP_MASK (1 << 3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 #define IMAGE_POINTER_MASK (1 << 4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 #define IMAGE_SUBWINDOW_MASK (1 << 5)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 #define IMAGE_WIDGET_MASK (1 << 6)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
471
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
472 /* This depends on the fact that enums are assigned consecutive
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
473 integers starting at 0. (Remember that IMAGE_UNKNOWN is the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
474 first enum.) I'm fairly sure this behavior is ANSI-mandated,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
475 so there should be no portability problems here. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
476 #define image_instance_type_to_mask(type) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
477 ((int) (1 << ((int) (type) - 1)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 #define IMAGE_INSTANCE_TYPE_P(ii, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 (IMAGE_INSTANCEP (ii) && XIMAGE_INSTANCE_TYPE (ii) == type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 #define NOTHING_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_NOTHING)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 #define TEXT_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_TEXT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 #define MONO_PIXMAP_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_MONO_PIXMAP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 #define COLOR_PIXMAP_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_COLOR_PIXMAP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 #define POINTER_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_POINTER)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 #define SUBWINDOW_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_SUBWINDOW)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 #define WIDGET_IMAGE_INSTANCEP(ii) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 IMAGE_INSTANCE_TYPE_P (ii, IMAGE_WIDGET)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
497 #define CHECK_NOTHING_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
498 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 if (!NOTHING_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 x = wrong_type_argument (Qnothing_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
503 #define CHECK_TEXT_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
504 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 if (!TEXT_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 x = wrong_type_argument (Qtext_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 #define CHECK_MONO_PIXMAP_IMAGE_INSTANCE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 CHECK_IMAGE_INSTANCE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 if (!MONO_PIXMAP_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 x = wrong_type_argument (Qmono_pixmap_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
515 #define CHECK_COLOR_PIXMAP_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
516 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 if (!COLOR_PIXMAP_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 x = wrong_type_argument (Qcolor_pixmap_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
521 #define CHECK_POINTER_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
522 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 if (!POINTER_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 x = wrong_type_argument (Qpointer_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
527 #define CHECK_SUBWINDOW_IMAGE_INSTANCE(x) do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 CHECK_IMAGE_INSTANCE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 if (!SUBWINDOW_IMAGE_INSTANCEP (x) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 && !WIDGET_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 x = wrong_type_argument (Qsubwindow_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
534 #define CHECK_WIDGET_IMAGE_INSTANCE(x) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
535 CHECK_IMAGE_INSTANCE (x); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 if (!WIDGET_IMAGE_INSTANCEP (x)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 x = wrong_type_argument (Qwidget_image_instance_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 struct Lisp_Image_Instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 struct lcrecord_header header;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
543 Lisp_Object domain; /* The domain in which we were cached. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
544 Lisp_Object device; /* The device of the domain. Recorded
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
545 since the domain may get deleted
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
546 before us. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 Lisp_Object name;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
548 /* The glyph from which we were instantiated. This is a weak
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
549 reference. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
550 Lisp_Object parent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
551 /* The instantiator from which we were instantiated. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
552 Lisp_Object instantiator;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 enum image_instance_type type;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
554 int x_offset, y_offset; /* for layout purposes */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
555 int width, height, margin_width;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
556 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
557 of the image_instance when it was
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
558 last displayed. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 unsigned int dirty : 1;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
560 unsigned int size_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
561 unsigned int text_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
562 unsigned int layout_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
563 unsigned int optimize_output : 1; /* For outputting layouts. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
564 unsigned int initialized : 1; /* When we're fully done. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
565 unsigned int wants_initial_focus : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
566
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 union
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
571 int descent;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 Lisp_Object string;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 } text;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
576 int depth;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
577 int slice, maxslice, timeout;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 Lisp_Object hotspot_x, hotspot_y; /* integer or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 Lisp_Object filename; /* string or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 Lisp_Object mask_filename; /* string or Qnil */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 Lisp_Object fg, bg; /* foreground and background colors,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 if this is a colorized mono-pixmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 or a pointer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 Lisp_Object auxdata; /* list or Qnil: any additional data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 to be seen from lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 void* mask; /* mask that can be seen from all windowing systems */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 } pixmap; /* used for pointers as well */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 struct
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 void* subwindow; /* specific devices can use this as necessary */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
591 struct
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
592 { /* We need these so we can do without
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
593 subwindow_cachel */
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
594 int x, y;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
595 int width, height;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
596 } display_data;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
597 unsigned int being_displayed : 1; /* used to detect when needs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
598 to be unmapped */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
599 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
600 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
601 unsigned int orientation : 1; /* Vertical or horizontal. */
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
602 unsigned int h_justification : 2; /* left, right or center. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
603 unsigned int v_justification : 2; /* top, bottom or center. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
604 /* 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
605 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
606 spec. Using glyph-face is more inconvenient, although more
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
607 general. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
608 Lisp_Object face;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
609 Lisp_Object type;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
610 Lisp_Object props; /* properties or border*/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
611 Lisp_Object items; /* a list of displayed gui_items */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
612 Lisp_Object pending_items; /* gui_items that should be displayed */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
613 Lisp_Object children; /* a list of children */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
614 Lisp_Object width; /* dynamic width spec. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
615 Lisp_Object height; /* dynamic height spec. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
616 /* Change flags to augment dirty. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
617 unsigned int face_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
618 unsigned int items_changed : 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
619 unsigned int action_occurred : 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 } subwindow;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 } u;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 /* console-type- and image-type-specific data */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 void *data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
627 /* Layout bit-fields. */
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
628 #define LAYOUT_HORIZONTAL 0
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
629 #define LAYOUT_VERTICAL 1
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
630
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
631 #define LAYOUT_JUSTIFY_LEFT 0
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
632 #define LAYOUT_JUSTIFY_TOP 0
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
633 #define LAYOUT_JUSTIFY_RIGHT 1
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
634 #define LAYOUT_JUSTIFY_BOTTOM 1
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
635 #define LAYOUT_JUSTIFY_CENTER 2
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
636
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
637 #define IMAGE_INSTANCE_HASH_DEPTH 0
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
638
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
639 /* Accessor macros. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
640 #define IMAGE_INSTANCE_DOMAIN(i) ((i)->domain)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
641 #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
642 #define IMAGE_INSTANCE_DEVICE(i) ((i)->device)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
643 #define IMAGE_INSTANCE_FRAME(i) (DOMAIN_FRAME ((i)->domain))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 #define IMAGE_INSTANCE_NAME(i) ((i)->name)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
645 #define IMAGE_INSTANCE_PARENT(i) ((i)->parent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
646 #define IMAGE_INSTANCE_INSTANTIATOR(i) ((i)->instantiator)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
647 #define IMAGE_INSTANCE_GLYPH(i) (image_instance_parent_glyph(i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 #define IMAGE_INSTANCE_TYPE(i) ((i)->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 #define IMAGE_INSTANCE_XOFFSET(i) ((i)->x_offset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 #define IMAGE_INSTANCE_YOFFSET(i) ((i)->y_offset)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
651 #define IMAGE_INSTANCE_WIDTH(i) ((i)->width)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
652 #define IMAGE_INSTANCE_MARGIN_WIDTH(i) ((i)->margin_width)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
653 #define IMAGE_INSTANCE_HEIGHT(i) ((i)->height)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
654 #define IMAGE_INSTANCE_INITIALIZED(i) ((i)->initialized)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
655 #define IMAGE_INSTANCE_DISPLAY_HASH(i) ((i)->display_hash)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
656 #define IMAGE_INSTANCE_PIXMAP_TYPE_P(i) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
657 ((IMAGE_INSTANCE_TYPE (i) == IMAGE_MONO_PIXMAP) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 || (IMAGE_INSTANCE_TYPE (i) == IMAGE_COLOR_PIXMAP))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 #define IMAGE_INSTANCE_DIRTYP(i) ((i)->dirty)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
660 #define IMAGE_INSTANCE_NEEDS_LAYOUT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
661 ((IMAGE_INSTANCE_DIRTYP (i) && IMAGE_INSTANCE_LAYOUT_CHANGED (i)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
662 || (FRAMEP (IMAGE_INSTANCE_FRAME (i)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
663 && XFRAME (IMAGE_INSTANCE_FRAME (i))->size_changed))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
664 #define IMAGE_INSTANCE_FACE(i) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
665 (GLYPHP (IMAGE_INSTANCE_GLYPH (i)) ? \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
666 XGLYPH_FACE (IMAGE_INSTANCE_GLYPH (i)) : Qnil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
667 #define IMAGE_INSTANCE_WANTS_INITIAL_FOCUS(i) ((i)->wants_initial_focus)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
669 /* Changed flags */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
670 #define IMAGE_INSTANCE_TEXT_CHANGED(i) ((i)->text_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
671 #define IMAGE_INSTANCE_SIZE_CHANGED(i) ((i)->size_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
672 #define IMAGE_INSTANCE_WIDGET_FACE_CHANGED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
673 ((i)->u.subwindow.face_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
674 #define IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
675 ((i)->u.subwindow.items_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
676 #define IMAGE_INSTANCE_WIDGET_ACTION_OCCURRED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
677 ((i)->u.subwindow.action_occurred)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
678 #define IMAGE_INSTANCE_LAYOUT_CHANGED(i) ((i)->layout_changed)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
679 #define IMAGE_INSTANCE_OPTIMIZE_OUTPUT(i) ((i)->optimize_output)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
680
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
681 /* Text properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 #define IMAGE_INSTANCE_TEXT_STRING(i) ((i)->u.text.string)
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
683 #define IMAGE_INSTANCE_TEXT_WIDTH(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
684 IMAGE_INSTANCE_WIDTH(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
685 #define IMAGE_INSTANCE_TEXT_HEIGHT(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
686 IMAGE_INSTANCE_HEIGHT(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
687 #define IMAGE_INSTANCE_TEXT_DESCENT(i) ((i)->u.text.descent)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
688 #define IMAGE_INSTANCE_TEXT_ASCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
689 (IMAGE_INSTANCE_TEXT_HEIGHT(i) - IMAGE_INSTANCE_TEXT_DESCENT(i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
691 /* Pixmap properties */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
692 #define IMAGE_INSTANCE_PIXMAP_WIDTH(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
693 IMAGE_INSTANCE_WIDTH(i)
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
694 #define IMAGE_INSTANCE_PIXMAP_HEIGHT(i) \
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
695 IMAGE_INSTANCE_HEIGHT(i)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 #define IMAGE_INSTANCE_PIXMAP_DEPTH(i) ((i)->u.pixmap.depth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 #define IMAGE_INSTANCE_PIXMAP_FILENAME(i) ((i)->u.pixmap.filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 #define IMAGE_INSTANCE_PIXMAP_MASK_FILENAME(i) ((i)->u.pixmap.mask_filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 #define IMAGE_INSTANCE_PIXMAP_HOTSPOT_X(i) ((i)->u.pixmap.hotspot_x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 #define IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y(i) ((i)->u.pixmap.hotspot_y)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 #define IMAGE_INSTANCE_PIXMAP_FG(i) ((i)->u.pixmap.fg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 #define IMAGE_INSTANCE_PIXMAP_BG(i) ((i)->u.pixmap.bg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 #define IMAGE_INSTANCE_PIXMAP_AUXDATA(i) ((i)->u.pixmap.auxdata)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 #define IMAGE_INSTANCE_PIXMAP_MASK(i) ((i)->u.pixmap.mask)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 #define IMAGE_INSTANCE_PIXMAP_SLICE(i) ((i)->u.pixmap.slice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 #define IMAGE_INSTANCE_PIXMAP_MAXSLICE(i) ((i)->u.pixmap.maxslice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 #define IMAGE_INSTANCE_PIXMAP_TIMEOUT(i) ((i)->u.pixmap.timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
709 /* Subwindow properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 #define IMAGE_INSTANCE_SUBWINDOW_ID(i) ((i)->u.subwindow.subwindow)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
711 /* Display data. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
712 #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
713 #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
714 #define IMAGE_INSTANCE_DISPLAY_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
715 ((i)->u.subwindow.display_data.width)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
716 #define IMAGE_INSTANCE_DISPLAY_HEIGHT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
717 ((i)->u.subwindow.display_data.height)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 #define IMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 ((i)->u.subwindow.being_displayed)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
720 #define IMAGE_INSTANCE_SUBWINDOW_V_RESIZEP(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
721 ((i)->u.subwindow.v_resize)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
722 #define IMAGE_INSTANCE_SUBWINDOW_H_RESIZEP(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
723 ((i)->u.subwindow.h_resize)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
724 #define IMAGE_INSTANCE_SUBWINDOW_ORIENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
725 ((i)->u.subwindow.orientation)
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
726 #define IMAGE_INSTANCE_SUBWINDOW_H_JUSTIFY(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
727 ((i)->u.subwindow.h_justification)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
728 #define IMAGE_INSTANCE_SUBWINDOW_V_JUSTIFY(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
729 ((i)->u.subwindow.v_justification)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
730 #define IMAGE_INSTANCE_SUBWINDOW_RIGHT_JUSTIFIED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
731 (IMAGE_INSTANCE_SUBWINDOW_H_JUSTIFY(i) == LAYOUT_JUSTIFY_RIGHT)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
732 #define IMAGE_INSTANCE_SUBWINDOW_LEFT_JUSTIFIED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
733 (IMAGE_INSTANCE_SUBWINDOW_H_JUSTIFY(i) == LAYOUT_JUSTIFY_LEFT)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
734 #define IMAGE_INSTANCE_SUBWINDOW_TOP_JUSTIFIED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
735 (IMAGE_INSTANCE_SUBWINDOW_V_JUSTIFY(i) == LAYOUT_JUSTIFY_TOP)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
736 #define IMAGE_INSTANCE_SUBWINDOW_BOTTOM_JUSTIFIED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
737 (IMAGE_INSTANCE_SUBWINDOW_V_JUSTIFY(i) == LAYOUT_JUSTIFY_BOTTOM)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
738 #define IMAGE_INSTANCE_SUBWINDOW_H_CENTERED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
739 (IMAGE_INSTANCE_SUBWINDOW_H_JUSTIFY(i) == LAYOUT_JUSTIFY_CENTER)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
740 #define IMAGE_INSTANCE_SUBWINDOW_V_CENTERED(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
741 (IMAGE_INSTANCE_SUBWINDOW_V_JUSTIFY(i) == LAYOUT_JUSTIFY_CENTER)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
742 #define IMAGE_INSTANCE_SUBWINDOW_LOGICAL_LAYOUT(i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
743 (IMAGE_INSTANCE_SUBWINDOW_ORIENT (i) \
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
744 == LAYOUT_VERTICAL && !IMAGE_INSTANCE_SUBWINDOW_V_CENTERED (i))
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
745
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
746 #define IMAGE_INSTANCE_SUBWINDOW_FACE(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
747 ((i)->u.subwindow.face)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
749 /* Widget properties */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 #define IMAGE_INSTANCE_WIDGET_WIDTH(i) \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
751 IMAGE_INSTANCE_WIDTH(i)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 #define IMAGE_INSTANCE_WIDGET_HEIGHT(i) \
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
753 IMAGE_INSTANCE_HEIGHT(i)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
754 #define IMAGE_INSTANCE_WIDGET_WIDTH_SUBR(i) ((i)->u.subwindow.width)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
755 #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
756 #define IMAGE_INSTANCE_WIDGET_TYPE(i) ((i)->u.subwindow.type)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
757 #define IMAGE_INSTANCE_WIDGET_PROPS(i) ((i)->u.subwindow.props)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
758 #define SET_IMAGE_INSTANCE_WIDGET_FACE(i,f) \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
759 ((i)->u.subwindow.face = f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
760 #define IMAGE_INSTANCE_WIDGET_FACE(i) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
761 (!NILP ((i)->u.subwindow.face) ? (i)->u.subwindow.face : \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
762 !NILP (IMAGE_INSTANCE_FACE (i)) ? IMAGE_INSTANCE_FACE (i) : \
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
763 Vwidget_face)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
764 #define IMAGE_INSTANCE_WIDGET_ITEMS(i) ((i)->u.subwindow.items)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
765 #define IMAGE_INSTANCE_WIDGET_PENDING_ITEMS(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
766 ((i)->u.subwindow.pending_items)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
767 #define IMAGE_INSTANCE_WIDGET_ITEM(i) \
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
768 (CONSP (IMAGE_INSTANCE_WIDGET_ITEMS (i)) ? \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
769 XCAR (IMAGE_INSTANCE_WIDGET_ITEMS (i)) : \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
770 IMAGE_INSTANCE_WIDGET_ITEMS (i))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
771 #define IMAGE_INSTANCE_WIDGET_TEXT(i) \
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
772 XGUI_ITEM (IMAGE_INSTANCE_WIDGET_ITEM (i))->name
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
774 /* Layout properties */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
775 #define IMAGE_INSTANCE_LAYOUT_CHILDREN(i) ((i)->u.subwindow.children)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
776 #define IMAGE_INSTANCE_LAYOUT_BORDER(i) ((i)->u.subwindow.props)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
778 #define XIMAGE_INSTANCE_DOMAIN(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
779 IMAGE_INSTANCE_DOMAIN (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
780 #define XIMAGE_INSTANCE_DOMAIN_LIVE_P(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
781 IMAGE_INSTANCE_DOMAIN_LIVE_P (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 #define XIMAGE_INSTANCE_DEVICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 IMAGE_INSTANCE_DEVICE (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
784 #define XIMAGE_INSTANCE_FRAME(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
785 IMAGE_INSTANCE_FRAME (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 #define XIMAGE_INSTANCE_NAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 IMAGE_INSTANCE_NAME (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
788 #define XIMAGE_INSTANCE_GLYPH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
789 IMAGE_INSTANCE_GLYPH (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
790 #define XIMAGE_INSTANCE_PARENT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
791 IMAGE_INSTANCE_PARENT (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
792 #define XIMAGE_INSTANCE_INSTANTIATOR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
793 IMAGE_INSTANCE_INSTANTIATOR (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 #define XIMAGE_INSTANCE_TYPE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 IMAGE_INSTANCE_TYPE (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
796 #define XIMAGE_INSTANCE_DISPLAY_HASH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
797 IMAGE_INSTANCE_DISPLAY_HASH (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 #define XIMAGE_INSTANCE_XOFFSET(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 IMAGE_INSTANCE_XOFFSET (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 #define XIMAGE_INSTANCE_YOFFSET(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 IMAGE_INSTANCE_YOFFSET (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 #define XIMAGE_INSTANCE_DIRTYP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 IMAGE_INSTANCE_DIRTYP (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
804 #define XIMAGE_INSTANCE_NEEDS_LAYOUT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
805 IMAGE_INSTANCE_NEEDS_LAYOUT (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
806 #define XIMAGE_INSTANCE_WIDTH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
807 IMAGE_INSTANCE_WIDTH (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
808 #define XIMAGE_INSTANCE_MARGIN_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
809 IMAGE_INSTANCE_MARGIN_WIDTH (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
810 #define XIMAGE_INSTANCE_HEIGHT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
811 IMAGE_INSTANCE_HEIGHT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
812 #define XIMAGE_INSTANCE_INITIALIZED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
813 IMAGE_INSTANCE_INITIALIZED (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
814 #define XIMAGE_INSTANCE_FACE(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
815 IMAGE_INSTANCE_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 #define XIMAGE_INSTANCE_TEXT_STRING(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 IMAGE_INSTANCE_TEXT_STRING (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
819 #define XIMAGE_INSTANCE_TEXT_WIDTH(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
820 IMAGE_INSTANCE_TEXT_WIDTH (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
821 #define XIMAGE_INSTANCE_TEXT_HEIGHT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
822 IMAGE_INSTANCE_TEXT_HEIGHT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
823 #define XIMAGE_INSTANCE_TEXT_ASCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
824 IMAGE_INSTANCE_TEXT_ASCENT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
825 #define XIMAGE_INSTANCE_TEXT_DESCENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
826 IMAGE_INSTANCE_TEXT_DESCENT (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 #define XIMAGE_INSTANCE_PIXMAP_WIDTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 IMAGE_INSTANCE_PIXMAP_WIDTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 #define XIMAGE_INSTANCE_PIXMAP_HEIGHT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 IMAGE_INSTANCE_PIXMAP_HEIGHT (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 #define XIMAGE_INSTANCE_PIXMAP_DEPTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 IMAGE_INSTANCE_PIXMAP_DEPTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 #define XIMAGE_INSTANCE_PIXMAP_FILENAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 IMAGE_INSTANCE_PIXMAP_FILENAME (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 #define XIMAGE_INSTANCE_PIXMAP_MASK_FILENAME(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 #define XIMAGE_INSTANCE_PIXMAP_HOTSPOT_X(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 #define XIMAGE_INSTANCE_PIXMAP_HOTSPOT_Y(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 #define XIMAGE_INSTANCE_PIXMAP_FG(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 IMAGE_INSTANCE_PIXMAP_FG (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 #define XIMAGE_INSTANCE_PIXMAP_BG(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 IMAGE_INSTANCE_PIXMAP_BG (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 #define XIMAGE_INSTANCE_PIXMAP_MASK(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 IMAGE_INSTANCE_PIXMAP_MASK (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 #define XIMAGE_INSTANCE_PIXMAP_SLICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 IMAGE_INSTANCE_PIXMAP_SLICE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 #define XIMAGE_INSTANCE_PIXMAP_MAXSLICE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 IMAGE_INSTANCE_PIXMAP_MAXSLICE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 #define XIMAGE_INSTANCE_PIXMAP_TIMEOUT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 IMAGE_INSTANCE_PIXMAP_TIMEOUT (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 #define XIMAGE_INSTANCE_WIDGET_WIDTH(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 IMAGE_INSTANCE_WIDGET_WIDTH (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 #define XIMAGE_INSTANCE_WIDGET_HEIGHT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 IMAGE_INSTANCE_WIDGET_HEIGHT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
859 #define XIMAGE_INSTANCE_WIDGET_WIDTH_SUBR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
860 IMAGE_INSTANCE_WIDGET_WIDTH_SUBR (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
861 #define XIMAGE_INSTANCE_WIDGET_HEIGHT_SUBR(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
862 IMAGE_INSTANCE_WIDGET_HEIGHT_SUBR (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 #define XIMAGE_INSTANCE_WIDGET_TYPE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 IMAGE_INSTANCE_WIDGET_TYPE (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 #define XIMAGE_INSTANCE_WIDGET_PROPS(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 IMAGE_INSTANCE_WIDGET_PROPS (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 #define XIMAGE_INSTANCE_WIDGET_FACE(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 IMAGE_INSTANCE_WIDGET_FACE (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
869 #define XSET_IMAGE_INSTANCE_WIDGET_FACE(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
870 SET_IMAGE_INSTANCE_WIDGET_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 #define XIMAGE_INSTANCE_WIDGET_ITEM(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 IMAGE_INSTANCE_WIDGET_ITEM (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 #define XIMAGE_INSTANCE_WIDGET_ITEMS(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 IMAGE_INSTANCE_WIDGET_ITEMS (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
875 #define XIMAGE_INSTANCE_WIDGET_PENDING_ITEMS(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
876 IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 #define XIMAGE_INSTANCE_WIDGET_TEXT(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 IMAGE_INSTANCE_WIDGET_TEXT (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
879 #define XIMAGE_INSTANCE_WIDGET_ACTION_OCCURRED(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
880 IMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 #define XIMAGE_INSTANCE_LAYOUT_CHILDREN(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 IMAGE_INSTANCE_LAYOUT_CHILDREN (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 #define XIMAGE_INSTANCE_LAYOUT_BORDER(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 IMAGE_INSTANCE_LAYOUT_BORDER (XIMAGE_INSTANCE (i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 #define XIMAGE_INSTANCE_SUBWINDOW_ID(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 IMAGE_INSTANCE_SUBWINDOW_ID (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
889 #define XIMAGE_INSTANCE_DISPLAY_X(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
890 IMAGE_INSTANCE_DISPLAY_X (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
891 #define XIMAGE_INSTANCE_DISPLAY_Y(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
892 IMAGE_INSTANCE_DISPLAY_Y (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
893 #define XIMAGE_INSTANCE_DISPLAY_WIDTH(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
894 IMAGE_INSTANCE_DISPLAY_WIDTH (XIMAGE_INSTANCE (i))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
895 #define XIMAGE_INSTANCE_DISPLAY_HEIGHT(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
896 IMAGE_INSTANCE_DISPLAY_HEIGHT (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 #define XIMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 IMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP (XIMAGE_INSTANCE (i))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
899 #define XIMAGE_INSTANCE_SUBWINDOW_ORIENT(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
900 IMAGE_INSTANCE_SUBWINDOW_ORIENT (XIMAGE_INSTANCE (i))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
901 #define XIMAGE_INSTANCE_SUBWINDOW_JUSTIFY(i) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
902 IMAGE_INSTANCE_SUBWINDOW_JUSTIFY (XIMAGE_INSTANCE (i))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
903 #define XIMAGE_INSTANCE_SUBWINDOW_FACE(i) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
904 IMAGE_INSTANCE_SUBWINDOW_FACE (XIMAGE_INSTANCE (i))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 #define MARK_IMAGE_INSTANCE_CHANGED(i) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 (IMAGE_INSTANCE_DIRTYP (i) = 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
909 Lisp_Object image_instance_device (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
910 Lisp_Object image_instance_frame (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
911 Lisp_Object image_instance_window (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
912 int image_instance_live_p (Lisp_Object instance);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
913
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 #ifdef HAVE_XPM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 Lisp_Object evaluate_xpm_color_symbols (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 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
917 #endif /* HAVE_XPM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 #ifdef HAVE_WINDOW_SYSTEM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 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
920 int ok_if_data_invalid);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
921 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
922 int *height, UChar_Binary **datap,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 int *x_hot, int *y_hot);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 Lisp_Object xbm_mask_file_munging (Lisp_Object alist, Lisp_Object file,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 Lisp_Object mask_file,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 Lisp_Object console_type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928
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 /* Glyph Object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 enum glyph_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 GLYPH_UNKNOWN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 GLYPH_BUFFER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 GLYPH_POINTER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 GLYPH_ICON
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 struct Lisp_Glyph
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 enum glyph_type type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 /* specifiers: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 Lisp_Object image; /* the actual image */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 Lisp_Object contrib_p; /* whether to figure into line height */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 Lisp_Object baseline; /* percent above baseline */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 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
953
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 Lisp_Object plist;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 void (*after_change) (Lisp_Object glyph, Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 Lisp_Object locale);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 unsigned int dirty : 1; /* So that we can selectively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 redisplay changed glyphs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 };
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
961 typedef struct Lisp_Glyph Lisp_Glyph;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
963 DECLARE_LRECORD (glyph, Lisp_Glyph);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
964 #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
965 #define wrap_glyph(p) wrap_record (p, glyph)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 #define GLYPHP(x) RECORDP (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 #define CHECK_GLYPH(x) CHECK_RECORD (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 #define CONCHECK_GLYPH(x) CONCHECK_RECORD (x, glyph)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 #define CHECK_BUFFER_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 if (XGLYPH (x)->type != GLYPH_BUFFER) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 x = wrong_type_argument (Qbuffer_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 #define CHECK_POINTER_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 if (XGLYPH (x)->type != GLYPH_POINTER) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 x = wrong_type_argument (Qpointer_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 } while (0)
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 #define CHECK_ICON_GLYPH(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 CHECK_GLYPH (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 if (XGLYPH (x)->type != GLYPH_ICON) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 x = wrong_type_argument (Qicon_glyph_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 #define GLYPH_TYPE(g) ((g)->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 #define GLYPH_IMAGE(g) ((g)->image)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 #define GLYPH_CONTRIB_P(g) ((g)->contrib_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 #define GLYPH_BASELINE(g) ((g)->baseline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 #define GLYPH_FACE(g) ((g)->face)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 #define GLYPH_DIRTYP(g) ((g)->dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 #define XGLYPH_TYPE(g) GLYPH_TYPE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 #define XGLYPH_IMAGE(g) GLYPH_IMAGE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 #define XGLYPH_CONTRIB_P(g) GLYPH_CONTRIB_P (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 #define XGLYPH_BASELINE(g) GLYPH_BASELINE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 #define XGLYPH_FACE(g) GLYPH_FACE (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 #define XGLYPH_DIRTYP(g) GLYPH_DIRTYP (XGLYPH (g))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 #define MARK_GLYPH_CHANGED(g) (GLYPH_DIRTYP (g) = 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 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
1005 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
1006 extern Lisp_Object Qxbm, Qedit_field, Qgroup, Qlabel, Qcombo_box, Qscrollbar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 extern Lisp_Object Qtree_view, Qtab_control, Qprogress_gauge, Q_border;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 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
1009 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
1010 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
1011 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
1012 extern Lisp_Object Q_orientation, Q_margin_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 extern Lisp_Object Vcontinuation_glyph, Vcontrol_arrow_glyph, Vhscroll_glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 extern Lisp_Object Vinvisible_text_glyph, Voctal_escape_glyph, Vtruncation_glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 extern Lisp_Object Vxemacs_logo;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1017
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1018 unsigned short glyph_width (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1019 unsigned short glyph_ascent (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1020 unsigned short glyph_descent (Lisp_Object glyph, Lisp_Object domain);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1021 unsigned short glyph_height (Lisp_Object glyph, Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 Lisp_Object glyph_baseline (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 Lisp_Object glyph_face (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 int glyph_contrib_p (Lisp_Object glyph, Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 Lisp_Object glyph_image_instance (Lisp_Object glyph,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 Lisp_Object domain,
578
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben]
ben
parents: 563
diff changeset
1027 Error_Behavior errb, int no_quit);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 void file_or_data_must_be_present (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 void data_must_be_present (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 Lisp_Object make_string_from_file (Lisp_Object file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 Lisp_Object tagged_vector_to_alist (Lisp_Object vector);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 Lisp_Object alist_to_tagged_vector (Lisp_Object tag, Lisp_Object alist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 void string_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 int dest_mask, Lisp_Object domain);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1036 int tab_control_order_only_changed (Lisp_Object image_instance);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 Lisp_Object allocate_glyph (enum glyph_type type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 void (*after_change) (Lisp_Object glyph,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 Lisp_Object property,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 Lisp_Object locale));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1041 Lisp_Object normalize_image_instantiator (Lisp_Object instantiator,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1042 Lisp_Object contype,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1043 Lisp_Object dest_mask);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1044 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
1045 enum image_instance_geometry disp,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1046 Lisp_Object domain);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1047 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
1048 int xoffset, int yoffset,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1049 Lisp_Object domain);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1050 void query_string_geometry ( Lisp_Object string, Lisp_Object face,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1051 int* width, int* height, int* descent,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1052 Lisp_Object domain);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1053 Lisp_Object query_string_font (Lisp_Object string,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1054 Lisp_Object face, Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 Lisp_Object add_glyph_animated_timeout (EMACS_INT tickms, Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 void disable_glyph_animated_timeout (int i);
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 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 /* Glyph Cachels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 typedef struct glyph_cachel glyph_cachel;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 struct glyph_cachel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 Lisp_Object glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 unsigned int dirty :1; /* I'm copying faces here. I'm not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 sure why we need two dirty
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 flags. Maybe because an image
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 instance can be dirty and so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071 need to frob this in the same way
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 as other image instance properties. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 unsigned int updated :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 unsigned short width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 unsigned short ascent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 unsigned short descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 #define CONT_GLYPH_INDEX (glyph_index) 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 #define TRUN_GLYPH_INDEX (glyph_index) 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 #define HSCROLL_GLYPH_INDEX (glyph_index) 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 #define CONTROL_GLYPH_INDEX (glyph_index) 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 #define OCT_ESC_GLYPH_INDEX (glyph_index) 4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 #define INVIS_GLYPH_INDEX (glyph_index) 5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1087 #ifdef ERROR_CHECK_GLYPHS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1089 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1090 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1091 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
1092 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1093 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1094 int wid = Dynarr_atp (window->glyph_cachels, ind)->width;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1095 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1096 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1097 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1098
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1099 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1100 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1101 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
1102 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1103 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1104 int wid = Dynarr_atp (window->glyph_cachels, ind)->ascent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1105 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1106 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1107 }
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1108
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1109 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1110 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1111 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
1112 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1113 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1114 int wid = Dynarr_atp (window->glyph_cachels, ind)->descent;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1115 assert (wid >= 0 && wid < 10000);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1116 return wid;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1117 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1118
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1119 #else /* not ERROR_CHECK_GLYPHS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1120
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1121 #define GLYPH_CACHEL_WIDTH(window, ind) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1122 Dynarr_atp (window->glyph_cachels, ind)->width
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1123 #define GLYPH_CACHEL_ASCENT(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1124 Dynarr_atp (window->glyph_cachels, ind)->ascent
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1125 #define GLYPH_CACHEL_DESCENT(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1126 Dynarr_atp (window->glyph_cachels, ind)->descent
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1127
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1128 #endif /* not ERROR_CHECK_GLYPHS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1129
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1130 #define GLYPH_CACHEL(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1131 Dynarr_atp (window->glyph_cachels, ind)
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1132 #define GLYPH_CACHEL_GLYPH(window, ind) \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1133 Dynarr_atp (window->glyph_cachels, ind)->glyph
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1134 #define GLYPH_CACHEL_DIRTYP(window, ind) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1135 Dynarr_atp (window->glyph_cachels, ind)->dirty
428
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 void mark_glyph_cachels (glyph_cachel_dynarr *elements);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 void mark_glyph_cachels_as_not_updated (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 void mark_glyph_cachels_as_clean (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 void reset_glyph_cachels (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 glyph_index get_glyph_cachel_index (struct window *w, Lisp_Object glyph);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 int compute_glyph_cachel_usage (glyph_cachel_dynarr *glyph_cachels,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 struct overhead_stats *ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146 #endif /* MEMORY_USAGE_STATS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 /* Display Tables */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
1152 Lisp_Object display_table_entry (Ichar, Lisp_Object, Lisp_Object);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 void get_display_tables (struct window *, face_index,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 Lisp_Object *, Lisp_Object *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 /****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 * Subwindow Object *
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 void unmap_subwindow (Lisp_Object subwindow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 void map_subwindow (Lisp_Object subwindow, int x, int y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 struct display_glyph_area *dga);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1163 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
1164 int height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1165 void redisplay_widget (Lisp_Object widget);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1166 void update_widget_instances (Lisp_Object frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1167 void redisplay_subwindow (Lisp_Object subwindow);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1168 Lisp_Object image_instance_parent_glyph (struct Lisp_Image_Instance*);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1169 int image_instance_changed (Lisp_Object image);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1170 void free_frame_subwindow_instances (struct frame* f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1171 void reset_frame_subwindow_instance_cache (struct frame* f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1172 int unmap_subwindow_instance_cache_mapper (Lisp_Object key,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1173 Lisp_Object value, void* finalize);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 struct expose_ignore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1177 int x, y;
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1178 int width, height;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 struct expose_ignore *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 639
diff changeset
1182 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
1183 int height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 extern int hold_ignored_expose_registration;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
1186 #define ROUND_UP(arg, unit) (((int)((arg) + (unit) - 1) / (int)(unit)) * (int)(unit))
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 826
diff changeset
1187
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1188 #endif /* INCLUDED_glyphs_h_ */