1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * GUI/Motif support by Robert Webb
6 * Do ":help uganda" in Vim to read copying and usage conditions.
7 * Do ":help credits" in Vim to see a list of people who contributed.
8 * See README.txt for an overview of the Vim source code.
11 * Common code for the Motif and Athena GUI.
15 #include <X11/keysym.h>
16 #include <X11/Xatom.h>
17 #include <X11/StringDefs.h>
18 #include <X11/Intrinsic.h>
19 #include <X11/Shell.h>
20 #include <X11/cursorfont.h>
25 * For Workshop XpmP.h is preferred, because it makes the signs drawn with a
26 * transparent background instead of black.
28 #if defined(HAVE_XM_XPMP_H) && defined(FEAT_GUI_MOTIF) \
29 && (!defined(HAVE_X11_XPM_H) || defined(FEAT_SUN_WORKSHOP))
32 # ifdef HAVE_X11_XPM_H
39 # include <X11/Xlocale.h>
45 #ifdef HAVE_X11_SUNKEYSYM_H
46 # include <X11/Sunkeysym.h>
49 #ifdef HAVE_X11_XMU_EDITRES_H
50 # include <X11/Xmu/Editres.h>
54 # include "gui_beval.h"
57 #define VIM_NAME "vim"
58 #define VIM_CLASS "Vim"
60 /* Default resource values */
61 #define DFLT_FONT "7x13"
63 # define DFLT_MENU_FONT XtDefaultFontSet
65 # define DFLT_MENU_FONT XtDefaultFont
67 #define DFLT_TOOLTIP_FONT XtDefaultFontSet
69 #ifdef FEAT_GUI_ATHENA
70 # define DFLT_MENU_BG_COLOR "gray77"
71 # define DFLT_MENU_FG_COLOR "black"
72 # define DFLT_SCROLL_BG_COLOR "gray60"
73 # define DFLT_SCROLL_FG_COLOR "gray77"
74 # define DFLT_TOOLTIP_BG_COLOR "#ffffffff9191"
75 # define DFLT_TOOLTIP_FG_COLOR "#000000000000"
77 /* use the default (CDE) colors */
78 # define DFLT_MENU_BG_COLOR ""
79 # define DFLT_MENU_FG_COLOR ""
80 # define DFLT_SCROLL_BG_COLOR ""
81 # define DFLT_SCROLL_FG_COLOR ""
82 # define DFLT_TOOLTIP_BG_COLOR "#ffffffff9191"
83 # define DFLT_TOOLTIP_FG_COLOR "#000000000000"
86 Widget vimShell
= (Widget
)0;
88 static Atom wm_atoms
[2]; /* Window Manager Atoms */
89 #define DELETE_WINDOW_IDX 0 /* index in wm_atoms[] for WM_DELETE_WINDOW */
90 #define SAVE_YOURSELF_IDX 1 /* index in wm_atoms[] for WM_SAVE_YOURSELF */
94 * We either draw with a fontset (when current_fontset != NULL) or with a
95 * normal font (current_fontset == NULL, use gui.text_gc and gui.back_gc).
97 static XFontSet current_fontset
= NULL
;
99 #define XDrawString(dpy, win, gc, x, y, str, n) \
102 if (current_fontset != NULL) \
103 XmbDrawString(dpy, win, current_fontset, gc, x, y, str, n); \
105 XDrawString(dpy, win, gc, x, y, str, n); \
108 #define XDrawString16(dpy, win, gc, x, y, str, n) \
111 if (current_fontset != NULL) \
112 XwcDrawString(dpy, win, current_fontset, gc, x, y, (wchar_t *)str, n); \
114 XDrawString16(dpy, win, gc, x, y, (XChar2b *)str, n); \
117 #define XDrawImageString16(dpy, win, gc, x, y, str, n) \
120 if (current_fontset != NULL) \
121 XwcDrawImageString(dpy, win, current_fontset, gc, x, y, (wchar_t *)str, n); \
123 XDrawImageString16(dpy, win, gc, x, y, (XChar2b *)str, n); \
126 static int check_fontset_sanity
__ARGS((XFontSet fs
));
127 static int fontset_width
__ARGS((XFontSet fs
));
128 static int fontset_ascent
__ARGS((XFontSet fs
));
131 static guicolor_T prev_fg_color
= INVALCOLOR
;
132 static guicolor_T prev_bg_color
= INVALCOLOR
;
133 static guicolor_T prev_sp_color
= INVALCOLOR
;
135 #if defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)
136 static XButtonPressedEvent last_mouse_event
;
139 static int find_closest_color
__ARGS((Colormap colormap
, XColor
*colorPtr
));
140 static void gui_x11_timer_cb
__ARGS((XtPointer timed_out
, XtIntervalId
*interval_id
));
141 static void gui_x11_visibility_cb
__ARGS((Widget w
, XtPointer dud
, XEvent
*event
, Boolean
*dum
));
142 static void gui_x11_expose_cb
__ARGS((Widget w
, XtPointer dud
, XEvent
*event
, Boolean
*dum
));
143 static void gui_x11_resize_window_cb
__ARGS((Widget w
, XtPointer dud
, XEvent
*event
, Boolean
*dum
));
144 static void gui_x11_focus_change_cb
__ARGS((Widget w
, XtPointer data
, XEvent
*event
, Boolean
*dum
));
145 static void gui_x11_enter_cb
__ARGS((Widget w
, XtPointer data
, XEvent
*event
, Boolean
*dum
));
146 static void gui_x11_leave_cb
__ARGS((Widget w
, XtPointer data
, XEvent
*event
, Boolean
*dum
));
147 static void gui_x11_mouse_cb
__ARGS((Widget w
, XtPointer data
, XEvent
*event
, Boolean
*dum
));
149 static void gui_x11_sniff_request_cb
__ARGS((XtPointer closure
, int *source
, XtInputId
*id
));
151 static void gui_x11_check_copy_area
__ARGS((void));
152 #ifdef FEAT_CLIENTSERVER
153 static void gui_x11_send_event_handler
__ARGS((Widget
, XtPointer
, XEvent
*, Boolean
*));
155 static void gui_x11_wm_protocol_handler
__ARGS((Widget
, XtPointer
, XEvent
*, Boolean
*));
156 static void gui_x11_blink_cb
__ARGS((XtPointer timed_out
, XtIntervalId
*interval_id
));
157 static Cursor gui_x11_create_blank_mouse
__ARGS((void));
158 static void draw_curl
__ARGS((int row
, int col
, int cells
));
162 * Keycodes recognized by vim.
163 * NOTE: when changing this, the table in gui_gtk_x11.c probably needs the
166 static struct specialkey
176 {XK_Right
, 'k', 'r'},
215 {XK_F35
, 'F', 'P'}, /* keysymdef.h defines up to F35 */
217 {SunXK_F36
, 'F', 'Q'},
218 {SunXK_F37
, 'F', 'R'},
223 {XK_BackSpace
, 'k', 'b'},
224 {XK_Insert
, 'k', 'I'},
225 {XK_Delete
, 'k', 'D'},
228 {XK_Prior
, 'k', 'P'},
230 {XK_Print
, '%', '9'},
234 {XK_KP_Left
, 'k', 'l'},
235 {XK_KP_Right
, 'k', 'r'},
236 {XK_KP_Up
, 'k', 'u'},
237 {XK_KP_Down
, 'k', 'd'},
238 {XK_KP_Insert
, KS_EXTRA
, (char_u
)KE_KINS
},
239 {XK_KP_Delete
, KS_EXTRA
, (char_u
)KE_KDEL
},
240 {XK_KP_Home
, 'K', '1'},
241 {XK_KP_End
, 'K', '4'},
242 {XK_KP_Prior
, 'K', '3'},
243 {XK_KP_Next
, 'K', '5'},
245 {XK_KP_Add
, 'K', '6'},
246 {XK_KP_Subtract
, 'K', '7'},
247 {XK_KP_Divide
, 'K', '8'},
248 {XK_KP_Multiply
, 'K', '9'},
249 {XK_KP_Enter
, 'K', 'A'},
250 {XK_KP_Decimal
, 'K', 'B'},
264 /* End of list marker: */
268 #define XtNboldFont "boldFont"
269 #define XtCBoldFont "BoldFont"
270 #define XtNitalicFont "italicFont"
271 #define XtCItalicFont "ItalicFont"
272 #define XtNboldItalicFont "boldItalicFont"
273 #define XtCBoldItalicFont "BoldItalicFont"
274 #define XtNscrollbarWidth "scrollbarWidth"
275 #define XtCScrollbarWidth "ScrollbarWidth"
276 #define XtNmenuHeight "menuHeight"
277 #define XtCMenuHeight "MenuHeight"
278 #define XtNmenuFont "menuFont"
279 #define XtCMenuFont "MenuFont"
280 #define XtNmenuFontSet "menuFontSet"
281 #define XtCMenuFontSet "MenuFontSet"
284 /* Resources for setting the foreground and background colors of menus */
285 #define XtNmenuBackground "menuBackground"
286 #define XtCMenuBackground "MenuBackground"
287 #define XtNmenuForeground "menuForeground"
288 #define XtCMenuForeground "MenuForeground"
290 /* Resources for setting the foreground and background colors of scrollbars */
291 #define XtNscrollBackground "scrollBackground"
292 #define XtCScrollBackground "ScrollBackground"
293 #define XtNscrollForeground "scrollForeground"
294 #define XtCScrollForeground "ScrollForeground"
296 /* Resources for setting the foreground and background colors of tooltip */
297 #define XtNtooltipBackground "tooltipBackground"
298 #define XtCTooltipBackground "TooltipBackground"
299 #define XtNtooltipForeground "tooltipForeground"
300 #define XtCTooltipForeground "TooltipForeground"
301 #define XtNtooltipFont "tooltipFont"
302 #define XtCTooltipFont "TooltipFont"
307 static XtResource vim_resources
[] =
314 XtOffsetOf(gui_T
, def_norm_pixel
),
323 XtOffsetOf(gui_T
, def_back_pixel
),
332 XtOffsetOf(gui_T
, rsrc_font_name
),
341 XtOffsetOf(gui_T
, rsrc_bold_font_name
),
350 XtOffsetOf(gui_T
, rsrc_ital_font_name
),
359 XtOffsetOf(gui_T
, rsrc_boldital_font_name
),
368 XtOffsetOf(gui_T
, geom
),
377 XtOffsetOf(gui_T
, rsrc_rev_video
),
386 XtOffsetOf(gui_T
, border_width
),
395 XtOffsetOf(gui_T
, scrollbar_width
),
397 (XtPointer
)SB_DEFAULT_WIDTH
400 # ifdef FEAT_GUI_ATHENA /* with Motif the height is always computed */
406 XtOffsetOf(gui_T
, menu_height
),
408 (XtPointer
)MENU_DEFAULT_HEIGHT
/* Should figure out at run time */
412 # ifdef FONTSET_ALWAYS
421 XtOffsetOf(gui_T
, rsrc_menu_font_name
),
431 XtOffsetOf(gui_T
, rsrc_menu_fg_name
),
440 XtOffsetOf(gui_T
, rsrc_menu_bg_name
),
449 XtOffsetOf(gui_T
, rsrc_scroll_fg_name
),
458 XtOffsetOf(gui_T
, rsrc_scroll_bg_name
),
464 XtNtooltipForeground
,
465 XtCTooltipForeground
,
468 XtOffsetOf(gui_T
, rsrc_tooltip_fg_name
),
470 DFLT_TOOLTIP_FG_COLOR
473 XtNtooltipBackground
,
474 XtCTooltipBackground
,
477 XtOffsetOf(gui_T
, rsrc_tooltip_bg_name
),
479 DFLT_TOOLTIP_BG_COLOR
486 XtOffsetOf(gui_T
, rsrc_tooltip_font_name
),
490 /* This one isn't really needed, keep for Sun Workshop? */
492 "balloonEvalFontSet",
496 XtOffsetOf(gui_T
, tooltip_fontset
),
500 #endif /* FEAT_BEVAL */
507 XtOffsetOf(gui_T
, rsrc_preedit_type_name
),
509 (XtPointer
)"OverTheSpot,OffTheSpot,Root"
516 XtOffsetOf(gui_T
, rsrc_input_method
),
520 #endif /* FEAT_XIM */
524 * This table holds all the X GUI command line options allowed. This includes
525 * the standard ones so that we can skip them when vim is started without the
526 * GUI (but the GUI might start up later).
527 * When changing this, also update doc/vim_gui.txt and the usage message!!!
529 static XrmOptionDescRec cmdline_options
[] =
531 /* We handle these options ourselves */
532 {"-bg", ".background", XrmoptionSepArg
, NULL
},
533 {"-background", ".background", XrmoptionSepArg
, NULL
},
534 {"-fg", ".foreground", XrmoptionSepArg
, NULL
},
535 {"-foreground", ".foreground", XrmoptionSepArg
, NULL
},
536 {"-fn", ".font", XrmoptionSepArg
, NULL
},
537 {"-font", ".font", XrmoptionSepArg
, NULL
},
538 {"-boldfont", ".boldFont", XrmoptionSepArg
, NULL
},
539 {"-italicfont", ".italicFont", XrmoptionSepArg
, NULL
},
540 {"-geom", ".geometry", XrmoptionSepArg
, NULL
},
541 {"-geometry", ".geometry", XrmoptionSepArg
, NULL
},
542 {"-reverse", "*reverseVideo", XrmoptionNoArg
, "True"},
543 {"-rv", "*reverseVideo", XrmoptionNoArg
, "True"},
544 {"+reverse", "*reverseVideo", XrmoptionNoArg
, "False"},
545 {"+rv", "*reverseVideo", XrmoptionNoArg
, "False"},
546 {"-display", ".display", XrmoptionSepArg
, NULL
},
547 {"-iconic", ".iconic", XrmoptionNoArg
, "True"},
548 {"-name", ".name", XrmoptionSepArg
, NULL
},
549 {"-bw", ".borderWidth", XrmoptionSepArg
, NULL
},
550 {"-borderwidth", ".borderWidth", XrmoptionSepArg
, NULL
},
551 {"-sw", ".scrollbarWidth", XrmoptionSepArg
, NULL
},
552 {"-scrollbarwidth", ".scrollbarWidth", XrmoptionSepArg
, NULL
},
553 {"-mh", ".menuHeight", XrmoptionSepArg
, NULL
},
554 {"-menuheight", ".menuHeight", XrmoptionSepArg
, NULL
},
555 #ifdef FONTSET_ALWAYS
556 {"-mf", ".menuFontSet", XrmoptionSepArg
, NULL
},
557 {"-menufont", ".menuFontSet", XrmoptionSepArg
, NULL
},
558 {"-menufontset", ".menuFontSet", XrmoptionSepArg
, NULL
},
560 {"-mf", ".menuFont", XrmoptionSepArg
, NULL
},
561 {"-menufont", ".menuFont", XrmoptionSepArg
, NULL
},
563 {"-xrm", NULL
, XrmoptionResArg
, NULL
}
566 static int gui_argc
= 0;
567 static char **gui_argv
= NULL
;
570 * Call-back routines.
575 gui_x11_timer_cb(timed_out
, interval_id
)
577 XtIntervalId
*interval_id
;
579 *((int *)timed_out
) = TRUE
;
584 gui_x11_visibility_cb(w
, dud
, event
, dum
)
590 if (event
->type
!= VisibilityNotify
)
593 gui
.visibility
= event
->xvisibility
.state
;
596 * When we do an XCopyArea(), and the window is partially obscured, we want
597 * to receive an event to tell us whether it worked or not.
599 XSetGraphicsExposures(gui
.dpy
, gui
.text_gc
,
600 gui
.visibility
!= VisibilityUnobscured
);
602 /* This is needed for when redrawing is slow. */
608 gui_x11_expose_cb(w
, dud
, event
, dum
)
614 XExposeEvent
*gevent
;
617 if (event
->type
!= Expose
)
620 out_flush(); /* make sure all output has been processed */
622 gevent
= (XExposeEvent
*)event
;
623 gui_redraw(gevent
->x
, gevent
->y
, gevent
->width
, gevent
->height
);
627 /* Clear the border areas if needed */
628 if (gevent
->x
< new_x
)
629 XClearArea(gui
.dpy
, gui
.wid
, 0, 0, new_x
, 0, False
);
630 if (gevent
->y
< FILL_Y(0))
631 XClearArea(gui
.dpy
, gui
.wid
, 0, 0, 0, FILL_Y(0), False
);
632 if (gevent
->x
> FILL_X(Columns
))
633 XClearArea(gui
.dpy
, gui
.wid
, FILL_X((int)Columns
), 0, 0, 0, False
);
634 if (gevent
->y
> FILL_Y(Rows
))
635 XClearArea(gui
.dpy
, gui
.wid
, 0, FILL_Y((int)Rows
), 0, 0, False
);
637 /* This is needed for when redrawing is slow. */
641 #if (defined(FEAT_NETBEANS_INTG) || defined(FEAT_SUN_WORKSHOP)) \
644 * This function fills in the XRectangle object with the current x,y
645 * coordinates and height, width so that an XtVaSetValues to the same shell of
646 * those resources will restore the window to its former position and
649 * Note: This function may fail, in which case the XRectangle will be
650 * unchanged. Be sure to have the XRectangle set with the proper values for a
651 * failed condition prior to calling this function.
654 shellRectangle(Widget shell
, XRectangle
*r
)
656 Window rootw
, shellw
, child
, parentw
;
660 unsigned int childrenCount
;
662 shellw
= XtWindow(shell
);
667 XQueryTree(XtDisplay(shell
), shellw
, &rootw
, &parentw
,
668 &children
, &childrenCount
);
670 if (parentw
== rootw
)
674 XGetWindowAttributes(XtDisplay(shell
), shellw
, &a
);
675 XTranslateCoordinates(XtDisplay(shell
), shellw
, a
.root
, 0, 0,
676 &absx
, &absy
, &child
);
679 XtVaGetValues(shell
, XmNheight
, &r
->height
, XmNwidth
, &r
->width
, NULL
);
685 gui_x11_resize_window_cb(w
, dud
, event
, dum
)
691 static int lastWidth
, lastHeight
;
693 if (event
->type
!= ConfigureNotify
)
696 if (event
->xconfigure
.width
!= lastWidth
697 || event
->xconfigure
.height
!= lastHeight
)
699 lastWidth
= event
->xconfigure
.width
;
700 lastHeight
= event
->xconfigure
.height
;
701 gui_resize_shell(event
->xconfigure
.width
, event
->xconfigure
.height
703 - xim_get_status_area_height()
707 #ifdef FEAT_SUN_WORKSHOP
708 if (usingSunWorkShop
)
712 shellRectangle(w
, &rec
);
713 workshop_frame_moved(rec
.x
, rec
.y
, rec
.width
, rec
.height
);
716 #ifdef FEAT_NETBEANS_INTG
721 shellRectangle(w
, &rec
);
722 netbeans_frame_moved(rec
.x
, rec
.y
);
732 gui_x11_focus_change_cb(w
, data
, event
, dum
)
738 gui_focus_change(event
->type
== FocusIn
);
743 gui_x11_enter_cb(w
, data
, event
, dum
)
749 gui_focus_change(TRUE
);
754 gui_x11_leave_cb(w
, data
, event
, dum
)
760 gui_focus_change(FALSE
);
763 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
764 # if X_HAVE_UTF8_STRING
765 # define USE_UTF8LOOKUP
771 gui_x11_key_hit_cb(w
, dud
, event
, dum
)
777 XKeyPressedEvent
*ev_press
;
780 char_u string_shortbuf
[256];
781 char_u
*string
= string_shortbuf
;
782 Boolean string_alloced
= False
;
785 char_u string
[4], string2
[3];
787 KeySym key_sym
, key_sym2
;
793 ev_press
= (XKeyPressedEvent
*)event
;
798 # ifdef USE_UTF8LOOKUP
799 /* XFree86 4.0.2 or newer: Be able to get UTF-8 characters even when
800 * the locale isn't utf-8. */
802 len
= Xutf8LookupString(xic
, ev_press
, (char *)string
,
803 sizeof(string_shortbuf
), &key_sym
, &status
);
806 len
= XmbLookupString(xic
, ev_press
, (char *)string
,
807 sizeof(string_shortbuf
), &key_sym
, &status
);
808 if (status
== XBufferOverflow
)
810 string
= (char_u
*)XtMalloc(len
+ 1);
811 string_alloced
= True
;
812 # ifdef USE_UTF8LOOKUP
813 /* XFree86 4.0.2 or newer: Be able to get UTF-8 characters even
814 * when the locale isn't utf-8. */
816 len
= Xutf8LookupString(xic
, ev_press
, (char *)string
,
817 len
, &key_sym
, &status
);
820 len
= XmbLookupString(xic
, ev_press
, (char *)string
,
821 len
, &key_sym
, &status
);
823 if (status
== XLookupNone
|| status
== XLookupChars
)
824 key_sym
= XK_VoidSymbol
;
827 /* Do conversion from 'termencoding' to 'encoding'. When using
828 * Xutf8LookupString() it has already been done. */
829 if (len
> 0 && input_conv
.vc_type
!= CONV_NONE
830 # ifdef USE_UTF8LOOKUP
835 int maxlen
= len
* 4 + 40; /* guessed */
836 char_u
*p
= (char_u
*)XtMalloc(maxlen
);
838 mch_memmove(p
, string
, len
);
840 XtFree((char *)string
);
842 string_alloced
= True
;
843 len
= convert_input(p
, len
, maxlen
);
847 /* Translate CSI to K_CSI, otherwise it could be recognized as the
848 * start of a special key. */
849 for (i
= 0; i
< len
; ++i
)
850 if (string
[i
] == CSI
)
852 char_u
*p
= (char_u
*)XtMalloc(len
+ 3);
854 mch_memmove(p
, string
, i
+ 1);
856 p
[i
+ 2] = (int)KE_CSI
;
857 mch_memmove(p
+ i
+ 3, string
+ i
+ 1, len
- i
);
859 XtFree((char *)string
);
861 string_alloced
= True
;
868 len
= XLookupString(ev_press
, (char *)string
, sizeof(string
),
873 * These keys have bogus lookup strings, and trapping them here is
874 * easier than trying to XRebindKeysym() on them with every possible
875 * combination of modifiers.
877 if (key_sym
== SunXK_F36
|| key_sym
== SunXK_F37
)
882 if ((key_sym
== XK_space
) && (ev_press
->state
& ShiftMask
))
884 hangul_input_state_toggle();
889 if (key_sym
== XK_space
)
890 string
[0] = ' '; /* Otherwise Ctrl-Space doesn't work */
893 * Only on some machines ^_ requires Ctrl+Shift+minus. For consistency,
894 * allow just Ctrl+minus too.
896 if (key_sym
== XK_minus
&& (ev_press
->state
& ControlMask
))
899 #ifdef XK_ISO_Left_Tab
900 /* why do we get XK_ISO_Left_Tab instead of XK_Tab for shift-tab? */
901 if (key_sym
== XK_ISO_Left_Tab
)
909 /* Check for Alt/Meta key (Mod1Mask), but not for a BS, DEL or character
910 * that already has the 8th bit set. And not when using a double-byte
911 * encoding, setting the 8th bit may make it the lead byte of a
912 * double-byte character. */
914 && (ev_press
->state
& Mod1Mask
)
915 && !(key_sym
== XK_BackSpace
|| key_sym
== XK_Delete
)
916 && (string
[0] & 0x80) == 0
922 #if defined(FEAT_MENU) && defined(FEAT_GUI_MOTIF)
923 /* Ignore ALT keys when they are used for the menu only */
924 if (gui
.menu_is_active
926 || (p_wak
[0] == 'm' && gui_is_menu_shortcut(string
[0]))))
930 * Before we set the 8th bit, check to make sure the user doesn't
931 * already have a mapping defined for this sequence. We determine this
932 * by checking to see if the input would be the same without the
934 * Don't do this for <S-M-Tab>, that should become K_S_TAB with ALT.
936 ev_press
->state
&= ~Mod1Mask
;
937 len2
= XLookupString(ev_press
, (char *)string2
, sizeof(string2
),
939 if (key_sym2
== XK_space
)
940 string2
[0] = ' '; /* Otherwise Meta-Ctrl-Space doesn't work */
942 && string
[0] == string2
[0]
943 && !(key_sym
== XK_Tab
&& (ev_press
->state
& ShiftMask
)))
947 if (enc_utf8
) /* convert to utf-8 */
949 string
[1] = string
[0] & 0xbf;
950 string
[0] = ((unsigned)string
[0] >> 6) + 0xc0;
951 if (string
[1] == CSI
)
953 string
[2] = KS_EXTRA
;
954 string
[3] = (int)KE_CSI
;
963 ev_press
->state
|= Mod1Mask
;
966 if (len
== 1 && string
[0] == CSI
)
968 string
[1] = KS_EXTRA
;
969 string
[2] = (int)KE_CSI
;
973 /* Check for special keys. Also do this when len == 1 (key has an ASCII
974 * value) to detect backspace, delete and keypad keys. */
975 if (len
== 0 || len
== 1)
977 for (i
= 0; special_keys
[i
].key_sym
!= (KeySym
)0; i
++)
979 if (special_keys
[i
].key_sym
== key_sym
)
982 string
[1] = special_keys
[i
].vim_code0
;
983 string
[2] = special_keys
[i
].vim_code1
;
990 /* Unrecognised key is ignored. */
994 /* Special keys (and a few others) may have modifiers. Also when using a
995 * double-byte encoding (can't set the 8th bit). */
996 if (len
== -3 || key_sym
== XK_space
|| key_sym
== XK_Tab
997 || key_sym
== XK_Return
|| key_sym
== XK_Linefeed
998 || key_sym
== XK_Escape
1000 || (enc_dbcs
&& len
== 1 && (ev_press
->state
& Mod1Mask
))
1005 if (ev_press
->state
& ShiftMask
)
1006 modifiers
|= MOD_MASK_SHIFT
;
1007 if (ev_press
->state
& ControlMask
)
1008 modifiers
|= MOD_MASK_CTRL
;
1009 if (ev_press
->state
& Mod1Mask
)
1010 modifiers
|= MOD_MASK_ALT
;
1011 if (ev_press
->state
& Mod4Mask
)
1012 modifiers
|= MOD_MASK_META
;
1015 * For some keys a shift modifier is translated into another key
1019 key
= TO_SPECIAL(string
[1], string
[2]);
1022 key
= simplify_key(key
, &modifiers
);
1025 if (IS_SPECIAL(key
))
1028 string
[1] = K_SECOND(key
);
1029 string
[2] = K_THIRD(key
);
1041 string2
[1] = KS_MODIFIER
;
1042 string2
[2] = modifiers
;
1043 add_to_input_buf(string2
, 3);
1047 if (len
== 1 && ((string
[0] == Ctrl_C
&& ctrl_c_interrupts
)
1049 || (intr_char
!= 0 && string
[0] == intr_char
)
1057 add_to_input_buf(string
, len
);
1060 * blank out the pointer if necessary
1063 gui_mch_mousehide(TRUE
);
1065 #if defined(FEAT_BEVAL_TIP)
1069 if ((be
= gui_mch_currently_showing_beval()) != NULL
)
1070 gui_mch_unpost_balloon(be
);
1074 {} /* some compilers need a statement here */
1077 XtFree((char *)string
);
1083 gui_x11_mouse_cb(w
, dud
, event
, dum
)
1089 static XtIntervalId timer
= (XtIntervalId
)0;
1090 static int timed_out
= TRUE
;
1093 int repeated_click
= FALSE
;
1096 int_u vim_modifiers
;
1098 if (event
->type
== MotionNotify
)
1100 /* Get the latest position, avoids lagging behind on a drag. */
1101 x
= event
->xmotion
.x
;
1102 y
= event
->xmotion
.y
;
1103 x_modifiers
= event
->xmotion
.state
;
1104 button
= (x_modifiers
& (Button1Mask
| Button2Mask
| Button3Mask
))
1108 * if our pointer is currently hidden, then we should show it.
1110 gui_mch_mousehide(FALSE
);
1112 if (button
!= MOUSE_DRAG
) /* just moving the rodent */
1115 if (dud
) /* moved in vimForm */
1116 y
-= gui
.menu_height
;
1118 gui_mouse_moved(x
, y
);
1124 x
= event
->xbutton
.x
;
1125 y
= event
->xbutton
.y
;
1126 if (event
->type
== ButtonPress
)
1128 /* Handle multiple clicks */
1131 XtRemoveTimeOut(timer
);
1132 repeated_click
= TRUE
;
1135 timer
= XtAppAddTimeOut(app_context
, (long_u
)p_mouset
,
1136 gui_x11_timer_cb
, &timed_out
);
1137 switch (event
->xbutton
.button
)
1139 case Button1
: button
= MOUSE_LEFT
; break;
1140 case Button2
: button
= MOUSE_MIDDLE
; break;
1141 case Button3
: button
= MOUSE_RIGHT
; break;
1142 case Button4
: button
= MOUSE_4
; break;
1143 case Button5
: button
= MOUSE_5
; break;
1145 return; /* Unknown button */
1148 else if (event
->type
== ButtonRelease
)
1149 button
= MOUSE_RELEASE
;
1151 return; /* Unknown mouse event type */
1153 x_modifiers
= event
->xbutton
.state
;
1154 #if defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)
1155 last_mouse_event
= event
->xbutton
;
1159 vim_modifiers
= 0x0;
1160 if (x_modifiers
& ShiftMask
)
1161 vim_modifiers
|= MOUSE_SHIFT
;
1162 if (x_modifiers
& ControlMask
)
1163 vim_modifiers
|= MOUSE_CTRL
;
1164 if (x_modifiers
& Mod1Mask
) /* Alt or Meta key */
1165 vim_modifiers
|= MOUSE_ALT
;
1167 gui_send_mouse_event(button
, x
, y
, repeated_click
, vim_modifiers
);
1173 gui_x11_sniff_request_cb(closure
, source
, id
)
1178 static char_u bytes
[3] = {CSI
, (int)KS_EXTRA
, (int)KE_SNIFF
};
1180 add_to_input_buf(bytes
, 3);
1185 * End of call-back routines
1189 * Parse the GUI related command-line arguments. Any arguments used are
1190 * deleted from argv, and *argc is decremented accordingly. This is called
1191 * when vim is started, whether or not the GUI has been started.
1194 gui_mch_prepare(argc
, argv
)
1202 * Move all the entries in argv which are relevant to X into gui_argv.
1205 gui_argv
= (char **)lalloc((long_u
)(*argc
* sizeof(char *)), FALSE
);
1206 if (gui_argv
== NULL
)
1208 gui_argv
[gui_argc
++] = argv
[0];
1212 /* Look for argv[arg] in cmdline_options[] table */
1213 for (i
= 0; i
< XtNumber(cmdline_options
); i
++)
1214 if (strcmp(argv
[arg
], cmdline_options
[i
].option
) == 0)
1217 if (i
< XtNumber(cmdline_options
))
1219 /* Remember finding "-rv" or "-reverse" */
1220 if (strcmp("-rv", argv
[arg
]) == 0
1221 || strcmp("-reverse", argv
[arg
]) == 0)
1222 found_reverse_arg
= TRUE
;
1223 else if ((strcmp("-fn", argv
[arg
]) == 0
1224 || strcmp("-font", argv
[arg
]) == 0)
1226 font_argument
= argv
[arg
+ 1];
1228 /* Found match in table, so move it into gui_argv */
1229 gui_argv
[gui_argc
++] = argv
[arg
];
1232 mch_memmove(&argv
[arg
], &argv
[arg
+ 1], (*argc
- arg
)
1234 if (cmdline_options
[i
].argKind
!= XrmoptionNoArg
)
1236 /* Move the options argument as well */
1237 gui_argv
[gui_argc
++] = argv
[arg
];
1239 mch_memmove(&argv
[arg
], &argv
[arg
+ 1], (*argc
- arg
)
1246 #ifdef FEAT_SUN_WORKSHOP
1247 if (strcmp("-ws", argv
[arg
]) == 0)
1251 gui
.dofork
= FALSE
; /* don't fork() when starting GUI */
1252 mch_memmove(&argv
[arg
], &argv
[arg
+ 1],
1253 (--*argc
- arg
) * sizeof(char *));
1256 wsdebug_wait(WT_ENV
| WT_WAIT
| WT_STOP
, "SPRO_GVIM_WAIT", 20);
1257 wsdebug_log_init("SPRO_GVIM_DEBUG", "SPRO_GVIM_DLEVEL");
1262 #ifdef FEAT_NETBEANS_INTG
1263 if (strncmp("-nb", argv
[arg
], 3) == 0)
1266 gui
.dofork
= FALSE
; /* don't fork() when starting GUI */
1267 netbeansArg
= argv
[arg
];
1268 mch_memmove(&argv
[arg
], &argv
[arg
+ 1],
1269 (--*argc
- arg
) * sizeof(char *));
1278 #ifndef XtSpecificationRelease
1279 # define CARDINAL (Cardinal *)
1281 # if XtSpecificationRelease == 4
1282 # define CARDINAL (Cardinal *)
1284 # define CARDINAL (int *)
1289 * Check if the GUI can be started. Called before gvimrc is sourced.
1290 * Return OK or FAIL.
1293 gui_mch_init_check()
1296 XtSetLanguageProc(NULL
, NULL
, NULL
);
1299 if (app_context
!= NULL
)
1300 gui
.dpy
= XtOpenDisplay(app_context
, 0, VIM_NAME
, VIM_CLASS
,
1301 cmdline_options
, XtNumber(cmdline_options
),
1302 CARDINAL
&gui_argc
, gui_argv
);
1304 if (app_context
== NULL
|| gui
.dpy
== NULL
)
1307 EMSG(_(e_opendisp
));
1316 * Handle XSMP processing, de-registering the attachment upon error
1318 static XtInputId _xsmp_xtinputid
;
1320 static void local_xsmp_handle_requests
__ARGS((XtPointer c
, int *s
, XtInputId
*i
));
1324 local_xsmp_handle_requests(c
, s
, i
)
1329 if (xsmp_handle_requests() == FAIL
)
1330 XtRemoveInput(_xsmp_xtinputid
);
1336 * Initialise the X GUI. Create all the windows, set up all the call-backs etc.
1337 * Returns OK for success, FAIL when the GUI can't be started.
1348 /* Uncomment this to enable synchronous mode for debugging */
1349 XSynchronize(gui
.dpy
, True
);
1352 vimShell
= XtVaAppCreateShell(VIM_NAME
, VIM_CLASS
,
1353 applicationShellWidgetClass
, gui
.dpy
, NULL
);
1356 * Get the application resources
1358 XtVaGetApplicationResources(vimShell
, (XtPointer
)&gui
,
1359 vim_resources
, XtNumber(vim_resources
), NULL
);
1361 gui
.scrollbar_height
= gui
.scrollbar_width
;
1364 * Get the colors ourselves. Using the automatic conversion doesn't
1365 * handle looking for approximate colors.
1367 /* NOTE: These next few lines are an exact duplicate of gui_athena.c's
1368 * gui_mch_def_colors(). Why?
1370 gui
.menu_fg_pixel
= gui_get_color((char_u
*)gui
.rsrc_menu_fg_name
);
1371 gui
.menu_bg_pixel
= gui_get_color((char_u
*)gui
.rsrc_menu_bg_name
);
1372 gui
.scroll_fg_pixel
= gui_get_color((char_u
*)gui
.rsrc_scroll_fg_name
);
1373 gui
.scroll_bg_pixel
= gui_get_color((char_u
*)gui
.rsrc_scroll_bg_name
);
1375 gui
.tooltip_fg_pixel
= gui_get_color((char_u
*)gui
.rsrc_tooltip_fg_name
);
1376 gui
.tooltip_bg_pixel
= gui_get_color((char_u
*)gui
.rsrc_tooltip_bg_name
);
1379 #if defined(FEAT_MENU) && defined(FEAT_GUI_ATHENA)
1380 /* If the menu height was set, don't change it at runtime */
1381 if (gui
.menu_height
!= MENU_DEFAULT_HEIGHT
)
1382 gui
.menu_height_fixed
= TRUE
;
1385 /* Set default foreground and background colours */
1386 gui
.norm_pixel
= gui
.def_norm_pixel
;
1387 gui
.back_pixel
= gui
.def_back_pixel
;
1389 /* Check if reverse video needs to be applied (on Sun it's done by X) */
1390 if (gui
.rsrc_rev_video
&& gui_get_lightness(gui
.back_pixel
)
1391 > gui_get_lightness(gui
.norm_pixel
))
1393 gui
.norm_pixel
= gui
.def_back_pixel
;
1394 gui
.back_pixel
= gui
.def_norm_pixel
;
1395 gui
.def_norm_pixel
= gui
.norm_pixel
;
1396 gui
.def_back_pixel
= gui
.back_pixel
;
1399 /* Get the colors from the "Normal", "Tooltip", "Scrollbar" and "Menu"
1400 * group (set in syntax.c or in a vimrc file) */
1401 set_normal_colors();
1404 * Check that none of the colors are the same as the background color
1409 * Set up the GCs. The font attributes will be set in gui_init_font().
1411 gc_mask
= GCForeground
| GCBackground
;
1412 gc_vals
.foreground
= gui
.norm_pixel
;
1413 gc_vals
.background
= gui
.back_pixel
;
1414 gui
.text_gc
= XtGetGC(vimShell
, gc_mask
, &gc_vals
);
1416 gc_vals
.foreground
= gui
.back_pixel
;
1417 gc_vals
.background
= gui
.norm_pixel
;
1418 gui
.back_gc
= XtGetGC(vimShell
, gc_mask
, &gc_vals
);
1420 gc_mask
|= GCFunction
;
1421 gc_vals
.foreground
= gui
.norm_pixel
^ gui
.back_pixel
;
1422 gc_vals
.background
= gui
.norm_pixel
^ gui
.back_pixel
;
1423 gc_vals
.function
= GXxor
;
1424 gui
.invert_gc
= XtGetGC(vimShell
, gc_mask
, &gc_vals
);
1426 gui
.visibility
= VisibilityUnobscured
;
1427 x11_setup_atoms(gui
.dpy
);
1429 if (gui_win_x
!= -1 && gui_win_y
!= -1)
1430 gui_mch_set_winpos(gui_win_x
, gui_win_y
);
1432 /* Now adapt the supplied(?) geometry-settings */
1433 /* Added by Kjetil Jacobsen <kjetilja@stud.cs.uit.no> */
1434 if (gui
.geom
!= NULL
&& *gui
.geom
!= NUL
)
1436 mask
= XParseGeometry((char *)gui
.geom
, &x
, &y
, &w
, &h
);
1437 if (mask
& WidthValue
)
1439 if (mask
& HeightValue
)
1441 if (p_window
> h
- 1 || !option_was_set((char_u
*)"window"))
1446 * Set the (x,y) position of the main window only if specified in the
1447 * users geometry, so we get good defaults when they don't. This needs
1448 * to be done before the shell is popped up.
1450 if (mask
& (XValue
|YValue
))
1451 XtVaSetValues(vimShell
, XtNgeometry
, gui
.geom
, NULL
);
1454 gui_x11_create_widgets();
1457 * Add an icon to Vim (Marcel Douben: 11 May 1998).
1459 if (vim_strchr(p_go
, GO_ICON
) != NULL
)
1462 # include "vim_icon.xbm"
1463 # include "vim_mask.xbm"
1467 XtSetArg(arg
[0], XtNiconPixmap
,
1468 XCreateBitmapFromData(gui
.dpy
,
1469 DefaultRootWindow(gui
.dpy
),
1470 (char *)vim_icon_bits
,
1473 XtSetArg(arg
[1], XtNiconMask
,
1474 XCreateBitmapFromData(gui
.dpy
,
1475 DefaultRootWindow(gui
.dpy
),
1476 (char *)vim_mask_icon_bits
,
1477 vim_mask_icon_width
,
1478 vim_mask_icon_height
));
1479 XtSetValues(vimShell
, arg
, (Cardinal
)2);
1481 /* Use Pixmaps, looking much nicer. */
1483 /* If you get an error message here, you still need to unpack the runtime
1488 # define magick vim32x32
1489 # include "../runtime/vim32x32.xpm"
1491 # define magick vim16x16
1492 # include "../runtime/vim16x16.xpm"
1494 # define magick vim48x48
1495 # include "../runtime/vim48x48.xpm"
1498 static Pixmap icon
= 0;
1499 static Pixmap icon_mask
= 0;
1500 static char **magick
= vim32x32
;
1510 * Adjust the icon to the preferences of the actual window manager.
1512 root_window
= XRootWindowOfScreen(XtScreen(vimShell
));
1513 if (XGetIconSizes(XtDisplay(vimShell
), root_window
,
1514 &size
, &number_sizes
) != 0)
1517 if (number_sizes
> 0)
1519 if (size
->max_height
>= 48 && size
->max_height
>= 48)
1521 else if (size
->max_height
>= 32 && size
->max_height
>= 32)
1523 else if (size
->max_height
>= 16 && size
->max_height
>= 16)
1528 dsp
= XtDisplay(vimShell
);
1529 scr
= XtScreen(vimShell
);
1531 cmap
= DefaultColormap(dsp
, DefaultScreen(dsp
));
1532 XtVaSetValues(vimShell
, XtNcolormap
, cmap
, NULL
);
1534 attr
.valuemask
= 0L;
1535 attr
.valuemask
= XpmCloseness
| XpmReturnPixels
| XpmColormap
| XpmDepth
;
1536 attr
.closeness
= 65535; /* accuracy isn't crucial */
1537 attr
.colormap
= cmap
;
1538 attr
.depth
= DefaultDepthOfScreen(scr
);
1542 XpmCreatePixmapFromData(dsp
, root_window
, magick
, &icon
,
1544 XpmFreeAttributes(&attr
);
1547 # ifdef FEAT_GUI_ATHENA
1548 XtVaSetValues(vimShell
, XtNiconPixmap
, icon
, XtNiconMask
, icon_mask
, NULL
);
1550 XtVaSetValues(vimShell
, XmNiconPixmap
, icon
, XmNiconMask
, icon_mask
, NULL
);
1555 if (gui
.color_approx
)
1556 EMSG(_("Vim E458: Cannot allocate colormap entry, some colors may be incorrect"));
1558 #ifdef FEAT_SUN_WORKSHOP
1559 if (usingSunWorkShop
)
1560 workshop_connect(app_context
);
1564 gui_init_tooltip_font();
1567 gui_init_menu_font();
1571 /* Attach listener on ICE connection */
1572 if (-1 != xsmp_icefd
)
1573 _xsmp_xtinputid
= XtAppAddInput(app_context
, xsmp_icefd
,
1574 (XtPointer
)XtInputReadMask
, local_xsmp_handle_requests
, NULL
);
1581 * Called when starting the GUI fails after calling gui_mch_init().
1586 gui_x11_destroy_widgets();
1587 XtCloseDisplay(gui
.dpy
);
1589 vimShell
= (Widget
)0;
1595 * Called when the foreground or background color has been changed.
1598 gui_mch_new_colors()
1603 gc_mask
= GCForeground
| GCBackground
;
1604 gc_vals
.foreground
= gui
.norm_pixel
;
1605 gc_vals
.background
= gui
.back_pixel
;
1606 if (gui
.text_gc
!= NULL
)
1607 XChangeGC(gui
.dpy
, gui
.text_gc
, gc_mask
, &gc_vals
);
1609 gc_vals
.foreground
= gui
.back_pixel
;
1610 gc_vals
.background
= gui
.norm_pixel
;
1611 if (gui
.back_gc
!= NULL
)
1612 XChangeGC(gui
.dpy
, gui
.back_gc
, gc_mask
, &gc_vals
);
1614 gc_mask
|= GCFunction
;
1615 gc_vals
.foreground
= gui
.norm_pixel
^ gui
.back_pixel
;
1616 gc_vals
.background
= gui
.norm_pixel
^ gui
.back_pixel
;
1617 gc_vals
.function
= GXxor
;
1618 if (gui
.invert_gc
!= NULL
)
1619 XChangeGC(gui
.dpy
, gui
.invert_gc
, gc_mask
, &gc_vals
);
1621 gui_x11_set_back_color();
1625 * Open the GUI window which was created by a call to gui_mch_init().
1630 /* Actually open the window */
1631 XtRealizeWidget(vimShell
);
1632 XtManageChild(XtNameToWidget(vimShell
, "*vimForm"));
1634 gui
.wid
= gui_x11_get_wid();
1635 gui
.blank_pointer
= gui_x11_create_blank_mouse();
1638 * Add a callback for the Close item on the window managers menu, and the
1639 * save-yourself event.
1641 wm_atoms
[SAVE_YOURSELF_IDX
] =
1642 XInternAtom(gui
.dpy
, "WM_SAVE_YOURSELF", False
);
1643 wm_atoms
[DELETE_WINDOW_IDX
] =
1644 XInternAtom(gui
.dpy
, "WM_DELETE_WINDOW", False
);
1645 XSetWMProtocols(gui
.dpy
, XtWindow(vimShell
), wm_atoms
, 2);
1646 XtAddEventHandler(vimShell
, NoEventMask
, True
, gui_x11_wm_protocol_handler
,
1648 #ifdef HAVE_X11_XMU_EDITRES_H
1650 * Enable editres protocol (see "man editres").
1651 * Usually will need to add -lXmu to the linker line as well.
1653 XtAddEventHandler(vimShell
, (EventMask
)0, True
, _XEditResCheckMessages
,
1657 #ifdef FEAT_CLIENTSERVER
1658 if (serverName
== NULL
&& serverDelayedStartName
!= NULL
)
1660 /* This is a :gui command in a plain vim with no previous server */
1661 commWindow
= XtWindow(vimShell
);
1662 (void)serverRegisterName(gui
.dpy
, serverDelayedStartName
);
1667 * Cannot handle "widget-less" windows with XtProcessEvent() we'll
1668 * have to change the "server" registration to that of the main window
1669 * If we have not registered a name yet, remember the window
1671 serverChangeRegisteredWindow(gui
.dpy
, XtWindow(vimShell
));
1673 XtAddEventHandler(vimShell
, PropertyChangeMask
, False
,
1674 gui_x11_send_event_handler
, NULL
);
1678 #if defined(FEAT_MENU) && defined(FEAT_GUI_ATHENA)
1679 /* The Athena GUI needs this again after opening the window */
1680 gui_position_menu();
1681 # ifdef FEAT_TOOLBAR
1682 gui_mch_set_toolbar_pos(0, gui
.menu_height
, gui
.menu_width
,
1683 gui
.toolbar_height
);
1687 /* Get the colors for the highlight groups (gui_check_colors() might have
1689 highlight_gui_started(); /* re-init colors and fonts */
1691 #ifdef FEAT_HANGULIN
1692 hangul_keyboard_set();
1697 #ifdef FEAT_SUN_WORKSHOP
1698 workshop_postinit();
1704 #if defined(FEAT_BEVAL) || defined(PROTO)
1706 * Convert the tooltip fontset name to an XFontSet.
1709 gui_init_tooltip_font()
1713 from
.addr
= (char *)gui
.rsrc_tooltip_font_name
;
1714 from
.size
= strlen(from
.addr
);
1715 to
.addr
= (XtPointer
)&gui
.tooltip_fontset
;
1716 to
.size
= sizeof(XFontSet
);
1718 if (XtConvertAndStore(vimShell
, XtRString
, &from
, XtRFontSet
, &to
) == False
)
1720 /* Failed. What to do? */
1725 #if defined(FEAT_MENU) || defined(PROTO)
1726 /* Convert the menu font/fontset name to an XFontStruct/XFontset */
1728 gui_init_menu_font()
1732 #ifdef FONTSET_ALWAYS
1733 from
.addr
= (char *)gui
.rsrc_menu_font_name
;
1734 from
.size
= strlen(from
.addr
);
1735 to
.addr
= (XtPointer
)&gui
.menu_fontset
;
1736 to
.size
= sizeof(GuiFontset
);
1738 if (XtConvertAndStore(vimShell
, XtRString
, &from
, XtRFontSet
, &to
) == False
)
1740 /* Failed. What to do? */
1743 from
.addr
= (char *)gui
.rsrc_menu_font_name
;
1744 from
.size
= strlen(from
.addr
);
1745 to
.addr
= (XtPointer
)&gui
.menu_font
;
1746 to
.size
= sizeof(GuiFont
);
1748 if (XtConvertAndStore(vimShell
, XtRString
, &from
, XtRFontStruct
, &to
) == False
)
1750 /* Failed. What to do? */
1762 /* Lesstif gives an error message here, and so does Solaris. The man page
1763 * says that this isn't needed when exiting, so just skip it. */
1764 XtCloseDisplay(gui
.dpy
);
1771 * Get the position of the top left corner of the window.
1774 gui_mch_get_winpos(x
, y
)
1777 Dimension xpos
, ypos
;
1779 XtVaGetValues(vimShell
,
1789 * Set the position of the top left corner of the window to the given
1793 gui_mch_set_winpos(x
, y
)
1796 XtVaSetValues(vimShell
,
1804 gui_mch_set_shellsize(width
, height
, min_width
, min_height
,
1805 base_width
, base_height
, direction
)
1815 height
+= xim_get_status_area_height(),
1817 XtVaSetValues(vimShell
,
1818 XtNwidthInc
, gui
.char_width
,
1819 XtNheightInc
, gui
.char_height
,
1820 #if defined(XtSpecificationRelease) && XtSpecificationRelease >= 4
1821 XtNbaseWidth
, base_width
,
1822 XtNbaseHeight
, base_height
,
1824 XtNminWidth
, min_width
,
1825 XtNminHeight
, min_height
,
1832 * Allow 10 pixels for horizontal borders, 'guiheadroom' for vertical borders.
1833 * Is there no way in X to find out how wide the borders really are?
1836 gui_mch_get_screen_dimensions(screen_w
, screen_h
)
1840 *screen_w
= DisplayWidth(gui
.dpy
, DefaultScreen(gui
.dpy
)) - 10;
1841 *screen_h
= DisplayHeight(gui
.dpy
, DefaultScreen(gui
.dpy
)) - p_ghr
;
1845 * Initialise vim to use the font "font_name". If it's NULL, pick a default
1847 * If "fontset" is TRUE, load the "font_name" as a fontset.
1848 * Return FAIL if the font could not be loaded, OK otherwise.
1852 gui_mch_init_font(font_name
, do_fontset
)
1856 XFontStruct
*font
= NULL
;
1858 #ifdef FEAT_XFONTSET
1859 XFontSet fontset
= NULL
;
1862 #ifdef FEAT_GUI_MOTIF
1863 /* A font name equal "*" is indicating, that we should activate the font
1864 * selection dialogue to get a new font name. So let us do it here. */
1865 if (font_name
!= NULL
&& STRCMP(font_name
, "*") == 0)
1866 font_name
= gui_xm_select_font(hl_get_font_name());
1869 #ifdef FEAT_XFONTSET
1872 /* If 'guifontset' is set, VIM treats all font specifications as if
1873 * they were fontsets, and 'guifontset' becomes the default. */
1874 if (font_name
!= NULL
)
1876 fontset
= (XFontSet
)gui_mch_get_fontset(font_name
, FALSE
, TRUE
);
1877 if (fontset
== NULL
)
1884 if (font_name
== NULL
)
1887 * If none of the fonts in 'font' could be loaded, try the one set
1888 * in the X resource, and finally just try using DFLT_FONT, which
1889 * will hopefully always be there.
1891 font_name
= gui
.rsrc_font_name
;
1892 font
= (XFontStruct
*)gui_mch_get_font(font_name
, FALSE
);
1894 font_name
= (char_u
*)DFLT_FONT
;
1897 font
= (XFontStruct
*)gui_mch_get_font(font_name
, FALSE
);
1902 gui_mch_free_font(gui
.norm_font
);
1903 #ifdef FEAT_XFONTSET
1904 gui_mch_free_fontset(gui
.fontset
);
1906 if (fontset
!= NULL
)
1908 gui
.norm_font
= NOFONT
;
1909 gui
.fontset
= (GuiFontset
)fontset
;
1910 gui
.char_width
= fontset_width(fontset
);
1911 gui
.char_height
= fontset_height(fontset
) + p_linespace
;
1912 gui
.char_ascent
= fontset_ascent(fontset
) + p_linespace
/ 2;
1917 gui
.norm_font
= (GuiFont
)font
;
1918 #ifdef FEAT_XFONTSET
1919 gui
.fontset
= NOFONTSET
;
1921 gui
.char_width
= font
->max_bounds
.width
;
1922 gui
.char_height
= font
->ascent
+ font
->descent
+ p_linespace
;
1923 gui
.char_ascent
= font
->ascent
+ p_linespace
/ 2;
1926 hl_set_font_name(font_name
);
1929 * Try to load other fonts for bold, italic, and bold-italic.
1930 * We should also try to work out what font to use for these when they are
1931 * not specified by X resources, but we don't yet.
1933 if (font_name
== gui
.rsrc_font_name
)
1935 if (gui
.bold_font
== NOFONT
1936 && gui
.rsrc_bold_font_name
!= NULL
1937 && *gui
.rsrc_bold_font_name
!= NUL
)
1938 gui
.bold_font
= gui_mch_get_font(gui
.rsrc_bold_font_name
, FALSE
);
1939 if (gui
.ital_font
== NOFONT
1940 && gui
.rsrc_ital_font_name
!= NULL
1941 && *gui
.rsrc_ital_font_name
!= NUL
)
1942 gui
.ital_font
= gui_mch_get_font(gui
.rsrc_ital_font_name
, FALSE
);
1943 if (gui
.boldital_font
== NOFONT
1944 && gui
.rsrc_boldital_font_name
!= NULL
1945 && *gui
.rsrc_boldital_font_name
!= NUL
)
1946 gui
.boldital_font
= gui_mch_get_font(gui
.rsrc_boldital_font_name
,
1951 /* When not using the font specified by the resources, also don't use
1952 * the bold/italic fonts, otherwise setting 'guifont' will look very
1954 if (gui
.bold_font
!= NOFONT
)
1956 XFreeFont(gui
.dpy
, (XFontStruct
*)gui
.bold_font
);
1957 gui
.bold_font
= NOFONT
;
1959 if (gui
.ital_font
!= NOFONT
)
1961 XFreeFont(gui
.dpy
, (XFontStruct
*)gui
.ital_font
);
1962 gui
.ital_font
= NOFONT
;
1964 if (gui
.boldital_font
!= NOFONT
)
1966 XFreeFont(gui
.dpy
, (XFontStruct
*)gui
.boldital_font
);
1967 gui
.boldital_font
= NOFONT
;
1971 #ifdef FEAT_GUI_MOTIF
1972 gui_motif_synch_fonts();
1979 * Get a font structure for highlighting.
1982 gui_mch_get_font(name
, giveErrorIfMissing
)
1984 int giveErrorIfMissing
;
1988 if (!gui
.in_use
|| name
== NULL
) /* can't do this when GUI not running */
1991 font
= XLoadQueryFont(gui
.dpy
, (char *)name
);
1995 if (giveErrorIfMissing
)
1996 EMSG2(_(e_font
), name
);
2001 printf("Font Information for '%s':\n", name
);
2002 printf(" w = %d, h = %d, ascent = %d, descent = %d\n",
2003 font
->max_bounds
.width
, font
->ascent
+ font
->descent
,
2004 font
->ascent
, font
->descent
);
2005 printf(" max ascent = %d, max descent = %d, max h = %d\n",
2006 font
->max_bounds
.ascent
, font
->max_bounds
.descent
,
2007 font
->max_bounds
.ascent
+ font
->max_bounds
.descent
);
2008 printf(" min lbearing = %d, min rbearing = %d\n",
2009 font
->min_bounds
.lbearing
, font
->min_bounds
.rbearing
);
2010 printf(" max lbearing = %d, max rbearing = %d\n",
2011 font
->max_bounds
.lbearing
, font
->max_bounds
.rbearing
);
2012 printf(" leftink = %d, rightink = %d\n",
2013 (font
->min_bounds
.lbearing
< 0),
2014 (font
->max_bounds
.rbearing
> font
->max_bounds
.width
));
2018 if (font
->max_bounds
.width
!= font
->min_bounds
.width
)
2020 EMSG2(_(e_fontwidth
), name
);
2021 XFreeFont(gui
.dpy
, font
);
2024 return (GuiFont
)font
;
2027 #if defined(FEAT_EVAL) || defined(PROTO)
2029 * Return the name of font "font" in allocated memory.
2030 * Don't know how to get the actual name, thus use the provided name.
2034 gui_mch_get_fontname(font
, name
)
2040 return vim_strsave(name
);
2045 * Adjust gui.char_height (after 'linespace' was changed).
2048 gui_mch_adjust_charheight()
2050 #ifdef FEAT_XFONTSET
2051 if (gui
.fontset
!= NOFONTSET
)
2053 gui
.char_height
= fontset_height((XFontSet
)gui
.fontset
) + p_linespace
;
2054 gui
.char_ascent
= fontset_ascent((XFontSet
)gui
.fontset
)
2060 XFontStruct
*font
= (XFontStruct
*)gui
.norm_font
;
2062 gui
.char_height
= font
->ascent
+ font
->descent
+ p_linespace
;
2063 gui
.char_ascent
= font
->ascent
+ p_linespace
/ 2;
2069 * Set the current text font.
2072 gui_mch_set_font(font
)
2075 static Font prev_font
= (Font
)-1;
2076 Font fid
= ((XFontStruct
*)font
)->fid
;
2078 if (fid
!= prev_font
)
2080 XSetFont(gui
.dpy
, gui
.text_gc
, fid
);
2081 XSetFont(gui
.dpy
, gui
.back_gc
, fid
);
2083 gui
.char_ascent
= ((XFontStruct
*)font
)->ascent
+ p_linespace
/ 2;
2085 #ifdef FEAT_XFONTSET
2086 current_fontset
= (XFontSet
)NULL
;
2090 #if defined(FEAT_XFONTSET) || defined(PROTO)
2092 * Set the current text fontset.
2093 * Adjust the ascent, in case it's different.
2096 gui_mch_set_fontset(fontset
)
2099 current_fontset
= (XFontSet
)fontset
;
2100 gui
.char_ascent
= fontset_ascent(current_fontset
) + p_linespace
/ 2;
2105 * If a font is not going to be used, free its structure.
2108 gui_mch_free_font(font
)
2112 XFreeFont(gui
.dpy
, (XFontStruct
*)font
);
2115 #if defined(FEAT_XFONTSET) || defined(PROTO)
2117 * If a fontset is not going to be used, free its structure.
2120 gui_mch_free_fontset(fontset
)
2123 if (fontset
!= NOFONTSET
)
2124 XFreeFontSet(gui
.dpy
, (XFontSet
)fontset
);
2128 * Load the fontset "name".
2129 * Return a reference to the fontset, or NOFONTSET when failing.
2132 gui_mch_get_fontset(name
, giveErrorIfMissing
, fixed_width
)
2134 int giveErrorIfMissing
;
2138 char **missing
, *def_str
;
2141 if (!gui
.in_use
|| name
== NULL
)
2144 fontset
= XCreateFontSet(gui
.dpy
, (char *)name
, &missing
, &num_missing
,
2146 if (num_missing
> 0)
2150 if (giveErrorIfMissing
)
2152 EMSG2(_("E250: Fonts for the following charsets are missing in fontset %s:"), name
);
2153 for (i
= 0; i
< num_missing
; i
++)
2154 EMSG2("%s", missing
[i
]);
2156 XFreeStringList(missing
);
2159 if (fontset
== NULL
)
2161 if (giveErrorIfMissing
)
2162 EMSG2(_(e_fontset
), name
);
2166 if (fixed_width
&& check_fontset_sanity(fontset
) == FAIL
)
2168 XFreeFontSet(gui
.dpy
, fontset
);
2171 return (GuiFontset
)fontset
;
2175 * Check if fontset "fs" is fixed width.
2178 check_fontset_sanity(fs
)
2187 int min_font_idx
= 0;
2189 base_name
= XBaseFontNameListOfFontSet(fs
);
2190 fn
= XFontsOfFontSet(fs
, &xfs
, &font_name
);
2191 for (i
= 0; i
< fn
; i
++)
2193 if (xfs
[i
]->max_bounds
.width
!= xfs
[i
]->min_bounds
.width
)
2195 EMSG2(_("E252: Fontset name: %s"), base_name
);
2196 EMSG2(_("Font '%s' is not fixed-width"), font_name
[i
]);
2200 /* scan base font width */
2202 for (i
= 0; i
< fn
; i
++)
2204 if (xfs
[i
]->max_bounds
.width
<min_width
)
2206 min_width
= xfs
[i
]->max_bounds
.width
;
2210 for (i
= 0; i
< fn
; i
++)
2212 if ( xfs
[i
]->max_bounds
.width
!= 2 * min_width
2213 && xfs
[i
]->max_bounds
.width
!= min_width
)
2215 EMSG2(_("E253: Fontset name: %s\n"), base_name
);
2216 EMSG2(_("Font0: %s\n"), font_name
[min_font_idx
]);
2217 EMSG2(_("Font1: %s\n"), font_name
[i
]);
2218 EMSGN(_("Font%ld width is not twice that of font0\n"), i
);
2219 EMSGN(_("Font0 width: %ld\n"), xfs
[min_font_idx
]->max_bounds
.width
);
2220 EMSGN(_("Font1 width: %ld\n\n"), xfs
[i
]->max_bounds
.width
);
2224 /* it seems ok. Good Luck!! */
2232 return XmbTextEscapement(fs
, "Vim", 3) / 3;
2239 XFontSetExtents
*extents
;
2241 extents
= XExtentsOfFontSet(fs
);
2242 return extents
->max_logical_extent
.height
;
2245 #if (defined(FONTSET_ALWAYS) && defined(FEAT_GUI_ATHENA) \
2246 && defined(FEAT_MENU)) || defined(PROTO)
2248 * Returns the bounding box height around the actual glyph image of all
2249 * characters in all fonts of the fontset.
2255 XFontSetExtents
*extents
;
2257 extents
= XExtentsOfFontSet(fs
);
2258 return extents
->max_ink_extent
.height
;
2267 XFontSetExtents *extents;
2269 extents = XExtentsOfFontSet (fs);
2270 return extents->max_logical_extent.height + extents->max_logical_extent.y;
2278 XFontSetExtents
*extents
;
2280 extents
= XExtentsOfFontSet(fs
);
2281 return -extents
->max_logical_extent
.y
;
2284 #endif /* FEAT_XFONTSET */
2287 * Return the Pixel value (color) for the given color name.
2288 * Return INVALCOLOR for error.
2291 gui_mch_get_color(reqname
)
2295 char_u
*name
= reqname
;
2298 static char *(vimnames
[][2]) =
2300 /* A number of colors that some X11 systems don't have */
2301 {"LightRed", "#FFBBBB"},
2302 {"LightGreen", "#88FF88"},
2303 {"LightMagenta","#FFBBFF"},
2304 {"DarkCyan", "#008888"},
2305 {"DarkBlue", "#0000BB"},
2306 {"DarkRed", "#BB0000"},
2307 {"DarkMagenta", "#BB00BB"},
2308 {"DarkGrey", "#BBBBBB"},
2309 {"DarkYellow", "#BBBB00"},
2310 {"Gray10", "#1A1A1A"},
2311 {"Grey10", "#1A1A1A"},
2312 {"Gray20", "#333333"},
2313 {"Grey20", "#333333"},
2314 {"Gray30", "#4D4D4D"},
2315 {"Grey30", "#4D4D4D"},
2316 {"Gray40", "#666666"},
2317 {"Grey40", "#666666"},
2318 {"Gray50", "#7F7F7F"},
2319 {"Grey50", "#7F7F7F"},
2320 {"Gray60", "#999999"},
2321 {"Grey60", "#999999"},
2322 {"Gray70", "#B3B3B3"},
2323 {"Grey70", "#B3B3B3"},
2324 {"Gray80", "#CCCCCC"},
2325 {"Grey80", "#CCCCCC"},
2326 {"Gray90", "#E5E5E5"},
2327 {"Grey90", "#E5E5E5"},
2331 /* can't do this when GUI not running */
2332 if (!gui
.in_use
|| *reqname
== NUL
)
2335 colormap
= DefaultColormap(gui
.dpy
, XDefaultScreen(gui
.dpy
));
2337 /* Do this twice if the name isn't recognized. */
2338 while (name
!= NULL
)
2340 i
= XParseColor(gui
.dpy
, colormap
, (char *)name
, &color
);
2342 #if defined(HAVE_LOCALE_H) || defined(X_LOCALE)
2347 /* The X11 system is trying to resolve named colors only by names
2348 * corresponding to the current locale language. But Vim scripts
2349 * usually contain the English color names. Therefore we have to
2350 * try a second time here with the native "C" locale set.
2351 * Hopefully, restoring the old locale this way works on all
2354 old
= setlocale(LC_ALL
, NULL
);
2355 if (old
!= NULL
&& STRCMP(old
, "C") != 0)
2357 old
= (char *)vim_strsave((char_u
*)old
);
2358 setlocale(LC_ALL
, "C");
2359 i
= XParseColor(gui
.dpy
, colormap
, (char *)name
, &color
);
2360 setlocale(LC_ALL
, old
);
2365 if (i
!= 0 && (XAllocColor(gui
.dpy
, colormap
, &color
) != 0
2366 || find_closest_color(colormap
, &color
) == OK
))
2367 return (guicolor_T
)color
.pixel
;
2369 /* check for a few builtin names */
2372 if (vimnames
[i
][0] == NULL
)
2377 if (STRICMP(name
, vimnames
[i
][0]) == 0)
2379 name
= (char_u
*)vimnames
[i
][1];
2389 * Find closest color for "colorPtr" in "colormap". set "colorPtr" to the
2391 * Based on a similar function in TCL.
2392 * Return FAIL if not able to find or allocate a color.
2395 find_closest_color(colormap
, colorPtr
)
2399 double tmp
, distance
, closestDistance
;
2400 int i
, closest
, numFound
, cmap_size
;
2402 XVisualInfo
template, *visInfoPtr
;
2404 template.visualid
= XVisualIDFromVisual(DefaultVisual(gui
.dpy
,
2405 XDefaultScreen(gui
.dpy
)));
2406 visInfoPtr
= XGetVisualInfo(gui
.dpy
, (long)VisualIDMask
,
2407 &template, &numFound
);
2409 /* FindClosestColor couldn't lookup visual */
2412 cmap_size
= visInfoPtr
->colormap_size
;
2413 XFree((char *)visInfoPtr
);
2414 colortable
= (XColor
*)alloc((unsigned)(cmap_size
* sizeof(XColor
)));
2416 return FAIL
; /* out of memory */
2418 for (i
= 0; i
< cmap_size
; i
++)
2419 colortable
[i
].pixel
= (unsigned long)i
;
2420 XQueryColors (gui
.dpy
, colormap
, colortable
, cmap_size
);
2423 * Find the color that best approximates the desired one, then
2424 * try to allocate that color. If that fails, it must mean that
2425 * the color was read-write (so we can't use it, since it's owner
2426 * might change it) or else it was already freed. Try again,
2427 * over and over again, until something succeeds.
2429 closestDistance
= 1e30
;
2431 for (i
= 0; i
< cmap_size
; i
++)
2434 * Use Euclidean distance in RGB space, weighted by Y (of YIQ)
2435 * as the objective function; this accounts for differences
2436 * in the color sensitivity of the eye.
2438 tmp
= .30 * (((int)colorPtr
->red
) - (int)colortable
[i
].red
);
2439 distance
= tmp
* tmp
;
2440 tmp
= .61 * (((int)colorPtr
->green
) - (int)colortable
[i
].green
);
2441 distance
+= tmp
* tmp
;
2442 tmp
= .11 * (((int)colorPtr
->blue
) - (int)colortable
[i
].blue
);
2443 distance
+= tmp
* tmp
;
2444 if (distance
< closestDistance
)
2447 closestDistance
= distance
;
2451 if (XAllocColor(gui
.dpy
, colormap
, &colortable
[closest
]) != 0)
2453 gui
.color_approx
= TRUE
;
2454 *colorPtr
= colortable
[closest
];
2457 vim_free(colortable
);
2462 * Set the current text foreground color.
2465 gui_mch_set_fg_color(color
)
2468 if (color
!= prev_fg_color
)
2470 XSetForeground(gui
.dpy
, gui
.text_gc
, (Pixel
)color
);
2471 prev_fg_color
= color
;
2476 * Set the current text background color.
2479 gui_mch_set_bg_color(color
)
2482 if (color
!= prev_bg_color
)
2484 XSetBackground(gui
.dpy
, gui
.text_gc
, (Pixel
)color
);
2485 prev_bg_color
= color
;
2490 * Set the current text special color.
2493 gui_mch_set_sp_color(color
)
2496 prev_sp_color
= color
;
2500 * create a mouse pointer that is blank
2503 gui_x11_create_blank_mouse()
2505 Pixmap blank_pixmap
= XCreatePixmap(gui
.dpy
, gui
.wid
, 1, 1, 1);
2506 GC gc
= XCreateGC(gui
.dpy
, blank_pixmap
, (unsigned long)0, (XGCValues
*)0);
2507 XDrawPoint(gui
.dpy
, blank_pixmap
, gc
, 0, 0);
2508 XFreeGC(gui
.dpy
, gc
);
2509 return XCreatePixmapCursor(gui
.dpy
, blank_pixmap
, blank_pixmap
,
2510 (XColor
*)&gui
.norm_pixel
, (XColor
*)&gui
.norm_pixel
, 0, 0);
2514 * Draw a curled line at the bottom of the character cell.
2517 draw_curl(row
, col
, cells
)
2524 const static int val
[8] = {1, 0, 0, 0, 1, 2, 2, 2 };
2526 XSetForeground(gui
.dpy
, gui
.text_gc
, prev_sp_color
);
2527 for (i
= FILL_X(col
); i
< FILL_X(col
+ cells
); ++i
)
2529 offset
= val
[i
% 8];
2530 XDrawPoint(gui
.dpy
, gui
.wid
, gui
.text_gc
, i
,
2531 FILL_Y(row
+ 1) - 1 - offset
);
2533 XSetForeground(gui
.dpy
, gui
.text_gc
, prev_fg_color
);
2537 gui_mch_draw_string(row
, col
, s
, len
, flags
)
2546 static void *buf
= NULL
;
2547 static int buflen
= 0;
2554 /* Convert UTF-8 byte sequence to 16 bit characters for the X
2555 * functions. Need a buffer for the 16 bit characters. Keep it
2556 * between calls, because allocating it each time is slow. */
2559 XtFree((char *)buf
);
2560 buf
= (void *)XtMalloc(len
* (sizeof(XChar2b
) < sizeof(wchar_t)
2561 ? sizeof(wchar_t) : sizeof(XChar2b
)));
2568 c
= utf_ptr2char(p
);
2569 # ifdef FEAT_XFONTSET
2570 if (current_fontset
!= NULL
)
2572 if (c
>= 0x10000 && sizeof(wchar_t) <= 2)
2573 c
= 0xbf; /* show chars > 0xffff as ? */
2574 ((wchar_t *)buf
)[wlen
] = c
;
2580 c
= 0xbf; /* show chars > 0xffff as ? */
2581 ((XChar2b
*)buf
)[wlen
].byte1
= (unsigned)c
>> 8;
2582 ((XChar2b
*)buf
)[wlen
].byte2
= c
;
2585 cells
+= utf_char2cells(c
);
2586 p
+= utf_ptr2len(p
);
2592 for (p
= s
; p
< s
+ len
; )
2594 cells
+= ptr2cells(p
);
2595 p
+= (*mb_ptr2len
)(p
);
2601 #ifdef FEAT_XFONTSET
2602 if (current_fontset
!= NULL
)
2604 /* Setup a clip rectangle to avoid spilling over in the next or
2605 * previous line. This is apparently needed for some fonts which are
2606 * used in a fontset. */
2611 clip
.height
= gui
.char_height
;
2612 clip
.width
= gui
.char_width
* cells
+ 1;
2613 XSetClipRectangles(gui
.dpy
, gui
.text_gc
, FILL_X(col
), FILL_Y(row
),
2614 &clip
, 1, Unsorted
);
2618 if (flags
& DRAW_TRANSP
)
2622 XDrawString16(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2623 TEXT_Y(row
), buf
, wlen
);
2626 XDrawString(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2627 TEXT_Y(row
), (char *)s
, len
);
2629 else if (p_linespace
!= 0
2630 #ifdef FEAT_XFONTSET
2631 || current_fontset
!= NULL
2635 XSetForeground(gui
.dpy
, gui
.text_gc
, prev_bg_color
);
2636 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.text_gc
, FILL_X(col
),
2637 FILL_Y(row
), gui
.char_width
* cells
, gui
.char_height
);
2638 XSetForeground(gui
.dpy
, gui
.text_gc
, prev_fg_color
);
2642 XDrawString16(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2643 TEXT_Y(row
), buf
, wlen
);
2646 XDrawString(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2647 TEXT_Y(row
), (char *)s
, len
);
2651 /* XmbDrawImageString has bug, don't use it for fontset. */
2654 XDrawImageString16(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2655 TEXT_Y(row
), buf
, wlen
);
2658 XDrawImageString(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
),
2659 TEXT_Y(row
), (char *)s
, len
);
2662 /* Bold trick: draw the text again with a one-pixel offset. */
2663 if (flags
& DRAW_BOLD
)
2667 XDrawString16(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
) + 1,
2668 TEXT_Y(row
), buf
, wlen
);
2671 XDrawString(gui
.dpy
, gui
.wid
, gui
.text_gc
, TEXT_X(col
) + 1,
2672 TEXT_Y(row
), (char *)s
, len
);
2675 /* Undercurl: draw curl at the bottom of the character cell. */
2676 if (flags
& DRAW_UNDERC
)
2677 draw_curl(row
, col
, cells
);
2679 /* Underline: draw a line at the bottom of the character cell. */
2680 if (flags
& DRAW_UNDERL
)
2682 int y
= FILL_Y(row
+ 1) - 1;
2684 /* When p_linespace is 0, overwrite the bottom row of pixels.
2685 * Otherwise put the line just below the character. */
2686 if (p_linespace
> 1)
2687 y
-= p_linespace
- 1;
2688 XDrawLine(gui
.dpy
, gui
.wid
, gui
.text_gc
, FILL_X(col
),
2689 y
, FILL_X(col
+ cells
) - 1, y
);
2692 #ifdef FEAT_XFONTSET
2693 if (current_fontset
!= NULL
)
2694 XSetClipMask(gui
.dpy
, gui
.text_gc
, None
);
2699 * Return OK if the key with the termcap name "name" is supported.
2702 gui_mch_haskey(name
)
2707 for (i
= 0; special_keys
[i
].key_sym
!= (KeySym
)0; i
++)
2708 if (name
[0] == special_keys
[i
].vim_code0
&&
2709 name
[1] == special_keys
[i
].vim_code1
)
2715 * Return the text window-id and display. Only required for X-based GUI's
2718 gui_get_x11_windis(win
, dis
)
2722 *win
= XtWindow(vimShell
);
2737 /* Do a visual beep by reversing the foreground and background colors */
2738 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.invert_gc
, 0, 0,
2739 FILL_X((int)Columns
) + gui
.border_offset
,
2740 FILL_Y((int)Rows
) + gui
.border_offset
);
2741 XSync(gui
.dpy
, False
);
2742 ui_delay((long)msec
, TRUE
); /* wait for a few msec */
2743 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.invert_gc
, 0, 0,
2744 FILL_X((int)Columns
) + gui
.border_offset
,
2745 FILL_Y((int)Rows
) + gui
.border_offset
);
2749 * Invert a rectangle from row r, column c, for nr rows and nc columns.
2752 gui_mch_invert_rectangle(r
, c
, nr
, nc
)
2758 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.invert_gc
,
2759 FILL_X(c
), FILL_Y(r
), (nc
) * gui
.char_width
, (nr
) * gui
.char_height
);
2763 * Iconify the GUI window.
2768 XIconifyWindow(gui
.dpy
, XtWindow(vimShell
), DefaultScreen(gui
.dpy
));
2771 #if defined(FEAT_EVAL) || defined(PROTO)
2773 * Bring the Vim window to the foreground.
2776 gui_mch_set_foreground()
2778 XMapRaised(gui
.dpy
, XtWindow(vimShell
));
2783 * Draw a cursor without focus.
2786 gui_mch_draw_hollow_cursor(color
)
2792 if (mb_lefthalve(gui
.row
, gui
.col
))
2795 gui_mch_set_fg_color(color
);
2796 XDrawRectangle(gui
.dpy
, gui
.wid
, gui
.text_gc
, FILL_X(gui
.col
),
2797 FILL_Y(gui
.row
), w
* gui
.char_width
- 1, gui
.char_height
- 1);
2801 * Draw part of a cursor, "w" pixels wide, and "h" pixels high, using
2805 gui_mch_draw_part_cursor(w
, h
, color
)
2810 gui_mch_set_fg_color(color
);
2812 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.text_gc
,
2813 #ifdef FEAT_RIGHTLEFT
2814 /* vertical line should be on the right of current point */
2815 CURSOR_BAR_RIGHT
? FILL_X(gui
.col
+ 1) - w
:
2818 FILL_Y(gui
.row
) + gui
.char_height
- h
,
2823 * Catch up with any queued X events. This may put keyboard input into the
2824 * input buffer, call resize call-backs, trigger timers etc. If there is
2825 * nothing in the X event queue (& no timers pending), then we return
2831 XtInputMask mask
, desired
;
2834 if (suppress_alternate_input
)
2835 desired
= (XtIMXEvent
| XtIMTimer
);
2838 desired
= (XtIMAll
);
2839 while ((mask
= XtAppPending(app_context
)) && (mask
& desired
)
2840 && !vim_is_input_buf_full())
2841 XtAppProcessEvent(app_context
, desired
);
2845 * GUI input routine called by gui_wait_for_chars(). Waits for a character
2846 * from the keyboard.
2847 * wtime == -1 Wait forever.
2848 * wtime == 0 This should never happen.
2849 * wtime > 0 Wait wtime milliseconds for a character.
2850 * Returns OK if a character was found to be available within the given time,
2851 * or FAIL otherwise.
2854 gui_mch_wait_for_chars(wtime
)
2860 * Make this static, in case gui_x11_timer_cb is called after leaving
2861 * this function (otherwise a random value on the stack may be changed).
2863 static int timed_out
;
2864 XtIntervalId timer
= (XtIntervalId
)0;
2865 XtInputMask desired
;
2867 static int sniff_on
= 0;
2868 static XtInputId sniff_input_id
= 0;
2874 if (sniff_on
&& !want_sniff_request
)
2877 XtRemoveInput(sniff_input_id
);
2880 else if (!sniff_on
&& want_sniff_request
)
2882 sniff_input_id
= XtAppAddInput(app_context
, fd_from_sniff
,
2883 (XtPointer
)XtInputReadMask
, gui_x11_sniff_request_cb
, 0);
2889 timer
= XtAppAddTimeOut(app_context
, (long_u
)wtime
, gui_x11_timer_cb
,
2892 focus
= gui
.in_focus
;
2894 if (suppress_alternate_input
)
2895 desired
= (XtIMXEvent
| XtIMTimer
);
2898 desired
= (XtIMAll
);
2901 /* Stop or start blinking when focus changes */
2902 if (gui
.in_focus
!= focus
)
2905 gui_mch_start_blink();
2907 gui_mch_stop_blink();
2908 focus
= gui
.in_focus
;
2912 * Don't use gui_mch_update() because then we will spin-lock until a
2913 * char arrives, instead we use XtAppProcessEvent() to hang until an
2914 * event arrives. No need to check for input_buf_full because we are
2915 * returning as soon as it contains a single char. Note that
2916 * XtAppNextEvent() may not be used because it will not return after a
2917 * timer event has arrived -- webb
2919 XtAppProcessEvent(app_context
, desired
);
2921 if (input_available())
2923 if (timer
!= (XtIntervalId
)0 && !timed_out
)
2924 XtRemoveTimeOut(timer
);
2935 /* Flush any output to the screen */
2943 * Clear a rectangular region of the screen from text pos (row1, col1) to
2944 * (row2, col2) inclusive.
2947 gui_mch_clear_block(row1
, col1
, row2
, col2
)
2957 /* Clear one extra pixel at the far right, for when bold characters have
2958 * spilled over to the next column. */
2959 XFillRectangle(gui
.dpy
, gui
.wid
, gui
.back_gc
, x
, FILL_Y(row1
),
2960 (col2
- col1
+ 1) * gui
.char_width
+ (col2
== Columns
- 1),
2961 (row2
- row1
+ 1) * gui
.char_height
);
2967 XClearArea(gui
.dpy
, gui
.wid
, 0, 0, 0, 0, False
);
2971 * Delete the given number of lines from the given row, scrolling up any
2972 * text further down within the scroll region.
2975 gui_mch_delete_lines(row
, num_lines
)
2979 if (gui
.visibility
== VisibilityFullyObscured
)
2980 return; /* Can't see the window */
2982 /* copy one extra pixel at the far right, for when bold has spilled
2984 XCopyArea(gui
.dpy
, gui
.wid
, gui
.wid
, gui
.text_gc
,
2985 FILL_X(gui
.scroll_region_left
), FILL_Y(row
+ num_lines
),
2986 gui
.char_width
* (gui
.scroll_region_right
- gui
.scroll_region_left
+ 1)
2987 + (gui
.scroll_region_right
== Columns
- 1),
2988 gui
.char_height
* (gui
.scroll_region_bot
- row
- num_lines
+ 1),
2989 FILL_X(gui
.scroll_region_left
), FILL_Y(row
));
2991 gui_clear_block(gui
.scroll_region_bot
- num_lines
+ 1,
2992 gui
.scroll_region_left
,
2993 gui
.scroll_region_bot
, gui
.scroll_region_right
);
2994 gui_x11_check_copy_area();
2998 * Insert the given number of lines before the given row, scrolling down any
2999 * following text within the scroll region.
3002 gui_mch_insert_lines(row
, num_lines
)
3006 if (gui
.visibility
== VisibilityFullyObscured
)
3007 return; /* Can't see the window */
3009 /* copy one extra pixel at the far right, for when bold has spilled
3011 XCopyArea(gui
.dpy
, gui
.wid
, gui
.wid
, gui
.text_gc
,
3012 FILL_X(gui
.scroll_region_left
), FILL_Y(row
),
3013 gui
.char_width
* (gui
.scroll_region_right
- gui
.scroll_region_left
+ 1)
3014 + (gui
.scroll_region_right
== Columns
- 1),
3015 gui
.char_height
* (gui
.scroll_region_bot
- row
- num_lines
+ 1),
3016 FILL_X(gui
.scroll_region_left
), FILL_Y(row
+ num_lines
));
3018 gui_clear_block(row
, gui
.scroll_region_left
,
3019 row
+ num_lines
- 1, gui
.scroll_region_right
);
3020 gui_x11_check_copy_area();
3024 * Update the region revealed by scrolling up/down.
3027 gui_x11_check_copy_area()
3030 XGraphicsExposeEvent
*gevent
;
3032 if (gui
.visibility
!= VisibilityPartiallyObscured
)
3037 /* Wait to check whether the scroll worked or not */
3040 if (XCheckTypedEvent(gui
.dpy
, NoExpose
, &event
))
3041 return; /* The scroll worked. */
3043 if (XCheckTypedEvent(gui
.dpy
, GraphicsExpose
, &event
))
3045 gevent
= (XGraphicsExposeEvent
*)&event
;
3046 gui_redraw(gevent
->x
, gevent
->y
, gevent
->width
, gevent
->height
);
3047 if (gevent
->count
== 0)
3048 return; /* This was the last expose event */
3050 XSync(gui
.dpy
, False
);
3055 * X Selection stuff, for cutting and pasting text to other windows.
3059 clip_mch_lose_selection(cbd
)
3062 clip_x11_lose_selection(vimShell
, cbd
);
3066 clip_mch_own_selection(cbd
)
3069 return clip_x11_own_selection(vimShell
, cbd
);
3073 clip_mch_request_selection(cbd
)
3076 clip_x11_request_selection(vimShell
, gui
.dpy
, cbd
);
3080 clip_mch_set_selection(cbd
)
3083 clip_x11_set_selection(cbd
);
3086 #if defined(FEAT_MENU) || defined(PROTO)
3092 * Make a menu either grey or not grey.
3095 gui_mch_menu_grey(menu
, grey
)
3099 if (menu
->id
!= (Widget
)0)
3101 gui_mch_menu_hidden(menu
, False
);
3103 #ifdef FEAT_GUI_MOTIF
3107 XtSetSensitive(menu
->id
, False
);
3109 XtSetSensitive(menu
->id
, True
);
3114 * Make menu item hidden or not hidden
3117 gui_mch_menu_hidden(menu
, hidden
)
3121 if (menu
->id
!= (Widget
)0)
3124 XtUnmanageChild(menu
->id
);
3126 XtManageChild(menu
->id
);
3131 * This is called after setting all the menus to grey/hidden or not.
3134 gui_mch_draw_menubar()
3136 /* Nothing to do in X */
3141 gui_x11_menu_cb(w
, client_data
, call_data
)
3143 XtPointer client_data
, call_data
;
3145 gui_menu_cb((vimmenu_T
*)client_data
);
3148 #endif /* FEAT_MENU */
3153 * Function called when window closed. Works like ":qa".
3154 * Should put up a requester!
3158 gui_x11_wm_protocol_handler(w
, client_data
, event
, dum
)
3160 XtPointer client_data
;
3165 * Only deal with Client messages.
3167 if (event
->type
!= ClientMessage
)
3171 * The WM_SAVE_YOURSELF event arrives when the window manager wants to
3172 * exit. That can be cancelled though, thus Vim shouldn't exit here.
3173 * Just sync our swap files.
3175 if (((XClientMessageEvent
*)event
)->data
.l
[0] ==
3176 wm_atoms
[SAVE_YOURSELF_IDX
])
3179 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
3181 /* Set the window's WM_COMMAND property, to let the window manager
3182 * know we are done saving ourselves. We don't want to be restarted,
3183 * thus set argv to NULL. */
3184 XSetCommand(gui
.dpy
, XtWindow(vimShell
), NULL
, 0);
3188 if (((XClientMessageEvent
*)event
)->data
.l
[0] !=
3189 wm_atoms
[DELETE_WINDOW_IDX
])
3195 #ifdef FEAT_CLIENTSERVER
3197 * Function called when property changed. Check for incoming commands
3201 gui_x11_send_event_handler(w
, client_data
, event
, dum
)
3203 XtPointer client_data
;
3207 XPropertyEvent
*e
= (XPropertyEvent
*) event
;
3209 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
3210 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
3212 serverEventProc(gui
.dpy
, event
);
3218 * Cursor blink functions.
3220 * This is a simple state machine:
3221 * BLINK_NONE not blinking at all
3222 * BLINK_OFF blinking, cursor is not shown
3223 * BLINK_ON blinking, cursor is shown
3226 #define BLINK_NONE 0
3230 static int blink_state
= BLINK_NONE
;
3231 static long_u blink_waittime
= 700;
3232 static long_u blink_ontime
= 400;
3233 static long_u blink_offtime
= 250;
3234 static XtIntervalId blink_timer
= (XtIntervalId
)0;
3237 gui_mch_set_blinking(waittime
, on
, off
)
3238 long waittime
, on
, off
;
3240 blink_waittime
= waittime
;
3242 blink_offtime
= off
;
3246 * Stop the cursor blinking. Show the cursor if it wasn't shown.
3249 gui_mch_stop_blink()
3251 if (blink_timer
!= (XtIntervalId
)0)
3253 XtRemoveTimeOut(blink_timer
);
3254 blink_timer
= (XtIntervalId
)0;
3256 if (blink_state
== BLINK_OFF
)
3257 gui_update_cursor(TRUE
, FALSE
);
3258 blink_state
= BLINK_NONE
;
3262 * Start the cursor blinking. If it was already blinking, this restarts the
3263 * waiting time and shows the cursor.
3266 gui_mch_start_blink()
3268 if (blink_timer
!= (XtIntervalId
)0)
3269 XtRemoveTimeOut(blink_timer
);
3270 /* Only switch blinking on if none of the times is zero */
3271 if (blink_waittime
&& blink_ontime
&& blink_offtime
&& gui
.in_focus
)
3273 blink_timer
= XtAppAddTimeOut(app_context
, blink_waittime
,
3274 gui_x11_blink_cb
, NULL
);
3275 blink_state
= BLINK_ON
;
3276 gui_update_cursor(TRUE
, FALSE
);
3282 gui_x11_blink_cb(timed_out
, interval_id
)
3283 XtPointer timed_out
;
3284 XtIntervalId
*interval_id
;
3286 if (blink_state
== BLINK_ON
)
3288 gui_undraw_cursor();
3289 blink_state
= BLINK_OFF
;
3290 blink_timer
= XtAppAddTimeOut(app_context
, blink_offtime
,
3291 gui_x11_blink_cb
, NULL
);
3295 gui_update_cursor(TRUE
, FALSE
);
3296 blink_state
= BLINK_ON
;
3297 blink_timer
= XtAppAddTimeOut(app_context
, blink_ontime
,
3298 gui_x11_blink_cb
, NULL
);
3303 * Return the RGB value of a pixel as a long.
3306 gui_mch_get_rgb(pixel
)
3312 colormap
= DefaultColormap(gui
.dpy
, XDefaultScreen(gui
.dpy
));
3314 XQueryColor(gui
.dpy
, colormap
, &xc
);
3316 return ((xc
.red
& 0xff00) << 8) + (xc
.green
& 0xff00)
3317 + ((unsigned)xc
.blue
>> 8);
3321 * Add the callback functions.
3324 gui_x11_callbacks(textArea
, vimForm
)
3328 XtAddEventHandler(textArea
, VisibilityChangeMask
, FALSE
,
3329 gui_x11_visibility_cb
, (XtPointer
)0);
3331 XtAddEventHandler(textArea
, ExposureMask
, FALSE
, gui_x11_expose_cb
,
3334 XtAddEventHandler(vimShell
, StructureNotifyMask
, FALSE
,
3335 gui_x11_resize_window_cb
, (XtPointer
)0);
3337 XtAddEventHandler(vimShell
, FocusChangeMask
, FALSE
, gui_x11_focus_change_cb
,
3340 * Only install these enter/leave callbacks when 'p' in 'guioptions'.
3341 * Only needed for some window managers.
3343 if (vim_strchr(p_go
, GO_POINTER
) != NULL
)
3345 XtAddEventHandler(vimShell
, LeaveWindowMask
, FALSE
, gui_x11_leave_cb
,
3347 XtAddEventHandler(textArea
, LeaveWindowMask
, FALSE
, gui_x11_leave_cb
,
3349 XtAddEventHandler(textArea
, EnterWindowMask
, FALSE
, gui_x11_enter_cb
,
3351 XtAddEventHandler(vimShell
, EnterWindowMask
, FALSE
, gui_x11_enter_cb
,
3355 XtAddEventHandler(vimForm
, KeyPressMask
, FALSE
, gui_x11_key_hit_cb
,
3357 XtAddEventHandler(textArea
, KeyPressMask
, FALSE
, gui_x11_key_hit_cb
,
3360 /* get pointer moved events from scrollbar, needed for 'mousefocus' */
3361 XtAddEventHandler(vimForm
, PointerMotionMask
,
3362 FALSE
, gui_x11_mouse_cb
, (XtPointer
)1);
3363 XtAddEventHandler(textArea
, ButtonPressMask
| ButtonReleaseMask
|
3364 ButtonMotionMask
| PointerMotionMask
,
3365 FALSE
, gui_x11_mouse_cb
, (XtPointer
)0);
3369 * Get current mouse coordinates in text window.
3372 gui_mch_getmouse(int *x
, int *y
)
3374 int rootx
, rooty
, winx
, winy
;
3378 if (gui
.wid
&& XQueryPointer(gui
.dpy
, gui
.wid
, &root
, &child
,
3379 &rootx
, &rooty
, &winx
, &winy
, &mask
)) {
3389 gui_mch_setmouse(x
, y
)
3394 XWarpPointer(gui
.dpy
, (Window
)0, gui
.wid
, 0, 0, 0, 0, x
, y
);
3397 #if (defined(FEAT_GUI_MOTIF) && defined(FEAT_MENU)) || defined(PROTO)
3398 XButtonPressedEvent
*
3399 gui_x11_get_last_mouse_event()
3401 return &last_mouse_event
;
3405 #if defined(FEAT_SIGN_ICONS) || defined(PROTO)
3407 /* Signs are currently always 2 chars wide. Hopefully the font is big enough
3408 * to provide room for the bitmap! */
3409 # define SIGN_WIDTH (gui.char_width * 2)
3411 #if 0 /* not used */
3413 gui_mch_clearsign(row
)
3417 XClearArea(gui
.dpy
, gui
.wid
, 0, TEXT_Y(row
) - gui
.char_height
,
3418 SIGN_WIDTH
, gui
.char_height
, FALSE
);
3423 gui_mch_drawsign(row
, col
, typenr
)
3430 if (gui
.in_use
&& (sign
= (XImage
*)sign_get_image(typenr
)) != NULL
)
3432 XClearArea(gui
.dpy
, gui
.wid
, TEXT_X(col
), TEXT_Y(row
) - sign
->height
,
3433 SIGN_WIDTH
, gui
.char_height
, FALSE
);
3434 XPutImage(gui
.dpy
, gui
.wid
, gui
.text_gc
, sign
, 0, 0,
3435 TEXT_X(col
) + (SIGN_WIDTH
- sign
->width
) / 2,
3436 TEXT_Y(row
) - sign
->height
,
3437 sign
->width
, sign
->height
);
3442 gui_mch_register_sign(signfile
)
3445 XpmAttributes attrs
;
3446 XImage
*sign
= NULL
;
3450 * Setup the color substitution table.
3452 if (signfile
[0] != NUL
&& signfile
[0] != '-')
3454 XpmColorSymbol color
[5] =
3457 {"iconColor1", NULL
, 0},
3458 {"bottomShadowColor", NULL
, 0},
3459 {"topShadowColor", NULL
, 0},
3460 {"selectColor", NULL
, 0}
3462 attrs
.valuemask
= XpmColorSymbols
;
3463 attrs
.numsymbols
= 2;
3464 attrs
.colorsymbols
= color
;
3465 attrs
.colorsymbols
[0].pixel
= gui
.back_pixel
;
3466 attrs
.colorsymbols
[1].pixel
= gui
.norm_pixel
;
3467 status
= XpmReadFileToImage(gui
.dpy
, (char *)signfile
,
3468 &sign
, NULL
, &attrs
);
3471 /* Sign width is fixed at two columns now.
3472 if (sign->width > gui.sign_width)
3473 gui.sign_width = sign->width + 8; */
3476 EMSG(_(e_signdata
));
3479 return (void *)sign
;
3483 gui_mch_destroy_sign(sign
)
3486 XDestroyImage((XImage
*)sign
);
3491 #ifdef FEAT_MOUSESHAPE
3492 /* The last set mouse pointer shape is remembered, to be used when it goes
3493 * from hidden to not hidden. */
3494 static int last_shape
= 0;
3498 * Use the blank mouse pointer or not.
3501 gui_mch_mousehide(hide
)
3502 int hide
; /* TRUE = use blank ptr, FALSE = use parent ptr */
3504 if (gui
.pointer_hidden
!= hide
)
3506 gui
.pointer_hidden
= hide
;
3508 XDefineCursor(gui
.dpy
, gui
.wid
, gui
.blank_pointer
);
3510 #ifdef FEAT_MOUSESHAPE
3511 mch_set_mouse_shape(last_shape
);
3513 XUndefineCursor(gui
.dpy
, gui
.wid
);
3518 #if defined(FEAT_MOUSESHAPE) || defined(PROTO)
3520 /* Table for shape IDs. Keep in sync with the mshape_names[] table in
3522 static int mshape_ids
[] =
3524 XC_left_ptr
, /* arrow */
3526 XC_xterm
, /* beam */
3527 XC_sb_v_double_arrow
, /* updown */
3528 XC_sizing
, /* udsizing */
3529 XC_sb_h_double_arrow
, /* leftright */
3530 XC_sizing
, /* lrsizing */
3531 XC_watch
, /* busy */
3532 XC_X_cursor
, /* no */
3533 XC_crosshair
, /* crosshair */
3534 XC_hand1
, /* hand1 */
3535 XC_hand2
, /* hand2 */
3536 XC_pencil
, /* pencil */
3537 XC_question_arrow
, /* question */
3538 XC_right_ptr
, /* right-arrow */
3539 XC_center_ptr
, /* up-arrow */
3540 XC_left_ptr
/* last one */
3544 mch_set_mouse_shape(shape
)
3552 if (shape
== MSHAPE_HIDE
|| gui
.pointer_hidden
)
3553 XDefineCursor(gui
.dpy
, gui
.wid
, gui
.blank_pointer
);
3556 if (shape
>= MSHAPE_NUMBERED
)
3558 id
= shape
- MSHAPE_NUMBERED
;
3559 if (id
>= XC_num_glyphs
)
3562 id
&= ~1; /* they are always even (why?) */
3565 id
= mshape_ids
[shape
];
3567 XDefineCursor(gui
.dpy
, gui
.wid
, XCreateFontCursor(gui
.dpy
, id
));
3569 if (shape
!= MSHAPE_HIDE
)
3574 #if (defined(FEAT_TOOLBAR) && defined(FEAT_BEVAL)) || defined(PROTO)
3576 * Set the balloon-eval used for the tooltip of a toolbar menu item.
3577 * The check for a non-toolbar item was added, because there is a crash when
3578 * passing a normal menu item here. Can't explain that, but better avoid it.
3581 gui_mch_menu_set_tip(menu
)
3584 if (menu
->id
!= NULL
&& menu
->parent
!= NULL
3585 && menu_is_toolbar(menu
->parent
->name
))
3587 /* Always destroy and create the balloon, in case the string was
3589 if (menu
->tip
!= NULL
)
3591 gui_mch_destroy_beval_area(menu
->tip
);
3594 if (menu
->strings
[MENU_INDEX_TIP
] != NULL
)
3595 menu
->tip
= gui_mch_create_beval_area(
3597 menu
->strings
[MENU_INDEX_TIP
],