|
617
|
1 /* Definitions of marked slots in consoles
|
|
|
2 Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc.
|
|
872
|
3 Copyright (C) 2002 Ben Wing.
|
|
617
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to
|
|
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 Boston, MA 02111-1307, USA. */
|
|
|
21
|
|
|
22 /* Synched up with: Not in FSF. */
|
|
|
23
|
|
|
24 /* We define the Lisp_Objects in the device structure in a separate file
|
|
|
25 because there are numerous places we want to iterate over them, such
|
|
|
26 as when defining them in the structure, initializing them, or marking
|
|
|
27 them.
|
|
|
28
|
|
|
29 To use, define MARKED_SLOT before including this file. In the structure
|
|
|
30 definition, you also need to define FRAME_SLOT_DECLARATION. No need to
|
|
|
31 undefine either value; that happens automatically. */
|
|
|
32
|
|
|
33 /* Name of this device, for resourcing and printing purposes.
|
|
|
34 If not explicitly given, it's initialized in a device-specific
|
|
|
35 manner. */
|
|
|
36 MARKED_SLOT (name);
|
|
|
37
|
|
|
38 /* What this device is connected to */
|
|
|
39 MARKED_SLOT (connection);
|
|
|
40
|
|
|
41 /* A canonical name for the connection that is used to determine
|
|
|
42 whether `make-device' is being called on an existing device. */
|
|
|
43 MARKED_SLOT (canon_connection);
|
|
|
44
|
|
|
45 /* List of frames on this device. */
|
|
|
46 MARKED_SLOT (frame_list);
|
|
|
47
|
|
|
48 /* The console this device is on. */
|
|
|
49 MARKED_SLOT (console);
|
|
|
50
|
|
|
51 /* Frame which is "currently selected". This is what `selected-frame'
|
|
|
52 returns and is the default frame for many operations. This may
|
|
|
53 not be the same as frame_with_focus; `select-frame' changes the
|
|
|
54 selected_frame but not the frame_with_focus. However, eventually
|
|
|
55 either the two values will be the same, or frame_with_focus will
|
|
|
56 be nil: right before waiting for an event, the focus is changed
|
|
|
57 to point to the selected_frame if XEmacs currently has the focus
|
|
|
58 on this device. Note that frame_with_focus may be nil (none of the
|
|
|
59 frames on this device have the window-system focus), but
|
|
|
60 selected_frame will never be nil if there are any frames on
|
|
|
61 the device. */
|
|
|
62 MARKED_SLOT (selected_frame);
|
|
|
63 /* Frame that currently contains the window-manager focus, or none.
|
|
|
64 Note that we've split frame_with_focus into two variables.
|
|
|
65 frame_with_focus_real is the value we use most of the time,
|
|
|
66 but frame_with_focus_for_hooks is used for running the select-frame-hook
|
|
|
67 and deselect-frame-hook. We do this because we split the focus handling
|
|
|
68 into two parts: one part (deals with drawing the solid/box cursor)
|
|
|
69 runs as soon as a focus event is received; the other (running the
|
|
|
70 hooks) runs after any pending sit-for/sleep-for/accept-process-output
|
|
|
71 calls are done. */
|
|
|
72 MARKED_SLOT (frame_with_focus_real);
|
|
|
73 MARKED_SLOT (frame_with_focus_for_hooks);
|
|
|
74 /* If we have recently issued a request to change the focus as a
|
|
|
75 result of select-frame having been called, the following variable
|
|
|
76 records the frame we are trying to focus on. The reason for this
|
|
|
77 is that the window manager may not grant our request to change
|
|
|
78 the focus (so we can't just change frame_with_focus), and we don't
|
|
|
79 want to keep sending requests again and again to the window manager.
|
|
|
80 This variable is reset whenever a focus-change event is seen. */
|
|
|
81 MARKED_SLOT (frame_that_ought_to_have_focus);
|
|
|
82
|
|
|
83 /* Color class of this device. */
|
|
|
84 MARKED_SLOT (device_class);
|
|
|
85
|
|
|
86 /* Alist of values for user-defined tags in this device. */
|
|
|
87 MARKED_SLOT (user_defined_tags);
|
|
|
88
|
|
|
89 /* Hash tables for device-specific objects (fonts, colors, etc).
|
|
|
90 These are key-weak hash tables (or hash tables containing key-weak
|
|
|
91 hash tables) so that they disappear when the key goes away. */
|
|
|
92
|
|
|
93 /* This is a simple key-weak hash table hashing color names to
|
|
|
94 instances. */
|
|
|
95 MARKED_SLOT (color_instance_cache);
|
|
|
96
|
|
|
97 /* This is a simple key-weak hash table hashing font names to
|
|
|
98 instances. */
|
|
|
99 MARKED_SLOT (font_instance_cache);
|
|
|
100
|
|
|
101 #ifdef MULE
|
|
|
102 /* This is a bi-level cache, where the hash table in this slot here
|
|
|
103 indexes charset objects to key-weak hash tables, which in turn
|
|
|
104 index font names to more specific font names that match the
|
|
|
105 given charset's registry. This speeds up the horrendously
|
|
|
106 slow XListFonts() operation that needs to be done in order
|
|
|
107 to determine an appropriate font. */
|
|
872
|
108 MARKED_SLOT (charset_font_cache_stage_1);
|
|
|
109
|
|
|
110 /* Similar cache for stage 2, if it exists. See objects.c. */
|
|
|
111 MARKED_SLOT (charset_font_cache_stage_2);
|
|
617
|
112 #endif
|
|
|
113
|
|
|
114 /* This is a bi-level cache, where the hash table in this slot here
|
|
|
115 indexes image-instance-type masks (there are currently 6
|
|
|
116 image-instance types and thus 64 possible masks) to key-weak hash
|
|
|
117 tables like the one for colors. */
|
|
|
118 MARKED_SLOT (image_instance_cache);
|
|
|
119
|
|
|
120 #undef MARKED_SLOT
|
