You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
#include <X11/Xlib.h>
#include <X11/cursorfont.h>
#define HAVE_X11R4
#endif
#endif
+
+#ifdef HAVE_X11R5
+#define HAVE_X_I18N
+#include <X11/Xlocale.h>
+#endif
\f
#define BLACK_PIX_DEFAULT(f) BlackPixel (FRAME_X_DISPLAY (f), \
XScreenNumberOfScreen (FRAME_X_SCREEN (f)))
#define FONT_HEIGHT(f) ((f)->ascent + (f)->descent)
#define FONT_BASE(f) ((f)->ascent)
-#define CHECK_X_FRAME(f, frame) \
- if (NILP (frame)) \
- f = selected_frame; \
- else \
- { \
- CHECK_LIVE_FRAME (frame, 0); \
- f = XFRAME (frame); \
- } \
- if (! FRAME_X_P (f))
-
-
-
/* The mask of events that text windows always want to receive. This
- does not include mouse movement events. It is used when the window
- is created (in x_window) and and in selection processing.
-
- We do include ButtonReleases in this set because Emacs isn't always
- fast enough to catch them when it wants them, and they're rare
- enough that they don't use much processor time. */
+ includes mouse movement events, since handling the mouse-font text property
+ means that we must track mouse motion all the time. */
#define STANDARD_EVENT_SET \
(KeyPressMask \
| ButtonPressMask \
| ButtonReleaseMask \
| PointerMotionMask \
- | PointerMotionHintMask \
| StructureNotifyMask \
| FocusChangeMask \
| LeaveWindowMask \
#ifdef USE_X_TOOLKIT
extern struct frame *x_any_window_to_frame ();
+extern struct frame *x_non_menubar_window_to_frame ();
extern struct frame *x_top_window_to_frame ();
#endif
-/* The frame (if any) which has the X window that has keyboard focus.
- Zero if none. This is examined by Ffocus_frame in xfns.c */
-
-extern struct frame *x_focus_frame;
-
extern Visual *select_visual ();
enum text_cursor_kinds {
Atom Xatom_CLIPBOARD, Xatom_TIMESTAMP, Xatom_TEXT, Xatom_DELETE,
Xatom_MULTIPLE, Xatom_INCR, Xatom_EMACS_TMP, Xatom_TARGETS, Xatom_NULL,
Xatom_ATOM_PAIR;
- PERD display_perd;
+#ifdef MULTI_KBOARD
+ struct kboard *kboard;
+#endif
+ int cut_buffers_initialized; /* Whether we're sure they all exist */
+
+ /* The frame (if any) which has the X window that has keyboard focus.
+ Zero if none. This is examined by Ffocus_frame in xfns.c. Note
+ that a mere EnterNotify event can set this; if you need to know the
+ last frame specified in a FocusIn or FocusOut event, use
+ x_focus_event_frame. */
+ struct frame *x_focus_frame;
+
+ /* The last frame mentioned in a FocusIn or FocusOut event. This is
+ separate from x_focus_frame, because whether or not LeaveNotify
+ events cause us to lose focus depends on whether or not we have
+ received a FocusIn event for it. */
+ struct frame *x_focus_event_frame;
+
+ /* The frame which currently has the visual highlight, and should get
+ keyboard input (other sorts of input have the frame encoded in the
+ event). It points to the X focus frame's selected window's
+ frame. It differs from x_focus_frame when we're using a global
+ minibuffer. */
+ struct frame *x_highlight_frame;
};
/* This is a chain of structures for all the X displays currently in use. */
extern struct x_display_info *x_term_init ();
\f
-/* Each X frame object points to its own struct x_display object
- in the display.x field. The x_display structure contains all
+/* Each X frame object points to its own struct x_output object
+ in the output_data.x field. The x_output structure contains
the information that is specific to X windows. */
-struct x_display
+struct x_output
{
/* Position of the X window (x and y offsets in root window). */
int left_pos;
/* Size of the X window in pixels. */
int pixel_height, pixel_width;
+ /* Height of menu bar widget, in pixels.
+ Zero if not using the X toolkit.
+ When using the toolkit, this value is not meaningful
+ if the menubar is turned off. */
+ int menubar_height;
+
/* Height of a line, in pixels. */
int line_height;
Cursor modeline_cursor;
Cursor cross_cursor;
- /* The name that was associated with the icon, the last time
- it was refreshed. Usually the same as the name of the
- buffer in the currently selected window in the frame */
- char *icon_label;
-
/* Flag to set when the X window needs to be completely repainted. */
int needs_exposure;
This should always be filled_box_cursor or bar_cursor. */
enum text_cursor_kinds desired_cursor;
+ /* Width of bar cursor (if we are using that). */
+ int cursor_width;
+
/* These are the current window manager hints. It seems that
XSetWMHints, when presented with an unset bit in the `flags'
member of the hints structure, does not leave the corresponding
/* This is the Emacs structure for the X display this frame is on. */
struct x_display_info *display_info;
+ /* This is a button event that wants to activate the menubar.
+ We save it here until the command loop gets to think about it. */
+ XButtonEvent *saved_button_event;
+
+ /* This is the widget id used for this frame's menubar in lwlib. */
+#ifdef USE_X_TOOLKIT
+ int id;
+#endif
+
/* Nonzero means our parent is another application's window
and was explicitly specified. */
char explicit_parent;
+
+ /* Nonzero means tried already to make this frame visible. */
+ char asked_for_visible;
+
+#ifdef HAVE_X_I18N
+ /* Input method. */
+ XIM xim;
+ /* Input context (currently, this means Compose key handler setup). */
+ XIC xic;
+#endif
};
/* Get at the computed faces of an X window frame. */
-#define FRAME_PARAM_FACES(f) ((f)->display.x->param_faces)
-#define FRAME_N_PARAM_FACES(f) ((f)->display.x->n_param_faces)
+#define FRAME_PARAM_FACES(f) ((f)->output_data.x->param_faces)
+#define FRAME_N_PARAM_FACES(f) ((f)->output_data.x->n_param_faces)
#define FRAME_DEFAULT_PARAM_FACE(f) (FRAME_PARAM_FACES (f)[0])
#define FRAME_MODE_LINE_PARAM_FACE(f) (FRAME_PARAM_FACES (f)[1])
-#define FRAME_COMPUTED_FACES(f) ((f)->display.x->computed_faces)
-#define FRAME_N_COMPUTED_FACES(f) ((f)->display.x->n_computed_faces)
-#define FRAME_SIZE_COMPUTED_FACES(f) ((f)->display.x->size_computed_faces)
-#define FRAME_DEFAULT_FACE(f) ((f)->display.x->computed_faces[0])
-#define FRAME_MODE_LINE_FACE(f) ((f)->display.x->computed_faces[1])
+#define FRAME_COMPUTED_FACES(f) ((f)->output_data.x->computed_faces)
+#define FRAME_N_COMPUTED_FACES(f) ((f)->output_data.x->n_computed_faces)
+#define FRAME_SIZE_COMPUTED_FACES(f) ((f)->output_data.x->size_computed_faces)
+#define FRAME_DEFAULT_FACE(f) ((f)->output_data.x->computed_faces[0])
+#define FRAME_MODE_LINE_FACE(f) ((f)->output_data.x->computed_faces[1])
/* Return the window associated with the frame F. */
-#define FRAME_X_WINDOW(f) ((f)->display.x->window_desc)
+#define FRAME_X_WINDOW(f) ((f)->output_data.x->window_desc)
-#define FRAME_FOREGROUND_PIXEL(f) ((f)->display.x->foreground_pixel)
-#define FRAME_BACKGROUND_PIXEL(f) ((f)->display.x->background_pixel)
-#define FRAME_FONT(f) ((f)->display.x->font)
+#define FRAME_FOREGROUND_PIXEL(f) ((f)->output_data.x->foreground_pixel)
+#define FRAME_BACKGROUND_PIXEL(f) ((f)->output_data.x->background_pixel)
+#define FRAME_FONT(f) ((f)->output_data.x->font)
+#define FRAME_INTERNAL_BORDER_WIDTH(f) ((f)->output_data.x->internal_border_width)
+#define FRAME_LINE_HEIGHT(f) ((f)->output_data.x->line_height)
/* This gives the x_display_info structure for the display F is on. */
-#define FRAME_X_DISPLAY_INFO(f) ((f)->display.x->display_info)
+#define FRAME_X_DISPLAY_INFO(f) ((f)->output_data.x->display_info)
/* This is the `Display *' which frame F is on. */
#define FRAME_X_DISPLAY(f) (FRAME_X_DISPLAY_INFO (f)->display)
#define FRAME_X_SCREEN(f) (FRAME_X_DISPLAY_INFO (f)->screen)
/* These two really ought to be called FRAME_PIXEL_{WIDTH,HEIGHT}. */
-#define PIXEL_WIDTH(f) ((f)->display.x->pixel_width)
-#define PIXEL_HEIGHT(f) ((f)->display.x->pixel_height)
+#define PIXEL_WIDTH(f) ((f)->output_data.x->pixel_width)
+#define PIXEL_HEIGHT(f) ((f)->output_data.x->pixel_height)
-#define FRAME_DESIRED_CURSOR(f) ((f)->display.x->desired_cursor)
+#define FRAME_DESIRED_CURSOR(f) ((f)->output_data.x->desired_cursor)
+#define FRAME_XIM(f) ((f)->output_data.x->xim)
+#define FRAME_XIC(f) ((f)->output_data.x->xic)
\f
/* X-specific scroll bar stuff. */
/* Return the outside pixel height for a vertical scroll bar HEIGHT
rows high on frame F. */
#define VERTICAL_SCROLL_BAR_PIXEL_HEIGHT(f, height) \
- ((height) * (f)->display.x->line_height)
+ ((height) * (f)->output_data.x->line_height)
/* Return the inside width of a vertical scroll bar, given the outside
width. */
Return the upper/left pixel position of the character cell on frame F
at ROW/COL. */
#define CHAR_TO_PIXEL_ROW(f, row) \
- ((f)->display.x->internal_border_width \
- + (row) * (f)->display.x->line_height)
+ ((f)->output_data.x->internal_border_width \
+ + (row) * (f)->output_data.x->line_height)
#define CHAR_TO_PIXEL_COL(f, col) \
- ((f)->display.x->internal_border_width \
- + (col) * FONT_WIDTH ((f)->display.x->font))
+ ((f)->output_data.x->internal_border_width \
+ + (col) * FONT_WIDTH ((f)->output_data.x->font))
/* Return the pixel width/height of frame F if it has
WIDTH columns/HEIGHT rows. */
#define CHAR_TO_PIXEL_WIDTH(f, width) \
(CHAR_TO_PIXEL_COL (f, width) \
- + (f)->display.x->vertical_scroll_bar_extra \
- + (f)->display.x->internal_border_width)
+ + (f)->output_data.x->vertical_scroll_bar_extra \
+ + (f)->output_data.x->internal_border_width)
#define CHAR_TO_PIXEL_HEIGHT(f, height) \
(CHAR_TO_PIXEL_ROW (f, height) \
- + (f)->display.x->internal_border_width)
+ + (f)->output_data.x->internal_border_width)
/* Return the row/column (zero-based) of the character cell containing
the pixel on FRAME at ROW/COL. */
#define PIXEL_TO_CHAR_ROW(f, row) \
- (((row) - (f)->display.x->internal_border_width) \
- / (f)->display.x->line_height)
+ (((row) - (f)->output_data.x->internal_border_width) \
+ / (f)->output_data.x->line_height)
#define PIXEL_TO_CHAR_COL(f, col) \
- (((col) - (f)->display.x->internal_border_width) \
- / FONT_WIDTH ((f)->display.x->font))
+ (((col) - (f)->output_data.x->internal_border_width) \
+ / FONT_WIDTH ((f)->output_data.x->font))
/* How many columns/rows of text can we fit in WIDTH/HEIGHT pixels on
frame F? */
#define PIXEL_TO_CHAR_WIDTH(f, width) \
(PIXEL_TO_CHAR_COL (f, ((width) \
- - (f)->display.x->internal_border_width \
- - (f)->display.x->vertical_scroll_bar_extra)))
+ - (f)->output_data.x->internal_border_width \
+ - (f)->output_data.x->vertical_scroll_bar_extra)))
#define PIXEL_TO_CHAR_HEIGHT(f, height) \
(PIXEL_TO_CHAR_ROW (f, ((height) \
- - (f)->display.x->internal_border_width)))
+ - (f)->output_data.x->internal_border_width)))
\f
/* If a struct input_event has a kind which is selection_request_event
or selection_clear_event, then its contents are really described
by this structure. */
/* For an event of kind selection_request_event,
- this structure really describes the contents. */
+ this structure really describes the contents.
+ **Don't make this struct longer!**
+ If it overlaps the frame_or_window field of struct input_event,
+ that will cause GC to crash. */
struct selection_input_event
{
int kind;
Display *display;
+ /* We spell it with an "o" here because X does. */
Window requestor;
Atom selection, target, property;
Time time;
#define SELECTION_EVENT_DISPLAY(eventp) \
(((struct selection_input_event *) (eventp))->display)
+/* We spell it with an "o" here because X does. */
#define SELECTION_EVENT_REQUESTOR(eventp) \
(((struct selection_input_event *) (eventp))->requestor)
#define SELECTION_EVENT_SELECTION(eventp) \