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
1204
+ − 29 To use, define MARKED_SLOT before including this file. No need to
+ − 30 undefine; that happens automatically. */
617
+ − 31
+ − 32 /* Name of this device, for resourcing and printing purposes.
+ − 33 If not explicitly given, it's initialized in a device-specific
+ − 34 manner. */
1204
+ − 35 MARKED_SLOT (name)
617
+ − 36
+ − 37 /* What this device is connected to */
1204
+ − 38 MARKED_SLOT (connection)
617
+ − 39
+ − 40 /* A canonical name for the connection that is used to determine
+ − 41 whether `make-device' is being called on an existing device. */
1204
+ − 42 MARKED_SLOT (canon_connection)
617
+ − 43
+ − 44 /* List of frames on this device. */
1204
+ − 45 MARKED_SLOT (frame_list)
617
+ − 46
+ − 47 /* The console this device is on. */
1204
+ − 48 MARKED_SLOT (console)
617
+ − 49
+ − 50 /* Frame which is "currently selected". This is what `selected-frame'
+ − 51 returns and is the default frame for many operations. This may
1204
+ − 52 not be the same as frame_with_focus `select-frame' changes the
617
+ − 53 selected_frame but not the frame_with_focus. However, eventually
+ − 54 either the two values will be the same, or frame_with_focus will
+ − 55 be nil: right before waiting for an event, the focus is changed
+ − 56 to point to the selected_frame if XEmacs currently has the focus
+ − 57 on this device. Note that frame_with_focus may be nil (none of the
+ − 58 frames on this device have the window-system focus), but
+ − 59 selected_frame will never be nil if there are any frames on
+ − 60 the device. */
1204
+ − 61 MARKED_SLOT (selected_frame)
617
+ − 62 /* Frame that currently contains the window-manager focus, or none.
+ − 63 Note that we've split frame_with_focus into two variables.
+ − 64 frame_with_focus_real is the value we use most of the time,
+ − 65 but frame_with_focus_for_hooks is used for running the select-frame-hook
+ − 66 and deselect-frame-hook. We do this because we split the focus handling
+ − 67 into two parts: one part (deals with drawing the solid/box cursor)
1204
+ − 68 runs as soon as a focus event is received the other (running the
617
+ − 69 hooks) runs after any pending sit-for/sleep-for/accept-process-output
+ − 70 calls are done. */
1204
+ − 71 MARKED_SLOT (frame_with_focus_real)
+ − 72 MARKED_SLOT (frame_with_focus_for_hooks)
617
+ − 73 /* If we have recently issued a request to change the focus as a
+ − 74 result of select-frame having been called, the following variable
+ − 75 records the frame we are trying to focus on. The reason for this
+ − 76 is that the window manager may not grant our request to change
+ − 77 the focus (so we can't just change frame_with_focus), and we don't
+ − 78 want to keep sending requests again and again to the window manager.
+ − 79 This variable is reset whenever a focus-change event is seen. */
1204
+ − 80 MARKED_SLOT (frame_that_ought_to_have_focus)
617
+ − 81
+ − 82 /* Color class of this device. */
1204
+ − 83 MARKED_SLOT (device_class)
617
+ − 84
+ − 85 /* Alist of values for user-defined tags in this device. */
1204
+ − 86 MARKED_SLOT (user_defined_tags)
617
+ − 87
+ − 88 /* Hash tables for device-specific objects (fonts, colors, etc).
+ − 89 These are key-weak hash tables (or hash tables containing key-weak
+ − 90 hash tables) so that they disappear when the key goes away. */
+ − 91
+ − 92 /* This is a simple key-weak hash table hashing color names to
+ − 93 instances. */
1204
+ − 94 MARKED_SLOT (color_instance_cache)
617
+ − 95
+ − 96 /* This is a simple key-weak hash table hashing font names to
+ − 97 instances. */
1204
+ − 98 MARKED_SLOT (font_instance_cache)
617
+ − 99
+ − 100 #ifdef MULE
+ − 101 /* This is a bi-level cache, where the hash table in this slot here
+ − 102 indexes charset objects to key-weak hash tables, which in turn
+ − 103 index font names to more specific font names that match the
+ − 104 given charset's registry. This speeds up the horrendously
+ − 105 slow XListFonts() operation that needs to be done in order
+ − 106 to determine an appropriate font. */
1204
+ − 107 MARKED_SLOT (charset_font_cache_stage_1)
872
+ − 108
+ − 109 /* Similar cache for stage 2, if it exists. See objects.c. */
1204
+ − 110 MARKED_SLOT (charset_font_cache_stage_2)
617
+ − 111 #endif
+ − 112
+ − 113 /* This is a bi-level cache, where the hash table in this slot here
+ − 114 indexes image-instance-type masks (there are currently 6
+ − 115 image-instance types and thus 64 possible masks) to key-weak hash
+ − 116 tables like the one for colors. */
1204
+ − 117 MARKED_SLOT (image_instance_cache)
617
+ − 118
+ − 119 #undef MARKED_SLOT