1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * 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.
14 #ifdef FEAT_GUI_ATHENA
15 # include <X11/Intrinsic.h>
16 # include <X11/StringDefs.h>
20 # include "gui_beval.h"
24 # ifdef VMS /* undef MIN and MAX because Intrinsic.h redefines them anyway */
32 # include <X11/Intrinsic.h>
38 /*# include <Memory.h>*/
39 # include <Quickdraw.h>
43 # if !(defined (TARGET_API_MAC_CARBON) && (TARGET_API_MAC_CARBON))
46 # include <Controls.h>
47 /*# include <TextEdit.h>*/
51 # include <ToolUtils.h>
52 # include <SegLoad.h>*/
56 # include "gui_riscos.h"
59 #ifdef FEAT_GUI_PHOTON
62 # include "photon/PxProto.h"
66 * On some systems, when we compile with the GUI, we always use it. On Mac
67 * there is no terminal version, and on Windows we can't figure out how to
68 * fork one off with :gui.
70 #if defined(FEAT_GUI_MSWIN) || (defined(FEAT_GUI_MAC) && !defined(MACOS_X_UNIX))
71 # define ALWAYS_USE_GUI
75 * On some systems scrolling needs to be done right away instead of in the
78 #if defined(FEAT_GUI_MSWIN) || defined(FEAT_GUI_MAC) || defined(HAVE_GTK2) \
79 || defined(FEAT_GUI_MACVIM)
80 # define USE_ON_FLY_SCROLL
84 * GUIs that support dropping files on a running Vim.
86 #if defined(FEAT_GUI_MSWIN) || defined(FEAT_GUI_MAC) \
87 || defined(FEAT_GUI_GTK)
88 # define HAVE_DROP_FILE
92 * This define makes menus always use a fontset.
93 * We're not sure if this code always works, thus it can be disabled.
96 # define FONTSET_ALWAYS
100 * These macros convert between character row/column and pixel coordinates.
101 * TEXT_X - Convert character column into X pixel coord for drawing strings.
102 * TEXT_Y - Convert character row into Y pixel coord for drawing strings.
103 * FILL_X - Convert character column into X pixel coord for filling the area
104 * under the character.
105 * FILL_Y - Convert character row into Y pixel coord for filling the area
106 * under the character.
107 * X_2_COL - Convert X pixel coord into character column.
108 * Y_2_ROW - Convert Y pixel coord into character row.
111 # define TEXT_X(col) ((col) * gui.char_width)
112 # define TEXT_Y(row) ((row) * gui.char_height + gui.char_ascent)
113 # define FILL_X(col) ((col) * gui.char_width)
114 # define FILL_Y(row) ((row) * gui.char_height)
115 # define X_2_COL(x) ((x) / gui.char_width)
116 # define Y_2_ROW(y) ((y) / gui.char_height)
118 # define TEXT_X(col) ((col) * gui.char_width + gui.border_offset)
119 # define FILL_X(col) ((col) * gui.char_width + gui.border_offset)
120 # define X_2_COL(x) (((x) - gui.border_offset) / gui.char_width)
121 # define TEXT_Y(row) ((row) * gui.char_height + gui.char_ascent \
123 # define FILL_Y(row) ((row) * gui.char_height + gui.border_offset)
124 # define Y_2_ROW(y) (((y) - gui.border_offset) / gui.char_height)
127 /* Indices for arrays of scrollbars */
131 #define SBAR_BOTTOM 2
133 /* Orientations for scrollbars */
137 /* Default size of scrollbar */
138 #define SB_DEFAULT_WIDTH 16
140 /* Default height of the menu bar */
141 #define MENU_DEFAULT_HEIGHT 1 /* figure it out at runtime */
143 /* Flags for gui_mch_outstr_nowrap() */
144 #define GUI_MON_WRAP_CURSOR 0x01 /* wrap cursor at end of line */
145 #define GUI_MON_INVERT 0x02 /* invert the characters */
146 #define GUI_MON_IS_CURSOR 0x04 /* drawing cursor */
147 #define GUI_MON_TRS_CURSOR 0x08 /* drawing transparent cursor */
148 #define GUI_MON_NOCLEAR 0x10 /* don't clear selection */
150 /* Flags for gui_mch_draw_string() */
151 #define DRAW_TRANSP 0x01 /* draw with transparent bg */
152 #define DRAW_BOLD 0x02 /* draw bold text */
153 #define DRAW_UNDERL 0x04 /* draw underline text */
154 #define DRAW_UNDERC 0x08 /* draw undercurl text */
155 #if defined(RISCOS) || defined(HAVE_GTK2) || defined(FEAT_GUI_MACVIM)
156 # define DRAW_ITALIC 0x10 /* draw italic text */
158 #define DRAW_CURSOR 0x20 /* drawing block cursor (win32) */
160 /* For our own tearoff menu item */
161 #define TEAR_STRING "-->Detach"
162 #define TEAR_LEN (9) /* length of above string */
164 /* for the toolbar */
166 # define TOOLBAR_BUTTON_HEIGHT 15
167 # define TOOLBAR_BUTTON_WIDTH 16
169 # define TOOLBAR_BUTTON_HEIGHT 18
170 # define TOOLBAR_BUTTON_WIDTH 18
172 #define TOOLBAR_BORDER_HEIGHT 12 /* room above+below buttons for MSWindows */
174 #ifdef FEAT_GUI_MSWIN
175 # define TABLINE_HEIGHT 22
177 #ifdef FEAT_GUI_MOTIF
178 # define TABLINE_HEIGHT 30
181 #if defined(NO_CONSOLE) || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_X11)
182 # define NO_CONSOLE_INPUT /* use no_console_input() to check if there
183 is no console input possible */
186 typedef struct GuiScrollbar
188 long ident
; /* Unique identifier for each scrollbar */
189 win_T
*wp
; /* Scrollbar's window, NULL for bottom */
190 int type
; /* one of SBAR_{LEFT,RIGHT,BOTTOM} */
191 long value
; /* Represents top line number visible */
192 #ifdef FEAT_GUI_ATHENA
193 int pixval
; /* pixel count of value */
195 long size
; /* Size of scrollbar thumb */
196 long max
; /* Number of lines in buffer */
198 /* Values measured in characters: */
199 int top
; /* Top of scroll bar (chars from row 0) */
200 int height
; /* Current height of scroll bar in rows */
201 #ifdef FEAT_VERTSPLIT
202 int width
; /* Current width of scroll bar in cols */
204 int status_height
; /* Height of status line */
206 Widget id
; /* Id of real scroll bar */
209 GtkWidget
*id
; /* Id of real scroll bar */
210 unsigned long handler_id
; /* Id of "value_changed" signal handler */
213 #ifdef FEAT_GUI_MSWIN
214 HWND id
; /* Id of real scroll bar */
215 int scroll_shift
; /* The scrollbar stuff can handle only up to
216 32767 lines. When the file is longer,
217 scroll_shift is set to the number of shifts
218 to reduce the count. */
221 ControlHandle id
; /* A handle to the scrollbar */
224 int id
; /* Window handle of scrollbar window */
226 #ifdef FEAT_GUI_PHOTON
231 typedef long guicolor_T
; /* handle for a GUI color; for X11 this should
232 be "Pixel", but that's an unsigned and we
233 need a signed value */
234 #define INVALCOLOR (guicolor_T)-11111 /* number for invalid color; on 32 bit
235 displays there is a tiny chance this is an
238 #if defined(FEAT_GUI_MACVIM)
239 typedef void *GuiFont
;
240 typedef void *GuiFontset
;
241 # define NOFONT (GuiFont)NULL
242 # define NOFONTSET (GuiFontset)NULL
243 #elif defined(FEAT_GUI_GTK)
245 typedef PangoFontDescription
*GuiFont
; /* handle for a GUI font */
246 typedef PangoFontDescription
*GuiFontset
; /* handle for a GUI fontset */
248 typedef GdkFont
*GuiFont
; /* handle for a GUI font */
249 typedef GdkFont
*GuiFontset
; /* handle for a GUI fontset */
251 # define NOFONT (GuiFont)NULL
252 # define NOFONTSET (GuiFontset)NULL
254 # ifdef FEAT_GUI_PHOTON
255 typedef char *GuiFont
;
256 typedef char *GuiFontset
;
257 # define NOFONT (GuiFont)NULL
258 # define NOFONTSET (GuiFontset)NULL
261 typedef XFontStruct
*GuiFont
; /* handle for a GUI font */
262 typedef XFontSet GuiFontset
; /* handle for a GUI fontset */
263 # define NOFONT (GuiFont)0
264 # define NOFONTSET (GuiFontset)0
266 typedef long_u GuiFont
; /* handle for a GUI font */
267 typedef long_u GuiFontset
; /* handle for a GUI fontset */
268 # define NOFONT (GuiFont)0
269 # define NOFONTSET (GuiFontset)0
276 int in_focus
; /* Vim has input focus */
277 int in_use
; /* Is the GUI being used? */
278 int starting
; /* GUI will start in a little while */
279 int shell_created
; /* Has the shell been created yet? */
280 int dying
; /* Is vim dying? Then output to terminal */
281 int dofork
; /* Use fork() when GUI is starting */
282 int dragged_sb
; /* Which scrollbar being dragged, if any? */
283 win_T
*dragged_wp
; /* Which WIN's sb being dragged, if any? */
284 int pointer_hidden
; /* Is the mouse pointer hidden? */
285 int col
; /* Current cursor column in GUI display */
286 int row
; /* Current cursor row in GUI display */
287 int cursor_col
; /* Physical cursor column in GUI display */
288 int cursor_row
; /* Physical cursor row in GUI display */
289 char cursor_is_valid
; /* There is a cursor at cursor_row/col */
290 int num_cols
; /* Number of columns */
291 int num_rows
; /* Number of rows */
292 int scroll_region_top
; /* Top (first) line of scroll region */
293 int scroll_region_bot
; /* Bottom (last) line of scroll region */
294 int scroll_region_left
; /* Left (first) column of scroll region */
295 int scroll_region_right
; /* Right (last) col. of scroll region */
296 int highlight_mask
; /* Highlight attribute mask */
297 int scrollbar_width
; /* Width of vertical scrollbars */
298 int scrollbar_height
; /* Height of horizontal scrollbar */
299 int left_sbar_x
; /* Calculated x coord for left scrollbar */
300 int right_sbar_x
; /* Calculated x coord for right scrollbar */
303 # if !(defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM))
304 int menu_height
; /* Height of the menu bar */
305 int menu_width
; /* Width of the menu bar */
307 char menu_is_active
; /* TRUE if menu is present */
308 # ifdef FEAT_GUI_ATHENA
309 char menu_height_fixed
; /* TRUE if menu height fixed */
313 scrollbar_T bottom_sbar
; /* Bottom scrollbar */
314 int which_scrollbars
[3];/* Which scrollbar boxes are active? */
315 int prev_wrap
; /* For updating the horizontal scrollbar */
316 int char_width
; /* Width of char cell in pixels */
317 int char_height
; /* Height of char cell in pixels, includes
319 int char_ascent
; /* Ascent of char in pixels */
320 int border_width
; /* Width of our border around text area */
321 int border_offset
; /* Total pixel offset for all borders */
323 GuiFont norm_font
; /* Normal font */
325 GuiFont bold_font
; /* Bold font */
326 GuiFont ital_font
; /* Italic font */
327 GuiFont boldital_font
; /* Bold-Italic font */
329 int font_can_bold
; /* Whether norm_font supports bold weight.
330 * The styled font variants are not used. */
333 #if defined(FEAT_MENU) && !defined(HAVE_GTK2)
334 # ifdef FONTSET_ALWAYS
335 GuiFontset menu_fontset
; /* set of fonts for multi-byte chars */
337 GuiFont menu_font
; /* menu item font */
341 GuiFont wide_font
; /* 'guifontwide' font */
344 GuiFontset fontset
; /* set of fonts for multi-byte chars */
346 guicolor_T back_pixel
; /* Color of background */
347 guicolor_T norm_pixel
; /* Color of normal text */
348 guicolor_T def_back_pixel
; /* default Color of background */
349 guicolor_T def_norm_pixel
; /* default Color of normal text */
352 char *rsrc_menu_fg_name
; /* Color of menu & dialog foreground */
353 guicolor_T menu_fg_pixel
; /* Same in Pixel format */
354 char *rsrc_menu_bg_name
; /* Color of menu & dialog background */
355 guicolor_T menu_bg_pixel
; /* Same in Pixel format */
356 char *rsrc_scroll_fg_name
; /* Color of scrollbar foreground */
357 guicolor_T scroll_fg_pixel
; /* Same in Pixel format */
358 char *rsrc_scroll_bg_name
; /* Color of scrollbar background */
359 guicolor_T scroll_bg_pixel
; /* Same in Pixel format */
361 # ifdef FEAT_GUI_MOTIF
362 guicolor_T menu_def_fg_pixel
; /* Default menu foreground */
363 guicolor_T menu_def_bg_pixel
; /* Default menu background */
364 guicolor_T scroll_def_fg_pixel
; /* Default scrollbar foreground */
365 guicolor_T scroll_def_bg_pixel
; /* Default scrollbar background */
367 Display
*dpy
; /* X display */
368 Window wid
; /* Window id of text area */
369 int visibility
; /* Is shell partially/fully obscured? */
373 Cursor blank_pointer
; /* Blank pointer */
376 char_u
*rsrc_font_name
; /* Resource font name, used if 'guifont'
378 char_u
*rsrc_bold_font_name
; /* Resource bold font name */
379 char_u
*rsrc_ital_font_name
; /* Resource italic font name */
380 char_u
*rsrc_boldital_font_name
; /* Resource bold-italic font name */
381 char_u
*rsrc_menu_font_name
; /* Resource menu Font name */
382 Bool rsrc_rev_video
; /* Use reverse video? */
384 char_u
*geom
; /* Geometry, eg "80x24" */
385 Bool color_approx
; /* Some color was approximated */
389 int visibility
; /* Is shell partially/fully obscured? */
390 GdkCursor
*blank_pointer
; /* Blank pointer */
393 char_u
*geom
; /* Geometry, eg "80x24" */
395 GtkWidget
*mainwin
; /* top level GTK window */
396 GtkWidget
*formwin
; /* manages all the windows below */
397 GtkWidget
*drawarea
; /* the "text" area */
399 GtkWidget
*menubar
; /* menubar */
402 GtkWidget
*toolbar
; /* toolbar */
404 # ifdef FEAT_GUI_GNOME
405 GtkWidget
*menubar_h
; /* menubar handle */
406 GtkWidget
*toolbar_h
; /* toolbar handle */
408 GdkColor
*fgcolor
; /* GDK-styled foreground color */
409 GdkColor
*bgcolor
; /* GDK-styled background color */
410 GdkColor
*spcolor
; /* GDK-styled special color */
412 GuiFont current_font
;
414 GdkGC
*text_gc
; /* cached GC for normal text */
416 PangoContext
*text_context
; /* the context used for all text */
417 PangoFont
*ascii_font
; /* cached font for ASCII strings */
418 PangoGlyphString
*ascii_glyphs
; /* cached code point -> glyph map */
420 # ifdef FEAT_GUI_TABLINE
421 GtkWidget
*tabline
; /* tab pages line handle */
424 GtkAccelGroup
*accel_group
;
426 GtkWidget
*fontdlg
; /* font selection dialog window */
427 char_u
*fontname
; /* font name from font selection dialog */
429 GtkWidget
*filedlg
; /* file selection dialog */
430 char_u
*browse_fname
; /* file name from filedlg */
431 #endif /* FEAT_GUI_GTK */
433 #if defined(FEAT_GUI_TABLINE) \
434 && (defined(FEAT_GUI_W32) || defined(FEAT_GUI_MOTIF) \
435 || defined(FEAT_GUI_MAC))
440 int footer_height
; /* height of the message footer */
443 #if defined(FEAT_TOOLBAR) \
444 && (defined(FEAT_GUI_ATHENA) || defined(FEAT_GUI_MOTIF))
445 int toolbar_height
; /* height of the toolbar */
448 #ifdef FEAT_BEVAL_TIP
449 /* Tooltip properties; also used for balloon evaluation */
450 char_u
*rsrc_tooltip_font_name
; /* tooltip font name */
451 char *rsrc_tooltip_fg_name
; /* tooltip foreground color name */
452 char *rsrc_tooltip_bg_name
; /* tooltip background color name */
453 guicolor_T tooltip_fg_pixel
; /* tooltip foreground color */
454 guicolor_T tooltip_bg_pixel
; /* tooltip background color */
455 XFontSet tooltip_fontset
; /* tooltip fontset */
458 #ifdef FEAT_GUI_MSWIN
459 GuiFont currFont
; /* Current font */
460 guicolor_T currFgColor
; /* Current foreground text color */
461 guicolor_T currBgColor
; /* Current background text color */
462 guicolor_T currSpColor
; /* Current special text color */
467 MenuHandle MacOSHelpMenu
; /* Help menu provided by the MacOS */
468 int MacOSHelpItems
; /* Nr of help-items supplied by MacOS */
469 WindowPtr wid
; /* Window id of text area */
470 int visibility
; /* Is window partially/fully obscured? */
475 char_u
*window_title
;
476 int window_title_size
;
477 int fg_colour
; /* in 0xBBGGRR format */
481 #ifdef FEAT_GUI_PHOTON
482 PtWidget_t
*vimWindow
; /* PtWindow */
483 PtWidget_t
*vimTextArea
; /* PtRaw */
484 PtWidget_t
*vimContainer
; /* PtPanel */
485 # if defined(FEAT_MENU) || defined(FEAT_TOOLBAR)
486 PtWidget_t
*vimToolBarGroup
;
489 PtWidget_t
*vimMenuBar
;
492 PtWidget_t
*vimToolBar
;
495 PhEvent_t
*event_buffer
;
499 char *rsrc_input_method
;
500 char *rsrc_preedit_type_name
;
503 #ifdef FEAT_GUI_SCROLL_WHEEL_FORCE
504 int scroll_wheel_force
;
508 extern gui_T gui
; /* this is defined in gui.c */
510 /* definitions of available window positionings for gui_*_position_in_parent()
519 #ifdef FIND_REPLACE_DIALOG
521 * Flags used to distinguish the different contexts in which the
522 * find/replace callback may be called.
524 # define FRD_FINDNEXT 1 /* Find next in find dialog */
525 # define FRD_R_FINDNEXT 2 /* Find next in repl dialog */
526 # define FRD_REPLACE 3 /* Replace once */
527 # define FRD_REPLACEALL 4 /* Replace remaining matches */
528 # define FRD_UNDO 5 /* Undo replaced text */
529 # define FRD_TYPE_MASK 7 /* Mask for the callback type */
530 /* Flags which change the way searching is done. */
531 # define FRD_WHOLE_WORD 0x08 /* match whole word only */
532 # define FRD_MATCH_CASE 0x10 /* match case */
535 #ifdef HAVE_GTK2 || FEAT_GUI_MACVIM
537 * Convenience macros to convert from 'encoding' to 'termencoding' and
538 * vice versa. If no conversion is necessary the passed-in pointer is
539 * returned as is, without allocating any memory. Thus additional _FREE()
540 * macros are provided. The _FREE() macros also set the pointer to NULL,
541 * in order to avoid bugs due to illegal memory access only happening if
542 * 'encoding' != utf-8...
544 * Defining these macros as pure expressions looks a bit tricky but
545 * avoids depending on the context of the macro expansion. One of the
546 * rare occasions where the comma operator comes in handy :)
548 * Note: Do NOT keep the result around when handling control back to
549 * the main Vim! The user could change 'encoding' at any time.
551 # define CONVERT_TO_UTF8(String) \
552 ((output_conv.vc_type == CONV_NONE || (String) == NULL) \
554 : string_convert(&output_conv, (String), NULL))
556 # define CONVERT_TO_UTF8_FREE(String) \
557 ((String) = ((output_conv.vc_type == CONV_NONE) \
559 : (vim_free(String), (char_u *)NULL)))
561 # define CONVERT_FROM_UTF8(String) \
562 ((input_conv.vc_type == CONV_NONE || (String) == NULL) \
564 : string_convert(&input_conv, (String), NULL))
566 # define CONVERT_FROM_UTF8_FREE(String) \
567 ((String) = ((input_conv.vc_type == CONV_NONE) \
569 : (vim_free(String), (char_u *)NULL)))
572 # define CONVERT_TO_UTF8(String) (String)
573 # define CONVERT_TO_UTF8_FREE(String) ((String) = (char_u *)NULL)
574 # define CONVERT_FROM_UTF8(String) (String)
575 # define CONVERT_FROM_UTF8_FREE(String) ((String) = (char_u *)NULL)
576 #endif /* HAVE_GTK2 */