annotate src/frame.h @ 181:bfd6434d15b3 r20-3b17

Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 538048ae2ab8
children 3d6bfa290dbd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Define frame-object for XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1988, 1992, 1993, 1994 Free Software Foundation, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 /* Synched up with: FSF 19.30. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 #ifndef _XEMACS_FRAME_H_
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 #define _XEMACS_FRAME_H_
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 #include "scrollbar.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 #include "toolbar.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 #include "device.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #define FRAME_TYPE_NAME(f) ((f)->framemeths->name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #define FRAME_TYPE(f) ((f)->framemeths->symbol)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 /******** Accessing / calling a frame method *********/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #define HAS_FRAMEMETH_P(f, m) HAS_CONTYPE_METH_P ((f)->framemeths, m)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 #define FRAMEMETH(f, m, args) CONTYPE_METH ((f)->framemeths, m, args)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 #define MAYBE_FRAMEMETH(f, m, args) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 MAYBE_CONTYPE_METH ((f)->framemeths, m, args)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 #define FRAMEMETH_OR_GIVEN(f, m, args, given) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 CONTYPE_METH_OR_GIVEN((f)->framemeths, m, args, given)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 #define MAYBE_INT_FRAMEMETH(f, m, args) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 MAYBE_INT_CONTYPE_METH ((f)->framemeths, m, args)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 #define MAYBE_LISP_FRAMEMETH(f, m, args) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 MAYBE_LISP_CONTYPE_METH ((f)->framemeths, m, args)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 struct frame
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 struct lcrecord_header header;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 /* Methods for this frame's console. This can also be retrieved
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 through frame->device->console, but it's faster this way. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 struct console_methods *framemeths;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 /* Size of this frame, in units of characters. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 int height;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 int width;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 /* Size of this frame, in units of pixels. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 int pixheight;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 int pixwidth;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61
149
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
62 #ifdef HAVE_TTY
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
63 /* The count of frame number. This applies to TTY frames only. */
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
64 int order_count;
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
65 #endif
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
66
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 /* Width of the internal border. This is a line of background color
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 just inside the window's border. It is normally only non-zero on
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 X frames, but we put it here to avoid introducing window system
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 dependencies. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 int internal_border_width;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 /* New height and width for pending size change. 0 if no change pending. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 int new_height, new_width;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 /* This frame's root window mirror. This structure exactly mirrors
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 the frame's window structure but contains only pointers to the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 display structures. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 struct window_mirror *root_mirror;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 int modiff;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 #ifdef HAVE_SCROLLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 /* frame-local scrollbar information. See scrollbar.c. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 int scrollbar_y_offset;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 int scrollbar_on_left;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 int scrollbar_on_top;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 /* cache of created scrollbars */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 struct scrollbar_instance *sb_vcache;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 struct scrollbar_instance *sb_hcache;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 #ifdef HAVE_TOOLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 /* We handle these specially rather than putting them in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 frameslots.h because we want them to be arrays. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 /* Data representing each currently displayed toolbar. See
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 toolbar.c */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 Lisp_Object toolbar_data[4];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 /* Cached specifiers: */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 /* Size of the toolbars. The frame-local toolbar space is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 subtracted before the windows are arranged. Window and buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 local toolbars overlay their windows. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 Lisp_Object toolbar_size[4];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 /* Visibility of the toolbars. This acts as a valve for toolbar_size. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 Lisp_Object toolbar_visible_p[4];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 /* A structure of auxiliary data specific to the device type.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 struct x_frame is used for X window frames; defined in console-x.h */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 void *frame_data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 #define MARKED_SLOT(x) Lisp_Object x
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 #include "frameslots.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 #undef MARKED_SLOT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119
108
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
120 /* Nonzero if frame is currently displayed.
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
121 Mutally exclusive with iconfied
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
122 JV: This now a tristate flag:
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
123 Value : Emacs meaning :f-v-p : X meaning
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
124 0 : not displayed : nil : unmapped
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
125 >0 : user can access it,needs repainting : t : mapped and visible
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
126 <0 : user can access it,needs no repainting : hidden :mapped and invisible
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
127 where f-v-p is the return value of frame-visible-p */
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
128 int visible;
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
129
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 /* one-bit flags: */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 /* Are we finished initializing? */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 unsigned int init_finished :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 /* Is frame marked for deletion? This is used in XSetErrorHandler(). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 unsigned int being_deleted :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 /* Nonzero if this frame has been destroyed. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 unsigned int dead :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 /* Nonzero if last attempt at redisplay on this frame was preempted. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 unsigned int display_preempted :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 /* Nonzero if window is currently iconified.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 This and visible are mutually exclusive. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 unsigned int iconified :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 /* Nonzero if this frame should be cleared and then redrawn.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 Setting this will also effectively set frame_changed. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 unsigned int clear :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 /* True if frame actually has a minibuffer window on it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 0 if using a minibuffer window that isn't on this frame. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 unsigned int has_minibuffer :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 /* True if frame's root window can't be split. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 unsigned int no_split :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 unsigned int top_toolbar_was_visible :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 unsigned int bottom_toolbar_was_visible :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 unsigned int left_toolbar_was_visible :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162 unsigned int right_toolbar_was_visible :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 /* redisplay flags */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 unsigned int buffers_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 unsigned int clip_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 unsigned int extents_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 unsigned int faces_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 unsigned int frame_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 unsigned int icon_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 unsigned int menubar_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 unsigned int modeline_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 unsigned int point_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 unsigned int size_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 unsigned int toolbar_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 unsigned int windows_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 unsigned int windows_structure_changed :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 unsigned int window_face_cache_reset :1; /* used by expose handler */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 unsigned int size_change_pending :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 unsigned int mirror_dirty :1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 /* flag indicating if any window on this frame is displaying a subwindow */
74
54cc21c15cbb Import from CVS: tag r20-0b32
cvs
parents: 70
diff changeset
184 unsigned int subwindows_being_displayed :1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 };
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 /* If this is non-nil, it is the frame that make-frame is currently
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 creating. We can't set the current frame to this in case the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189 debugger goes off because it would try and display to it. However,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 there are some places which need to reference it which have no
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 other way of getting it if it isn't the selected frame. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 extern Lisp_Object Vframe_being_created;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 DECLARE_LRECORD (frame, struct frame);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 #define XFRAME(x) XRECORD (x, frame, struct frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 #define XSETFRAME(x, p) XSETRECORD (x, p, frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 #define FRAMEP(x) RECORDP (x, frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 #define GC_FRAMEP(x) GC_RECORDP (x, frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 #define CHECK_FRAME(x) CHECK_RECORD (x, frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 #define CONCHECK_FRAME(x) CONCHECK_RECORD (x, frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 #define CHECK_LIVE_FRAME(x) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 do { CHECK_FRAME (x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 if (! FRAMEP (x) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 || ! FRAME_LIVE_P (XFRAME (x))) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 dead_wrong_type_argument (Qframe_live_p, (x)); } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 #define CONCHECK_LIVE_FRAME(x) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 do { CONCHECK_FRAME (x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 if (! FRAMEP (x) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 || ! FRAME_LIVE_P (XFRAME (x))) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 x = wrong_type_argument (Qframe_live_p, (x)); } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 #define FRAME_TYPE_P(f, type) EQ (FRAME_TYPE (f), Q##type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 #ifdef ERROR_CHECK_TYPECHECK
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 MAC_DECLARE_EXTERN (struct frame *, MTframe_data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 # define FRAME_TYPE_DATA(f, type) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 MAC_BEGIN \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 MAC_DECLARE (struct frame *, MTframe_data, f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 assert (FRAME_TYPE_P (MTframe_data, type)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 MAC_SEP \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 (struct type##_frame *) MTframe_data->frame_data \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 MAC_END
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 # define FRAME_TYPE_DATA(f, type) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 ((struct type##_frame *) (f)->frame_data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229 #define CHECK_FRAME_TYPE(x, type) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 CHECK_FRAME (x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 if (!FRAME_TYPE_P (XFRAME (x), type)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 dead_wrong_type_argument \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 (type##_console_methods->predicate_symbol, x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 #define CONCHECK_FRAME_TYPE(x, type) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 CONCHECK_FRAME (x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 if (!FRAME_TYPE_P (XFRAME (x), type)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 x = wrong_type_argument \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241 (type##_console_methods->predicate_symbol, x); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 /* #### These should be in the frame-*.h files but there are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 too many places where the abstraction is broken. Need to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 fix. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248 #define FRAME_X_P(frm) CONSOLE_TYPESYM_X_P (FRAME_TYPE (frm))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 #define CHECK_X_FRAME(z) CHECK_FRAME_TYPE (z, x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 #define CONCHECK_X_FRAME(z) CONCHECK_FRAME_TYPE (z, x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 #define FRAME_TTY_P(frm) CONSOLE_TYPESYM_TTY_P (FRAME_TYPE (frm))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253 #define CHECK_TTY_FRAME(z) CHECK_FRAME_TYPE (z, tty)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 #define CONCHECK_TTY_FRAME(z) CONCHECK_FRAME_TYPE (z, tty)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 #define FRAME_STREAM_P(frm) CONSOLE_TYPESYM_STREAM_P (FRAME_TYPE (frm))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 #define CHECK_STREAM_FRAME(z) CHECK_FRAME_TYPE (z, stream)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 #define CONCHECK_STREAM_FRAME(z) CONCHECK_FRAME_TYPE (z, stream)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 #define FRAME_WIN_P(frm) CONSOLE_TYPESYM_WIN_P (FRAME_TYPE (frm))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 extern Lisp_Object Qframe_live_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 extern Lisp_Object Qframe_x_p, Qframe_tty_p;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 extern Lisp_Object Vframe_title_format, Vframe_icon_title_format;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266 extern int frame_changed;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 #define MARK_FRAME_FACES_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 (f)->faces_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 MARK_DEVICE_FACES_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 faces_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 #define MARK_FRAME_TOOLBARS_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 (f)->toolbar_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 MARK_DEVICE_TOOLBARS_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282 toolbar_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 #define MARK_FRAME_SIZE_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 (f)->size_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286 (f)->size_change_pending = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
288 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 MARK_DEVICE_SIZE_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
290 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 size_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 #define MARK_FRAME_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294 (f)->frame_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297 MARK_DEVICE_FRAME_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 frame_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 #define MARK_FRAME_WINDOWS_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 (f)->windows_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 MARK_DEVICE_WINDOWS_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307 windows_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 #define MARK_FRAME_WINDOWS_STRUCTURE_CHANGED(f) do { \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 (f)->windows_structure_changed = 1; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311 (f)->modiff++; \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 if (!NILP ((f)->device)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED (XDEVICE ((f)->device)); \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
314 else \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 windows_structure_changed = 1; } while (0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318 #define SET_FRAME_CLEAR(f) MARK_FRAME_CHANGED (f); (f)->clear = 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 #define FRAME_DEVICE(f) ((f)->device)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320 #define FRAME_CONSOLE(f) DEVICE_CONSOLE (XDEVICE (FRAME_DEVICE (f)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 #define FRAME_LIVE_P(f) (!(f)->dead)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 #define FRAME_MINIBUF_ONLY_P(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324 EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 #define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 #define FRAME_HEIGHT(f) ((f)->height)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 #define FRAME_WIDTH(f) ((f)->width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328 #define FRAME_PIXHEIGHT(f) ((f)->pixheight)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 #define FRAME_PIXWIDTH(f) ((f)->pixwidth)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330 #ifdef HAVE_SCROLLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 #define FRAME_SCROLLBAR_WIDTH(f) XINT ((f)->scrollbar_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 #define FRAME_SCROLLBAR_HEIGHT(f) XINT ((f)->scrollbar_height)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334 #define FRAME_SCROLLBAR_WIDTH(f) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 #define FRAME_SCROLLBAR_HEIGHT(f) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 #define FRAME_NEW_HEIGHT(f) ((f)->new_height)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
339 #define FRAME_NEW_WIDTH(f) ((f)->new_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340 #define FRAME_CURSOR_X(f) ((f)->cursor_x)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
341 #define FRAME_CURSOR_Y(f) ((f)->cursor_y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
342 #define FRAME_VISIBLE_P(f) ((f)->visible)
108
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 74
diff changeset
343 #define FRAME_REPAINT_P(f) ((f)->visible>0)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344 #define FRAME_NO_SPLIT_P(f) ((f)->no_split)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
345 #define FRAME_ICONIFIED_P(f) ((f)->iconified)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
346 #define FRAME_FOCUS_FRAME(f) ((f)->focus_frame)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347 #define FRAME_MINIBUF_WINDOW(f) ((f)->minibuffer_window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 #define FRAME_ROOT_WINDOW(f) ((f)->root_window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 /* Catch people attempting to set this. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 #define FRAME_SELECTED_WINDOW(f) NON_LVALUE ((f)->selected_window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351 #define FRAME_LAST_NONMINIBUF_WINDOW(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 NON_LVALUE ((f)->last_nonminibuf_window)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 #define FRAME_SB_VCACHE(f) ((f)->sb_vcache)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 #define FRAME_SB_HCACHE(f) ((f)->sb_hcache)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
355
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
356 #if 0 /* FSFmacs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 #define FRAME_VISIBLE_P(f) ((f)->visible != 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359 #define FRAME_SET_VISIBLE(f,p) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
360 ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
361
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
362 /* Emacs's redisplay code could become confused if a frame's
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
363 visibility changes at arbitrary times. For example, if a frame is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364 visible while the desired glyphs are being built, but becomes
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 invisible before they are updated, then some rows of the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 desired_glyphs will be left marked as enabled after redisplay is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 complete, which should never happen. The next time the frame
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 becomes visible, redisplay will probably barf.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 Currently, there are no similar situations involving iconified, but
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 the principle is the same.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
372
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 So instead of having asynchronous input handlers directly set and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374 clear the frame's visibility and iconification flags, they just set
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 the async_visible and async_iconified flags; the redisplay code
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377 which sets visible and iconified from their asynchronous
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378 counterparts.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380 Synchronous code must use the FRAME_SET_VISIBLE macro.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 Also, if a frame used to be invisible, but has just become visible,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383 it must be marked as garbaged, since redisplay hasn't been keeping
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 up its contents. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385 #define FRAME_SAMPLE_VISIBILITY(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 (((f)->async_visible && ! (f)->visible) ? SET_FRAME_GARBAGED (f) : 0, \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 (f)->visible = (f)->async_visible, \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 (f)->iconified = (f)->async_iconified)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 #endif /* FSFmacs */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392 #define FRAME_BORDER_WIDTH(f) ((f)->internal_border_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 #define FRAME_BORDER_HEIGHT(f) ((f)->internal_border_width)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 /* This returns the frame-local value; that tells you what you should
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 use when computing the frame size. It is *not* the actual toolbar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 size because that depends on the selected window. Use the macros
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 below for that.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
401 #ifdef HAVE_TOOLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 #define FRAME_RAW_THEORETICAL_TOOLBAR_VISIBLE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403 (!NILP ((f)->toolbar_visible_p[pos]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404 #define FRAME_RAW_THEORETICAL_TOOLBAR_SIZE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 (XINT ((f)->toolbar_size[pos]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407 #define FRAME_RAW_THEORETICAL_TOOLBAR_VISIBLE(f, pos) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 #define FRAME_RAW_THEORETICAL_TOOLBAR_SIZE(f, pos) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411 #define FRAME_THEORETICAL_TOOLBAR_SIZE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412 (FRAME_RAW_THEORETICAL_TOOLBAR_VISIBLE (f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 ? FRAME_RAW_THEORETICAL_TOOLBAR_SIZE (f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 : 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416 #define FRAME_THEORETICAL_TOP_TOOLBAR_HEIGHT(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417 FRAME_THEORETICAL_TOOLBAR_SIZE (f, TOP_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 #define FRAME_THEORETICAL_BOTTOM_TOOLBAR_HEIGHT(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 FRAME_THEORETICAL_TOOLBAR_SIZE (f, BOTTOM_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 #define FRAME_THEORETICAL_LEFT_TOOLBAR_WIDTH(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 FRAME_THEORETICAL_TOOLBAR_SIZE (f, LEFT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
422 #define FRAME_THEORETICAL_RIGHT_TOOLBAR_WIDTH(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
423 FRAME_THEORETICAL_TOOLBAR_SIZE (f, RIGHT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
424
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425 /* This returns the window-local value rather than the frame-local value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426 that tells you about what's actually visible rather than what should
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
427 be used when computing the frame size. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429 #ifdef HAVE_TOOLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430 #define FRAME_RAW_REAL_TOOLBAR_VISIBLE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 (!NILP (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f))->toolbar_visible_p[pos]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
432 #define FRAME_RAW_REAL_TOOLBAR_SIZE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
433 (XINT (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f))->toolbar_size[pos]))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
434 #define FRAME_REAL_TOOLBAR(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
435 (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f))->toolbar[pos])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
436 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
437 #define FRAME_RAW_REAL_TOOLBAR_VISIBLE(f, pos) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
438 #define FRAME_RAW_REAL_TOOLBAR_SIZE(f, pos) 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
439 #define FRAME_REAL_TOOLBAR(f, pos) Qnil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
440 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
441
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
442 /* Note to Chuck
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 Note to Chuck
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
444 Note to Chuck:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 The former definitions of FRAME_REAL_FOO_TOOLBAR_VISIBLE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
447 looked at the toolbar data to see what was there. The
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
448 current ones look at the current values of the specifiers.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449 This is a semantic change; the former definition returned
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450 what was *actually* there right at the moment, while the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 current one returns what *ought* to be there once redisplay
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452 has run to completion. I think this new definition is more
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
453 correct in almost all circumstances and is much less likely
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
454 to lead to strange race conditions. I'm not completely
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
455 sure that there aren't some places in the redisplay code
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456 that use these macros and expect the former semantics, so
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 if you encounter some odd toolbar behavior, you might want
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458 to look into this. --ben */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460 #define FRAME_REAL_TOOLBAR_VISIBLE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461 (FRAME_RAW_REAL_TOOLBAR_SIZE (f, pos) > 0 \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462 && !NILP (FRAME_REAL_TOOLBAR (f, pos)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463 ? FRAME_RAW_REAL_TOOLBAR_VISIBLE (f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 : 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465 #define FRAME_REAL_TOOLBAR_SIZE(f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 (FRAME_RAW_REAL_TOOLBAR_VISIBLE (f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
467 && !NILP (FRAME_REAL_TOOLBAR (f, pos)) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 ? FRAME_RAW_REAL_TOOLBAR_SIZE (f, pos) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 : 0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471 #define FRAME_REAL_TOP_TOOLBAR_HEIGHT(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
472 FRAME_REAL_TOOLBAR_SIZE (f, TOP_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
473 #define FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
474 FRAME_REAL_TOOLBAR_SIZE (f, BOTTOM_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
475 #define FRAME_REAL_LEFT_TOOLBAR_WIDTH(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
476 FRAME_REAL_TOOLBAR_SIZE (f, LEFT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
477 #define FRAME_REAL_RIGHT_TOOLBAR_WIDTH(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
478 FRAME_REAL_TOOLBAR_SIZE (f, RIGHT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
479
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
480 #define FRAME_REAL_TOP_TOOLBAR_VISIBLE(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
481 FRAME_REAL_TOOLBAR_VISIBLE (f, TOP_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
482 #define FRAME_REAL_BOTTOM_TOOLBAR_VISIBLE(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
483 FRAME_REAL_TOOLBAR_VISIBLE (f, BOTTOM_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
484 #define FRAME_REAL_LEFT_TOOLBAR_VISIBLE(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
485 FRAME_REAL_TOOLBAR_VISIBLE (f, LEFT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
486 #define FRAME_REAL_RIGHT_TOOLBAR_VISIBLE(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
487 FRAME_REAL_TOOLBAR_VISIBLE (f, RIGHT_TOOLBAR)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
488
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
489 #define FRAME_TOP_BORDER_START(f) (FRAME_REAL_TOP_TOOLBAR_HEIGHT (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
490 #define FRAME_TOP_BORDER_END(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 (FRAME_TOP_BORDER_START (f) + FRAME_BORDER_HEIGHT (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 #define FRAME_BOTTOM_BORDER_START(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
494 (FRAME_PIXHEIGHT (f) - FRAME_BORDER_HEIGHT (f) - \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
495 FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 #define FRAME_BOTTOM_BORDER_END(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497 (FRAME_PIXHEIGHT (f) - FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
499 #define FRAME_LEFT_BORDER_START(f) (FRAME_REAL_LEFT_TOOLBAR_WIDTH (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
500 #define FRAME_LEFT_BORDER_END(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 (FRAME_LEFT_BORDER_START (f) + FRAME_BORDER_WIDTH (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
503 #define FRAME_RIGHT_BORDER_START(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
504 (FRAME_PIXWIDTH (f) - FRAME_BORDER_WIDTH (f) - \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
505 FRAME_REAL_RIGHT_TOOLBAR_WIDTH (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
506 #define FRAME_RIGHT_BORDER_END(f) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
507 (FRAME_PIXWIDTH (f) - FRAME_REAL_RIGHT_TOOLBAR_WIDTH (f))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
508
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
509 /* Equivalent in FSF Emacs:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
510
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
511 FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512 `for' loop which iterates over the elements of Vframe_list. The
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513 loop will set FRAME_VAR, a Lisp_Object, to each frame in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
514 Vframe_list in succession and execute the statement. LIST_VAR
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
515 should be a Lisp_Object too; it is used to iterate through the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516 Vframe_list.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517 */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 /* NO_BREAK means that "break" doesn't do what you think it does!
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 Use goto instead. "continue" is OK, though. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521 #define FRAME_LOOP_NO_BREAK(frmcons, devcons, concons) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522 DEVICE_LOOP_NO_BREAK (devcons, concons) \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
523 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
525 extern Lisp_Object Vdefault_frame_name;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
526
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
527 void update_frame_title (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
528 Lisp_Object next_frame (Lisp_Object f, Lisp_Object frametype,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
529 Lisp_Object console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
530 Lisp_Object prev_frame (Lisp_Object f, Lisp_Object frametype,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
531 Lisp_Object console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
532 void store_in_alist (Lisp_Object *alistptr,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
533 CONST char *propname,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
534 Lisp_Object val);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
535 void pixel_to_char_size (struct frame *f, int pixel_width, int pixel_height,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
536 int *char_width, int *char_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
537 void char_to_pixel_size (struct frame *f, int char_width, int char_height,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
538 int *pixel_width, int *pixel_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
539 void round_size_to_char (struct frame *f, int in_width, int in_height,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
540 int *out_width, int *out_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
541 void change_frame_size (struct frame *frame,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
542 int newlength, int newwidth,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
543 int delay);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
544 void hold_frame_size_changes (void);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
545 void unhold_one_frame_size_changes (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
546 void unhold_frame_size_changes (void);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
547 void select_frame_1 (Lisp_Object frame);
149
538048ae2ab8 Import from CVS: tag r20-3b1
cvs
parents: 120
diff changeset
548 void select_frame_2 (Lisp_Object frame);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
549 struct frame *selected_frame (void);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550 struct frame *device_selected_frame (struct device *d);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551 struct frame *decode_frame (Lisp_Object frame);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552 struct frame *decode_frame_or_selected (Lisp_Object cdf);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
553 Lisp_Object make_frame (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
554 int other_visible_frames (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555 void delete_frame_internal (struct frame *f, int force,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 int called_from_delete_device,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557 int from_io_error);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 void io_error_delete_frame (Lisp_Object frame);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 Lisp_Object find_some_frame (int (*predicate) (Lisp_Object, void *),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
560 void *closure);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
561 int device_matches_console_spec (Lisp_Object frame, Lisp_Object device,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562 Lisp_Object console);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
563 Lisp_Object frame_first_window (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
564 int show_gc_cursor (struct frame *f, Lisp_Object cursor);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
565 void set_frame_selected_window (struct frame *f, Lisp_Object window);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
566 int is_surrogate_for_selected_frame (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
567 void update_frame_icon (struct frame *f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
568
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
569 #endif /* _XEMACS_FRAME_H_ */