Adding upstream version 2:9.1.0016.upstream/2%9.1.0016

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 3304 insertions, 0 deletions

diff --git a/src/gui_x11.c b/src/gui_x11.c
new file mode 100644
index 0000000..fc63658
--- /dev/null
+++ b/src/gui_x11.c
@@ -0,0 +1,3304 @@
+/* vi:set ts=8 sts=4 sw=4 noet:
+ *
+ * VIM - Vi IMproved		by Bram Moolenaar
+ *				GUI/Motif support by Robert Webb
+ *
+ * Do ":help uganda"  in Vim to read copying and usage conditions.
+ * Do ":help credits" in Vim to see a list of people who contributed.
+ * See README.txt for an overview of the Vim source code.
+ */
+/*
+ * Code for the Motif GUI.
+ * Not used for GTK.
+ */
+
+#include "vim.h"
+
+#include <X11/keysym.h>
+#include <X11/Xatom.h>
+#include <X11/StringDefs.h>
+#include <X11/Intrinsic.h>
+#include <X11/Shell.h>
+#include <X11/cursorfont.h>
+
+/*
+ * XpmP.h is preferred, because it makes the signs drawn with a transparent
+ * background instead of black.
+ */
+#if defined(HAVE_XM_XPMP_H) && defined(FEAT_GUI_MOTIF) \
+	&& !defined(HAVE_X11_XPM_H)
+# include <Xm/XpmP.h>
+#else
+# ifdef HAVE_X11_XPM_H
+#  ifdef VMS
+#   include <xpm.h>
+#  else
+#   include <X11/xpm.h>
+#  endif
+# endif
+#endif
+
+#ifdef FEAT_XFONTSET
+# ifdef X_LOCALE
+#  include <X11/Xlocale.h>
+# else
+#  include <locale.h>
+# endif
+#endif
+
+#ifdef HAVE_X11_SUNKEYSYM_H
+# include <X11/Sunkeysym.h>
+#endif
+
+#ifdef HAVE_X11_XMU_EDITRES_H
+# include <X11/Xmu/Editres.h>
+#endif
+
+#define VIM_NAME	"vim"
+#define VIM_CLASS	"Vim"
+
+// Default resource values
+#define DFLT_FONT		"7x13"
+#ifdef FONTSET_ALWAYS
+# define DFLT_MENU_FONT		XtDefaultFontSet
+#else
+# define DFLT_MENU_FONT		XtDefaultFont
+#endif
+#define DFLT_TOOLTIP_FONT	XtDefaultFontSet
+
+// use the default (CDE) colors
+#define DFLT_MENU_BG_COLOR	""
+#define DFLT_MENU_FG_COLOR	""
+#define DFLT_SCROLL_BG_COLOR	""
+#define DFLT_SCROLL_FG_COLOR	""
+#define DFLT_TOOLTIP_BG_COLOR	"#ffff91"
+#define DFLT_TOOLTIP_FG_COLOR	"#000000"
+
+Widget vimShell = (Widget)0;
+
+static Atom   wm_atoms[2];	// Window Manager Atoms
+#define DELETE_WINDOW_IDX 0	// index in wm_atoms[] for WM_DELETE_WINDOW
+#define SAVE_YOURSELF_IDX 1	// index in wm_atoms[] for WM_SAVE_YOURSELF
+
+#ifdef FEAT_XFONTSET
+/*
+ * We either draw with a fontset (when current_fontset != NULL) or with a
+ * normal font (current_fontset == NULL, use gui.text_gc and gui.back_gc).
+ */
+static XFontSet current_fontset = NULL;
+# if !defined(XDrawString)
+#  define XDrawString(dpy, win, gc, x, y, str, n) \
+	do \
+	{ \
+	    if (current_fontset != NULL) \
+		XmbDrawString(dpy, win, current_fontset, gc, x, y, str, n); \
+	    else \
+		XDrawString(dpy, win, gc, x, y, str, n); \
+	} while (0)
+# endif
+# if !defined(XDrawString16)
+#  define XDrawString16(dpy, win, gc, x, y, str, n) \
+	do \
+	{ \
+	    if (current_fontset != NULL) \
+		XwcDrawString(dpy, win, current_fontset, gc, x, y, (wchar_t *)str, n); \
+	    else \
+		XDrawString16(dpy, win, gc, x, y, (XChar2b *)str, n); \
+	} while (0)
+# endif
+# if !defined(XDrawImageString16)
+#  define XDrawImageString16(dpy, win, gc, x, y, str, n) \
+	do \
+	{ \
+	    if (current_fontset != NULL) \
+		XwcDrawImageString(dpy, win, current_fontset, gc, x, y, (wchar_t *)str, n); \
+	    else \
+		XDrawImageString16(dpy, win, gc, x, y, (XChar2b *)str, n); \
+	} while (0)
+# endif
+static int check_fontset_sanity(XFontSet fs);
+static int fontset_width(XFontSet fs);
+static int fontset_ascent(XFontSet fs);
+#endif
+
+static guicolor_T	prev_fg_color = INVALCOLOR;
+static guicolor_T	prev_bg_color = INVALCOLOR;
+static guicolor_T	prev_sp_color = INVALCOLOR;
+
+#if defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)
+static XButtonPressedEvent last_mouse_event;
+#endif
+
+static void gui_x11_check_copy_area(void);
+#ifdef FEAT_CLIENTSERVER
+static void gui_x11_send_event_handler(Widget, XtPointer, XEvent *, Boolean *);
+#endif
+static void gui_x11_wm_protocol_handler(Widget, XtPointer, XEvent *, Boolean *);
+static Cursor gui_x11_create_blank_mouse(void);
+
+
+/*
+ * Keycodes recognized by vim.
+ * NOTE: when changing this, the table in gui_gtk_x11.c probably needs the
+ * same change!
+ */
+static struct specialkey
+{
+    KeySym  key_sym;
+    char_u  vim_code0;
+    char_u  vim_code1;
+} special_keys[] =
+{
+    {XK_Up,		'k', 'u'},
+    {XK_Down,		'k', 'd'},
+    {XK_Left,		'k', 'l'},
+    {XK_Right,		'k', 'r'},
+
+    {XK_F1,		'k', '1'},
+    {XK_F2,		'k', '2'},
+    {XK_F3,		'k', '3'},
+    {XK_F4,		'k', '4'},
+    {XK_F5,		'k', '5'},
+    {XK_F6,		'k', '6'},
+    {XK_F7,		'k', '7'},
+    {XK_F8,		'k', '8'},
+    {XK_F9,		'k', '9'},
+    {XK_F10,		'k', ';'},
+
+    {XK_F11,		'F', '1'},
+    {XK_F12,		'F', '2'},
+    {XK_F13,		'F', '3'},
+    {XK_F14,		'F', '4'},
+    {XK_F15,		'F', '5'},
+    {XK_F16,		'F', '6'},
+    {XK_F17,		'F', '7'},
+    {XK_F18,		'F', '8'},
+    {XK_F19,		'F', '9'},
+    {XK_F20,		'F', 'A'},
+
+    {XK_F21,		'F', 'B'},
+    {XK_F22,		'F', 'C'},
+    {XK_F23,		'F', 'D'},
+    {XK_F24,		'F', 'E'},
+    {XK_F25,		'F', 'F'},
+    {XK_F26,		'F', 'G'},
+    {XK_F27,		'F', 'H'},
+    {XK_F28,		'F', 'I'},
+    {XK_F29,		'F', 'J'},
+    {XK_F30,		'F', 'K'},
+
+    {XK_F31,		'F', 'L'},
+    {XK_F32,		'F', 'M'},
+    {XK_F33,		'F', 'N'},
+    {XK_F34,		'F', 'O'},
+    {XK_F35,		'F', 'P'},	// keysymdef.h defines up to F35
+#ifdef SunXK_F36
+    {SunXK_F36,		'F', 'Q'},
+    {SunXK_F37,		'F', 'R'},
+#endif
+
+    {XK_Help,		'%', '1'},
+    {XK_Undo,		'&', '8'},
+    {XK_BackSpace,	'k', 'b'},
+    {XK_Insert,		'k', 'I'},
+    {XK_Delete,		'k', 'D'},
+    {XK_Home,		'k', 'h'},
+    {XK_End,		'@', '7'},
+    {XK_Prior,		'k', 'P'},
+    {XK_Next,		'k', 'N'},
+    {XK_Print,		'%', '9'},
+
+    // Keypad keys:
+#ifdef XK_KP_Left
+    {XK_KP_Left,	'k', 'l'},
+    {XK_KP_Right,	'k', 'r'},
+    {XK_KP_Up,		'k', 'u'},
+    {XK_KP_Down,	'k', 'd'},
+    {XK_KP_Insert,	KS_EXTRA, (char_u)KE_KINS},
+    {XK_KP_Delete,	KS_EXTRA, (char_u)KE_KDEL},
+    {XK_KP_Home,	'K', '1'},
+    {XK_KP_End,		'K', '4'},
+    {XK_KP_Prior,	'K', '3'},
+    {XK_KP_Next,	'K', '5'},
+
+    {XK_KP_Add,		'K', '6'},
+    {XK_KP_Subtract,	'K', '7'},
+    {XK_KP_Divide,	'K', '8'},
+    {XK_KP_Multiply,	'K', '9'},
+    {XK_KP_Enter,	'K', 'A'},
+    {XK_KP_Decimal,	'K', 'B'},
+
+    {XK_KP_0,		'K', 'C'},
+    {XK_KP_1,		'K', 'D'},
+    {XK_KP_2,		'K', 'E'},
+    {XK_KP_3,		'K', 'F'},
+    {XK_KP_4,		'K', 'G'},
+    {XK_KP_5,		'K', 'H'},
+    {XK_KP_6,		'K', 'I'},
+    {XK_KP_7,		'K', 'J'},
+    {XK_KP_8,		'K', 'K'},
+    {XK_KP_9,		'K', 'L'},
+#endif
+
+    // End of list marker:
+    {(KeySym)0,	    0, 0}
+};
+
+#define XtNboldFont		"boldFont"
+#define XtCBoldFont		"BoldFont"
+#define XtNitalicFont		"italicFont"
+#define XtCItalicFont		"ItalicFont"
+#define XtNboldItalicFont	"boldItalicFont"
+#define XtCBoldItalicFont	"BoldItalicFont"
+#define XtNscrollbarWidth	"scrollbarWidth"
+#define XtCScrollbarWidth	"ScrollbarWidth"
+#define XtNmenuHeight		"menuHeight"
+#define XtCMenuHeight		"MenuHeight"
+#define XtNmenuFont		"menuFont"
+#define XtCMenuFont		"MenuFont"
+#define XtNmenuFontSet		"menuFontSet"
+#define XtCMenuFontSet		"MenuFontSet"
+
+
+// Resources for setting the foreground and background colors of menus
+#define XtNmenuBackground	"menuBackground"
+#define XtCMenuBackground	"MenuBackground"
+#define XtNmenuForeground	"menuForeground"
+#define XtCMenuForeground	"MenuForeground"
+
+// Resources for setting the foreground and background colors of scrollbars
+#define XtNscrollBackground	"scrollBackground"
+#define XtCScrollBackground	"ScrollBackground"
+#define XtNscrollForeground	"scrollForeground"
+#define XtCScrollForeground	"ScrollForeground"
+
+// Resources for setting the foreground and background colors of tooltip
+#define XtNtooltipBackground	"tooltipBackground"
+#define XtCTooltipBackground	"TooltipBackground"
+#define XtNtooltipForeground	"tooltipForeground"
+#define XtCTooltipForeground	"TooltipForeground"
+#define XtNtooltipFont		"tooltipFont"
+#define XtCTooltipFont		"TooltipFont"
+
+/*
+ * X Resources:
+ */
+static XtResource vim_resources[] =
+{
+    {
+	XtNforeground,
+	XtCForeground,
+	XtRPixel,
+	sizeof(Pixel),
+	XtOffsetOf(gui_T, def_norm_pixel),
+	XtRString,
+	XtDefaultForeground
+    },
+    {
+	XtNbackground,
+	XtCBackground,
+	XtRPixel,
+	sizeof(Pixel),
+	XtOffsetOf(gui_T, def_back_pixel),
+	XtRString,
+	XtDefaultBackground
+    },
+    {
+	XtNfont,
+	XtCFont,
+	XtRString,
+	sizeof(String *),
+	XtOffsetOf(gui_T, rsrc_font_name),
+	XtRImmediate,
+	XtDefaultFont
+    },
+    {
+	XtNboldFont,
+	XtCBoldFont,
+	XtRString,
+	sizeof(String *),
+	XtOffsetOf(gui_T, rsrc_bold_font_name),
+	XtRImmediate,
+	""
+    },
+    {
+	XtNitalicFont,
+	XtCItalicFont,
+	XtRString,
+	sizeof(String *),
+	XtOffsetOf(gui_T, rsrc_ital_font_name),
+	XtRImmediate,
+	""
+    },
+    {
+	XtNboldItalicFont,
+	XtCBoldItalicFont,
+	XtRString,
+	sizeof(String *),
+	XtOffsetOf(gui_T, rsrc_boldital_font_name),
+	XtRImmediate,
+	""
+    },
+    {
+	XtNgeometry,
+	XtCGeometry,
+	XtRString,
+	sizeof(String *),
+	XtOffsetOf(gui_T, geom),
+	XtRImmediate,
+	""
+    },
+    {
+	XtNreverseVideo,
+	XtCReverseVideo,
+	XtRBool,
+	sizeof(Bool),
+	XtOffsetOf(gui_T, rsrc_rev_video),
+	XtRImmediate,
+	(XtPointer)False
+    },
+    {
+	XtNborderWidth,
+	XtCBorderWidth,
+	XtRInt,
+	sizeof(int),
+	XtOffsetOf(gui_T, border_width),
+	XtRImmediate,
+	(XtPointer)2
+    },
+    {
+	XtNscrollbarWidth,
+	XtCScrollbarWidth,
+	XtRInt,
+	sizeof(int),
+	XtOffsetOf(gui_T, scrollbar_width),
+	XtRImmediate,
+	(XtPointer)SB_DEFAULT_WIDTH
+    },
+#ifdef FEAT_MENU
+    {
+# ifdef FONTSET_ALWAYS
+	XtNmenuFontSet,
+	XtCMenuFontSet,
+#else
+	XtNmenuFont,
+	XtCMenuFont,
+#endif
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_menu_font_name),
+	XtRString,
+	DFLT_MENU_FONT
+    },
+#endif
+    {
+	XtNmenuForeground,
+	XtCMenuForeground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_menu_fg_name),
+	XtRString,
+	DFLT_MENU_FG_COLOR
+    },
+    {
+	XtNmenuBackground,
+	XtCMenuBackground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_menu_bg_name),
+	XtRString,
+	DFLT_MENU_BG_COLOR
+    },
+    {
+	XtNscrollForeground,
+	XtCScrollForeground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_scroll_fg_name),
+	XtRString,
+	DFLT_SCROLL_FG_COLOR
+    },
+    {
+	XtNscrollBackground,
+	XtCScrollBackground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_scroll_bg_name),
+	XtRString,
+	DFLT_SCROLL_BG_COLOR
+    },
+#ifdef FEAT_BEVAL_GUI
+    {
+	XtNtooltipForeground,
+	XtCTooltipForeground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_tooltip_fg_name),
+	XtRString,
+	DFLT_TOOLTIP_FG_COLOR
+    },
+    {
+	XtNtooltipBackground,
+	XtCTooltipBackground,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_tooltip_bg_name),
+	XtRString,
+	DFLT_TOOLTIP_BG_COLOR
+    },
+    {
+	XtNtooltipFont,
+	XtCTooltipFont,
+	XtRString,
+	sizeof(char *),
+	XtOffsetOf(gui_T, rsrc_tooltip_font_name),
+	XtRString,
+	DFLT_TOOLTIP_FONT
+    },
+    // This one may not be really needed?
+    {
+	"balloonEvalFontSet",
+	XtCFontSet,
+	XtRFontSet,
+	sizeof(XFontSet),
+	XtOffsetOf(gui_T, tooltip_fontset),
+	XtRImmediate,
+	(XtPointer)NOFONTSET
+    },
+#endif // FEAT_BEVAL_GUI
+#ifdef FEAT_XIM
+    {
+	"preeditType",
+	"PreeditType",
+	XtRString,
+	sizeof(char*),
+	XtOffsetOf(gui_T, rsrc_preedit_type_name),
+	XtRString,
+	(XtPointer)"OverTheSpot,OffTheSpot,Root"
+    },
+    {
+	"inputMethod",
+	"InputMethod",
+	XtRString,
+	sizeof(char*),
+	XtOffsetOf(gui_T, rsrc_input_method),
+	XtRString,
+	NULL
+    },
+#endif // FEAT_XIM
+};
+
+/*
+ * This table holds all the X GUI command line options allowed.  This includes
+ * the standard ones so that we can skip them when vim is started without the
+ * GUI (but the GUI might start up later).
+ * When changing this, also update doc/vim_gui.txt and the usage message!!!
+ */
+static XrmOptionDescRec cmdline_options[] =
+{
+    // We handle these options ourselves
+    {"-bg",		".background",	    XrmoptionSepArg,	NULL},
+    {"-background",	".background",	    XrmoptionSepArg,	NULL},
+    {"-fg",		".foreground",	    XrmoptionSepArg,	NULL},
+    {"-foreground",	".foreground",	    XrmoptionSepArg,	NULL},
+    {"-fn",		".font",	    XrmoptionSepArg,	NULL},
+    {"-font",		".font",	    XrmoptionSepArg,	NULL},
+    {"-boldfont",	".boldFont",	    XrmoptionSepArg,	NULL},
+    {"-italicfont",	".italicFont",	    XrmoptionSepArg,	NULL},
+    {"-geom",		".geometry",	    XrmoptionSepArg,	NULL},
+    {"-geometry",	".geometry",	    XrmoptionSepArg,	NULL},
+    {"-reverse",	"*reverseVideo",    XrmoptionNoArg,	"True"},
+    {"-rv",		"*reverseVideo",    XrmoptionNoArg,	"True"},
+    {"+reverse",	"*reverseVideo",    XrmoptionNoArg,	"False"},
+    {"+rv",		"*reverseVideo",    XrmoptionNoArg,	"False"},
+    {"-display",	".display",	    XrmoptionSepArg,	NULL},
+    {"-iconic",		".iconic",	    XrmoptionNoArg,	"True"},
+    {"-name",		".name",	    XrmoptionSepArg,	NULL},
+    {"-bw",		".borderWidth",	    XrmoptionSepArg,	NULL},
+    {"-borderwidth",	".borderWidth",	    XrmoptionSepArg,	NULL},
+    {"-sw",		".scrollbarWidth",  XrmoptionSepArg,	NULL},
+    {"-scrollbarwidth",	".scrollbarWidth",  XrmoptionSepArg,	NULL},
+    {"-mh",		".menuHeight",	    XrmoptionSepArg,	NULL},
+    {"-menuheight",	".menuHeight",	    XrmoptionSepArg,	NULL},
+#ifdef FONTSET_ALWAYS
+    {"-mf",		".menuFontSet",	    XrmoptionSepArg,	NULL},
+    {"-menufont",	".menuFontSet",	    XrmoptionSepArg,	NULL},
+    {"-menufontset",	".menuFontSet",	    XrmoptionSepArg,	NULL},
+#else
+    {"-mf",		".menuFont",	    XrmoptionSepArg,	NULL},
+    {"-menufont",	".menuFont",	    XrmoptionSepArg,	NULL},
+#endif
+    {"-xrm",		NULL,		    XrmoptionResArg,	NULL}
+};
+
+static int gui_argc = 0;
+static char **gui_argv = NULL;
+
+/*
+ * Call-back routines.
+ */
+
+    static void
+gui_x11_timer_cb(
+    XtPointer	    timed_out,
+    XtIntervalId    *interval_id UNUSED)
+{
+    *((int *)timed_out) = TRUE;
+}
+
+#ifdef FEAT_JOB_CHANNEL
+    static void
+channel_poll_cb(
+    XtPointer	    client_data,
+    XtIntervalId    *interval_id UNUSED)
+{
+    XtIntervalId    *channel_timer = (XtIntervalId *)client_data;
+
+    // Using an event handler for a channel that may be disconnected does
+    // not work, it hangs.  Instead poll for messages.
+    channel_handle_events(TRUE);
+    parse_queued_messages();
+
+    // repeat
+    *channel_timer = XtAppAddTimeOut(app_context, (long_u)20,
+						 channel_poll_cb, client_data);
+}
+#endif
+
+    static void
+gui_x11_visibility_cb(
+    Widget	w UNUSED,
+    XtPointer	dud UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    if (event->type != VisibilityNotify)
+	return;
+
+    gui.visibility = event->xvisibility.state;
+
+    /*
+     * When we do an XCopyArea(), and the window is partially obscured, we want
+     * to receive an event to tell us whether it worked or not.
+     */
+    XSetGraphicsExposures(gui.dpy, gui.text_gc,
+	    gui.visibility != VisibilityUnobscured);
+
+    // This is needed for when redrawing is slow.
+    gui_mch_update();
+}
+
+    static void
+gui_x11_expose_cb(
+    Widget	w UNUSED,
+    XtPointer	dud UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    XExposeEvent	*gevent;
+    int			new_x;
+
+    if (event->type != Expose)
+	return;
+
+    out_flush();	    // make sure all output has been processed
+
+    gevent = (XExposeEvent *)event;
+    gui_redraw(gevent->x, gevent->y, gevent->width, gevent->height);
+
+    new_x = FILL_X(0);
+
+    // Clear the border areas if needed
+    if (gevent->x < new_x)
+	XClearArea(gui.dpy, gui.wid, 0, 0, new_x, 0, False);
+    if (gevent->y < FILL_Y(0))
+	XClearArea(gui.dpy, gui.wid, 0, 0, 0, FILL_Y(0), False);
+    if (gevent->x > FILL_X(Columns))
+	XClearArea(gui.dpy, gui.wid, FILL_X((int)Columns), 0, 0, 0, False);
+    if (gevent->y > FILL_Y(Rows))
+	XClearArea(gui.dpy, gui.wid, 0, FILL_Y((int)Rows), 0, 0, False);
+
+    // This is needed for when redrawing is slow.
+    gui_mch_update();
+}
+
+#if (defined(FEAT_NETBEANS_INTG) && defined(FEAT_GUI_MOTIF)) || defined(PROTO)
+/*
+ * This function fills in the XRectangle object with the current x,y
+ * coordinates and height, width so that an XtVaSetValues to the same shell of
+ * those resources will restore the window to its former position and
+ * dimensions.
+ *
+ * Note: This function may fail, in which case the XRectangle will be
+ * unchanged.  Be sure to have the XRectangle set with the proper values for a
+ * failed condition prior to calling this function.
+ */
+    static void
+shellRectangle(Widget shell, XRectangle *r)
+{
+    Window		rootw, shellw, child, parentw;
+    int			absx, absy;
+    XWindowAttributes	a;
+    Window		*children;
+    unsigned int	childrenCount;
+
+    shellw = XtWindow(shell);
+    if (shellw == 0)
+	return;
+    for (;;)
+    {
+	XQueryTree(XtDisplay(shell), shellw, &rootw, &parentw,
+						   &children, &childrenCount);
+	XFree(children);
+	if (parentw == rootw)
+	    break;
+	shellw = parentw;
+    }
+    XGetWindowAttributes(XtDisplay(shell), shellw, &a);
+    XTranslateCoordinates(XtDisplay(shell), shellw, a.root, 0, 0,
+							&absx, &absy, &child);
+    r->x = absx;
+    r->y = absy;
+    XtVaGetValues(shell, XmNheight, &r->height, XmNwidth, &r->width, NULL);
+}
+#endif
+
+    static void
+gui_x11_resize_window_cb(
+    Widget	w UNUSED,
+    XtPointer	dud UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    static int lastWidth, lastHeight;
+
+    if (event->type != ConfigureNotify)
+	return;
+
+    if (event->xconfigure.width != lastWidth
+	    || event->xconfigure.height != lastHeight)
+    {
+	lastWidth = event->xconfigure.width;
+	lastHeight = event->xconfigure.height;
+	gui_resize_shell(event->xconfigure.width, event->xconfigure.height
+#ifdef FEAT_XIM
+						- xim_get_status_area_height()
+#endif
+		     );
+    }
+#if defined(FEAT_NETBEANS_INTG) && defined(FEAT_GUI_MOTIF)
+    if (netbeans_active())
+    {
+	XRectangle  rec;
+
+	shellRectangle(w, &rec);
+	netbeans_frame_moved(rec.x, rec.y);
+    }
+#endif
+#ifdef FEAT_XIM
+    xim_set_preedit();
+#endif
+}
+
+    static void
+gui_x11_focus_change_cb(
+    Widget	w UNUSED,
+    XtPointer	data UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    gui_focus_change(event->type == FocusIn);
+}
+
+    static void
+gui_x11_enter_cb(
+    Widget	w UNUSED,
+    XtPointer	data UNUSED,
+    XEvent	*event UNUSED,
+    Boolean	*dum UNUSED)
+{
+    gui_focus_change(TRUE);
+}
+
+    static void
+gui_x11_leave_cb(
+    Widget	w UNUSED,
+    XtPointer	data UNUSED,
+    XEvent	*event UNUSED,
+    Boolean	*dum UNUSED)
+{
+    gui_focus_change(FALSE);
+}
+
+#if defined(X_HAVE_UTF8_STRING)
+# if X_HAVE_UTF8_STRING
+#  define USE_UTF8LOOKUP
+# endif
+#endif
+
+    void
+gui_x11_key_hit_cb(
+    Widget	w UNUSED,
+    XtPointer	dud UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    XKeyPressedEvent	*ev_press;
+#ifdef FEAT_XIM
+    char_u		string2[256];
+    char_u		string_shortbuf[256];
+    char_u		*string = string_shortbuf;
+    Boolean		string_alloced = False;
+    Status		status;
+#else
+    char_u		string[4], string2[3];
+#endif
+    KeySym		key_sym;
+    int			len;
+    int			i;
+    int			modifiers;
+    int			key;
+
+    ev_press = (XKeyPressedEvent *)event;
+
+#ifdef FEAT_XIM
+    if (xic)
+    {
+# ifdef USE_UTF8LOOKUP
+	// XFree86 4.0.2 or newer: Be able to get UTF-8 characters even when
+	// the locale isn't utf-8.
+	if (enc_utf8)
+	    len = Xutf8LookupString(xic, ev_press, (char *)string,
+				  sizeof(string_shortbuf), &key_sym, &status);
+	else
+# endif
+	    len = XmbLookupString(xic, ev_press, (char *)string,
+				  sizeof(string_shortbuf), &key_sym, &status);
+	if (status == XBufferOverflow)
+	{
+	    string = (char_u *)XtMalloc(len + 1);
+	    string_alloced = True;
+# ifdef USE_UTF8LOOKUP
+	    // XFree86 4.0.2 or newer: Be able to get UTF-8 characters even
+	    // when the locale isn't utf-8.
+	    if (enc_utf8)
+		len = Xutf8LookupString(xic, ev_press, (char *)string,
+						      len, &key_sym, &status);
+	    else
+# endif
+		len = XmbLookupString(xic, ev_press, (char *)string,
+						      len, &key_sym, &status);
+	}
+	if (status == XLookupNone || status == XLookupChars)
+	    key_sym = XK_VoidSymbol;
+
+	// Do conversion from 'termencoding' to 'encoding'.  When using
+	// Xutf8LookupString() it has already been done.
+	if (len > 0 && input_conv.vc_type != CONV_NONE
+# ifdef USE_UTF8LOOKUP
+		&& !enc_utf8
+# endif
+		)
+	{
+	    int		maxlen = len * 4 + 40;	// guessed
+	    char_u	*p = (char_u *)XtMalloc(maxlen);
+
+	    mch_memmove(p, string, len);
+	    if (string_alloced)
+		XtFree((char *)string);
+	    string = p;
+	    string_alloced = True;
+	    len = convert_input(p, len, maxlen);
+	}
+
+	// Translate CSI to K_CSI, otherwise it could be recognized as the
+	// start of a special key.
+	for (i = 0; i < len; ++i)
+	    if (string[i] == CSI)
+	    {
+		char_u	*p = (char_u *)XtMalloc(len + 3);
+
+		mch_memmove(p, string, i + 1);
+		p[i + 1] = KS_EXTRA;
+		p[i + 2] = (int)KE_CSI;
+		mch_memmove(p + i + 3, string + i + 1, len - i);
+		if (string_alloced)
+		    XtFree((char *)string);
+		string = p;
+		string_alloced = True;
+		i += 2;
+		len += 2;
+	    }
+    }
+    else
+#endif
+	len = XLookupString(ev_press, (char *)string, sizeof(string),
+		&key_sym, NULL);
+
+#ifdef SunXK_F36
+    /*
+    * These keys have bogus lookup strings, and trapping them here is
+    * easier than trying to XRebindKeysym() on them with every possible
+    * combination of modifiers.
+    */
+    if (key_sym == SunXK_F36 || key_sym == SunXK_F37)
+	len = 0;
+#endif
+
+    if (key_sym == XK_space)
+	string[0] = ' ';	// Otherwise Ctrl-Space doesn't work
+
+    /*
+     * Only on some machines ^_ requires Ctrl+Shift+minus.  For consistency,
+     * allow just Ctrl+minus too.
+     */
+    if (key_sym == XK_minus && (ev_press->state & ControlMask))
+	string[0] = Ctrl__;
+
+#ifdef XK_ISO_Left_Tab
+    // why do we get XK_ISO_Left_Tab instead of XK_Tab for shift-tab?
+    if (key_sym == XK_ISO_Left_Tab)
+    {
+	key_sym = XK_Tab;
+	string[0] = TAB;
+	len = 1;
+    }
+#endif
+
+    // We used to apply Alt/Meta to the key here (Mod1Mask), but that is now
+    // done later, the same as it happens for the terminal.  Hopefully that
+    // works for everybody...
+
+    if (len == 1 && string[0] == CSI)
+    {
+	string[1] = KS_EXTRA;
+	string[2] = (int)KE_CSI;
+	len = -3;
+    }
+
+    // Check for special keys.  Also do this when len == 1 (key has an ASCII
+    // value) to detect backspace, delete and keypad keys.
+    if (len == 0 || len == 1)
+    {
+	for (i = 0; special_keys[i].key_sym != (KeySym)0; i++)
+	{
+	    if (special_keys[i].key_sym == key_sym)
+	    {
+		string[0] = CSI;
+		string[1] = special_keys[i].vim_code0;
+		string[2] = special_keys[i].vim_code1;
+		len = -3;
+		break;
+	    }
+	}
+    }
+
+    // Unrecognised key is ignored.
+    if (len == 0)
+	goto theend;
+
+    // Handle modifiers.
+    modifiers = 0;
+    if (ev_press->state & ShiftMask)
+	modifiers |= MOD_MASK_SHIFT;
+    if (ev_press->state & ControlMask)
+    {
+	modifiers |= MOD_MASK_CTRL;
+	if (len == 1 && string[0] < 0x20)
+	    // Use the character before applyng CTRL.
+	    string[0] += 0x40;
+    }
+    if (ev_press->state & Mod1Mask)
+	modifiers |= MOD_MASK_ALT;
+    if (ev_press->state & Mod4Mask)
+	modifiers |= MOD_MASK_META;
+
+    /*
+     * For some keys a shift modifier is translated into another key
+     * code.
+     */
+    if (len == -3)
+	key = TO_SPECIAL(string[1], string[2]);
+    else
+    {
+	string[len] = NUL;
+	key = mb_ptr2char(string);
+    }
+    key = simplify_key(key, &modifiers);
+    if (key == CSI)
+	key = K_CSI;
+    if (IS_SPECIAL(key))
+    {
+	string[0] = CSI;
+	string[1] = K_SECOND(key);
+	string[2] = K_THIRD(key);
+	len = 3;
+    }
+    else
+    {
+	// Some keys need adjustment when the Ctrl modifier is used.
+	key = may_adjust_key_for_ctrl(modifiers, key);
+
+	len = mb_char2bytes(key, string);
+
+	// Remove the SHIFT modifier for keys where it's already included,
+	// e.g., '(', '!' and '*'.
+	modifiers = may_remove_shift_modifier(modifiers, key);
+    }
+
+    if (modifiers != 0)
+    {
+	string2[0] = CSI;
+	string2[1] = KS_MODIFIER;
+	string2[2] = modifiers;
+	add_to_input_buf(string2, 3);
+    }
+
+    // Check if the key interrupts.
+    {
+	int int_ch = check_for_interrupt(key, modifiers);
+
+	if (int_ch != NUL)
+	{
+	    trash_input_buf();
+	    string[0] = int_ch;
+	    len = 1;
+	}
+    }
+
+    add_to_input_buf(string, len);
+
+    /*
+     * blank out the pointer if necessary
+     */
+    if (p_mh)
+	gui_mch_mousehide(TRUE);
+
+#if defined(FEAT_BEVAL_TIP)
+    {
+	BalloonEval *be;
+
+	if ((be = gui_mch_currently_showing_beval()) != NULL)
+	    gui_mch_unpost_balloon(be);
+    }
+#endif
+theend:
+    {}	    // some compilers need a statement here
+#ifdef FEAT_XIM
+    if (string_alloced)
+	XtFree((char *)string);
+#endif
+}
+
+    static void
+gui_x11_mouse_cb(
+    Widget	w UNUSED,
+    XtPointer	dud UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    static XtIntervalId timer = (XtIntervalId)0;
+    static int	timed_out = TRUE;
+
+    int		button;
+    int		repeated_click = FALSE;
+    int		x, y;
+    int_u	x_modifiers;
+    int_u	vim_modifiers;
+
+    if (event->type == MotionNotify)
+    {
+	// Get the latest position, avoids lagging behind on a drag.
+	x = event->xmotion.x;
+	y = event->xmotion.y;
+	x_modifiers = event->xmotion.state;
+	button = (x_modifiers & (Button1Mask | Button2Mask | Button3Mask))
+		? MOUSE_DRAG : ' ';
+
+	/*
+	 * if our pointer is currently hidden, then we should show it.
+	 */
+	gui_mch_mousehide(FALSE);
+
+	if (button != MOUSE_DRAG)	// just moving the rodent
+	{
+#ifdef FEAT_MENU
+	    if (dud)			// moved in vimForm
+		y -= gui.menu_height;
+#endif
+	    gui_mouse_moved(x, y);
+	    return;
+	}
+    }
+    else
+    {
+	x = event->xbutton.x;
+	y = event->xbutton.y;
+	if (event->type == ButtonPress)
+	{
+	    // Handle multiple clicks
+	    if (!timed_out)
+	    {
+		XtRemoveTimeOut(timer);
+		repeated_click = TRUE;
+	    }
+	    timed_out = FALSE;
+	    timer = XtAppAddTimeOut(app_context, (long_u)p_mouset,
+			gui_x11_timer_cb, &timed_out);
+	    switch (event->xbutton.button)
+	    {
+		// keep in sync with gui_gtk_x11.c
+		case Button1:	button = MOUSE_LEFT;	break;
+		case Button2:	button = MOUSE_MIDDLE;	break;
+		case Button3:	button = MOUSE_RIGHT;	break;
+		case Button4:	button = MOUSE_4;	break;
+		case Button5:	button = MOUSE_5;	break;
+		case 6:		button = MOUSE_7;	break;
+		case 7:		button = MOUSE_6;	break;
+		case 8:		button = MOUSE_X1;	break;
+		case 9:		button = MOUSE_X2;	break;
+		default:
+		    return;	// Unknown button
+	    }
+	}
+	else if (event->type == ButtonRelease)
+	    button = MOUSE_RELEASE;
+	else
+	    return;	// Unknown mouse event type
+
+	x_modifiers = event->xbutton.state;
+#if defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)
+	last_mouse_event = event->xbutton;
+#endif
+    }
+
+    vim_modifiers = 0x0;
+    if (x_modifiers & ShiftMask)
+	vim_modifiers |= MOUSE_SHIFT;
+    if (x_modifiers & ControlMask)
+	vim_modifiers |= MOUSE_CTRL;
+    if (x_modifiers & Mod1Mask)	    // Alt or Meta key
+	vim_modifiers |= MOUSE_ALT;
+
+    gui_send_mouse_event(button, x, y, repeated_click, vim_modifiers);
+}
+
+/*
+ * End of call-back routines
+ */
+
+/*
+ * Parse the GUI related command-line arguments.  Any arguments used are
+ * deleted from argv, and *argc is decremented accordingly.  This is called
+ * when vim is started, whether or not the GUI has been started.
+ */
+    void
+gui_mch_prepare(int *argc, char **argv)
+{
+    int	    arg;
+    int	    i;
+
+    /*
+     * Move all the entries in argv which are relevant to X into gui_argv.
+     */
+    gui_argc = 0;
+    gui_argv = LALLOC_MULT(char *, *argc);
+    if (gui_argv == NULL)
+	return;
+    gui_argv[gui_argc++] = argv[0];
+    arg = 1;
+    while (arg < *argc)
+    {
+	// Look for argv[arg] in cmdline_options[] table
+	for (i = 0; i < (int)XtNumber(cmdline_options); i++)
+	    if (strcmp(argv[arg], cmdline_options[i].option) == 0)
+		break;
+
+	if (i < (int)XtNumber(cmdline_options))
+	{
+	    // Remember finding "-rv" or "-reverse"
+	    if (strcmp("-rv", argv[arg]) == 0
+		    || strcmp("-reverse", argv[arg]) == 0)
+		found_reverse_arg = TRUE;
+	    else if ((strcmp("-fn", argv[arg]) == 0
+			|| strcmp("-font", argv[arg]) == 0)
+		    && arg + 1 < *argc)
+		font_argument = argv[arg + 1];
+
+	    // Found match in table, so move it into gui_argv
+	    gui_argv[gui_argc++] = argv[arg];
+	    if (--*argc > arg)
+	    {
+		mch_memmove(&argv[arg], &argv[arg + 1], (*argc - arg)
+						    * sizeof(char *));
+		if (cmdline_options[i].argKind != XrmoptionNoArg)
+		{
+		    // Move the options argument as well
+		    gui_argv[gui_argc++] = argv[arg];
+		    if (--*argc > arg)
+			mch_memmove(&argv[arg], &argv[arg + 1], (*argc - arg)
+							    * sizeof(char *));
+		}
+	    }
+	    argv[*argc] = NULL;
+	}
+	else
+#ifdef FEAT_NETBEANS_INTG
+	    if (strncmp("-nb", argv[arg], 3) == 0)
+	{
+	    gui.dofork = FALSE;	// don't fork() when starting GUI
+	    netbeansArg = argv[arg];
+	    mch_memmove(&argv[arg], &argv[arg + 1],
+					    (--*argc - arg) * sizeof(char *));
+	    argv[*argc] = NULL;
+	}
+	else
+#endif
+	    arg++;
+    }
+}
+
+#ifndef XtSpecificationRelease
+# define CARDINAL (Cardinal *)
+#else
+# if XtSpecificationRelease == 4
+# define CARDINAL (Cardinal *)
+# else
+# define CARDINAL (int *)
+# endif
+#endif
+
+/*
+ * Check if the GUI can be started.  Called before gvimrc is sourced.
+ * Return OK or FAIL.
+ */
+    int
+gui_mch_init_check(void)
+{
+#ifdef FEAT_XIM
+    XtSetLanguageProc(NULL, NULL, NULL);
+#endif
+    open_app_context();
+    if (app_context != NULL)
+	gui.dpy = XtOpenDisplay(app_context, 0, VIM_NAME, VIM_CLASS,
+		cmdline_options, XtNumber(cmdline_options),
+		CARDINAL &gui_argc, gui_argv);
+
+# if defined(LC_NUMERIC)
+    {
+	// The call to XtOpenDisplay() may have set the locale from the
+	// environment. Set LC_NUMERIC to "C" to make sure that strtod() uses a
+	// decimal point, not a comma.
+	char *p = setlocale(LC_NUMERIC, NULL);
+
+	if (p == NULL || strcmp(p, "C") != 0)
+	   setlocale(LC_NUMERIC, "C");
+    }
+# endif
+    if (app_context == NULL || gui.dpy == NULL)
+    {
+	gui.dying = TRUE;
+	emsg(_(e_cannot_open_display));
+	return FAIL;
+    }
+    return OK;
+}
+
+
+#ifdef USE_XSMP
+/*
+ * Handle XSMP processing, de-registering the attachment upon error
+ */
+static XtInputId _xsmp_xtinputid;
+
+    static void
+local_xsmp_handle_requests(
+    XtPointer	c UNUSED,
+    int		*s UNUSED,
+    XtInputId	*i UNUSED)
+{
+    if (xsmp_handle_requests() == FAIL)
+	XtRemoveInput(_xsmp_xtinputid);
+}
+#endif
+
+
+/*
+ * Initialise the X GUI.  Create all the windows, set up all the call-backs etc.
+ * Returns OK for success, FAIL when the GUI can't be started.
+ */
+    int
+gui_mch_init(void)
+{
+    XtGCMask	gc_mask;
+    XGCValues	gc_vals;
+    int		x, y, mask;
+    unsigned	w, h;
+
+#if 0
+    // Uncomment this to enable synchronous mode for debugging
+    XSynchronize(gui.dpy, True);
+#endif
+
+    vimShell = XtVaAppCreateShell(VIM_NAME, VIM_CLASS,
+	    applicationShellWidgetClass, gui.dpy, NULL);
+
+    /*
+     * Get the application resources
+     */
+    XtVaGetApplicationResources(vimShell, (XtPointer)&gui,
+	vim_resources, XtNumber(vim_resources), NULL);
+
+    gui.scrollbar_height = gui.scrollbar_width;
+
+    /*
+     * Get the colors ourselves.  Using the automatic conversion doesn't
+     * handle looking for approximate colors.
+     */
+    gui.menu_fg_pixel = gui_get_color((char_u *)gui.rsrc_menu_fg_name);
+    gui.menu_bg_pixel = gui_get_color((char_u *)gui.rsrc_menu_bg_name);
+    gui.scroll_fg_pixel = gui_get_color((char_u *)gui.rsrc_scroll_fg_name);
+    gui.scroll_bg_pixel = gui_get_color((char_u *)gui.rsrc_scroll_bg_name);
+#ifdef FEAT_BEVAL_GUI
+    gui.tooltip_fg_pixel = gui_get_color((char_u *)gui.rsrc_tooltip_fg_name);
+    gui.tooltip_bg_pixel = gui_get_color((char_u *)gui.rsrc_tooltip_bg_name);
+#endif
+
+    // Set default foreground and background colours
+    gui.norm_pixel = gui.def_norm_pixel;
+    gui.back_pixel = gui.def_back_pixel;
+
+    // Check if reverse video needs to be applied (on Sun it's done by X)
+    if (gui.rsrc_rev_video && gui_get_lightness(gui.back_pixel)
+					  > gui_get_lightness(gui.norm_pixel))
+    {
+	gui.norm_pixel = gui.def_back_pixel;
+	gui.back_pixel = gui.def_norm_pixel;
+	gui.def_norm_pixel = gui.norm_pixel;
+	gui.def_back_pixel = gui.back_pixel;
+    }
+
+    // Get the colors from the "Normal", "Tooltip", "Scrollbar" and "Menu"
+    // group (set in syntax.c or in a vimrc file)
+    set_normal_colors();
+
+    /*
+     * Check that none of the colors are the same as the background color
+     */
+    gui_check_colors();
+
+    /*
+     * Set up the GCs.	The font attributes will be set in gui_init_font().
+     */
+    gc_mask = GCForeground | GCBackground;
+    gc_vals.foreground = gui.norm_pixel;
+    gc_vals.background = gui.back_pixel;
+    gui.text_gc = XtGetGC(vimShell, gc_mask, &gc_vals);
+
+    gc_vals.foreground = gui.back_pixel;
+    gc_vals.background = gui.norm_pixel;
+    gui.back_gc = XtGetGC(vimShell, gc_mask, &gc_vals);
+
+    gc_mask |= GCFunction;
+    gc_vals.foreground = gui.norm_pixel ^ gui.back_pixel;
+    gc_vals.background = gui.norm_pixel ^ gui.back_pixel;
+    gc_vals.function   = GXxor;
+    gui.invert_gc = XtGetGC(vimShell, gc_mask, &gc_vals);
+
+    gui.visibility = VisibilityUnobscured;
+    x11_setup_atoms(gui.dpy);
+
+    if (gui_win_x != -1 && gui_win_y != -1)
+	gui_mch_set_winpos(gui_win_x, gui_win_y);
+
+    // Now adapt the supplied(?) geometry-settings
+    // Added by Kjetil Jacobsen <kjetilja@stud.cs.uit.no>
+    if (gui.geom != NULL && *gui.geom != NUL)
+    {
+	mask = XParseGeometry((char *)gui.geom, &x, &y, &w, &h);
+	if (mask & WidthValue)
+	    Columns = w;
+	if (mask & HeightValue)
+	{
+	    if (p_window > (long)h - 1 || !option_was_set((char_u *)"window"))
+		p_window = h - 1;
+	    Rows = h;
+	}
+	limit_screen_size();
+	/*
+	 * Set the (x,y) position of the main window only if specified in the
+	 * users geometry, so we get good defaults when they don't. This needs
+	 * to be done before the shell is popped up.
+	 */
+	if (mask & (XValue|YValue))
+	    XtVaSetValues(vimShell, XtNgeometry, gui.geom, NULL);
+    }
+
+    gui_x11_create_widgets();
+
+   /*
+    * Add an icon to Vim (Marcel Douben: 11 May 1998).
+    */
+    if (vim_strchr(p_go, GO_ICON) != NULL)
+    {
+#ifndef HAVE_XPM
+# include "vim_icon.xbm"
+# include "vim_mask.xbm"
+
+	Arg	arg[2];
+
+	XtSetArg(arg[0], XtNiconPixmap,
+		XCreateBitmapFromData(gui.dpy,
+		    DefaultRootWindow(gui.dpy),
+		    (char *)vim_icon_bits,
+		    vim_icon_width,
+		    vim_icon_height));
+	XtSetArg(arg[1], XtNiconMask,
+		XCreateBitmapFromData(gui.dpy,
+		    DefaultRootWindow(gui.dpy),
+		    (char *)vim_mask_icon_bits,
+		    vim_mask_icon_width,
+		    vim_mask_icon_height));
+	XtSetValues(vimShell, arg, (Cardinal)2);
+#else
+// Use Pixmaps, looking much nicer.
+
+// If you get an error message here, you still need to unpack the runtime
+// archive!
+# ifdef magick
+#  undef magick
+# endif
+# define magick vim32x32
+# include "../runtime/vim32x32.xpm"
+# undef magick
+# define magick vim16x16
+# include "../runtime/vim16x16.xpm"
+# undef magick
+# define magick vim48x48
+# include "../runtime/vim48x48.xpm"
+# undef magick
+
+    static Pixmap	icon = 0;
+    static Pixmap	icon_mask = 0;
+    static char		**magick = vim32x32;
+    Window		root_window;
+    XIconSize		*size;
+    int			number_sizes;
+    Display		*dsp;
+    Screen		*scr;
+    XpmAttributes	attr;
+    Colormap		cmap;
+
+    /*
+     * Adjust the icon to the preferences of the actual window manager.
+     */
+    root_window = XRootWindowOfScreen(XtScreen(vimShell));
+    if (XGetIconSizes(XtDisplay(vimShell), root_window,
+						   &size, &number_sizes) != 0)
+    {
+	if (number_sizes > 0)
+	{
+	    if (size->max_height >= 48 && size->max_width >= 48)
+		magick = vim48x48;
+	    else if (size->max_height >= 32 && size->max_width >= 32)
+		magick = vim32x32;
+	    else if (size->max_height >= 16 && size->max_width >= 16)
+		magick = vim16x16;
+	}
+    }
+
+    dsp = XtDisplay(vimShell);
+    scr = XtScreen(vimShell);
+
+    cmap = DefaultColormap(dsp, DefaultScreen(dsp));
+    XtVaSetValues(vimShell, XtNcolormap, cmap, NULL);
+
+    attr.valuemask = 0L;
+    attr.valuemask = XpmCloseness | XpmReturnPixels | XpmColormap | XpmDepth;
+    attr.closeness = 65535;	// accuracy isn't crucial
+    attr.colormap = cmap;
+    attr.depth = DefaultDepthOfScreen(scr);
+
+    if (!icon)
+    {
+	XpmCreatePixmapFromData(dsp, root_window, magick, &icon,
+							   &icon_mask, &attr);
+	XpmFreeAttributes(&attr);
+    }
+
+    XtVaSetValues(vimShell, XmNiconPixmap, icon, XmNiconMask, icon_mask, NULL);
+#endif
+    }
+
+    if (gui.color_approx)
+	emsg(_(e_cannot_allocate_colormap_entry_some_colors_may_be_incorrect));
+
+#ifdef FEAT_BEVAL_GUI
+    gui_init_tooltip_font();
+#endif
+#ifdef FEAT_MENU
+    gui_init_menu_font();
+#endif
+
+#ifdef USE_XSMP
+    // Attach listener on ICE connection
+    if (-1 != xsmp_icefd)
+	_xsmp_xtinputid = XtAppAddInput(app_context, xsmp_icefd,
+		(XtPointer)XtInputReadMask, local_xsmp_handle_requests, NULL);
+#endif
+
+    return OK;
+}
+
+/*
+ * Called when starting the GUI fails after calling gui_mch_init().
+ */
+    void
+gui_mch_uninit(void)
+{
+    gui_x11_destroy_widgets();
+    XtCloseDisplay(gui.dpy);
+    gui.dpy = NULL;
+    vimShell = (Widget)0;
+    VIM_CLEAR(gui_argv);
+}
+
+/*
+ * Called when the foreground or background color has been changed.
+ */
+    void
+gui_mch_new_colors(void)
+{
+    long_u	gc_mask;
+    XGCValues	gc_vals;
+
+    gc_mask = GCForeground | GCBackground;
+    gc_vals.foreground = gui.norm_pixel;
+    gc_vals.background = gui.back_pixel;
+    if (gui.text_gc != NULL)
+	XChangeGC(gui.dpy, gui.text_gc, gc_mask, &gc_vals);
+
+    gc_vals.foreground = gui.back_pixel;
+    gc_vals.background = gui.norm_pixel;
+    if (gui.back_gc != NULL)
+	XChangeGC(gui.dpy, gui.back_gc, gc_mask, &gc_vals);
+
+    gc_mask |= GCFunction;
+    gc_vals.foreground = gui.norm_pixel ^ gui.back_pixel;
+    gc_vals.background = gui.norm_pixel ^ gui.back_pixel;
+    gc_vals.function   = GXxor;
+    if (gui.invert_gc != NULL)
+	XChangeGC(gui.dpy, gui.invert_gc, gc_mask, &gc_vals);
+
+    gui_x11_set_back_color();
+}
+
+/*
+ * Open the GUI window which was created by a call to gui_mch_init().
+ */
+    int
+gui_mch_open(void)
+{
+    // Actually open the window
+    XtRealizeWidget(vimShell);
+    XtManageChild(XtNameToWidget(vimShell, "*vimForm"));
+
+    gui.wid = gui_x11_get_wid();
+    gui.blank_pointer = gui_x11_create_blank_mouse();
+
+    /*
+     * Add a callback for the Close item on the window managers menu, and the
+     * save-yourself event.
+     */
+    wm_atoms[SAVE_YOURSELF_IDX] =
+			      XInternAtom(gui.dpy, "WM_SAVE_YOURSELF", False);
+    wm_atoms[DELETE_WINDOW_IDX] =
+			      XInternAtom(gui.dpy, "WM_DELETE_WINDOW", False);
+    XSetWMProtocols(gui.dpy, XtWindow(vimShell), wm_atoms, 2);
+    XtAddEventHandler(vimShell, NoEventMask, True, gui_x11_wm_protocol_handler,
+							     NULL);
+#ifdef HAVE_X11_XMU_EDITRES_H
+    /*
+     * Enable editres protocol (see "man editres").
+     * Usually will need to add -lXmu to the linker line as well.
+     */
+    XtAddEventHandler(vimShell, (EventMask)0, True, _XEditResCheckMessages,
+	    (XtPointer)NULL);
+#endif
+
+#ifdef FEAT_CLIENTSERVER
+    if (serverName == NULL && serverDelayedStartName != NULL)
+    {
+	// This is a :gui command in a plain vim with no previous server
+	commWindow = XtWindow(vimShell);
+	(void)serverRegisterName(gui.dpy, serverDelayedStartName);
+    }
+    else
+    {
+	/*
+	 * Cannot handle "widget-less" windows with XtProcessEvent() we'll
+	 * have to change the "server" registration to that of the main window
+	 * If we have not registered a name yet, remember the window
+	 */
+	serverChangeRegisteredWindow(gui.dpy, XtWindow(vimShell));
+    }
+    XtAddEventHandler(vimShell, PropertyChangeMask, False,
+		      gui_x11_send_event_handler, NULL);
+#endif
+
+    // Get the colors for the highlight groups (gui_check_colors() might have
+    // changed them)
+    highlight_gui_started();		// re-init colors and fonts
+
+#ifdef FEAT_XIM
+    xim_init();
+#endif
+
+    return OK;
+}
+
+#if defined(FEAT_BEVAL_GUI) || defined(PROTO)
+/*
+ * Convert the tooltip fontset name to an XFontSet.
+ */
+    void
+gui_init_tooltip_font(void)
+{
+    XrmValue from, to;
+
+    from.addr = (char *)gui.rsrc_tooltip_font_name;
+    from.size = strlen(from.addr);
+    to.addr = (XtPointer)&gui.tooltip_fontset;
+    to.size = sizeof(XFontSet);
+
+    if (XtConvertAndStore(vimShell, XtRString, &from, XtRFontSet, &to) == False)
+    {
+	// Failed. What to do?
+    }
+}
+#endif
+
+#if defined(FEAT_MENU) || defined(PROTO)
+// Convert the menu font/fontset name to an XFontStruct/XFontset
+    void
+gui_init_menu_font(void)
+{
+    XrmValue from, to;
+
+#ifdef FONTSET_ALWAYS
+    from.addr = (char *)gui.rsrc_menu_font_name;
+    from.size = strlen(from.addr);
+    to.addr = (XtPointer)&gui.menu_fontset;
+    to.size = sizeof(GuiFontset);
+
+    if (XtConvertAndStore(vimShell, XtRString, &from, XtRFontSet, &to) == False)
+    {
+	// Failed. What to do?
+    }
+#else
+    from.addr = (char *)gui.rsrc_menu_font_name;
+    from.size = strlen(from.addr);
+    to.addr = (XtPointer)&gui.menu_font;
+    to.size = sizeof(GuiFont);
+
+    if (XtConvertAndStore(vimShell, XtRString, &from, XtRFontStruct, &to) == False)
+    {
+	// Failed. What to do?
+    }
+#endif
+}
+#endif
+
+    void
+gui_mch_exit(int rc UNUSED)
+{
+#if 0
+    // Lesstif gives an error message here, and so does Solaris.  The man page
+    // says that this isn't needed when exiting, so just skip it.
+    XtCloseDisplay(gui.dpy);
+#endif
+    VIM_CLEAR(gui_argv);
+}
+
+/*
+ * Get the position of the top left corner of the window.
+ */
+    int
+gui_mch_get_winpos(int *x, int *y)
+{
+    Dimension	xpos, ypos;
+
+    XtVaGetValues(vimShell,
+	XtNx,	&xpos,
+	XtNy,	&ypos,
+	NULL);
+    *x = xpos;
+    *y = ypos;
+    return OK;
+}
+
+/*
+ * Set the position of the top left corner of the window to the given
+ * coordinates.
+ */
+    void
+gui_mch_set_winpos(int x, int y)
+{
+    XtVaSetValues(vimShell,
+	XtNx,	x,
+	XtNy,	y,
+	NULL);
+}
+
+    void
+gui_mch_set_shellsize(
+    int		width,
+    int		height,
+    int		min_width,
+    int		min_height,
+    int		base_width,
+    int		base_height,
+    int		direction UNUSED)
+{
+#ifdef FEAT_XIM
+    height += xim_get_status_area_height(),
+#endif
+    XtVaSetValues(vimShell,
+	XtNwidthInc,	gui.char_width,
+	XtNheightInc,	gui.char_height,
+#if defined(XtSpecificationRelease) && XtSpecificationRelease >= 4
+	XtNbaseWidth,	base_width,
+	XtNbaseHeight,	base_height,
+#endif
+	XtNminWidth,	min_width,
+	XtNminHeight,	min_height,
+	XtNwidth,	width,
+	XtNheight,	height,
+	NULL);
+}
+
+/*
+ * Allow 10 pixels for horizontal borders, 'guiheadroom' for vertical borders.
+ * Is there no way in X to find out how wide the borders really are?
+ */
+    void
+gui_mch_get_screen_dimensions(
+    int	    *screen_w,
+    int	    *screen_h)
+{
+    *screen_w = DisplayWidth(gui.dpy, DefaultScreen(gui.dpy)) - 10;
+    *screen_h = DisplayHeight(gui.dpy, DefaultScreen(gui.dpy)) - p_ghr;
+}
+
+/*
+ * Initialise vim to use the font "font_name".  If it's NULL, pick a default
+ * font.
+ * If "fontset" is TRUE, load the "font_name" as a fontset.
+ * Return FAIL if the font could not be loaded, OK otherwise.
+ */
+    int
+gui_mch_init_font(
+    char_u	*font_name,
+    int		do_fontset UNUSED)
+{
+    XFontStruct	*font = NULL;
+
+#ifdef FEAT_XFONTSET
+    XFontSet	fontset = NULL;
+#endif
+
+#ifdef FEAT_GUI_MOTIF
+    // A font name equal "*" is indicating, that we should activate the font
+    // selection dialogue to get a new font name. So let us do it here.
+    if (font_name != NULL && STRCMP(font_name, "*") == 0)
+    {
+	font_name = gui_xm_select_font(hl_get_font_name());
+
+	// Do not reset to default font except on GUI startup.
+	if (font_name == NULL && !gui.starting)
+	    return OK;
+    }
+#endif
+
+#ifdef FEAT_XFONTSET
+    if (do_fontset)
+    {
+	// If 'guifontset' is set, VIM treats all font specifications as if
+	// they were fontsets, and 'guifontset' becomes the default.
+	if (font_name != NULL)
+	{
+	    fontset = (XFontSet)gui_mch_get_fontset(font_name, FALSE, TRUE);
+	    if (fontset == NULL)
+		return FAIL;
+	}
+    }
+    else
+#endif
+    {
+	if (font_name == NULL)
+	{
+	    /*
+	     * If none of the fonts in 'font' could be loaded, try the one set
+	     * in the X resource, and finally just try using DFLT_FONT, which
+	     * will hopefully always be there.
+	     */
+	    font_name = gui.rsrc_font_name;
+	    font = (XFontStruct *)gui_mch_get_font(font_name, FALSE);
+	    if (font == NULL)
+		font_name = (char_u *)DFLT_FONT;
+	}
+	if (font == NULL)
+	    font = (XFontStruct *)gui_mch_get_font(font_name, FALSE);
+	if (font == NULL)
+	    return FAIL;
+    }
+
+    gui_mch_free_font(gui.norm_font);
+#ifdef FEAT_XFONTSET
+    gui_mch_free_fontset(gui.fontset);
+
+    if (fontset != NULL)
+    {
+	gui.norm_font = NOFONT;
+	gui.fontset = (GuiFontset)fontset;
+	gui.char_width = fontset_width(fontset);
+	gui.char_height = fontset_height(fontset) + p_linespace;
+	gui.char_ascent = fontset_ascent(fontset) + p_linespace / 2;
+    }
+    else
+#endif
+    {
+	gui.norm_font = (GuiFont)font;
+#ifdef FEAT_XFONTSET
+	gui.fontset = NOFONTSET;
+#endif
+	gui.char_width = font->max_bounds.width;
+	gui.char_height = font->ascent + font->descent + p_linespace;
+	gui.char_ascent = font->ascent + p_linespace / 2;
+    }
+
+    hl_set_font_name(font_name);
+
+    /*
+     * Try to load other fonts for bold, italic, and bold-italic.
+     * We should also try to work out what font to use for these when they are
+     * not specified by X resources, but we don't yet.
+     */
+    if (font_name == gui.rsrc_font_name)
+    {
+	if (gui.bold_font == NOFONT
+		&& gui.rsrc_bold_font_name != NULL
+		&& *gui.rsrc_bold_font_name != NUL)
+	    gui.bold_font = gui_mch_get_font(gui.rsrc_bold_font_name, FALSE);
+	if (gui.ital_font == NOFONT
+		&& gui.rsrc_ital_font_name != NULL
+		&& *gui.rsrc_ital_font_name != NUL)
+	    gui.ital_font = gui_mch_get_font(gui.rsrc_ital_font_name, FALSE);
+	if (gui.boldital_font == NOFONT
+		&& gui.rsrc_boldital_font_name != NULL
+		&& *gui.rsrc_boldital_font_name != NUL)
+	    gui.boldital_font = gui_mch_get_font(gui.rsrc_boldital_font_name,
+								       FALSE);
+    }
+    else
+    {
+	// When not using the font specified by the resources, also don't use
+	// the bold/italic fonts, otherwise setting 'guifont' will look very
+	// strange.
+	if (gui.bold_font != NOFONT)
+	{
+	    XFreeFont(gui.dpy, (XFontStruct *)gui.bold_font);
+	    gui.bold_font = NOFONT;
+	}
+	if (gui.ital_font != NOFONT)
+	{
+	    XFreeFont(gui.dpy, (XFontStruct *)gui.ital_font);
+	    gui.ital_font = NOFONT;
+	}
+	if (gui.boldital_font != NOFONT)
+	{
+	    XFreeFont(gui.dpy, (XFontStruct *)gui.boldital_font);
+	    gui.boldital_font = NOFONT;
+	}
+    }
+
+#ifdef FEAT_GUI_MOTIF
+    gui_motif_synch_fonts();
+#endif
+
+    return OK;
+}
+
+/*
+ * Get a font structure for highlighting.
+ */
+    GuiFont
+gui_mch_get_font(char_u *name, int giveErrorIfMissing)
+{
+    XFontStruct	*font;
+
+    if (!gui.in_use || name == NULL)	// can't do this when GUI not running
+	return NOFONT;
+
+    font = XLoadQueryFont(gui.dpy, (char *)name);
+
+    if (font == NULL)
+    {
+	if (giveErrorIfMissing)
+	    semsg(_(e_unknown_font_str), name);
+	return NOFONT;
+    }
+
+#ifdef DEBUG
+    printf("Font Information for '%s':\n", name);
+    printf("  w = %d, h = %d, ascent = %d, descent = %d\n",
+	   font->max_bounds.width, font->ascent + font->descent,
+	   font->ascent, font->descent);
+    printf("  max ascent = %d, max descent = %d, max h = %d\n",
+	   font->max_bounds.ascent, font->max_bounds.descent,
+	   font->max_bounds.ascent + font->max_bounds.descent);
+    printf("  min lbearing = %d, min rbearing = %d\n",
+	   font->min_bounds.lbearing, font->min_bounds.rbearing);
+    printf("  max lbearing = %d, max rbearing = %d\n",
+	   font->max_bounds.lbearing, font->max_bounds.rbearing);
+    printf("  leftink = %d, rightink = %d\n",
+	   (font->min_bounds.lbearing < 0),
+	   (font->max_bounds.rbearing > font->max_bounds.width));
+    printf("\n");
+#endif
+
+    if (font->max_bounds.width != font->min_bounds.width)
+    {
+	semsg(_(e_font_str_is_not_fixed_width), name);
+	XFreeFont(gui.dpy, font);
+	return NOFONT;
+    }
+    return (GuiFont)font;
+}
+
+#if defined(FEAT_EVAL) || defined(PROTO)
+/*
+ * Return the name of font "font" in allocated memory.
+ */
+    char_u *
+gui_mch_get_fontname(GuiFont font, char_u *name)
+{
+    char_u *ret = NULL;
+
+    if (name != NULL && font == NULL)
+    {
+	// In this case, there's no way other than doing this.
+	ret = vim_strsave(name);
+    }
+    else if (font != NULL)
+    {
+	// In this case, try to retrieve the XLFD corresponding to 'font'->fid;
+	// if failed, use 'name' unless it's NULL.
+	unsigned long value = 0L;
+
+	if (XGetFontProperty(font, XA_FONT, &value))
+	{
+	    char *xa_font_name = NULL;
+
+	    xa_font_name = XGetAtomName(gui.dpy, value);
+	    if (xa_font_name != NULL)
+	    {
+		ret = vim_strsave((char_u *)xa_font_name);
+		XFree(xa_font_name);
+	    }
+	    else if (name != NULL)
+		ret = vim_strsave(name);
+	}
+	else if (name != NULL)
+	    ret = vim_strsave(name);
+    }
+    return ret;
+}
+#endif
+
+/*
+ * Adjust gui.char_height (after 'linespace' was changed).
+ */
+    int
+gui_mch_adjust_charheight(void)
+{
+#ifdef FEAT_XFONTSET
+    if (gui.fontset != NOFONTSET)
+    {
+	gui.char_height = fontset_height((XFontSet)gui.fontset) + p_linespace;
+	gui.char_ascent = fontset_ascent((XFontSet)gui.fontset)
+							    + p_linespace / 2;
+    }
+    else
+#endif
+    {
+	XFontStruct *font = (XFontStruct *)gui.norm_font;
+
+	gui.char_height = font->ascent + font->descent + p_linespace;
+	gui.char_ascent = font->ascent + p_linespace / 2;
+    }
+    return OK;
+}
+
+/*
+ * Set the current text font.
+ */
+    void
+gui_mch_set_font(GuiFont font)
+{
+    static Font	prev_font = (Font)-1;
+    Font	fid = ((XFontStruct *)font)->fid;
+
+    if (fid != prev_font)
+    {
+	XSetFont(gui.dpy, gui.text_gc, fid);
+	XSetFont(gui.dpy, gui.back_gc, fid);
+	prev_font = fid;
+	gui.char_ascent = ((XFontStruct *)font)->ascent + p_linespace / 2;
+    }
+#ifdef FEAT_XFONTSET
+    current_fontset = (XFontSet)NULL;
+#endif
+}
+
+#if defined(FEAT_XFONTSET) || defined(PROTO)
+/*
+ * Set the current text fontset.
+ * Adjust the ascent, in case it's different.
+ */
+    void
+gui_mch_set_fontset(GuiFontset fontset)
+{
+    current_fontset = (XFontSet)fontset;
+    gui.char_ascent = fontset_ascent(current_fontset) + p_linespace / 2;
+}
+#endif
+
+/*
+ * If a font is not going to be used, free its structure.
+ */
+    void
+gui_mch_free_font(GuiFont font)
+{
+    if (font != NOFONT)
+	XFreeFont(gui.dpy, (XFontStruct *)font);
+}
+
+#if defined(FEAT_XFONTSET) || defined(PROTO)
+/*
+ * If a fontset is not going to be used, free its structure.
+ */
+    void
+gui_mch_free_fontset(GuiFontset fontset)
+{
+    if (fontset != NOFONTSET)
+	XFreeFontSet(gui.dpy, (XFontSet)fontset);
+}
+
+/*
+ * Load the fontset "name".
+ * Return a reference to the fontset, or NOFONTSET when failing.
+ */
+    GuiFontset
+gui_mch_get_fontset(
+    char_u	*name,
+    int		giveErrorIfMissing,
+    int		fixed_width)
+{
+    XFontSet	fontset;
+    char	**missing, *def_str;
+    int		num_missing;
+
+    if (!gui.in_use || name == NULL)
+	return NOFONTSET;
+
+    fontset = XCreateFontSet(gui.dpy, (char *)name, &missing, &num_missing,
+			     &def_str);
+    if (num_missing > 0)
+    {
+	int i;
+
+	if (giveErrorIfMissing)
+	{
+	    semsg(_(e_fonts_for_the_following_charsets_are_missing_in_fontset), name);
+	    for (i = 0; i < num_missing; i++)
+		semsg("%s", missing[i]);
+	}
+	XFreeStringList(missing);
+    }
+
+    if (fontset == NULL)
+    {
+	if (giveErrorIfMissing)
+	    semsg(_(e_unknown_fontset_str), name);
+	return NOFONTSET;
+    }
+
+    if (fixed_width && check_fontset_sanity(fontset) == FAIL)
+    {
+	XFreeFontSet(gui.dpy, fontset);
+	return NOFONTSET;
+    }
+    return (GuiFontset)fontset;
+}
+
+/*
+ * Check if fontset "fs" is fixed width.
+ */
+    static int
+check_fontset_sanity(XFontSet fs)
+{
+    XFontStruct	**xfs;
+    char	**font_name;
+    int		fn;
+    char	*base_name;
+    int		i;
+    int		min_width;
+    int		min_font_idx = 0;
+
+    base_name = XBaseFontNameListOfFontSet(fs);
+    fn = XFontsOfFontSet(fs, &xfs, &font_name);
+    for (i = 0; i < fn; i++)
+    {
+	if (xfs[i]->max_bounds.width != xfs[i]->min_bounds.width)
+	{
+	    semsg(_(e_fontsent_name_str_font_str_is_not_fixed_width),
+		    base_name, font_name[i]);
+	    return FAIL;
+	}
+    }
+    // scan base font width
+    min_width = 32767;
+    for (i = 0; i < fn; i++)
+    {
+	if (xfs[i]->max_bounds.width<min_width)
+	{
+	    min_width = xfs[i]->max_bounds.width;
+	    min_font_idx = i;
+	}
+    }
+    for (i = 0; i < fn; i++)
+    {
+	if (	   xfs[i]->max_bounds.width != 2 * min_width
+		&& xfs[i]->max_bounds.width != min_width)
+	{
+	    semsg(_(e_fontset_name_str), base_name);
+	    semsg(_("Font0: %s"), font_name[min_font_idx]);
+	    semsg(_("Font%d: %s"), i, font_name[i]);
+	    semsg(_("Font%d width is not twice that of font0"), i);
+	    semsg(_("Font0 width: %d"),
+				     (int)xfs[min_font_idx]->max_bounds.width);
+	    semsg(_("Font%d width: %d"), i, (int)xfs[i]->max_bounds.width);
+	    return FAIL;
+	}
+    }
+    // it seems ok. Good Luck!!
+    return OK;
+}
+
+    static int
+fontset_width(XFontSet fs)
+{
+ return XmbTextEscapement(fs, "Vim", 3) / 3;
+}
+
+    int
+fontset_height(
+    XFontSet fs)
+{
+    XFontSetExtents *extents;
+
+    extents = XExtentsOfFontSet(fs);
+    return extents->max_logical_extent.height;
+}
+
+#if 0
+// NOT USED YET
+    static int
+fontset_descent(XFontSet fs)
+{
+    XFontSetExtents *extents;
+
+    extents = XExtentsOfFontSet (fs);
+    return extents->max_logical_extent.height + extents->max_logical_extent.y;
+}
+#endif
+
+    static int
+fontset_ascent(XFontSet fs)
+{
+    XFontSetExtents *extents;
+
+    extents = XExtentsOfFontSet(fs);
+    return -extents->max_logical_extent.y;
+}
+
+#endif // FEAT_XFONTSET
+
+/*
+ * Return the Pixel value (color) for the given color name.
+ * Return INVALCOLOR for error.
+ */
+    guicolor_T
+gui_mch_get_color(char_u *name)
+{
+    guicolor_T	requested;
+
+    // can't do this when GUI not running
+    if (!gui.in_use || name == NULL || *name == NUL)
+	return INVALCOLOR;
+
+    requested = gui_get_color_cmn(name);
+    if (requested == INVALCOLOR)
+	return INVALCOLOR;
+
+    return gui_mch_get_rgb_color(
+	    (requested & 0xff0000) >> 16,
+	    (requested & 0xff00) >> 8,
+	    requested & 0xff);
+}
+
+/*
+ * Return the Pixel value (color) for the given RGB values.
+ * Return INVALCOLOR for error.
+ */
+    guicolor_T
+gui_mch_get_rgb_color(int r, int g, int b)
+{
+    XColor	available;
+    Colormap	colormap;
+
+#if 0
+// Using XParseColor() is very slow, put rgb in XColor directly.
+
+    char	spec[8]; // space enough to hold "#RRGGBB"
+    vim_snprintf(spec, sizeof(spec), "#%.2x%.2x%.2x", r, g, b);
+    if (XParseColor(gui.dpy, colormap, (char *)spec, &available) != 0
+	    && XAllocColor(gui.dpy, colormap, &available) != 0)
+	return (guicolor_T)available.pixel;
+#endif
+    colormap = DefaultColormap(gui.dpy, DefaultScreen(gui.dpy));
+    CLEAR_FIELD(available);
+    available.red = r << 8;
+    available.green = g << 8;
+    available.blue = b << 8;
+    if (XAllocColor(gui.dpy, colormap, &available) != 0)
+	return (guicolor_T)available.pixel;
+
+    return INVALCOLOR;
+}
+
+/*
+ * Set the current text foreground color.
+ */
+    void
+gui_mch_set_fg_color(guicolor_T color)
+{
+    if (color == prev_fg_color)
+	return;
+
+    XSetForeground(gui.dpy, gui.text_gc, (Pixel)color);
+    prev_fg_color = color;
+}
+
+/*
+ * Set the current text background color.
+ */
+    void
+gui_mch_set_bg_color(guicolor_T color)
+{
+    if (color == prev_bg_color)
+	return;
+
+    XSetBackground(gui.dpy, gui.text_gc, (Pixel)color);
+    prev_bg_color = color;
+}
+
+/*
+ * Set the current text special color.
+ */
+    void
+gui_mch_set_sp_color(guicolor_T color)
+{
+    prev_sp_color = color;
+}
+
+/*
+ * create a mouse pointer that is blank
+ */
+    static Cursor
+gui_x11_create_blank_mouse(void)
+{
+    Pixmap blank_pixmap = XCreatePixmap(gui.dpy, gui.wid, 1, 1, 1);
+    GC gc = XCreateGC(gui.dpy, blank_pixmap, (unsigned long)0, (XGCValues*)0);
+
+    if (gc != NULL)
+    {
+	XDrawPoint(gui.dpy, blank_pixmap, gc, 0, 0);
+	XFreeGC(gui.dpy, gc);
+    }
+    return XCreatePixmapCursor(gui.dpy, blank_pixmap, blank_pixmap,
+		     (XColor*)&gui.norm_pixel, (XColor*)&gui.norm_pixel, 0, 0);
+}
+
+/*
+ * Draw a curled line at the bottom of the character cell.
+ */
+    static void
+draw_curl(int row, int col, int cells)
+{
+    int			i;
+    int			offset;
+    static const int	val[8] = {1, 0, 0, 0, 1, 2, 2, 2 };
+
+    XSetForeground(gui.dpy, gui.text_gc, prev_sp_color);
+    for (i = FILL_X(col); i < FILL_X(col + cells); ++i)
+    {
+	offset = val[i % 8];
+	XDrawPoint(gui.dpy, gui.wid, gui.text_gc, i,
+						FILL_Y(row + 1) - 1 - offset);
+    }
+    XSetForeground(gui.dpy, gui.text_gc, prev_fg_color);
+}
+
+    void
+gui_mch_draw_string(
+    int		row,
+    int		col,
+    char_u	*s,
+    int		len,
+    int		flags)
+{
+    int			cells = len;
+    static void		*buf = NULL;
+    static int		buflen = 0;
+    char_u		*p;
+    int			wlen = 0;
+    int			c;
+
+    if (enc_utf8)
+    {
+	// Convert UTF-8 byte sequence to 16 bit characters for the X
+	// functions.  Need a buffer for the 16 bit characters.  Keep it
+	// between calls, because allocating it each time is slow.
+	if (buflen < len)
+	{
+	    XtFree((char *)buf);
+	    buf = (void *)XtMalloc(len * (sizeof(XChar2b) < sizeof(wchar_t)
+					? sizeof(wchar_t) : sizeof(XChar2b)));
+	    buflen = len;
+	}
+	p = s;
+	cells = 0;
+	while (p < s + len)
+	{
+	    c = utf_ptr2char(p);
+#ifdef FEAT_XFONTSET
+	    if (current_fontset != NULL)
+	    {
+# ifdef SMALL_WCHAR_T
+		if (c >= 0x10000)
+		    c = 0xbf;		// show chars > 0xffff as ?
+# endif
+		((wchar_t *)buf)[wlen] = c;
+	    }
+	    else
+#endif
+	    {
+		if (c >= 0x10000)
+		    c = 0xbf;		// show chars > 0xffff as ?
+		((XChar2b *)buf)[wlen].byte1 = (unsigned)c >> 8;
+		((XChar2b *)buf)[wlen].byte2 = c;
+	    }
+	    ++wlen;
+	    cells += utf_char2cells(c);
+	    p += utf_ptr2len(p);
+	}
+    }
+    else if (has_mbyte)
+    {
+	cells = 0;
+	for (p = s; p < s + len; )
+	{
+	    cells += ptr2cells(p);
+	    p += (*mb_ptr2len)(p);
+	}
+    }
+
+#ifdef FEAT_XFONTSET
+    if (current_fontset != NULL)
+    {
+	// Setup a clip rectangle to avoid spilling over in the next or
+	// previous line.  This is apparently needed for some fonts which are
+	// used in a fontset.
+	XRectangle	clip;
+
+	clip.x = 0;
+	clip.y = 0;
+	clip.height = gui.char_height;
+	clip.width = gui.char_width * cells + 1;
+	XSetClipRectangles(gui.dpy, gui.text_gc, FILL_X(col), FILL_Y(row),
+		&clip, 1, Unsorted);
+    }
+#endif
+
+    if (flags & DRAW_TRANSP)
+    {
+	if (enc_utf8)
+	    XDrawString16(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), buf, wlen);
+	else
+	    XDrawString(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), (char *)s, len);
+    }
+    else if (p_linespace != 0
+#ifdef FEAT_XFONTSET
+	    || current_fontset != NULL
+#endif
+	    )
+    {
+	XSetForeground(gui.dpy, gui.text_gc, prev_bg_color);
+	XFillRectangle(gui.dpy, gui.wid, gui.text_gc, FILL_X(col),
+		FILL_Y(row), gui.char_width * cells, gui.char_height);
+	XSetForeground(gui.dpy, gui.text_gc, prev_fg_color);
+
+	if (enc_utf8)
+	    XDrawString16(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), buf, wlen);
+	else
+	    XDrawString(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), (char *)s, len);
+    }
+    else
+    {
+	// XmbDrawImageString has bug, don't use it for fontset.
+	if (enc_utf8)
+	    XDrawImageString16(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), buf, wlen);
+	else
+	    XDrawImageString(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col),
+		    TEXT_Y(row), (char *)s, len);
+    }
+
+    // Bold trick: draw the text again with a one-pixel offset.
+    if (flags & DRAW_BOLD)
+    {
+	if (enc_utf8)
+	    XDrawString16(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col) + 1,
+		    TEXT_Y(row), buf, wlen);
+	else
+	    XDrawString(gui.dpy, gui.wid, gui.text_gc, TEXT_X(col) + 1,
+		    TEXT_Y(row), (char *)s, len);
+    }
+
+    // Undercurl: draw curl at the bottom of the character cell.
+    if (flags & DRAW_UNDERC)
+	draw_curl(row, col, cells);
+
+    // Underline: draw a line at the bottom of the character cell.
+    if (flags & DRAW_UNDERL)
+    {
+	int	y = FILL_Y(row + 1) - 1;
+
+	// When p_linespace is 0, overwrite the bottom row of pixels.
+	// Otherwise put the line just below the character.
+	if (p_linespace > 1)
+	    y -= p_linespace - 1;
+	XDrawLine(gui.dpy, gui.wid, gui.text_gc, FILL_X(col),
+		y, FILL_X(col + cells) - 1, y);
+    }
+
+    if (flags & DRAW_STRIKE)
+    {
+	int	y = FILL_Y(row + 1) - gui.char_height/2;
+
+	XSetForeground(gui.dpy, gui.text_gc, prev_sp_color);
+	XDrawLine(gui.dpy, gui.wid, gui.text_gc, FILL_X(col),
+		y, FILL_X(col + cells) - 1, y);
+	XSetForeground(gui.dpy, gui.text_gc, prev_fg_color);
+    }
+
+#ifdef FEAT_XFONTSET
+    if (current_fontset != NULL)
+	XSetClipMask(gui.dpy, gui.text_gc, None);
+#endif
+}
+
+/*
+ * Return OK if the key with the termcap name "name" is supported.
+ */
+    int
+gui_mch_haskey(char_u *name)
+{
+    int i;
+
+    for (i = 0; special_keys[i].key_sym != (KeySym)0; i++)
+	if (name[0] == special_keys[i].vim_code0 &&
+					 name[1] == special_keys[i].vim_code1)
+	    return OK;
+    return FAIL;
+}
+
+/*
+ * Return the text window-id and display.  Only required for X-based GUI's
+ */
+    int
+gui_get_x11_windis(Window *win, Display **dis)
+{
+    *win = XtWindow(vimShell);
+    *dis = gui.dpy;
+    return OK;
+}
+
+    void
+gui_mch_beep(void)
+{
+    XBell(gui.dpy, 0);
+}
+
+    void
+gui_mch_flash(int msec)
+{
+    // Do a visual beep by reversing the foreground and background colors
+    XFillRectangle(gui.dpy, gui.wid, gui.invert_gc, 0, 0,
+	    FILL_X((int)Columns) + gui.border_offset,
+	    FILL_Y((int)Rows) + gui.border_offset);
+    XSync(gui.dpy, False);
+    ui_delay((long)msec, TRUE);	// wait for a few msec
+    XFillRectangle(gui.dpy, gui.wid, gui.invert_gc, 0, 0,
+	    FILL_X((int)Columns) + gui.border_offset,
+	    FILL_Y((int)Rows) + gui.border_offset);
+}
+
+/*
+ * Invert a rectangle from row r, column c, for nr rows and nc columns.
+ */
+    void
+gui_mch_invert_rectangle(
+    int	    r,
+    int	    c,
+    int	    nr,
+    int	    nc)
+{
+    XFillRectangle(gui.dpy, gui.wid, gui.invert_gc,
+	FILL_X(c), FILL_Y(r), (nc) * gui.char_width, (nr) * gui.char_height);
+}
+
+/*
+ * Iconify the GUI window.
+ */
+    void
+gui_mch_iconify(void)
+{
+    XIconifyWindow(gui.dpy, XtWindow(vimShell), DefaultScreen(gui.dpy));
+}
+
+#if defined(FEAT_EVAL) || defined(PROTO)
+/*
+ * Bring the Vim window to the foreground.
+ */
+    void
+gui_mch_set_foreground(void)
+{
+    XMapRaised(gui.dpy, XtWindow(vimShell));
+}
+#endif
+
+/*
+ * Draw a cursor without focus.
+ */
+    void
+gui_mch_draw_hollow_cursor(guicolor_T color)
+{
+    int		w = 1;
+
+    if (mb_lefthalve(gui.row, gui.col))
+	w = 2;
+    gui_mch_set_fg_color(color);
+    XDrawRectangle(gui.dpy, gui.wid, gui.text_gc, FILL_X(gui.col),
+	    FILL_Y(gui.row), w * gui.char_width - 1, gui.char_height - 1);
+}
+
+/*
+ * Draw part of a cursor, "w" pixels wide, and "h" pixels high, using
+ * color "color".
+ */
+    void
+gui_mch_draw_part_cursor(int w, int h, guicolor_T color)
+{
+    gui_mch_set_fg_color(color);
+
+    XFillRectangle(gui.dpy, gui.wid, gui.text_gc,
+#ifdef FEAT_RIGHTLEFT
+	    // vertical line should be on the right of current point
+	    CURSOR_BAR_RIGHT ? FILL_X(gui.col + 1) - w :
+#endif
+		FILL_X(gui.col),
+	    FILL_Y(gui.row) + gui.char_height - h,
+	    w, h);
+}
+
+/*
+ * Catch up with any queued X events.  This may put keyboard input into the
+ * input buffer, call resize call-backs, trigger timers etc.  If there is
+ * nothing in the X event queue (& no timers pending), then we return
+ * immediately.
+ */
+    void
+gui_mch_update(void)
+{
+    XtInputMask mask, desired;
+
+#ifdef ALT_X_INPUT
+    if (suppress_alternate_input)
+	desired = (XtIMXEvent | XtIMTimer);
+    else
+#endif
+	desired = (XtIMAll);
+    while ((mask = XtAppPending(app_context)) && (mask & desired)
+	    && !vim_is_input_buf_full())
+	XtAppProcessEvent(app_context, desired);
+}
+
+/*
+ * GUI input routine called by gui_wait_for_chars().  Waits for a character
+ * from the keyboard.
+ *  wtime == -1	    Wait forever.
+ *  wtime == 0	    This should never happen.
+ *  wtime > 0	    Wait wtime milliseconds for a character.
+ * Returns OK if a character was found to be available within the given time,
+ * or FAIL otherwise.
+ */
+    int
+gui_mch_wait_for_chars(long wtime)
+{
+    int	    focus;
+    int	    retval = FAIL;
+
+    /*
+     * Make this static, in case gui_x11_timer_cb is called after leaving
+     * this function (otherwise a random value on the stack may be changed).
+     */
+    static int	    timed_out;
+    XtIntervalId    timer = (XtIntervalId)0;
+    XtInputMask	    desired;
+#ifdef FEAT_JOB_CHANNEL
+    XtIntervalId    channel_timer = (XtIntervalId)0;
+#endif
+
+    timed_out = FALSE;
+
+    if (wtime >= 0)
+	timer = XtAppAddTimeOut(app_context,
+				(long_u)(wtime == 0 ? 1L : wtime),
+						 gui_x11_timer_cb, &timed_out);
+#ifdef FEAT_JOB_CHANNEL
+    // If there is a channel with the keep_open flag we need to poll for input
+    // on them.
+    if (channel_any_keep_open())
+	channel_timer = XtAppAddTimeOut(app_context, (long_u)20,
+				   channel_poll_cb, (XtPointer)&channel_timer);
+#endif
+
+    focus = gui.in_focus;
+    desired = (XtIMAll);
+    while (!timed_out)
+    {
+	// Stop or start blinking when focus changes
+	if (gui.in_focus != focus)
+	{
+	    if (gui.in_focus)
+		gui_mch_start_blink();
+	    else
+		gui_mch_stop_blink(TRUE);
+	    focus = gui.in_focus;
+	}
+
+#ifdef MESSAGE_QUEUE
+# ifdef FEAT_TIMERS
+	did_add_timer = FALSE;
+# endif
+	parse_queued_messages();
+# ifdef FEAT_TIMERS
+	if (did_add_timer)
+	    // Need to recompute the waiting time.
+	    break;
+# endif
+#endif
+
+	/*
+	 * Don't use gui_mch_update() because then we will spin-lock until a
+	 * char arrives, instead we use XtAppProcessEvent() to hang until an
+	 * event arrives.  No need to check for input_buf_full because we are
+	 * returning as soon as it contains a single char.  Note that
+	 * XtAppNextEvent() may not be used because it will not return after a
+	 * timer event has arrived -- webb
+	 */
+	XtAppProcessEvent(app_context, desired);
+
+	if (input_available())
+	{
+	    retval = OK;
+	    break;
+	}
+    }
+
+    if (timer != (XtIntervalId)0 && !timed_out)
+	XtRemoveTimeOut(timer);
+#ifdef FEAT_JOB_CHANNEL
+    if (channel_timer != (XtIntervalId)0)
+	XtRemoveTimeOut(channel_timer);
+#endif
+
+    return retval;
+}
+
+/*
+ * Output routines.
+ */
+
+/*
+ * Flush any output to the screen
+ */
+    void
+gui_mch_flush(void)
+{
+    XFlush(gui.dpy);
+}
+
+/*
+ * Clear a rectangular region of the screen from text pos (row1, col1) to
+ * (row2, col2) inclusive.
+ */
+    void
+gui_mch_clear_block(
+    int		row1,
+    int		col1,
+    int		row2,
+    int		col2)
+{
+    int		x;
+
+    x = FILL_X(col1);
+
+    // Clear one extra pixel at the far right, for when bold characters have
+    // spilled over to the next column.
+    XFillRectangle(gui.dpy, gui.wid, gui.back_gc, x, FILL_Y(row1),
+	    (col2 - col1 + 1) * gui.char_width + (col2 == Columns - 1),
+	    (row2 - row1 + 1) * gui.char_height);
+}
+
+    void
+gui_mch_clear_all(void)
+{
+    XClearArea(gui.dpy, gui.wid, 0, 0, 0, 0, False);
+}
+
+/*
+ * Delete the given number of lines from the given row, scrolling up any
+ * text further down within the scroll region.
+ */
+    void
+gui_mch_delete_lines(int row, int num_lines)
+{
+    if (gui.visibility == VisibilityFullyObscured)
+	return;	    // Can't see the window
+
+    // copy one extra pixel at the far right, for when bold has spilled
+    // over
+    XCopyArea(gui.dpy, gui.wid, gui.wid, gui.text_gc,
+	FILL_X(gui.scroll_region_left), FILL_Y(row + num_lines),
+	gui.char_width * (gui.scroll_region_right - gui.scroll_region_left + 1)
+			       + (gui.scroll_region_right == Columns - 1),
+	gui.char_height * (gui.scroll_region_bot - row - num_lines + 1),
+	FILL_X(gui.scroll_region_left), FILL_Y(row));
+
+    gui_clear_block(gui.scroll_region_bot - num_lines + 1,
+						       gui.scroll_region_left,
+			  gui.scroll_region_bot, gui.scroll_region_right);
+    gui_x11_check_copy_area();
+}
+
+/*
+ * Insert the given number of lines before the given row, scrolling down any
+ * following text within the scroll region.
+ */
+    void
+gui_mch_insert_lines(int row, int num_lines)
+{
+    if (gui.visibility == VisibilityFullyObscured)
+	return;	    // Can't see the window
+
+    // copy one extra pixel at the far right, for when bold has spilled
+    // over
+    XCopyArea(gui.dpy, gui.wid, gui.wid, gui.text_gc,
+	FILL_X(gui.scroll_region_left), FILL_Y(row),
+	gui.char_width * (gui.scroll_region_right - gui.scroll_region_left + 1)
+			       + (gui.scroll_region_right == Columns - 1),
+	gui.char_height * (gui.scroll_region_bot - row - num_lines + 1),
+	FILL_X(gui.scroll_region_left), FILL_Y(row + num_lines));
+
+    gui_clear_block(row, gui.scroll_region_left,
+				row + num_lines - 1, gui.scroll_region_right);
+    gui_x11_check_copy_area();
+}
+
+/*
+ * Update the region revealed by scrolling up/down.
+ */
+    static void
+gui_x11_check_copy_area(void)
+{
+    XEvent		    event;
+    XGraphicsExposeEvent    *gevent;
+
+    if (gui.visibility != VisibilityPartiallyObscured)
+	return;
+
+    XFlush(gui.dpy);
+
+    // Wait to check whether the scroll worked or not
+    for (;;)
+    {
+	if (XCheckTypedEvent(gui.dpy, NoExpose, &event))
+	    return;	// The scroll worked.
+
+	if (XCheckTypedEvent(gui.dpy, GraphicsExpose, &event))
+	{
+	    gevent = (XGraphicsExposeEvent *)&event;
+	    gui_redraw(gevent->x, gevent->y, gevent->width, gevent->height);
+	    if (gevent->count == 0)
+		return;		// This was the last expose event
+	}
+	XSync(gui.dpy, False);
+    }
+}
+
+/*
+ * X Selection stuff, for cutting and pasting text to other windows.
+ */
+
+    void
+clip_mch_lose_selection(Clipboard_T *cbd)
+{
+    clip_x11_lose_selection(vimShell, cbd);
+}
+
+    int
+clip_mch_own_selection(Clipboard_T *cbd)
+{
+    return clip_x11_own_selection(vimShell, cbd);
+}
+
+    void
+clip_mch_request_selection(Clipboard_T *cbd)
+{
+ clip_x11_request_selection(vimShell, gui.dpy, cbd);
+}
+
+    void
+clip_mch_set_selection(
+    Clipboard_T	*cbd)
+{
+    clip_x11_set_selection(cbd);
+}
+
+#if defined(FEAT_MENU) || defined(PROTO)
+/*
+ * Menu stuff.
+ */
+
+/*
+ * Make a menu either grey or not grey.
+ */
+    void
+gui_mch_menu_grey(vimmenu_T *menu, int grey)
+{
+    if (menu->id == (Widget)0)
+	return;
+
+    gui_mch_menu_hidden(menu, False);
+    if (grey
+#ifdef FEAT_GUI_MOTIF
+	    || !menu->sensitive
+#endif
+       )
+	XtSetSensitive(menu->id, False);
+    else
+	XtSetSensitive(menu->id, True);
+}
+
+/*
+ * Make menu item hidden or not hidden
+ */
+    void
+gui_mch_menu_hidden(vimmenu_T *menu, int hidden)
+{
+    if (menu->id == (Widget)0)
+	return;
+
+    if (hidden)
+	XtUnmanageChild(menu->id);
+    else
+	XtManageChild(menu->id);
+}
+
+/*
+ * This is called after setting all the menus to grey/hidden or not.
+ */
+    void
+gui_mch_draw_menubar(void)
+{
+    // Nothing to do in X
+}
+
+    void
+gui_x11_menu_cb(
+    Widget	w UNUSED,
+    XtPointer	client_data,
+    XtPointer	call_data UNUSED)
+{
+    gui_menu_cb((vimmenu_T *)client_data);
+}
+
+#endif // FEAT_MENU
+
+
+
+/*
+ * Function called when window closed.	Works like ":qa".
+ * Should put up a requester!
+ */
+    static void
+gui_x11_wm_protocol_handler(
+    Widget	w UNUSED,
+    XtPointer	client_data UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    /*
+     * Only deal with Client messages.
+     */
+    if (event->type != ClientMessage)
+	return;
+
+    /*
+     * The WM_SAVE_YOURSELF event arrives when the window manager wants to
+     * exit.  That can be cancelled though, thus Vim shouldn't exit here.
+     * Just sync our swap files.
+     */
+    if ((Atom)((XClientMessageEvent *)event)->data.l[0] ==
+						  wm_atoms[SAVE_YOURSELF_IDX])
+    {
+	out_flush();
+	ml_sync_all(FALSE, FALSE);	// preserve all swap files
+
+	// Set the window's WM_COMMAND property, to let the window manager
+	// know we are done saving ourselves.  We don't want to be restarted,
+	// thus set argv to NULL.
+	XSetCommand(gui.dpy, XtWindow(vimShell), NULL, 0);
+	return;
+    }
+
+    if ((Atom)((XClientMessageEvent *)event)->data.l[0] !=
+						  wm_atoms[DELETE_WINDOW_IDX])
+	return;
+
+    gui_shell_closed();
+}
+
+#ifdef FEAT_CLIENTSERVER
+/*
+ * Function called when property changed. Check for incoming commands
+ */
+    static void
+gui_x11_send_event_handler(
+    Widget	w UNUSED,
+    XtPointer	client_data UNUSED,
+    XEvent	*event,
+    Boolean	*dum UNUSED)
+{
+    XPropertyEvent *e = (XPropertyEvent *) event;
+
+    if (e->type == PropertyNotify && e->window == commWindow
+	    && e->atom == commProperty &&  e->state == PropertyNewValue)
+	serverEventProc(gui.dpy, event, 0);
+}
+#endif
+
+/*
+ * Cursor blink functions.
+ *
+ * This is a simple state machine:
+ * BLINK_NONE	not blinking at all
+ * BLINK_OFF	blinking, cursor is not shown
+ * BLINK_ON	blinking, cursor is shown
+ */
+
+#define BLINK_NONE  0
+#define BLINK_OFF   1
+#define BLINK_ON    2
+
+static int		blink_state = BLINK_NONE;
+static long_u		blink_waittime = 700;
+static long_u		blink_ontime = 400;
+static long_u		blink_offtime = 250;
+static XtIntervalId	blink_timer = (XtIntervalId)0;
+
+    int
+gui_mch_is_blinking(void)
+{
+    return blink_state != BLINK_NONE;
+}
+
+    int
+gui_mch_is_blink_off(void)
+{
+    return blink_state == BLINK_OFF;
+}
+
+    void
+gui_mch_set_blinking(long waittime, long on, long off)
+{
+    blink_waittime = waittime;
+    blink_ontime = on;
+    blink_offtime = off;
+}
+
+/*
+ * Stop the cursor blinking.  Show the cursor if it wasn't shown.
+ */
+    void
+gui_mch_stop_blink(int may_call_gui_update_cursor)
+{
+    if (blink_timer != (XtIntervalId)0)
+    {
+	XtRemoveTimeOut(blink_timer);
+	blink_timer = (XtIntervalId)0;
+    }
+    if (blink_state == BLINK_OFF && may_call_gui_update_cursor)
+	gui_update_cursor(TRUE, FALSE);
+    blink_state = BLINK_NONE;
+}
+
+    static void
+gui_x11_blink_cb(
+    XtPointer	    timed_out UNUSED,
+    XtIntervalId    *interval_id UNUSED)
+{
+    if (blink_state == BLINK_ON)
+    {
+	gui_undraw_cursor();
+	blink_state = BLINK_OFF;
+	blink_timer = XtAppAddTimeOut(app_context, blink_offtime,
+						      gui_x11_blink_cb, NULL);
+    }
+    else
+    {
+	gui_update_cursor(TRUE, FALSE);
+	blink_state = BLINK_ON;
+	blink_timer = XtAppAddTimeOut(app_context, blink_ontime,
+						      gui_x11_blink_cb, NULL);
+    }
+}
+
+/*
+ * Start the cursor blinking.  If it was already blinking, this restarts the
+ * waiting time and shows the cursor.
+ */
+    void
+gui_mch_start_blink(void)
+{
+    if (blink_timer != (XtIntervalId)0)
+	XtRemoveTimeOut(blink_timer);
+    // Only switch blinking on if none of the times is zero
+    if (blink_waittime && blink_ontime && blink_offtime && gui.in_focus)
+    {
+	blink_timer = XtAppAddTimeOut(app_context, blink_waittime,
+						      gui_x11_blink_cb, NULL);
+	blink_state = BLINK_ON;
+	gui_update_cursor(TRUE, FALSE);
+    }
+}
+
+/*
+ * Return the RGB value of a pixel as a long.
+ */
+    guicolor_T
+gui_mch_get_rgb(guicolor_T pixel)
+{
+    XColor	xc;
+    Colormap	colormap;
+
+    colormap = DefaultColormap(gui.dpy, XDefaultScreen(gui.dpy));
+    xc.pixel = pixel;
+    XQueryColor(gui.dpy, colormap, &xc);
+
+    return (guicolor_T)(((xc.red & 0xff00) << 8) + (xc.green & 0xff00)
+						   + ((unsigned)xc.blue >> 8));
+}
+
+/*
+ * Add the callback functions.
+ */
+    void
+gui_x11_callbacks(Widget textArea, Widget vimForm)
+{
+    XtAddEventHandler(textArea, VisibilityChangeMask, FALSE,
+	gui_x11_visibility_cb, (XtPointer)0);
+
+    XtAddEventHandler(textArea, ExposureMask, FALSE, gui_x11_expose_cb,
+	(XtPointer)0);
+
+    XtAddEventHandler(vimShell, StructureNotifyMask, FALSE,
+	gui_x11_resize_window_cb, (XtPointer)0);
+
+    XtAddEventHandler(vimShell, FocusChangeMask, FALSE, gui_x11_focus_change_cb,
+	(XtPointer)0);
+    /*
+     * Only install these enter/leave callbacks when 'p' in 'guioptions'.
+     * Only needed for some window managers.
+     */
+    if (vim_strchr(p_go, GO_POINTER) != NULL)
+    {
+	XtAddEventHandler(vimShell, LeaveWindowMask, FALSE, gui_x11_leave_cb,
+	    (XtPointer)0);
+	XtAddEventHandler(textArea, LeaveWindowMask, FALSE, gui_x11_leave_cb,
+	    (XtPointer)0);
+	XtAddEventHandler(textArea, EnterWindowMask, FALSE, gui_x11_enter_cb,
+	    (XtPointer)0);
+	XtAddEventHandler(vimShell, EnterWindowMask, FALSE, gui_x11_enter_cb,
+	    (XtPointer)0);
+    }
+
+    XtAddEventHandler(vimForm, KeyPressMask, FALSE, gui_x11_key_hit_cb,
+	(XtPointer)0);
+    XtAddEventHandler(textArea, KeyPressMask, FALSE, gui_x11_key_hit_cb,
+	(XtPointer)0);
+
+    // get pointer moved events from scrollbar, needed for 'mousefocus'
+    XtAddEventHandler(vimForm, PointerMotionMask,
+	FALSE, gui_x11_mouse_cb, (XtPointer)1);
+    XtAddEventHandler(textArea, ButtonPressMask | ButtonReleaseMask |
+					 ButtonMotionMask | PointerMotionMask,
+	FALSE, gui_x11_mouse_cb, (XtPointer)0);
+}
+
+/*
+ * Get current mouse coordinates in text window.
+ */
+    void
+gui_mch_getmouse(int *x, int *y)
+{
+    int		rootx, rooty, winx, winy;
+    Window	root, child;
+    unsigned int mask;
+
+    if (gui.wid && XQueryPointer(gui.dpy, gui.wid, &root, &child,
+					 &rootx, &rooty, &winx, &winy, &mask))
+    {
+	*x = winx;
+	*y = winy;
+    }
+    else
+    {
+	*x = -1;
+	*y = -1;
+    }
+}
+
+    void
+gui_mch_setmouse(int x, int y)
+{
+    if (gui.wid)
+	XWarpPointer(gui.dpy, (Window)0, gui.wid, 0, 0, 0, 0, x, y);
+}
+
+#if (defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)) || defined(PROTO)
+    XButtonPressedEvent *
+gui_x11_get_last_mouse_event(void)
+{
+    return &last_mouse_event;
+}
+#endif
+
+#if defined(FEAT_SIGN_ICONS) || defined(PROTO)
+
+// Signs are currently always 2 chars wide.  Hopefully the font is big enough
+// to provide room for the bitmap!
+# define SIGN_WIDTH (gui.char_width * 2)
+
+    void
+gui_mch_drawsign(int row, int col, int typenr)
+{
+    XImage	*sign;
+
+    if (!gui.in_use || (sign = (XImage *)sign_get_image(typenr)) == NULL)
+	return;
+
+    XClearArea(gui.dpy, gui.wid, TEXT_X(col), TEXT_Y(row) - sign->height,
+	    SIGN_WIDTH, gui.char_height, FALSE);
+    XPutImage(gui.dpy, gui.wid, gui.text_gc, sign, 0, 0,
+	    TEXT_X(col) + (SIGN_WIDTH - sign->width) / 2,
+	    TEXT_Y(row) - sign->height,
+	    sign->width, sign->height);
+}
+
+    void *
+gui_mch_register_sign(char_u *signfile)
+{
+    XpmAttributes   attrs;
+    XImage	    *sign = NULL;
+    int		    status;
+
+    /*
+     * Setup the color substitution table.
+     */
+    if (signfile[0] != NUL && signfile[0] != '-')
+    {
+	XpmColorSymbol color[5] =
+	{
+	    {"none", NULL, 0},
+	    {"iconColor1", NULL, 0},
+	    {"bottomShadowColor", NULL, 0},
+	    {"topShadowColor", NULL, 0},
+	    {"selectColor", NULL, 0}
+	};
+	attrs.valuemask = XpmColorSymbols;
+	attrs.numsymbols = 2;
+	attrs.colorsymbols = color;
+	attrs.colorsymbols[0].pixel = gui.back_pixel;
+	attrs.colorsymbols[1].pixel = gui.norm_pixel;
+	status = XpmReadFileToImage(gui.dpy, (char *)signfile,
+							 &sign, NULL, &attrs);
+	if (status == 0)
+	{
+	    // Sign width is fixed at two columns now.
+	    // if (sign->width > gui.sign_width)
+	    //     gui.sign_width = sign->width + 8;
+	}
+	else
+	    emsg(_(e_couldnt_read_in_sign_data));
+    }
+
+    return (void *)sign;
+}
+
+    void
+gui_mch_destroy_sign(void *sign)
+{
+    XDestroyImage((XImage*)sign);
+}
+#endif
+
+
+#ifdef FEAT_MOUSESHAPE
+// The last set mouse pointer shape is remembered, to be used when it goes
+// from hidden to not hidden.
+static int last_shape = 0;
+#endif
+
+/*
+ * Use the blank mouse pointer or not.
+ */
+    void
+gui_mch_mousehide(
+    int		hide)	// TRUE = use blank ptr, FALSE = use parent ptr
+{
+    if (gui.pointer_hidden == hide)
+	return;
+
+    gui.pointer_hidden = hide;
+    if (hide)
+	XDefineCursor(gui.dpy, gui.wid, gui.blank_pointer);
+    else
+#ifdef FEAT_MOUSESHAPE
+	mch_set_mouse_shape(last_shape);
+#else
+    XUndefineCursor(gui.dpy, gui.wid);
+#endif
+}
+
+#if defined(FEAT_MOUSESHAPE) || defined(PROTO)
+
+// Table for shape IDs.  Keep in sync with the mshape_names[] table in
+// misc2.c!
+static int mshape_ids[] =
+{
+    XC_left_ptr,		// arrow
+    0,				// blank
+    XC_xterm,			// beam
+    XC_sb_v_double_arrow,	// updown
+    XC_sizing,			// udsizing
+    XC_sb_h_double_arrow,	// leftright
+    XC_sizing,			// lrsizing
+    XC_watch,			// busy
+    XC_X_cursor,		// no
+    XC_crosshair,		// crosshair
+    XC_hand1,			// hand1
+    XC_hand2,			// hand2
+    XC_pencil,			// pencil
+    XC_question_arrow,		// question
+    XC_right_ptr,		// right-arrow
+    XC_center_ptr,		// up-arrow
+    XC_left_ptr			// last one
+};
+
+    void
+mch_set_mouse_shape(int shape)
+{
+    int	    id;
+
+    if (!gui.in_use)
+	return;
+
+    if (shape == MSHAPE_HIDE || gui.pointer_hidden)
+	XDefineCursor(gui.dpy, gui.wid, gui.blank_pointer);
+    else
+    {
+	if (shape >= MSHAPE_NUMBERED)
+	{
+	    id = shape - MSHAPE_NUMBERED;
+	    if (id >= XC_num_glyphs)
+		id = XC_left_ptr;
+	    else
+		id &= ~1;	// they are always even (why?)
+	}
+	else
+	    id = mshape_ids[shape];
+
+	XDefineCursor(gui.dpy, gui.wid, XCreateFontCursor(gui.dpy, id));
+    }
+    if (shape != MSHAPE_HIDE)
+	last_shape = shape;
+}
+#endif
+
+#if (defined(FEAT_TOOLBAR) && defined(FEAT_BEVAL_GUI)) || defined(PROTO)
+/*
+ * Set the balloon-eval used for the tooltip of a toolbar menu item.
+ * The check for a non-toolbar item was added, because there is a crash when
+ * passing a normal menu item here.  Can't explain that, but better avoid it.
+ */
+    void
+gui_mch_menu_set_tip(vimmenu_T *menu)
+{
+    if (menu->id == NULL || menu->parent == NULL
+				|| !menu_is_toolbar(menu->parent->name))
+	return;
+
+    // Always destroy and create the balloon, in case the string was
+    // changed.
+    if (menu->tip != NULL)
+    {
+	gui_mch_destroy_beval_area(menu->tip);
+	menu->tip = NULL;
+    }
+    if (menu->strings[MENU_INDEX_TIP] != NULL)
+	menu->tip = gui_mch_create_beval_area(
+		menu->id,
+		menu->strings[MENU_INDEX_TIP],
+		NULL,
+		NULL);
+}
+#endif