|
428
|
1 /* Define device-object for XEmacs.
|
|
|
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
|
|
|
3 Copyright (C) 1995 Ben Wing
|
|
|
4 Copyright (C) 1995 Sun Microsystems
|
|
|
5
|
|
|
6 This file is part of XEmacs.
|
|
|
7
|
|
|
8 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
9 under the terms of the GNU General Public License as published by the
|
|
|
10 Free Software Foundation; either version 2, or (at your option) any
|
|
|
11 later version.
|
|
|
12
|
|
|
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
16 for more details.
|
|
|
17
|
|
|
18 You should have received a copy of the GNU General Public License
|
|
|
19 along with XEmacs; see the file COPYING. If not, write to
|
|
|
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
21 Boston, MA 02111-1307, USA. */
|
|
|
22
|
|
|
23 /* Synched up with: Not in FSF. */
|
|
|
24
|
|
|
25 /* Written by Chuck Thompson and Ben Wing. */
|
|
|
26
|
|
440
|
27 #ifndef INCLUDED_device_h_
|
|
|
28 #define INCLUDED_device_h_
|
|
428
|
29
|
|
|
30 #include "console.h"
|
|
|
31
|
|
|
32 /* This should really be in redisplay.h but by putting it here we
|
|
|
33 won't have to ensure that redisplay.h is always included before
|
|
|
34 this file. */
|
|
|
35 struct pixel_to_glyph_translation_cache
|
|
|
36 {
|
|
|
37 unsigned int valid :1;
|
|
|
38 struct frame *frame;
|
|
|
39 int low_x_coord, high_x_coord, col, obj_x;
|
|
|
40 int low_y_coord, high_y_coord, row, obj_y;
|
|
|
41 struct window *w;
|
|
|
42 Bufpos bufpos;
|
|
|
43 Bufpos closest;
|
|
|
44 Charcount modeline_closest;
|
|
|
45 Lisp_Object obj1, obj2;
|
|
|
46 int retval;
|
|
|
47 };
|
|
|
48
|
|
|
49 #define DEVICE_TYPE_NAME(d) ((d)->devmeths->name)
|
|
|
50 #define DEVICE_TYPE(d) ((d)->devmeths->symbol)
|
|
|
51 #define DEVICE_SPECIFIC_FRAME_PROPS(d) \
|
|
|
52 ((d)->devmeths->device_specific_frame_props)
|
|
|
53
|
|
|
54 /******** Accessing / calling a device method *********/
|
|
|
55
|
|
|
56 #define HAS_DEVMETH_P(d, m) HAS_CONTYPE_METH_P ((d)->devmeths, m)
|
|
|
57 #define DEVMETH(d, m, args) CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
58 #define MAYBE_DEVMETH(d, m, args) MAYBE_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
59 #define DEVMETH_OR_GIVEN(d, m, args, given) \
|
|
|
60 CONTYPE_METH_OR_GIVEN((d)->devmeths, m, args, given)
|
|
|
61 #define MAYBE_INT_DEVMETH(d, m, args) \
|
|
|
62 MAYBE_INT_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
63 #define MAYBE_LISP_DEVMETH(d, m, args) \
|
|
|
64 MAYBE_LISP_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
65
|
|
|
66 struct device
|
|
|
67 {
|
|
|
68 struct lcrecord_header header;
|
|
|
69
|
|
|
70 /* Methods for this device's console. This can also be retrieved
|
|
|
71 through device->console, but it's faster this way. */
|
|
|
72 struct console_methods *devmeths;
|
|
|
73
|
|
|
74 /* Name of this device, for resourcing and printing purposes.
|
|
|
75 If not explicitly given, it's initialized in a device-specific
|
|
|
76 manner. */
|
|
|
77 Lisp_Object name;
|
|
|
78
|
|
|
79 /* What this device is connected to */
|
|
|
80 Lisp_Object connection;
|
|
|
81
|
|
|
82 /* A canonical name for the connection that is used to determine
|
|
|
83 whether `make-device' is being called on an existing device. */
|
|
|
84 Lisp_Object canon_connection;
|
|
|
85
|
|
|
86 /* List of frames on this device. */
|
|
|
87 Lisp_Object frame_list;
|
|
|
88
|
|
|
89 /* The console this device is on. */
|
|
|
90 Lisp_Object console;
|
|
|
91
|
|
|
92 /* Frame which is "currently selected". This is what `selected-frame'
|
|
|
93 returns and is the default frame for many operations. This may
|
|
|
94 not be the same as frame_with_focus; `select-frame' changes the
|
|
|
95 selected_frame but not the frame_with_focus. However, eventually
|
|
|
96 either the two values will be the same, or frame_with_focus will
|
|
|
97 be nil: right before waiting for an event, the focus is changed
|
|
|
98 to point to the selected_frame if XEmacs currently has the focus
|
|
|
99 on this device. Note that frame_with_focus may be nil (none of the
|
|
|
100 frames on this device have the window-system focus), but
|
|
|
101 selected_frame will never be nil if there are any frames on
|
|
|
102 the device. */
|
|
|
103 Lisp_Object selected_frame;
|
|
|
104 /* Frame that currently contains the window-manager focus, or none.
|
|
|
105 Note that we've split frame_with_focus into two variables.
|
|
|
106 frame_with_focus_real is the value we use most of the time,
|
|
|
107 but frame_with_focus_for_hooks is used for running the select-frame-hook
|
|
|
108 and deselect-frame-hook. We do this because we split the focus handling
|
|
|
109 into two parts: one part (deals with drawing the solid/box cursor)
|
|
|
110 runs as soon as a focus event is received; the other (running the
|
|
|
111 hooks) runs after any pending sit-for/sleep-for/accept-process-output
|
|
|
112 calls are done. */
|
|
|
113 Lisp_Object frame_with_focus_real;
|
|
|
114 Lisp_Object frame_with_focus_for_hooks;
|
|
|
115 /* If we have recently issued a request to change the focus as a
|
|
|
116 result of select-frame having been called, the following variable
|
|
|
117 records the frame we are trying to focus on. The reason for this
|
|
|
118 is that the window manager may not grant our request to change
|
|
|
119 the focus (so we can't just change frame_with_focus), and we don't
|
|
|
120 want to keep sending requests again and again to the window manager.
|
|
|
121 This variable is reset whenever a focus-change event is seen. */
|
|
|
122 Lisp_Object frame_that_ought_to_have_focus;
|
|
|
123
|
|
|
124 /* Color class of this device. */
|
|
|
125 Lisp_Object device_class;
|
|
|
126
|
|
|
127 /* Alist of values for user-defined tags in this device. */
|
|
|
128 Lisp_Object user_defined_tags;
|
|
|
129
|
|
|
130 /* Hash tables for device-specific objects (fonts, colors, etc).
|
|
|
131 These are key-weak hash tables (or hash tables containing key-weak
|
|
|
132 hash tables) so that they disappear when the key goes away. */
|
|
|
133
|
|
|
134 /* This is a simple key-weak hash table hashing color names to
|
|
|
135 instances. */
|
|
|
136 Lisp_Object color_instance_cache;
|
|
|
137
|
|
|
138 /* This is a simple key-weak hash table hashing font names to
|
|
|
139 instances. */
|
|
|
140 Lisp_Object font_instance_cache;
|
|
|
141
|
|
|
142 #ifdef MULE
|
|
|
143 /* This is a bi-level cache, where the hash table in this slot here
|
|
|
144 indexes charset objects to key-weak hash tables, which in turn
|
|
|
145 index font names to more specific font names that match the
|
|
|
146 given charset's registry. This speeds up the horrendously
|
|
|
147 slow XListFonts() operation that needs to be done in order
|
|
|
148 to determine an appropriate font. */
|
|
|
149 Lisp_Object charset_font_cache;
|
|
|
150 #endif
|
|
|
151
|
|
|
152 /* This is a bi-level cache, where the hash table in this slot here
|
|
|
153 indexes image-instance-type masks (there are currently 6
|
|
|
154 image-instance types and thus 64 possible masks) to key-weak hash
|
|
|
155 tables like the one for colors. */
|
|
|
156 Lisp_Object image_instance_cache;
|
|
|
157
|
|
|
158 /* A structure of auxiliary data specific to the device type.
|
|
|
159 struct x_device is used for X window frames; defined in console-x.h
|
|
|
160 struct tty_device is used to TTY's; defined in console-tty.h */
|
|
|
161 void *device_data;
|
|
|
162
|
|
|
163 /* redisplay flags */
|
|
|
164 unsigned int buffers_changed :1;
|
|
|
165 unsigned int clip_changed :1;
|
|
|
166 unsigned int extents_changed :1;
|
|
|
167 unsigned int faces_changed :1;
|
|
|
168 unsigned int frame_changed :1;
|
|
|
169 unsigned int glyphs_changed :1;
|
|
|
170 unsigned int subwindows_changed :1;
|
|
|
171 unsigned int subwindows_state_changed :1;
|
|
|
172 unsigned int icon_changed :1;
|
|
|
173 unsigned int menubar_changed :1;
|
|
|
174 unsigned int modeline_changed :1;
|
|
|
175 unsigned int point_changed :1;
|
|
|
176 unsigned int size_changed :1;
|
|
|
177 unsigned int gutter_changed :1;
|
|
|
178 unsigned int toolbar_changed :1;
|
|
|
179 unsigned int windows_changed :1;
|
|
|
180 unsigned int windows_structure_changed :1;
|
|
|
181
|
|
|
182 unsigned int locked :1;
|
|
|
183
|
|
|
184 /* Cache information about last pixel position translated to a
|
|
|
185 glyph. The law of locality applies very heavily here so caching
|
|
|
186 the value leads to a significant win. At the moment this is
|
|
|
187 really X specific but once we have generic mouse support it won't
|
|
|
188 be. */
|
|
|
189 struct pixel_to_glyph_translation_cache pixel_to_glyph_cache;
|
|
|
190
|
|
|
191 /* Output baud rate of device; used for redisplay decisions. */
|
|
|
192 int baud_rate;
|
|
|
193
|
|
|
194 /* sound flags */
|
|
|
195 unsigned int on_console_p :1;
|
|
|
196 unsigned int connected_to_nas_p :1;
|
|
|
197
|
|
|
198
|
|
|
199 /* File descriptors for input and output. Much of the time
|
|
|
200 (but not always) these will be the same. For an X device,
|
|
|
201 these both hold the file descriptor of the socket used
|
|
|
202 to communicate with the X server. For a TTY device, these
|
|
|
203 may or may not be the same and point to the terminal that
|
|
|
204 is used for I/O. */
|
|
|
205 int infd, outfd;
|
|
|
206
|
|
|
207 /* infd and outfd are moved outside HAVE_UNIXOID_EVENT_LOOP conditionals,
|
|
|
208 because Win32, presumably the first port which does not use select()
|
|
|
209 polling, DOES have handles for a console device. -- kkm */
|
|
|
210
|
|
|
211 #ifdef HAVE_UNIXOID_EVENT_LOOP
|
|
|
212 /* holds some data necessary for SIGIO control. Perhaps this should
|
|
|
213 be inside of device_data; but it is used for both TTY's and X
|
|
|
214 device. Perhaps it should be conditionalized on SIGIO; but
|
|
|
215 this requires including syssignal.h and systty.h. */
|
|
|
216 int old_fcntl_owner;
|
|
|
217 #endif
|
|
|
218 };
|
|
|
219
|
|
|
220 DECLARE_LRECORD (device, struct device);
|
|
|
221 #define XDEVICE(x) XRECORD (x, device, struct device)
|
|
|
222 #define XSETDEVICE(x, p) XSETRECORD (x, p, device)
|
|
442
|
223 #define wrap_device(p) wrap_object (p)
|
|
428
|
224 #define DEVICEP(x) RECORDP (x, device)
|
|
|
225 #define CHECK_DEVICE(x) CHECK_RECORD (x, device)
|
|
|
226 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device)
|
|
|
227
|
|
|
228 #define CHECK_LIVE_DEVICE(x) do { \
|
|
|
229 CHECK_DEVICE (x); \
|
|
|
230 if (! DEVICE_LIVE_P (XDEVICE (x))) \
|
|
|
231 dead_wrong_type_argument (Qdevice_live_p, (x)); \
|
|
|
232 } while (0)
|
|
|
233 #define CONCHECK_LIVE_DEVICE(x) do { \
|
|
|
234 CONCHECK_DEVICE (x); \
|
|
|
235 if (! DEVICE_LIVE_P (XDEVICE (x))) \
|
|
|
236 x = wrong_type_argument (Qdevice_live_p, (x)); \
|
|
|
237 } while (0)
|
|
|
238
|
|
|
239 #define DEVICE_TYPE_P(d, type) EQ (DEVICE_TYPE (d), Q##type)
|
|
|
240
|
|
|
241 #ifdef ERROR_CHECK_TYPECHECK
|
|
442
|
242 INLINE_HEADER struct device *
|
|
428
|
243 error_check_device_type (struct device *d, Lisp_Object sym);
|
|
442
|
244 INLINE_HEADER struct device *
|
|
428
|
245 error_check_device_type (struct device *d, Lisp_Object sym)
|
|
|
246 {
|
|
|
247 assert (EQ (DEVICE_TYPE (d), sym));
|
|
|
248 return d;
|
|
|
249 }
|
|
|
250 # define DEVICE_TYPE_DATA(d, type) \
|
|
|
251 ((struct type##_device *) error_check_device_type (d, Q##type)->device_data)
|
|
|
252 #else
|
|
|
253 # define DEVICE_TYPE_DATA(d, type) \
|
|
|
254 ((struct type##_device *) (d)->device_data)
|
|
|
255 #endif
|
|
|
256
|
|
|
257 #define CHECK_DEVICE_TYPE(x, type) \
|
|
|
258 do { \
|
|
|
259 CHECK_DEVICE (x); \
|
|
|
260 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
|
|
|
261 type))) \
|
|
|
262 dead_wrong_type_argument \
|
|
|
263 (type##_console_methods->predicate_symbol, x); \
|
|
|
264 } while (0)
|
|
|
265 #define CONCHECK_DEVICE_TYPE(x, type) \
|
|
|
266 do { \
|
|
|
267 CONCHECK_DEVICE (x); \
|
|
|
268 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
|
|
|
269 type))) \
|
|
|
270 x = wrong_type_argument \
|
|
|
271 (type##_console_methods->predicate_symbol, x); \
|
|
|
272 } while (0)
|
|
|
273
|
|
442
|
274 #define DEVICE_DISPLAY_P(dev) \
|
|
|
275 (DEVICE_LIVE_P (dev) && \
|
|
|
276 (MAYBE_INT_DEVMETH (dev, \
|
|
|
277 device_implementation_flags, ()) \
|
|
|
278 & XDEVIMPF_IS_A_PRINTER) ? 0 : 1)
|
|
|
279
|
|
|
280 #define CHECK_DISPLAY_DEVICE(dev) \
|
|
|
281 do { \
|
|
|
282 CHECK_DEVICE (dev); \
|
|
|
283 if (!(DEVICEP (dev) \
|
|
|
284 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
|
|
|
285 dead_wrong_type_argument (Qdisplay, dev); \
|
|
|
286 } while (0)
|
|
|
287
|
|
|
288 #define CONCHECK_DISPLAY_DEVICE(dev) \
|
|
|
289 do { \
|
|
|
290 CONCHECK_DEVICE (dev); \
|
|
|
291 if (!(DEVICEP (dev) \
|
|
|
292 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
|
|
|
293 wrong_type_argument (Qdisplay, dev); \
|
|
|
294 } while (0)
|
|
|
295
|
|
|
296 #define DEVICE_PRINTER_P(dev) \
|
|
|
297 (DEVICE_LIVE_P (dev) && !DEVICE_DISPLAY_P (dev))
|
|
|
298
|
|
|
299 #define CHECK_PRINTER_DEVICE(dev) \
|
|
|
300 do { \
|
|
|
301 CHECK_DEVICE (dev); \
|
|
|
302 if (!(DEVICEP (dev) \
|
|
|
303 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
|
|
|
304 dead_wrong_type_argument (Qprinter, dev); \
|
|
|
305 } while (0)
|
|
|
306
|
|
|
307 #define CONCHECK_PRINTER_DEVICE(dev) \
|
|
|
308 do { \
|
|
|
309 CONCHECK_DEVICE (dev); \
|
|
|
310 if (!(DEVICEP (dev) \
|
|
|
311 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
|
|
|
312 wrong_type_argument (Qprinter, dev); \
|
|
|
313 } while (0)
|
|
|
314
|
|
428
|
315 /* #### These should be in the device-*.h files but there are
|
|
|
316 too many places where the abstraction is broken. Need to
|
|
|
317 fix. */
|
|
|
318
|
|
|
319 #define DEVICE_X_P(dev) CONSOLE_TYPESYM_X_P (DEVICE_TYPE (dev))
|
|
|
320 #define CHECK_X_DEVICE(z) CHECK_DEVICE_TYPE (z, x)
|
|
|
321 #define CONCHECK_X_DEVICE(z) CONCHECK_DEVICE_TYPE (z, x)
|
|
|
322
|
|
462
|
323 #define DEVICE_GTK_P(dev) CONSOLE_TYPESYM_GTK_P (DEVICE_TYPE (dev))
|
|
|
324 #define CHECK_GTK_DEVICE(z) CHECK_DEVICE_TYPE (z, gtk)
|
|
|
325 #define CONCHECK_GTK_DEVICE(z) CONCHECK_DEVICE_TYPE (z, gtk)
|
|
|
326
|
|
428
|
327 #define DEVICE_MSWINDOWS_P(dev) CONSOLE_TYPESYM_MSWINDOWS_P (DEVICE_TYPE (dev))
|
|
|
328 #define CHECK_MSWINDOWS_DEVICE(z) CHECK_DEVICE_TYPE (z, mswindows)
|
|
|
329 #define CONCHECK_MSWINDOWS_DEVICE(z) CONCHECK_DEVICE_TYPE (z, mswindows)
|
|
|
330
|
|
|
331 #define DEVICE_TTY_P(dev) CONSOLE_TYPESYM_TTY_P (DEVICE_TYPE (dev))
|
|
|
332 #define CHECK_TTY_DEVICE(z) CHECK_DEVICE_TYPE (z, tty)
|
|
|
333 #define CONCHECK_TTY_DEVICE(z) CONCHECK_DEVICE_TYPE (z, tty)
|
|
|
334
|
|
|
335 #define DEVICE_STREAM_P(dev) CONSOLE_TYPESYM_STREAM_P (DEVICE_TYPE (dev))
|
|
|
336 #define CHECK_STREAM_DEVICE(z) CHECK_DEVICE_TYPE (z, stream)
|
|
|
337 #define CONCHECK_STREAM_DEVICE(z) CONCHECK_DEVICE_TYPE (z, stream)
|
|
|
338
|
|
|
339 #define DEVICE_WIN_P(dev) CONSOLE_TYPESYM_WIN_P (DEVICE_TYPE (dev))
|
|
|
340
|
|
|
341 EXFUN (Fdevice_console, 1);
|
|
|
342 EXFUN (Fdevice_name, 1);
|
|
442
|
343 EXFUN (Ffind_device, 2);
|
|
428
|
344 EXFUN (Fmake_device, 3);
|
|
|
345 EXFUN (Fselected_device, 1);
|
|
|
346
|
|
|
347 extern Lisp_Object Qcreate_device_hook, Qdelete_device_hook, Qgrayscale;
|
|
462
|
348 extern Lisp_Object Qinit_post_tty_win, Qmono, Vdefault_x_device, Vdefault_gtk_device;
|
|
428
|
349 extern Lisp_Object Vdevice_class_list;
|
|
|
350
|
|
|
351 int valid_device_class_p (Lisp_Object class);
|
|
|
352
|
|
|
353 #define DEVICE_LIVE_P(d) (!EQ (DEVICE_TYPE (d), Qdead))
|
|
|
354
|
|
|
355 #define DEVICE_REDISPLAY_INFO(d) ((d)->redisplay_info)
|
|
|
356
|
|
|
357 #define DEVICE_NAME(d) ((d)->name)
|
|
|
358 #define DEVICE_CLASS(d) ((d)->device_class)
|
|
|
359 /* Catch people attempting to set this. */
|
|
|
360 #define DEVICE_SELECTED_FRAME(d) NON_LVALUE ((d)->selected_frame)
|
|
|
361 #define DEVICE_FRAME_WITH_FOCUS_REAL(d) ((d)->frame_with_focus_real)
|
|
|
362 #define DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS(d) ((d)->frame_with_focus_for_hooks)
|
|
|
363 #define DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS(d) \
|
|
|
364 ((d)->frame_that_ought_to_have_focus)
|
|
|
365 #define DEVICE_USER_DEFINED_TAGS(d) ((d)->user_defined_tags)
|
|
|
366 #define DEVICE_FRAME_LIST(d) ((d)->frame_list)
|
|
|
367 #define DEVICE_CONNECTION(d) ((d)->connection)
|
|
|
368 #define DEVICE_CANON_CONNECTION(d) ((d)->canon_connection)
|
|
|
369 #define DEVICE_CONSOLE(d) ((d)->console)
|
|
|
370 #define DEVICE_BAUD_RATE(d) ((d)->baud_rate)
|
|
|
371 #define DEVICE_INFD(d) ((d)->infd)
|
|
|
372 #define DEVICE_OUTFD(d) ((d)->outfd)
|
|
|
373 #define DEVICE_OLD_FCNTL_OWNER(d) ((d)->old_fcntl_owner)
|
|
|
374 #define DEVICE_ON_CONSOLE_P(d) ((d)->on_console_p)
|
|
|
375 #define DEVICE_CONNECTED_TO_NAS_P(d) ((d)->connected_to_nas_p)
|
|
|
376
|
|
|
377 #define LOCK_DEVICE(d) ((void) ((d)->locked = 1))
|
|
|
378 #define UNLOCK_DEVICE(d) ((void) ((d)->locked = 0))
|
|
|
379
|
|
|
380 #define INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE(d) \
|
|
|
381 ((void) ((d)->pixel_to_glyph_cache.valid = 0))
|
|
|
382
|
|
|
383 #define INVALIDATE_PIXEL_TO_GLYPH_CACHE do { \
|
|
|
384 Lisp_Object IPTGC_devcons, IPTGC_concons; \
|
|
|
385 DEVICE_LOOP_NO_BREAK (IPTGC_devcons, IPTGC_concons) \
|
|
|
386 INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE (XDEVICE (XCAR (IPTGC_devcons))); \
|
|
|
387 } while (0)
|
|
|
388
|
|
|
389 #define MARK_DEVICE_FACES_CHANGED(d) \
|
|
|
390 ((void) (faces_changed = (d)->faces_changed = 1))
|
|
|
391
|
|
|
392 #define MARK_DEVICE_GLYPHS_CHANGED(d) \
|
|
|
393 ((void) (glyphs_changed = (d)->glyphs_changed = 1))
|
|
|
394
|
|
|
395 #define MARK_DEVICE_SUBWINDOWS_CHANGED(d) \
|
|
|
396 ((void) (subwindows_changed = (d)->subwindows_changed = 1))
|
|
|
397
|
|
|
398 #define MARK_DEVICE_SUBWINDOWS_STATE_CHANGED(d) \
|
|
|
399 ((void) (subwindows_state_changed = (d)->subwindows_state_changed = 1))
|
|
|
400
|
|
|
401 #define MARK_DEVICE_TOOLBARS_CHANGED(d) \
|
|
|
402 ((void) (toolbar_changed = (d)->toolbar_changed = 1))
|
|
|
403
|
|
|
404 #define MARK_DEVICE_GUTTERS_CHANGED(d) \
|
|
|
405 ((void) (gutter_changed = (d)->gutter_changed = 1))
|
|
|
406
|
|
|
407 #define MARK_DEVICE_SIZE_CHANGED(d) \
|
|
|
408 ((void) (size_changed = (d)->size_changed = 1))
|
|
|
409
|
|
|
410 #define MARK_DEVICE_FRAMES_FACES_CHANGED(d) do { \
|
|
|
411 struct device *mdffc_d = (d); \
|
|
|
412 Lisp_Object frmcons; \
|
|
|
413 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
|
|
|
414 XFRAME (XCAR (frmcons))->faces_changed = 1; \
|
|
|
415 MARK_DEVICE_FACES_CHANGED (mdffc_d); \
|
|
|
416 } while (0)
|
|
|
417
|
|
|
418 #define MARK_DEVICE_FRAMES_GLYPHS_CHANGED(d) do { \
|
|
|
419 struct device *mdffc_d = (d); \
|
|
|
420 Lisp_Object frmcons; \
|
|
|
421 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
|
|
|
422 XFRAME (XCAR (frmcons))->glyphs_changed = 1; \
|
|
|
423 MARK_DEVICE_GLYPHS_CHANGED (mdffc_d); \
|
|
|
424 } while (0)
|
|
|
425
|
|
|
426 #define MARK_DEVICE_FRAME_CHANGED(d) \
|
|
|
427 ((void) (frame_changed = (d)->frame_changed = 1))
|
|
|
428
|
|
|
429 #define MARK_DEVICE_WINDOWS_CHANGED(d) \
|
|
|
430 ((void) (windows_changed = (d)->windows_changed = 1))
|
|
|
431
|
|
|
432 #define MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED(d) \
|
|
|
433 ((void) (windows_structure_changed = (d)->windows_structure_changed = 1))
|
|
|
434
|
|
442
|
435 /* #### unify this with DOMAIN_DEVICE once the latter has image instances
|
|
|
436 expunged from it. */
|
|
428
|
437 /* This turns out to be used heavily so we make it a macro to make it
|
|
|
438 inline. Also, the majority of the time the object will turn out to
|
|
|
439 be a window so we move it from being checked last to being checked
|
|
|
440 first. */
|
|
|
441 #define DFW_DEVICE(obj) \
|
|
|
442 (WINDOWP (obj) ? WINDOW_DEVICE (XWINDOW (obj)) \
|
|
|
443 : (FRAMEP (obj) ? FRAME_DEVICE (XFRAME (obj)) \
|
|
|
444 : (DEVICEP (obj) ? obj \
|
|
|
445 : Qnil)))
|
|
|
446
|
|
|
447 /* NO_BREAK means that "break" doesn't do what you think it does!
|
|
|
448 Use goto instead. "continue" is OK, though. */
|
|
|
449 #define DEVICE_LOOP_NO_BREAK(devcons, concons) \
|
|
|
450 CONSOLE_LOOP (concons) \
|
|
|
451 CONSOLE_DEVICE_LOOP (devcons, XCONSOLE (XCAR (concons)))
|
|
|
452 #define DEVICE_FRAME_LOOP(frmcons, d) \
|
|
|
453 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d))
|
|
|
454 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \
|
|
|
455 CONSOLE_DEVICE_LOOP (devcons, con) \
|
|
|
456 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
|
|
|
457
|
|
|
458 void select_device_1 (Lisp_Object);
|
|
|
459 struct device *decode_device (Lisp_Object);
|
|
|
460 void handle_asynch_device_change (void);
|
|
|
461 void call_critical_lisp_code (struct device *d, Lisp_Object function,
|
|
|
462 Lisp_Object object);
|
|
|
463 void delete_device_internal (struct device *d, int force,
|
|
|
464 int called_from_delete_console,
|
|
|
465 int from_io_error);
|
|
|
466 void io_error_delete_device (Lisp_Object device);
|
|
|
467 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device);
|
|
|
468 void set_device_selected_frame (struct device *d, Lisp_Object frame);
|
|
|
469 Lisp_Object domain_device_type (Lisp_Object domain);
|
|
|
470 int window_system_pixelated_geometry (Lisp_Object domain);
|
|
|
471
|
|
440
|
472 #endif /* INCLUDED_device_h_ */
|
