Mercurial > hg > xemacs-beta
diff src/console-x.h @ 428:3ecd8885ac67 r21-2-22
Import from CVS: tag r21-2-22
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:28:15 +0200 |
parents | |
children | 8de8e3f6228a |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/console-x.h Mon Aug 13 11:28:15 2007 +0200 @@ -0,0 +1,495 @@ +/* Define X specific console, device, and frame object for XEmacs. + Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. + Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in FSF. */ + + +/* Authorship: + + Ultimately based on FSF, then later on JWZ work for Lemacs. + Rewritten over time by Ben Wing and Chuck Thompson (original + multi-device work by Chuck Thompson). + */ + +#ifndef _XEMACS_CONSOLE_X_H_ +#define _XEMACS_CONSOLE_X_H_ + +#ifdef HAVE_X_WINDOWS + +#include "console.h" +#include "xintrinsic.h" + +#include <X11/cursorfont.h> +#include <X11/keysym.h> +#include <X11/Xatom.h> + +#if 0 /* mrb - Xos sux. */ +#ifdef USG +#undef USG /* ####KLUDGE for Solaris 2.2 and up */ +#include <X11/Xos.h> +#define USG +#else +#include <X11/Xos.h> +#endif +#endif /* 0 */ + +#include <X11/StringDefs.h> + +#ifdef HAVE_XPM +#include <X11/xpm.h> +#endif + +/* R5 defines the XPointer type, but R4 doesn't. + R4 also doesn't define a version number, but R5 does. */ +#if (XlibSpecificationRelease < 5) +# define XPointer char * +#endif + +DECLARE_CONSOLE_TYPE (x); + +struct x_device +{ + /* The X connection of this device. */ + Display *display; + + /* Set by x_IO_error_handler(). */ + int being_deleted; + + /* Xt application info. */ + Widget Xt_app_shell; + + /* Cache of GC's for frame's on this device. */ + struct gc_cache *gc_cache; + + /* Selected visual, depth and colormap for this device */ + Visual *visual; + int depth; + Colormap device_cmap; + + /* Used by x_bevel_modeline in redisplay-x.c */ + Pixmap gray_pixmap; + + /* Atoms associated with this device. */ + /* allocated in Xatoms_of_xfns in xfns.c */ + Atom Xatom_WM_PROTOCOLS; + Atom Xatom_WM_DELETE_WINDOW; + Atom Xatom_WM_SAVE_YOURSELF; + Atom Xatom_WM_TAKE_FOCUS; + Atom Xatom_WM_STATE; + + /* allocated in Xatoms_of_xselect in xselect.c */ + Atom Xatom_CLIPBOARD; + Atom Xatom_TIMESTAMP; + Atom Xatom_TEXT; + Atom Xatom_DELETE; + Atom Xatom_MULTIPLE; + Atom Xatom_INCR; + Atom Xatom_EMACS_TMP; + Atom Xatom_TARGETS; + Atom Xatom_NULL; + Atom Xatom_ATOM_PAIR; + Atom Xatom_COMPOUND_TEXT; + + /* allocated in Xatoms_of_objects_x in objects-x.c */ + Atom Xatom_FOUNDRY; + Atom Xatom_FAMILY_NAME; + Atom Xatom_WEIGHT_NAME; + Atom Xatom_SLANT; + Atom Xatom_SETWIDTH_NAME; + Atom Xatom_ADD_STYLE_NAME; + Atom Xatom_PIXEL_SIZE; + Atom Xatom_POINT_SIZE; + Atom Xatom_RESOLUTION_X; + Atom Xatom_RESOLUTION_Y; + Atom Xatom_SPACING; + Atom Xatom_AVERAGE_WIDTH; + Atom Xatom_CHARSET_REGISTRY; + Atom Xatom_CHARSET_ENCODING; + + /* The following items are all used exclusively in event-Xt.c. */ + int MetaMask, HyperMask, SuperMask, AltMask, ModeMask; + KeySym lock_interpretation; + + XModifierKeymap *x_modifier_keymap; + + KeySym *x_keysym_map; + int x_keysym_map_min_code; + int x_keysym_map_max_code; + int x_keysym_map_keysyms_per_code; + Lisp_Object x_keysym_map_hash_table; + + /* frame that holds the WM_COMMAND property; there should be exactly + one of these per device. */ + Lisp_Object WM_COMMAND_frame; + + /* #### It's not clear that there is much distinction anymore + between mouse_timestamp and global_mouse_timestamp, now that + Emacs doesn't see most (all?) events not destined for it. */ + + /* The timestamp of the last button or key event used by emacs itself. + This is used for asserting selections and input focus. */ + Time mouse_timestamp; + + /* This is the timestamp the last button or key event whether it was + dispatched to emacs or widgets. */ + Time global_mouse_timestamp; + + /* This is the last known timestamp received from the server. It is + maintained by x_event_to_emacs_event and used to patch bogus + WM_TAKE_FOCUS messages sent by Mwm. */ + Time last_server_timestamp; + + /* Used by Xlib to preserve information across calls to + XLookupString(), to implement compose processing. + + According to The X Window System, p. 467, "The creation of + XComposeStatus structures is implementation dependent; + a portable program must pass NULL for this argument." + But this means that a portable program cannot implement + compose processing! WTF? + + So we just set it to all zeros. */ + + /* No X Server ever used this, AFAIK -- mrb */ + /* XComposeStatus x_compose_status; */ + +#ifdef HAVE_XIM + XIM xim; + XIMStyles *xim_styles; +#endif /* HAVE_XIM */ + + /* stuff for sticky modifiers: */ + + unsigned int need_to_add_mask, down_mask; + KeyCode last_downkey; + Time release_time; +}; + +#define DEVICE_X_DATA(d) DEVICE_TYPE_DATA (d, x) + +#define FRAME_X_DISPLAY(f) (DEVICE_X_DISPLAY (XDEVICE (f->device))) +#define DEVICE_X_DISPLAY(d) (DEVICE_X_DATA (d)->display) +#define DEVICE_X_BEING_DELETED(d) (DEVICE_X_DATA (d)->being_deleted) +#define DEVICE_X_VISUAL(d) (DEVICE_X_DATA (d)->visual) +#define DEVICE_X_DEPTH(d) (DEVICE_X_DATA (d)->depth) +#define DEVICE_X_COLORMAP(d) (DEVICE_X_DATA (d)->device_cmap) +#define DEVICE_XT_APP_SHELL(d) (DEVICE_X_DATA (d)->Xt_app_shell) +#define DEVICE_X_GC_CACHE(d) (DEVICE_X_DATA (d)->gc_cache) +#define DEVICE_X_GRAY_PIXMAP(d) (DEVICE_X_DATA (d)->gray_pixmap) +#define DEVICE_X_WM_COMMAND_FRAME(d) (DEVICE_X_DATA (d)->WM_COMMAND_frame) +#define DEVICE_X_MOUSE_TIMESTAMP(d) (DEVICE_X_DATA (d)->mouse_timestamp) +#define DEVICE_X_GLOBAL_MOUSE_TIMESTAMP(d) (DEVICE_X_DATA (d)->global_mouse_timestamp) +#define DEVICE_X_LAST_SERVER_TIMESTAMP(d) (DEVICE_X_DATA (d)->last_server_timestamp) +#define DEVICE_X_KEYSYM_MAP_HASH_TABLE(d) (DEVICE_X_DATA (d)->x_keysym_map_hash_table) +/* #define DEVICE_X_X_COMPOSE_STATUS(d) (DEVICE_X_DATA (d)->x_compose_status) */ +#ifdef HAVE_XIM +#define DEVICE_X_XIM(d) (DEVICE_X_DATA (d)->xim) +#define DEVICE_X_XIM_STYLES(d) (DEVICE_X_DATA (d)->xim_styles) +#define DEVICE_X_FONTSET(d) (DEVICE_X_DATA (d)->fontset) +#endif /* HAVE_XIM */ + +/* allocated in Xatoms_of_xfns in xfns.c */ +#define DEVICE_XATOM_WM_PROTOCOLS(d) (DEVICE_X_DATA (d)->Xatom_WM_PROTOCOLS) +#define DEVICE_XATOM_WM_DELETE_WINDOW(d) (DEVICE_X_DATA (d)->Xatom_WM_DELETE_WINDOW) +#define DEVICE_XATOM_WM_SAVE_YOURSELF(d) (DEVICE_X_DATA (d)->Xatom_WM_SAVE_YOURSELF) +#define DEVICE_XATOM_WM_TAKE_FOCUS(d) (DEVICE_X_DATA (d)->Xatom_WM_TAKE_FOCUS) +#define DEVICE_XATOM_WM_STATE(d) (DEVICE_X_DATA (d)->Xatom_WM_STATE) + +/* allocated in Xatoms_of_xselect in xselect.c */ +#define DEVICE_XATOM_CLIPBOARD(d) (DEVICE_X_DATA (d)->Xatom_CLIPBOARD) +#define DEVICE_XATOM_TIMESTAMP(d) (DEVICE_X_DATA (d)->Xatom_TIMESTAMP) +#define DEVICE_XATOM_TEXT(d) (DEVICE_X_DATA (d)->Xatom_TEXT) +#define DEVICE_XATOM_DELETE(d) (DEVICE_X_DATA (d)->Xatom_DELETE) +#define DEVICE_XATOM_MULTIPLE(d) (DEVICE_X_DATA (d)->Xatom_MULTIPLE) +#define DEVICE_XATOM_INCR(d) (DEVICE_X_DATA (d)->Xatom_INCR) +#define DEVICE_XATOM_EMACS_TMP(d) (DEVICE_X_DATA (d)->Xatom_EMACS_TMP) +#define DEVICE_XATOM_TARGETS(d) (DEVICE_X_DATA (d)->Xatom_TARGETS) +#define DEVICE_XATOM_NULL(d) (DEVICE_X_DATA (d)->Xatom_NULL) +#define DEVICE_XATOM_ATOM_PAIR(d) (DEVICE_X_DATA (d)->Xatom_ATOM_PAIR) +#define DEVICE_XATOM_COMPOUND_TEXT(d) (DEVICE_X_DATA (d)->Xatom_COMPOUND_TEXT) + +/* allocated in Xatoms_of_objects_x in objects-x.c */ +#define DEVICE_XATOM_FOUNDRY(d) (DEVICE_X_DATA (d)->Xatom_FOUNDRY) +#define DEVICE_XATOM_FAMILY_NAME(d) (DEVICE_X_DATA (d)->Xatom_FAMILY_NAME) +#define DEVICE_XATOM_WEIGHT_NAME(d) (DEVICE_X_DATA (d)->Xatom_WEIGHT_NAME) +#define DEVICE_XATOM_SLANT(d) (DEVICE_X_DATA (d)->Xatom_SLANT) +#define DEVICE_XATOM_SETWIDTH_NAME(d) (DEVICE_X_DATA (d)->Xatom_SETWIDTH_NAME) +#define DEVICE_XATOM_ADD_STYLE_NAME(d) (DEVICE_X_DATA (d)->Xatom_ADD_STYLE_NAME) +#define DEVICE_XATOM_PIXEL_SIZE(d) (DEVICE_X_DATA (d)->Xatom_PIXEL_SIZE) +#define DEVICE_XATOM_POINT_SIZE(d) (DEVICE_X_DATA (d)->Xatom_POINT_SIZE) +#define DEVICE_XATOM_RESOLUTION_X(d) (DEVICE_X_DATA (d)->Xatom_RESOLUTION_X) +#define DEVICE_XATOM_RESOLUTION_Y(d) (DEVICE_X_DATA (d)->Xatom_RESOLUTION_Y) +#define DEVICE_XATOM_SPACING(d) (DEVICE_X_DATA (d)->Xatom_SPACING) +#define DEVICE_XATOM_AVERAGE_WIDTH(d) (DEVICE_X_DATA (d)->Xatom_AVERAGE_WIDTH) +#define DEVICE_XATOM_CHARSET_REGISTRY(d) (DEVICE_X_DATA (d)->Xatom_CHARSET_REGISTRY) +#define DEVICE_XATOM_CHARSET_ENCODING(d) (DEVICE_X_DATA (d)->Xatom_CHARSET_ENCODING) + +#define Xt_SET_VALUE(widget, resource, value) do { \ + Arg al; \ + XtSetArg (al, resource, value); \ + XtSetValues (widget, &al, 1); \ +} while (0) + +#define Xt_GET_VALUE(widget, resource, location) do { \ + Arg al; \ + XtSetArg (al, resource, location); \ + XtGetValues (widget, &al, 1); \ +} while (0) + +/* The maximum number of widgets that can be displayed above the text + area at one time. Currently no more than 3 will ever actually be + displayed (menubar, psheet, debugger panel). */ +#define MAX_CONCURRENT_TOP_WIDGETS 8 + +struct x_frame +{ + /* The widget of this frame. This is an EmacsShell or an + ExternalShell. */ + Widget widget; + + /* The parent of the EmacsFrame, the menubar, and the scrollbars. + This is an EmacsManager. */ + Widget container; + + /* The widget of the menubar, of whatever widget class it happens to be. */ + Widget menubar_widget; + + /* The widget of the edit portion of this frame; this is an EmacsFrame, + and the window of this widget is what the redisplay code draws on. */ + Widget edit_widget; + + /* Lists the widgets above the text area, in the proper order. + Used by the EmacsManager. */ + Widget top_widgets[MAX_CONCURRENT_TOP_WIDGETS]; + int num_top_widgets; + + /*************************** Miscellaneous **************************/ + + /* The icon pixmaps; these are Lisp_Image_Instance objects, or Qnil. */ + Lisp_Object icon_pixmap; + Lisp_Object icon_pixmap_mask; + +#ifdef HAVE_TOOLBARS + int old_toolbar_size[4]; + + /* We don't provide a mechanism for changing these after they are + initialized so we might as well keep pointers to them and avoid + lots of expensive calls to gc_cache_lookup. */ + GC toolbar_top_shadow_gc; + GC toolbar_bottom_shadow_gc; + GC toolbar_blank_background_gc; + GC toolbar_pixmap_background_gc; +#endif /* HAVE_TOOLBARS */ + + /* geometry string that ought to be freed. */ + char *geom_free_me_please; + +#ifdef HAVE_XIM + XPoint xic_spot; /* Spot Location cache */ +#ifdef XIM_XLIB + XIC xic; + /* Could get these at any time by asking xic, but... */ + XIMStyle xic_style; /* XIM Style cache */ +#endif /* XIM_XLIB */ +#endif /* HAVE_XIM */ + + /* 1 if the frame is completely visible on the display, 0 otherwise. + if 0 the frame may have been iconified or may be totally + or partially hidden by another X window */ + unsigned int totally_visible_p :1; + + /* NB: Both of the following flags are derivable from the 'shell' + field above, but it's easier if we also have them separately here. */ + + /* Are we a top-level frame? This means that our shell is a + TopLevelShell, and we should do certain things to interact with + the window manager. */ + unsigned int top_level_frame_p :1; + +#ifdef EXTERNAL_WIDGET + /* Are we using somebody else's window for our shell window? This + means that our shell is an ExternalShell. If this flag is set, then + `top_level_frame_p' will never be set. */ + unsigned int external_window_p :1; +#endif /* EXTERNAL_WIDGET */ +}; + +#define FRAME_X_DATA(f) FRAME_TYPE_DATA (f, x) + +#define FRAME_X_SHELL_WIDGET(f) (FRAME_X_DATA (f)->widget) +#define FRAME_X_CONTAINER_WIDGET(f) (FRAME_X_DATA (f)->container) +#define FRAME_X_MENUBAR_WIDGET(f) (FRAME_X_DATA (f)->menubar_widget) +#define FRAME_X_TEXT_WIDGET(f) (FRAME_X_DATA (f)->edit_widget) +#define FRAME_X_TOP_WIDGETS(f) (FRAME_X_DATA (f)->top_widgets) +#define FRAME_X_NUM_TOP_WIDGETS(f) (FRAME_X_DATA (f)->num_top_widgets) + +#define FRAME_X_ICON_PIXMAP(f) (FRAME_X_DATA (f)->icon_pixmap) +#define FRAME_X_ICON_PIXMAP_MASK(f) (FRAME_X_DATA (f)->icon_pixmap_mask) + +#ifdef HAVE_TOOLBARS +#define FRAME_X_OLD_TOOLBAR_SIZE(f, pos) (FRAME_X_DATA (f)->old_toolbar_size[pos]) + +#define FRAME_X_TOOLBAR_TOP_SHADOW_GC(f) (FRAME_X_DATA (f)->toolbar_top_shadow_gc) +#define FRAME_X_TOOLBAR_BOTTOM_SHADOW_GC(f) (FRAME_X_DATA (f)->toolbar_bottom_shadow_gc) +#define FRAME_X_TOOLBAR_BLANK_BACKGROUND_GC(f) (FRAME_X_DATA (f)->toolbar_blank_background_gc) +#define FRAME_X_TOOLBAR_PIXMAP_BACKGROUND_GC(f) (FRAME_X_DATA (f)->toolbar_pixmap_background_gc) +#endif /* HAVE_TOOLBARS */ + +#define FRAME_X_GEOM_FREE_ME_PLEASE(f) (FRAME_X_DATA (f)->geom_free_me_please) + +#define FRAME_X_TOTALLY_VISIBLE_P(f) (FRAME_X_DATA (f)->totally_visible_p) +#define FRAME_X_TOP_LEVEL_FRAME_P(f) (FRAME_X_DATA (f)->top_level_frame_p) + +#ifdef EXTERNAL_WIDGET +#define FRAME_X_EXTERNAL_WINDOW_P(f) (FRAME_X_DATA (f)->external_window_p) +#endif + +#ifdef HAVE_XIM +#define FRAME_X_XIC_SPOT(f) (FRAME_X_DATA (f)->xic_spot) +#ifdef XIM_XLIB +#define FRAME_X_XIC(f) (FRAME_X_DATA (f)->xic) +#define FRAME_X_XIC_STYLE(f) (FRAME_X_DATA (f)->xic_style) +#endif /* XIM_XLIB */ +#endif /* HAVE_XIM */ + +/* Variables associated with the X display frame this emacs is using. */ +extern XtAppContext Xt_app_con; + +extern Lisp_Object Vx_gc_pointer_shape; +extern Lisp_Object Vx_scrollbar_pointer_shape; +extern Lisp_Object Qx_error; + +extern struct console_type *x_console_type; +extern Lisp_Object Vdefault_x_device; + +/* Number of pixels below each line. */ +extern int x_interline_space; /* #### implement me */ + +extern int x_selection_timeout; + +struct frame *x_any_window_to_frame (struct device *d, Window); +struct frame *x_any_widget_or_parent_to_frame (struct device *d, + Widget widget); +struct frame *decode_x_frame (Lisp_Object); +struct frame *x_window_to_frame (struct device *d, Window); +struct device *get_device_from_display (Display *dpy); +struct device *decode_x_device (Lisp_Object); + +void x_handle_selection_notify (XSelectionEvent *event); +void x_handle_selection_request (XSelectionRequestEvent *event); +void x_handle_selection_clear (XSelectionClearEvent *event); +void x_handle_property_notify (XPropertyEvent *event); + +void Xatoms_of_xselect (struct device *d); +void Xatoms_of_objects_x (struct device *d); + +void x_wm_set_shell_iconic_p (Widget shell, int iconic_p); +void x_wm_set_cell_size (Widget wmshell, int cw, int ch); +void x_wm_set_variable_size (Widget wmshell, int width, int height); + +CONST char *x_event_name (int event_type); +int x_error_handler (Display *disp, XErrorEvent *event); +void expect_x_error (Display *dpy); +int x_error_occurred_p (Display *dpy); +int signal_if_x_error (Display *dpy, int resumable_p); +int x_IO_error_handler (Display *disp); + +void x_redraw_exposed_area (struct frame *f, int x, int y, + int width, int height); +void x_output_string (struct window *w, struct display_line *dl, + Emchar_dynarr *buf, int xpos, int xoffset, + int start_pixpos, int width, face_index findex, + int cursor, int cursor_start, int cursor_width, + int cursor_height); +void x_output_x_pixmap (struct frame *f, struct Lisp_Image_Instance *p, + int x, int y, int xoffset, int yoffset, + int width, int height, + unsigned long fg, unsigned long bg, + GC override_gc); +void x_output_shadows (struct frame *f, int x, int y, int width, + int height, GC top_shadow_gc, + GC bottom_shadow_gc, GC background_gc, + int shadow_thickness, int edges); +void x_generate_shadow_pixels (struct frame *f, + unsigned long *top_shadow, + unsigned long *bottom_shadow, + unsigned long background, + unsigned long core_background); + +int x_initialize_frame_menubar (struct frame *f); +void x_init_modifier_mapping (struct device *d); + +#define X_ERROR_OCCURRED(dpy, body) \ + (expect_x_error (dpy), body, x_error_occurred_p (dpy)) + +#define HANDLING_X_ERROR(dpy, body) \ + (expect_x_error (dpy), body, signal_if_x_error (dpy, 0)) + +void Initialize_Locale (void); + +#ifdef HAVE_XIM + +/* X Input Method `methods' */ +void XIM_init_device (struct device *d); +void XIM_init_frame (struct frame *f); +void XIM_SetSpotLocation (struct frame *f, int x, int y); +void XIM_SetGeometry (struct frame *f); +void XIM_focus_event (struct frame *f, int in_p); + +#ifdef XIM_XLIB +/* XtTypeConverter */ +Boolean EmacsXtCvtStringToXIMStyles ( + Display *dpy, + XrmValuePtr args, + Cardinal *num_args, + XrmValuePtr from, + XrmValuePtr to_in_out, + XtPointer *converter_data); + +/* XtDestructor */ +void EmacsFreeXIMStyles ( + XtAppContext app, + XrmValuePtr to, + XtPointer converter_data, + XrmValuePtr args, + Cardinal *num_args); + +#ifdef DEBUG_XEMACS +void describe_Window (Window win); +void describe_XFontSet (XFontSet font_set); +void describe_XIM (XIM im); +void describe_XIMStyle (XIMStyle style); +void describe_XIMStyles (XIMStyles *styles); +void describe_XIC (XIC ic); +void describe_event_mask (unsigned long mask); +void describe_XRectangle (char *name, XRectangle *rect); +void describe_Status (Status status); +#endif /* DEBUG_XEMACS */ +#endif /* XIM_XLIB */ +#endif /* HAVE_XIM */ + +extern int in_resource_setting; +extern int in_specifier_change_function; + +extern Lisp_Object Vx_initial_argv_list; /* #### ugh! */ + +#endif /* HAVE_X_WINDOWS */ +#endif /* _XEMACS_DEVICE_X_H_ */