home *** CD-ROM | disk | FTP | other *** search
- /* vi:set ts=8 sts=4 sw=4:
- *
- * VIM - Vi IMproved by Bram Moolenaar
- *
- * Do ":help uganda" in Vim to read copying and usage conditions.
- * Do ":help credits" in Vim to see a list of people who contributed.
- * See README.txt for an overview of the Vim source code.
- */
-
- /*
- * Porting to GTK+ was done by:
- *
- * (C) 1998,1999,2000 by Marcin Dalecki <dalecki@evision.ag>
- *
- * With GREAT support and continuous encouragements by Andy Kahn and of
- * course Bram Moolenaar!
- *
- * Support for GTK+ 2 was added by:
- *
- * (C) 2002,2003 Jason Hildebrand <jason@peaceworks.ca>
- * Daniel Elstner <daniel.elstner@gmx.net>
- *
- * Best supporting actor (He helped somewhat, aesthetically speaking):
- * Maxime Romano <verbophobe@hotmail.com>
- */
-
- #ifdef FEAT_GUI_GTK
- # include "gui_gtk_f.h"
- #endif
-
- /* GTK defines MAX and MIN, but some system header files as well. Undefine
- * them and don't use them. */
- #ifdef MIN
- # undef MIN
- #endif
- #ifdef MAX
- # undef MAX
- #endif
-
- #include "vim.h"
-
- #ifdef FEAT_GUI_GNOME
- /* Gnome redefines _() and N_(). Grrr... */
- # ifdef _
- # undef _
- # endif
- # ifdef N_
- # undef N_
- # endif
- # ifdef textdomain
- # undef textdomain
- # endif
- # ifdef bindtextdomain
- # undef bindtextdomain
- # endif
- # if defined(FEAT_GETTEXT) && !defined(ENABLE_NLS)
- # define ENABLE_NLS /* so the texts in the dialog boxes are translated */
- # endif
- # include <gnome.h>
- #endif
-
- #if defined(FEAT_GUI_DIALOG) && !defined(HAVE_GTK2)
- # include "../pixmaps/alert.xpm"
- # include "../pixmaps/error.xpm"
- # include "../pixmaps/generic.xpm"
- # include "../pixmaps/info.xpm"
- # include "../pixmaps/quest.xpm"
- #endif
-
- #if defined(FEAT_TOOLBAR) && !defined(HAVE_GTK2)
- /*
- * Icons used by the toolbar code.
- */
- #include "../pixmaps/tb_new.xpm"
- #include "../pixmaps/tb_open.xpm"
- #include "../pixmaps/tb_close.xpm"
- #include "../pixmaps/tb_save.xpm"
- #include "../pixmaps/tb_print.xpm"
- #include "../pixmaps/tb_cut.xpm"
- #include "../pixmaps/tb_copy.xpm"
- #include "../pixmaps/tb_paste.xpm"
- #include "../pixmaps/tb_find.xpm"
- #include "../pixmaps/tb_find_next.xpm"
- #include "../pixmaps/tb_find_prev.xpm"
- #include "../pixmaps/tb_find_help.xpm"
- #include "../pixmaps/tb_exit.xpm"
- #include "../pixmaps/tb_undo.xpm"
- #include "../pixmaps/tb_redo.xpm"
- #include "../pixmaps/tb_help.xpm"
- #include "../pixmaps/tb_macro.xpm"
- #include "../pixmaps/tb_make.xpm"
- #include "../pixmaps/tb_save_all.xpm"
- #include "../pixmaps/tb_jump.xpm"
- #include "../pixmaps/tb_ctags.xpm"
- #include "../pixmaps/tb_load_session.xpm"
- #include "../pixmaps/tb_save_session.xpm"
- #include "../pixmaps/tb_new_session.xpm"
- #include "../pixmaps/tb_blank.xpm"
- #include "../pixmaps/tb_maximize.xpm"
- #include "../pixmaps/tb_split.xpm"
- #include "../pixmaps/tb_minimize.xpm"
- #include "../pixmaps/tb_shell.xpm"
- #include "../pixmaps/tb_replace.xpm"
- #include "../pixmaps/tb_vsplit.xpm"
- #include "../pixmaps/tb_maxwidth.xpm"
- #include "../pixmaps/tb_minwidth.xpm"
- #endif /* FEAT_TOOLBAR && !HAVE_GTK2 */
-
- #ifdef FEAT_GUI_GTK
- # include <gdk/gdkkeysyms.h>
- # include <gdk/gdk.h>
- # include <gdk/gdkx.h>
-
- # include <gtk/gtk.h>
- #else
- /* define these items to be able to generate prototypes without GTK */
- typedef int GtkWidget;
- # define gpointer int
- # define guint8 int
- # define GdkPixmap int
- # define GdkBitmap int
- # define GtkIconFactory int
- # define GtkToolbar int
- # define GtkAdjustment int
- # define gboolean int
- # define GdkEventKey int
- # define CancelData int
- #endif
-
- #ifdef HAVE_GTK2
- /*
- * Convenience macros to convert from 'encoding' to 'termencoding' and
- * vice versa. If no conversion is necessary the passed-in pointer is
- * returned as is, without allocating any memory. Thus additional _FREE()
- * macros are provided. The _FREE() macros also set the pointer to NULL,
- * in order to avoid bugs due to illegal memory access only happening if
- * 'encoding' != utf-8...
- *
- * Defining these macros as pure expressions looks a bit tricky but
- * avoids depending on the context of the macro expansion. One of the
- * rare occasions where the comma operator comes in handy :)
- *
- * Note: Do NOT keep the result around when handling control back to
- * the main Vim! The user could change 'encoding' at any time.
- */
- # define CONVERT_TO_UTF8(String) \
- ((output_conv.vc_type == CONV_NONE || (String) == NULL) \
- ? (String) \
- : string_convert(&output_conv, (String), NULL))
-
- # define CONVERT_TO_UTF8_FREE(String) \
- ((String) = ((output_conv.vc_type == CONV_NONE) \
- ? (char_u *)NULL \
- : (vim_free(String), (char_u *)NULL)))
-
- # define CONVERT_FROM_UTF8(String) \
- ((input_conv.vc_type == CONV_NONE || (String) == NULL) \
- ? (String) \
- : string_convert(&input_conv, (String), NULL))
-
- # define CONVERT_FROM_UTF8_FREE(String) \
- ((String) = ((input_conv.vc_type == CONV_NONE) \
- ? (char_u *)NULL \
- : (vim_free(String), (char_u *)NULL)))
-
- #endif /* HAVE_GTK2 */
-
- static void entry_activate_cb(GtkWidget *widget, gpointer data);
- #ifndef HAVE_GTK2 /* crack alert! */
- static void entry_changed_cb(GtkWidget *entry, GtkWidget *dialog);
- #endif
- static void find_direction_cb(GtkWidget *widget, gpointer data);
- static void find_replace_cb(GtkWidget *widget, gpointer data);
- static void wword_match_cb(GtkWidget *widget, gpointer data);
- static void mcase_match_cb(GtkWidget *widget, gpointer data);
- static void repl_dir_cb(GtkWidget *widget, gpointer data);
-
- #if defined(FEAT_TOOLBAR) && defined(HAVE_GTK2)
- /*
- * Table from BuiltIn## icon indices to GTK+ stock IDs. Order must exactly
- * match toolbar_names[] in menu.c! All stock icons including the "vim-*"
- * ones can be overridden in your gtkrc file.
- */
- static const char * const menu_stock_ids[] =
- {
- /* 00 */ GTK_STOCK_NEW,
- /* 01 */ GTK_STOCK_OPEN,
- /* 02 */ GTK_STOCK_SAVE,
- /* 03 */ GTK_STOCK_UNDO,
- /* 04 */ GTK_STOCK_REDO,
- /* 05 */ GTK_STOCK_CUT,
- /* 06 */ GTK_STOCK_COPY,
- /* 07 */ GTK_STOCK_PASTE,
- /* 08 */ GTK_STOCK_PRINT,
- /* 09 */ GTK_STOCK_HELP,
- /* 10 */ GTK_STOCK_FIND,
- /* 11 */ "vim-save-all",
- /* 12 */ "vim-session-save",
- /* 13 */ "vim-session-new",
- /* 14 */ "vim-session-load",
- /* 15 */ GTK_STOCK_EXECUTE,
- /* 16 */ GTK_STOCK_FIND_AND_REPLACE,
- /* 17 */ GTK_STOCK_CLOSE, /* FIXME: fuzzy */
- /* 18 */ "vim-window-maximize",
- /* 19 */ "vim-window-minimize",
- /* 20 */ "vim-window-split",
- /* 21 */ "vim-shell",
- /* 22 */ GTK_STOCK_GO_BACK,
- /* 23 */ GTK_STOCK_GO_FORWARD,
- /* 24 */ "vim-find-help",
- /* 25 */ GTK_STOCK_CONVERT,
- /* 26 */ GTK_STOCK_JUMP_TO,
- /* 27 */ "vim-build-tags",
- /* 28 */ "vim-window-split-vertical",
- /* 29 */ "vim-window-maximize-width",
- /* 30 */ "vim-window-minimize-width",
- /* 31 */ GTK_STOCK_QUIT
- };
-
- static void
- add_stock_icon(GtkIconFactory *factory,
- const char *stock_id,
- const guint8 *inline_data,
- int data_length)
- {
- GdkPixbuf *pixbuf;
- GtkIconSet *icon_set;
-
- pixbuf = gdk_pixbuf_new_from_inline(data_length, inline_data, FALSE, NULL);
- icon_set = gtk_icon_set_new_from_pixbuf(pixbuf);
-
- gtk_icon_factory_add(factory, stock_id, icon_set);
-
- gtk_icon_set_unref(icon_set);
- g_object_unref(pixbuf);
- }
-
- static int
- lookup_menu_iconfile(char_u *iconfile, char_u *dest)
- {
- expand_env(iconfile, dest, MAXPATHL);
-
- if (mch_isFullName(dest))
- {
- return vim_fexists(dest);
- }
- else
- {
- static const char suffixes[][4] = {"png", "xpm", "bmp"};
- char_u buf[MAXPATHL];
- unsigned int i;
-
- for (i = 0; i < G_N_ELEMENTS(suffixes); ++i)
- if (gui_find_bitmap(dest, buf, (char *)suffixes[i]) == OK)
- {
- STRCPY(dest, buf);
- return TRUE;
- }
-
- return FALSE;
- }
- }
-
- static GtkWidget *
- create_menu_icon(vimmenu_T *menu, GtkIconSize icon_size)
- {
- GtkWidget *image = NULL;
-
- if (menu->iconfile != NULL)
- {
- char_u buf[MAXPATHL];
-
- if (lookup_menu_iconfile(menu->iconfile, buf))
- {
- GtkIconSet *icon_set;
- GtkIconSource *icon_source;
- /*
- * Rather than loading the icon directly into a GtkImage, create
- * a new GtkIconSet and put it in there. This way we can easily
- * scale the toolbar icons on the fly when needed.
- */
- icon_set = gtk_icon_set_new();
- icon_source = gtk_icon_source_new();
-
- gtk_icon_source_set_filename(icon_source, (const char *)buf);
- gtk_icon_set_add_source(icon_set, icon_source);
-
- image = gtk_image_new_from_icon_set(icon_set, icon_size);
-
- gtk_icon_source_free(icon_source);
- gtk_icon_set_unref(icon_set);
- }
- }
-
- if (image == NULL)
- {
- const char *stock_id;
- const int n_ids = G_N_ELEMENTS(menu_stock_ids);
-
- if (menu->iconidx >= 0 && menu->iconidx < n_ids)
- stock_id = menu_stock_ids[menu->iconidx];
- else
- stock_id = GTK_STOCK_MISSING_IMAGE;
-
- image = gtk_image_new_from_stock(stock_id, icon_size);
- }
-
- return image;
- }
-
- #endif /* FEAT_TOOLBAR && HAVE_GTK2 */
-
- #if (defined(FEAT_TOOLBAR) && defined(HAVE_GTK2)) || defined(PROTO)
-
- void
- gui_gtk_register_stock_icons(void)
- {
- # include "../pixmaps/stock_icons.h"
- GtkIconFactory *factory;
-
- factory = gtk_icon_factory_new();
- # define ADD_ICON(Name, Data) add_stock_icon(factory, Name, Data, (int)sizeof(Data))
-
- ADD_ICON("vim-build-tags", stock_vim_build_tags);
- ADD_ICON("vim-find-help", stock_vim_find_help);
- ADD_ICON("vim-save-all", stock_vim_save_all);
- ADD_ICON("vim-session-load", stock_vim_session_load);
- ADD_ICON("vim-session-new", stock_vim_session_new);
- ADD_ICON("vim-session-save", stock_vim_session_save);
- ADD_ICON("vim-shell", stock_vim_shell);
- ADD_ICON("vim-window-maximize", stock_vim_window_maximize);
- ADD_ICON("vim-window-maximize-width", stock_vim_window_maximize_width);
- ADD_ICON("vim-window-minimize", stock_vim_window_minimize);
- ADD_ICON("vim-window-minimize-width", stock_vim_window_minimize_width);
- ADD_ICON("vim-window-split", stock_vim_window_split);
- ADD_ICON("vim-window-split-vertical", stock_vim_window_split_vertical);
-
- # undef ADD_ICON
- gtk_icon_factory_add_default(factory);
- g_object_unref(factory);
- }
-
- #endif /* FEAT_TOOLBAR && HAVE_GTK2 */
-
-
- /*
- * Only use accelerators when gtk_menu_ensure_uline_accel_group() is
- * available, which is in version 1.2.1. That was the first version where
- * accelerators properly worked (according to the change log).
- */
- #ifdef GTK_CHECK_VERSION
- # if GTK_CHECK_VERSION(1, 2, 1)
- # define GTK_USE_ACCEL
- # endif
- #endif
-
- #if defined(FEAT_MENU) || defined(PROTO)
-
- /*
- * Translate Vim's mnemonic tagging to GTK+ style and convert to UTF-8
- * if necessary. The caller must vim_free() the returned string.
- *
- * Input Output
- * _ __
- * && &
- * & _ stripped if use_mnemonic == FALSE
- * <Tab> end of menu label text
- */
- static char_u *
- translate_mnemonic_tag(char_u *name, int use_mnemonic)
- {
- char_u *buf;
- char_u *psrc;
- char_u *pdest;
- int n_underscores = 0;
-
- # ifdef HAVE_GTK2
- name = CONVERT_TO_UTF8(name);
- # endif
- if (name == NULL)
- return NULL;
-
- for (psrc = name; *psrc != NUL && *psrc != TAB; ++psrc)
- if (*psrc == '_')
- ++n_underscores;
-
- buf = alloc((unsigned)(psrc - name + n_underscores + 1));
- if (buf != NULL)
- {
- pdest = buf;
- for (psrc = name; *psrc != NUL && *psrc != TAB; ++psrc)
- {
- if (*psrc == '_')
- {
- *pdest++ = '_';
- *pdest++ = '_';
- }
- else if (*psrc != '&')
- {
- *pdest++ = *psrc;
- }
- else if (*(psrc + 1) == '&')
- {
- *pdest++ = *psrc++;
- }
- else if (use_mnemonic)
- {
- *pdest++ = '_';
- }
- }
- *pdest = NUL;
- }
-
- # ifdef HAVE_GTK2
- CONVERT_TO_UTF8_FREE(name);
- # endif
- return buf;
- }
-
- # ifdef HAVE_GTK2
-
- static void
- menu_item_new(vimmenu_T *menu, GtkWidget *parent_widget)
- {
- GtkWidget *box;
- char_u *text;
- int use_mnemonic;
-
- /* It would be neat to have image menu items, but that would require major
- * changes to Vim's menu system. Not to mention that all the translations
- * had to be updated. */
- menu->id = gtk_menu_item_new();
- box = gtk_hbox_new(FALSE, 20);
-
- use_mnemonic = (p_wak[0] != 'n' || !GTK_IS_MENU_BAR(parent_widget));
- text = translate_mnemonic_tag(menu->name, use_mnemonic);
-
- menu->label = gtk_label_new_with_mnemonic((const char *)text);
- vim_free(text);
-
- gtk_box_pack_start(GTK_BOX(box), menu->label, FALSE, FALSE, 0);
-
- if (menu->actext != NULL && menu->actext[0] != NUL)
- {
- text = CONVERT_TO_UTF8(menu->actext);
-
- gtk_box_pack_end(GTK_BOX(box),
- gtk_label_new((const char *)text),
- FALSE, FALSE, 0);
-
- CONVERT_TO_UTF8_FREE(text);
- }
-
- gtk_container_add(GTK_CONTAINER(menu->id), box);
- gtk_widget_show_all(menu->id);
- }
-
- # else /* !HAVE_GTK2 */
-
- /*
- * Create a highly customized menu item by hand instead of by using:
- *
- * gtk_menu_item_new_with_label(menu->dname);
- *
- * This is neccessary, since there is no other way in GTK+ 1 to get the
- * not automatically parsed accellerator stuff right.
- */
- static void
- menu_item_new(vimmenu_T *menu, GtkWidget *parent_widget)
- {
- GtkWidget *widget;
- GtkWidget *bin;
- GtkWidget *label;
- char_u *name;
- guint accel_key;
-
- widget = gtk_widget_new(GTK_TYPE_MENU_ITEM,
- "GtkWidget::visible", TRUE,
- "GtkWidget::sensitive", TRUE,
- /* "GtkWidget::parent", parent->submenu_id, */
- NULL);
- bin = gtk_widget_new(GTK_TYPE_HBOX,
- "GtkWidget::visible", TRUE,
- "GtkWidget::parent", widget,
- "GtkBox::spacing", 16,
- NULL);
- label = gtk_widget_new(GTK_TYPE_ACCEL_LABEL,
- "GtkWidget::visible", TRUE,
- "GtkWidget::parent", bin,
- "GtkAccelLabel::accel_widget", widget,
- "GtkMisc::xalign", 0.0,
- NULL);
- menu->label = label;
-
- if (menu->actext)
- gtk_widget_new(GTK_TYPE_LABEL,
- "GtkWidget::visible", TRUE,
- "GtkWidget::parent", bin,
- "GtkLabel::label", menu->actext,
- "GtkMisc::xalign", 1.0,
- NULL);
-
- /*
- * Translate VIM accelerator tagging into GTK+'s. Note that since GTK uses
- * underscores as the accelerator key, we need to add an additional under-
- * score for each understore that appears in the menu name.
- */
- # ifdef GTK_USE_ACCEL
- name = translate_mnemonic_tag(menu->name,
- (p_wak[0] != 'n' || !GTK_IS_MENU_BAR(parent_widget)));
- # else
- name = translate_mnemonic_tag(menu->name, FALSE);
- # endif
-
- /* let GTK do its thing */
- accel_key = gtk_label_parse_uline(GTK_LABEL(label), (const char *)name);
- vim_free(name);
-
- # ifdef GTK_USE_ACCEL
- /* Don't add accelator if 'winaltkeys' is "no". */
- if (accel_key != GDK_VoidSymbol)
- {
- if (GTK_IS_MENU_BAR(parent_widget))
- {
- if (*p_wak != 'n')
- gtk_widget_add_accelerator(widget,
- "activate_item",
- gui.accel_group,
- accel_key, GDK_MOD1_MASK,
- (GtkAccelFlags)0);
- }
- else
- {
- gtk_widget_add_accelerator(widget,
- "activate_item",
- gtk_menu_ensure_uline_accel_group(GTK_MENU(parent_widget)),
- accel_key, 0,
- (GtkAccelFlags)0);
- }
- }
- # endif /* GTK_USE_ACCEL */
-
- menu->id = widget;
- }
-
- # endif /* !HAVE_GTK2 */
-
- void
- gui_mch_add_menu(vimmenu_T *menu, int idx)
- {
- vimmenu_T *parent;
- GtkWidget *parent_widget;
-
- if (menu->name[0] == ']' || menu_is_popup(menu->name))
- {
- menu->submenu_id = gtk_menu_new();
- return;
- }
-
- parent = menu->parent;
-
- if ((parent != NULL && parent->submenu_id == NULL)
- || !menu_is_menubar(menu->name))
- return;
-
- parent_widget = (parent != NULL) ? parent->submenu_id : gui.menubar;
- menu_item_new(menu, parent_widget);
-
- if (parent != NULL)
- /* since the tearoff should always appear first, increment idx */
- ++idx;
-
- gtk_menu_shell_insert(GTK_MENU_SHELL(parent_widget), menu->id, idx);
-
- #ifndef HAVE_GTK2
- /*
- * The "Help" menu is a special case, and should be placed at the far
- * right hand side of the menu-bar. It's detected by its high priority.
- *
- * Right-aligning "Help" is considered bad UI design nowadays.
- * Thus lets disable this for GTK+ 2 to match the environment.
- */
- if (parent == NULL && menu->priority >= 9999)
- gtk_menu_item_right_justify(GTK_MENU_ITEM(menu->id));
- #endif
-
- menu->submenu_id = gtk_menu_new();
-
- gtk_menu_set_accel_group(GTK_MENU(menu->submenu_id), gui.accel_group);
- gtk_menu_item_set_submenu(GTK_MENU_ITEM(menu->id), menu->submenu_id);
-
- menu->tearoff_handle = gtk_tearoff_menu_item_new();
- if (vim_strchr(p_go, GO_TEAROFF) != NULL)
- gtk_widget_show(menu->tearoff_handle);
- gtk_menu_prepend(GTK_MENU(menu->submenu_id), menu->tearoff_handle);
- }
-
- /*ARGSUSED*/
- static void
- menu_item_activate(GtkWidget *widget, gpointer data)
- {
- gui_menu_cb((vimmenu_T *)data);
-
- # ifndef HAVE_GTK2
- /* Work around a bug in GTK+ 1: we don't seem to get a focus-in
- * event after clicking a menu item shown via :popup. */
- if (!gui.in_focus)
- gui_focus_change(TRUE);
- # endif
-
- /* make sure the menu action is taken immediately */
- if (gtk_main_level() > 0)
- gtk_main_quit();
- }
-
- # if defined(FEAT_TOOLBAR) && !defined(HAVE_GTK2)
- /*
- * These are the pixmaps used for the default buttons.
- * Order must exactly match toolbar_names[] in menu.c!
- */
- static char **(built_in_pixmaps[]) =
- {
- tb_new_xpm,
- tb_open_xpm,
- tb_save_xpm,
- tb_undo_xpm,
- tb_redo_xpm,
- tb_cut_xpm,
- tb_copy_xpm,
- tb_paste_xpm,
- tb_print_xpm,
- tb_help_xpm,
- tb_find_xpm,
- tb_save_all_xpm,
- tb_save_session_xpm,
- tb_new_session_xpm,
- tb_load_session_xpm,
- tb_macro_xpm,
- tb_replace_xpm,
- tb_close_xpm,
- tb_maximize_xpm,
- tb_minimize_xpm,
- tb_split_xpm,
- tb_shell_xpm,
- tb_find_prev_xpm,
- tb_find_next_xpm,
- tb_find_help_xpm,
- tb_make_xpm,
- tb_jump_xpm,
- tb_ctags_xpm,
- tb_vsplit_xpm,
- tb_maxwidth_xpm,
- tb_minwidth_xpm,
- tb_exit_xpm
- };
-
- /*
- * creates a blank pixmap using tb_blank
- */
- static void
- pixmap_create_from_xpm(char **xpm, GdkPixmap **pixmap, GdkBitmap **mask)
- {
- *pixmap = gdk_pixmap_colormap_create_from_xpm_d(
- NULL,
- gtk_widget_get_colormap(gui.mainwin),
- mask,
- NULL,
- xpm);
- }
-
- /*
- * creates a pixmap by using a built-in number
- */
- static void
- pixmap_create_by_num(int pixmap_num, GdkPixmap **pixmap, GdkBitmap **mask)
- {
- if (pixmap_num >= 0 && pixmap_num < (sizeof(built_in_pixmaps)
- / sizeof(built_in_pixmaps[0])))
- pixmap_create_from_xpm(built_in_pixmaps[pixmap_num], pixmap, mask);
- }
-
- /*
- * Creates a pixmap by using the pixmap "name" found in 'runtimepath'/bitmaps/
- */
- static void
- pixmap_create_by_dir(char_u *name, GdkPixmap **pixmap, GdkBitmap **mask)
- {
- char_u full_pathname[MAXPATHL + 1];
-
- if (gui_find_bitmap(name, full_pathname, "xpm") == OK)
- *pixmap = gdk_pixmap_colormap_create_from_xpm(
- NULL,
- gtk_widget_get_colormap(gui.mainwin),
- mask,
- &gui.mainwin->style->bg[GTK_STATE_NORMAL],
- (const char *)full_pathname);
- }
-
- /*
- * Creates a pixmap by using the pixmap "fname".
- */
- static void
- pixmap_create_from_file(char_u *fname, GdkPixmap **pixmap, GdkBitmap **mask)
- {
- *pixmap = gdk_pixmap_colormap_create_from_xpm(
- NULL,
- gtk_widget_get_colormap(gui.mainwin),
- mask,
- &gui.mainwin->style->bg[GTK_STATE_NORMAL],
- (const char *)fname);
- }
-
- # endif /* FEAT_TOOLBAR && !HAVE_GTK2 */
-
- void
- gui_mch_add_menu_item(vimmenu_T *menu, int idx)
- {
- vimmenu_T *parent;
-
- parent = menu->parent;
-
- # ifdef FEAT_TOOLBAR
- if (menu_is_toolbar(parent->name))
- {
- GtkToolbar *toolbar;
-
- toolbar = GTK_TOOLBAR(gui.toolbar);
- menu->submenu_id = NULL;
-
- if (menu_is_separator(menu->name))
- {
- gtk_toolbar_insert_space(toolbar, idx);
- menu->id = NULL;
- }
- else
- {
- # ifdef HAVE_GTK2
- char_u *text;
- char_u *tooltip;
-
- text = CONVERT_TO_UTF8(menu->dname);
- tooltip = CONVERT_TO_UTF8(menu->strings[MENU_INDEX_TIP]);
-
- menu->id = gtk_toolbar_insert_item(
- toolbar,
- (const char *)text,
- (const char *)tooltip,
- NULL,
- create_menu_icon(menu, gtk_toolbar_get_icon_size(toolbar)),
- G_CALLBACK(&menu_item_activate),
- menu,
- idx);
-
- CONVERT_TO_UTF8_FREE(text);
- CONVERT_TO_UTF8_FREE(tooltip);
-
- # else /* !HAVE_GTK2 */
-
- GdkPixmap *pixmap = NULL;
- GdkBitmap *mask = NULL;
-
- /* First try user specified bitmap, then builtin, the a blank. */
- if (menu->iconfile != NULL)
- {
- char_u buf[MAXPATHL + 1];
-
- gui_find_iconfile(menu->iconfile, buf, "xpm");
- pixmap_create_from_file(buf, &pixmap, &mask);
- }
- if (pixmap == NULL && !menu->icon_builtin)
- pixmap_create_by_dir(menu->name, &pixmap, &mask);
- if (pixmap == NULL && menu->iconidx >= 0)
- pixmap_create_by_num(menu->iconidx, &pixmap, &mask);
- if (pixmap == NULL)
- pixmap_create_from_xpm(tb_blank_xpm, &pixmap, &mask);
- if (pixmap == NULL)
- return; /* should at least have blank pixmap, but if not... */
-
- menu->id = gtk_toolbar_insert_item(
- toolbar,
- (char *)(menu->dname),
- (char *)(menu->strings[MENU_INDEX_TIP]),
- (char *)(menu->dname),
- gtk_pixmap_new(pixmap, mask),
- GTK_SIGNAL_FUNC(menu_item_activate),
- (gpointer)menu,
- idx);
- # endif /* !HAVE_GTK2 */
- }
- }
- else
- # endif /* FEAT_TOOLBAR */
- {
- /* No parent, must be a non-menubar menu */
- if (parent->submenu_id == NULL)
- return;
-
- /* make place for the possible tearoff handle item */
- ++idx;
- if (menu_is_separator(menu->name))
- {
- /* Separator: Just add it */
- menu->id = gtk_menu_item_new();
- gtk_widget_set_sensitive(menu->id, FALSE);
- gtk_widget_show(menu->id);
- gtk_menu_insert(GTK_MENU(parent->submenu_id), menu->id, idx);
-
- return;
- }
-
- /* Add textual menu item. */
- menu_item_new(menu, parent->submenu_id);
- gtk_widget_show(menu->id);
- gtk_menu_insert(GTK_MENU(parent->submenu_id), menu->id, idx);
-
- if (menu->id != NULL)
- gtk_signal_connect(GTK_OBJECT(menu->id), "activate",
- GTK_SIGNAL_FUNC(menu_item_activate), menu);
- }
- }
- #endif /* FEAT_MENU */
-
-
- void
- gui_mch_set_text_area_pos(int x, int y, int w, int h)
- {
- gtk_form_move_resize(GTK_FORM(gui.formwin), gui.drawarea, x, y, w, h);
- }
-
-
- #if defined(FEAT_MENU) || defined(PROTO)
- /*
- * Enable or disable accelators for the toplevel menus.
- */
- void
- gui_gtk_set_mnemonics(int enable)
- {
- vimmenu_T *menu;
- char_u *name;
- # if !defined(HAVE_GTK2) && defined(GTK_USE_ACCEL)
- guint accel_key;
- # endif
-
- for (menu = root_menu; menu != NULL; menu = menu->next)
- {
- if (menu->id == NULL)
- continue;
-
- # if defined(HAVE_GTK2)
- name = translate_mnemonic_tag(menu->name, enable);
- gtk_label_set_text_with_mnemonic(GTK_LABEL(menu->label),
- (const char *)name);
- vim_free(name);
- # elif defined(GTK_USE_ACCEL)
- name = translate_mnemonic_tag(menu->name, TRUE);
- if (name != NULL)
- {
- accel_key = gtk_label_parse_uline(GTK_LABEL(menu->label),
- (const char *)name);
- if (accel_key != GDK_VoidSymbol)
- gtk_widget_remove_accelerator(menu->id, gui.accel_group,
- accel_key, GDK_MOD1_MASK);
- if (enable && accel_key != GDK_VoidSymbol)
- gtk_widget_add_accelerator(menu->id, "activate_item",
- gui.accel_group,
- accel_key, GDK_MOD1_MASK,
- (GtkAccelFlags)0);
- vim_free(name);
- }
- if (!enable)
- {
- name = translate_mnemonic_tag(menu->name, FALSE);
- gtk_label_parse_uline(GTK_LABEL(menu->label), (const char *)name);
- vim_free(name);
- }
- # endif
- }
- }
-
- static void
- recurse_tearoffs(vimmenu_T *menu, int val)
- {
- for (; menu != NULL; menu = menu->next)
- {
- if (menu->submenu_id != NULL && menu->tearoff_handle != NULL
- && menu->name[0] != ']' && !menu_is_popup(menu->name))
- {
- if (val)
- gtk_widget_show(menu->tearoff_handle);
- else
- gtk_widget_hide(menu->tearoff_handle);
- }
- recurse_tearoffs(menu->children, val);
- }
- }
-
- void
- gui_mch_toggle_tearoffs(int enable)
- {
- recurse_tearoffs(root_menu, enable);
- }
- #endif /* FEAT_MENU */
-
-
- #if defined(FEAT_TOOLBAR) && !defined(HAVE_GTK2)
- /*
- * Seems like there's a hole in the GTK Toolbar API: there's no provision for
- * removing an item from the toolbar. Therefore I need to resort to going
- * really deeply into the internal widget structures.
- *
- * <danielk> I'm not sure the statement above is true -- at least with
- * GTK+ 2 one can just call gtk_widget_destroy() and be done with it.
- * It is true though that you couldn't remove space items before GTK+ 2
- * (without digging into the internals that is). But the code below
- * doesn't seem to handle those either. Well, it's obsolete anyway.
- */
- static void
- toolbar_remove_item_by_text(GtkToolbar *tb, const char *text)
- {
- GtkContainer *container;
- GList *childl;
- GtkToolbarChild *gtbc;
-
- g_return_if_fail(tb != NULL);
- g_return_if_fail(GTK_IS_TOOLBAR(tb));
- container = GTK_CONTAINER(&tb->container);
-
- for (childl = tb->children; childl; childl = childl->next)
- {
- gtbc = (GtkToolbarChild *)childl->data;
-
- if (gtbc->type != GTK_TOOLBAR_CHILD_SPACE
- && strcmp(GTK_LABEL(gtbc->label)->label, text) == 0)
- {
- gboolean was_visible;
-
- was_visible = GTK_WIDGET_VISIBLE(gtbc->widget);
- gtk_widget_unparent(gtbc->widget);
-
- tb->children = g_list_remove_link(tb->children, childl);
- g_free(gtbc);
- g_list_free(childl);
- tb->num_children--;
-
- if (was_visible && GTK_WIDGET_VISIBLE(container))
- gtk_widget_queue_resize(GTK_WIDGET(container));
-
- break;
- }
- }
- }
- #endif /* FEAT_TOOLBAR && !HAVE_GTK2 */
-
-
- #if defined(FEAT_TOOLBAR) && defined(HAVE_GTK2)
- static int
- get_menu_position(vimmenu_T *menu)
- {
- vimmenu_T *node;
- int index = 0;
-
- for (node = menu->parent->children; node != menu; node = node->next)
- {
- g_return_val_if_fail(node != NULL, -1);
- ++index;
- }
-
- return index;
- }
- #endif /* FEAT_TOOLBAR && HAVE_GTK2 */
-
-
- #if defined(FEAT_TOOLBAR) || defined(PROTO)
- void
- gui_mch_menu_set_tip(vimmenu_T *menu)
- {
- if (menu->id != NULL && menu->parent != NULL
- && gui.toolbar != NULL && menu_is_toolbar(menu->parent->name))
- {
- char_u *tooltip;
-
- # ifdef HAVE_GTK2
- tooltip = CONVERT_TO_UTF8(menu->strings[MENU_INDEX_TIP]);
- # else
- tooltip = menu->strings[MENU_INDEX_TIP];
- # endif
- gtk_tooltips_set_tip(GTK_TOOLBAR(gui.toolbar)->tooltips,
- menu->id, (const char *)tooltip, NULL);
- # ifdef HAVE_GTK2
- CONVERT_TO_UTF8_FREE(tooltip);
- # endif
- }
- }
- #endif /* FEAT_TOOLBAR */
-
-
- #if defined(FEAT_MENU) || defined(PROTO)
- /*
- * Destroy the machine specific menu widget.
- */
- void
- gui_mch_destroy_menu(vimmenu_T *menu)
- {
- # ifdef FEAT_TOOLBAR
- if (menu->parent != NULL && menu_is_toolbar(menu->parent->name))
- {
- # ifdef HAVE_GTK2
- if (menu_is_separator(menu->name))
- gtk_toolbar_remove_space(GTK_TOOLBAR(gui.toolbar),
- get_menu_position(menu));
- else if (menu->id != NULL)
- gtk_widget_destroy(menu->id);
- # else
- toolbar_remove_item_by_text(GTK_TOOLBAR(gui.toolbar),
- (const char *)menu->dname);
- # endif
- }
- else
- # endif /* FEAT_TOOLBAR */
- {
- if (menu->submenu_id != NULL)
- gtk_widget_destroy(menu->submenu_id);
-
- if (menu->id != NULL)
- gtk_widget_destroy(menu->id);
- }
-
- menu->submenu_id = NULL;
- menu->id = NULL;
- }
- #endif /* FEAT_MENU */
-
-
- /*
- * Scrollbar stuff.
- */
- void
- gui_mch_set_scrollbar_thumb(scrollbar_T *sb, long val, long size, long max)
- {
- if (sb->id != NULL)
- {
- GtkAdjustment *adjustment;
-
- adjustment = gtk_range_get_adjustment(GTK_RANGE(sb->id));
-
- adjustment->lower = 0.0;
- adjustment->value = val;
- adjustment->upper = max + 1;
- adjustment->page_size = size;
- adjustment->page_increment = size < 3L ? 1L : size - 2L;
- adjustment->step_increment = 1.0;
-
- #ifdef HAVE_GTK2
- g_signal_handler_block(GTK_OBJECT(adjustment),
- (gulong)sb->handler_id);
- #else
- gtk_signal_handler_block(GTK_OBJECT(adjustment),
- (guint)sb->handler_id);
- #endif
- gtk_adjustment_changed(adjustment);
- #ifdef HAVE_GTK2
- g_signal_handler_unblock(GTK_OBJECT(adjustment),
- (gulong)sb->handler_id);
- #else
- gtk_signal_handler_unblock(GTK_OBJECT(adjustment),
- (guint)sb->handler_id);
- #endif
- }
- }
-
- void
- gui_mch_set_scrollbar_pos(scrollbar_T *sb, int x, int y, int w, int h)
- {
- if (sb->id != NULL)
- gtk_form_move_resize(GTK_FORM(gui.formwin), sb->id, x, y, w, h);
- }
-
- /*
- * Take action upon scrollbar dragging.
- */
- static void
- adjustment_value_changed(GtkAdjustment *adjustment, gpointer data)
- {
- scrollbar_T *sb;
- long value;
- int dragging = FALSE;
-
- #ifdef FEAT_XIM
- /* cancel any preediting */
- if (preedit_start_col != MAXCOL)
- xim_reset();
- #endif
-
- sb = gui_find_scrollbar((long)data);
- value = (long)adjustment->value;
- /*
- * The dragging argument must be right for the scrollbar to work with
- * closed folds. This isn't documented, hopefully this will keep on
- * working in later GTK versions.
- *
- * FIXME: Well, it doesn't work in GTK2. :)
- * OK, I experimented with GTK_WIDGET_HAS_GRAB() and it seemed to work
- * to some extent. But simply setting dragging = TRUE all the time
- * seems to work better :/ We also need to #define USE_ON_FLY_SCROLL
- * for GTK+ 2, thus things do work substantially different.
- */
- if (sb != NULL)
- {
- #ifdef HAVE_GTK2
- dragging = TRUE;
- #else
- dragging = (GTK_RANGE(sb->id)->scroll_type == GTK_SCROLL_NONE);
- #endif
- }
-
- gui_drag_scrollbar(sb, value, dragging);
-
- if (gtk_main_level() > 0)
- gtk_main_quit();
- }
-
- /* SBAR_VERT or SBAR_HORIZ */
- void
- gui_mch_create_scrollbar(scrollbar_T *sb, int orient)
- {
- if (orient == SBAR_HORIZ)
- sb->id = gtk_hscrollbar_new(NULL);
- else if (orient == SBAR_VERT)
- sb->id = gtk_vscrollbar_new(NULL);
-
- if (sb->id != NULL)
- {
- GtkAdjustment *adjustment;
-
- GTK_WIDGET_UNSET_FLAGS(sb->id, GTK_CAN_FOCUS);
- gtk_form_put(GTK_FORM(gui.formwin), sb->id, 0, 0);
-
- adjustment = gtk_range_get_adjustment(GTK_RANGE(sb->id));
-
- sb->handler_id = gtk_signal_connect(
- GTK_OBJECT(adjustment), "value_changed",
- GTK_SIGNAL_FUNC(adjustment_value_changed),
- GINT_TO_POINTER(sb->ident));
- gui_mch_update();
- }
- }
-
- #if defined(FEAT_WINDOWS) || defined(PROTO)
- void
- gui_mch_destroy_scrollbar(scrollbar_T *sb)
- {
- if (sb->id != NULL)
- {
- gtk_widget_destroy(sb->id);
- sb->id = NULL;
- }
- gui_mch_update();
- }
- #endif
-
- #if defined(FEAT_BROWSE) || defined(PROTO)
- /*
- * Implementation of the file selector related stuff
- */
-
- /*ARGSUSED*/
- static void
- browse_ok_cb(GtkWidget *widget, gpointer cbdata)
- {
- gui_T *vw = (gui_T *)cbdata;
-
- if (vw->browse_fname != NULL)
- g_free(vw->browse_fname);
-
- vw->browse_fname = (char_u *)g_strdup(gtk_file_selection_get_filename(
- GTK_FILE_SELECTION(vw->filedlg)));
- gtk_widget_hide(vw->filedlg);
- if (gtk_main_level() > 0)
- gtk_main_quit();
- }
-
- /*ARGSUSED*/
- static void
- browse_cancel_cb(GtkWidget *widget, gpointer cbdata)
- {
- gui_T *vw = (gui_T *)cbdata;
-
- if (vw->browse_fname != NULL)
- {
- g_free(vw->browse_fname);
- vw->browse_fname = NULL;
- }
- gtk_widget_hide(vw->filedlg);
- if (gtk_main_level() > 0)
- gtk_main_quit();
- }
-
- /*ARGSUSED*/
- static gboolean
- browse_destroy_cb(GtkWidget * widget)
- {
- if (gui.browse_fname != NULL)
- {
- g_free(gui.browse_fname);
- gui.browse_fname = NULL;
- }
- gui.filedlg = NULL;
-
- if (gtk_main_level() > 0)
- gtk_main_quit();
-
- return FALSE;
- }
-
- /*
- * Put up a file requester.
- * Returns the selected name in allocated memory, or NULL for Cancel.
- * saving, select file to write
- * title title for the window
- * dflt default name
- * ext not used (extension added)
- * initdir initial directory, NULL for current dir
- * filter not used (file name filter)
- */
- /*ARGSUSED*/
- char_u *
- gui_mch_browse(int saving,
- char_u *title,
- char_u *dflt,
- char_u *ext,
- char_u *initdir,
- char_u *filter)
- {
- GtkFileSelection *fs; /* shortcut */
- char_u dirbuf[MAXPATHL];
- char_u *p;
-
- # ifdef HAVE_GTK2
- title = CONVERT_TO_UTF8(title);
- # endif
-
- if (!gui.filedlg)
- {
- gui.filedlg = gtk_file_selection_new((const gchar *)title);
- gtk_window_set_modal(GTK_WINDOW(gui.filedlg), TRUE);
- gtk_window_set_transient_for(GTK_WINDOW(gui.filedlg),
- GTK_WINDOW(gui.mainwin));
- fs = GTK_FILE_SELECTION(gui.filedlg);
-
- gtk_container_border_width(GTK_CONTAINER(fs), 4);
-
- gtk_signal_connect(GTK_OBJECT(fs->ok_button),
- "clicked", GTK_SIGNAL_FUNC(browse_ok_cb), &gui);
- gtk_signal_connect(GTK_OBJECT(fs->cancel_button),
- "clicked", GTK_SIGNAL_FUNC(browse_cancel_cb), &gui);
- /* gtk_signal_connect() doesn't work for destroy, it causes a hang */
- gtk_signal_connect_object(GTK_OBJECT(gui.filedlg),
- "destroy", GTK_SIGNAL_FUNC(browse_destroy_cb),
- GTK_OBJECT(gui.filedlg));
- }
- else
- gtk_window_set_title(GTK_WINDOW(gui.filedlg), (const gchar *)title);
-
- # ifdef HAVE_GTK2
- CONVERT_TO_UTF8_FREE(title);
- # endif
-
- /* if our pointer is currently hidden, then we should show it. */
- gui_mch_mousehide(FALSE);
-
- /* Concatenate "initdir" and "dflt". */
- if (initdir == NULL || *initdir == NUL)
- mch_dirname(dirbuf, MAXPATHL);
- else if (STRLEN(initdir) + 2 < MAXPATHL)
- STRCPY(dirbuf, initdir);
- else
- dirbuf[0] = NUL;
- /* Always need a trailing slash for a directory. */
- add_pathsep(dirbuf);
- if (dflt != NULL && *dflt != NUL
- && STRLEN(dirbuf) + 2 + STRLEN(dflt) < MAXPATHL)
- STRCAT(dirbuf, dflt);
-
- gtk_file_selection_set_filename(GTK_FILE_SELECTION(gui.filedlg),
- (const gchar *)dirbuf);
- # ifndef HAVE_GTK2
- gui_gtk_position_in_parent(GTK_WIDGET(gui.mainwin),
- GTK_WIDGET(gui.filedlg), VW_POS_MOUSE);
- # endif
-
- gtk_widget_show(gui.filedlg);
- while (gui.filedlg && GTK_WIDGET_DRAWABLE(gui.filedlg))
- gtk_main_iteration_do(TRUE);
-
- if (gui.browse_fname == NULL)
- return NULL;
-
- /* shorten the file name if possible */
- mch_dirname(dirbuf, MAXPATHL);
- p = shorten_fname(gui.browse_fname, dirbuf);
- if (p == NULL)
- p = gui.browse_fname;
- return vim_strsave(p);
- }
-
- #endif /* FEAT_BROWSE */
-
- #if (defined(FEAT_GUI_DIALOG) && !defined(HAVE_GTK2)) || defined(PROTO)
-
- static char_u *dialog_textfield = NULL;
- static GtkWidget *dialog_textentry;
-
- static void
- dlg_destroy(GtkWidget *dlg)
- {
- if (dialog_textfield != NULL)
- {
- const char *text;
-
- text = gtk_entry_get_text(GTK_ENTRY(dialog_textentry));
- STRNCPY(dialog_textfield, text, IOSIZE);
- dialog_textfield[IOSIZE - 1] = NUL;
- }
-
- /* Destroy the dialog, will break the waiting loop. */
- gtk_widget_destroy(dlg);
- }
-
- # ifdef FEAT_GUI_GNOME
- /* ARGSUSED */
- static int
- gui_gnome_dialog( int type,
- char_u *title,
- char_u *message,
- char_u *buttons,
- int dfltbutton,
- char_u *textfield)
- {
- GtkWidget *dlg;
- char *gdtype;
- char_u *buttons_copy, *p, *next;
- char **buttons_list;
- int butcount, cur;
-
- /* make a copy, so that we can insert NULs */
- if ((buttons_copy = vim_strsave(buttons)) == NULL)
- return -1;
-
- /* determine exact number of buttons and allocate array to hold them */
- for (butcount = 0, p = buttons; *p; p++)
- {
- if (*p == '\n')
- butcount++;
- }
- butcount++;
- buttons_list = g_new0(char *, butcount + 1);
-
- /* Add pixmap */
- switch (type)
- {
- case VIM_ERROR:
- gdtype = GNOME_MESSAGE_BOX_ERROR;
- break;
- case VIM_WARNING:
- gdtype = GNOME_MESSAGE_BOX_WARNING;
- break;
- case VIM_INFO:
- gdtype = GNOME_MESSAGE_BOX_INFO;
- break;
- case VIM_QUESTION:
- gdtype = GNOME_MESSAGE_BOX_QUESTION;
- break;
- default:
- gdtype = GNOME_MESSAGE_BOX_GENERIC;
- };
-
- p = buttons_copy;
- for (cur = 0; cur < butcount; ++cur)
- {
- for (next = p; *next; ++next)
- {
- if (*next == DLG_HOTKEY_CHAR)
- mch_memmove(next, next + 1, STRLEN(next));
- if (*next == DLG_BUTTON_SEP)
- {
- *next++ = NUL;
- break;
- }
- }
-
- /* this should probably go into a table, but oh well */
- if (g_strcasecmp((char *)p, "Ok") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_OK);
- else if (g_strcasecmp((char *)p, "Cancel") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_CANCEL);
- else if (g_strcasecmp((char *)p, "Yes") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_YES);
- else if (g_strcasecmp((char *)p, "No") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_NO);
- else if (g_strcasecmp((char *)p, "Close") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_CLOSE);
- else if (g_strcasecmp((char *)p, "Help") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_HELP);
- else if (g_strcasecmp((char *)p, "Apply") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_APPLY);
- #if 0
- /*
- * these aren't really used that often anyway, but are listed here as
- * placeholders in case we need them.
- */
- else if (g_strcasecmp((char *)p, "Next") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_NEXT);
- else if (g_strcasecmp((char *)p, "Prev") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_PREV);
- else if (g_strcasecmp((char *)p, "Up") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_UP);
- else if (g_strcasecmp((char *)p, "Down") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_DOWN);
- else if (g_strcasecmp((char *)p, "Font") == 0)
- buttons_list[cur] = g_strdup(GNOME_STOCK_BUTTON_FONT);
- #endif
- else
- buttons_list[cur] = g_strdup((char *)p);
-
- if (*next == NUL)
- break;
-
- p = next;
- }
- vim_free(buttons_copy);
-
- dlg = gnome_message_box_newv((const char *)message,
- (const char *)gdtype,
- (const char **)buttons_list);
- for (cur = 0; cur < butcount; ++cur)
- g_free(buttons_list[cur]);
- g_free(buttons_list);
-
- dialog_textfield = textfield;
- if (textfield != NULL)
- {
- /* Add text entry field */
- dialog_textentry = gtk_entry_new();
- gtk_box_pack_start(GTK_BOX(GNOME_DIALOG(dlg)->vbox), dialog_textentry,
- TRUE, TRUE, 0);
- gtk_entry_set_text(GTK_ENTRY(dialog_textentry),
- (const gchar *)textfield);
- gtk_entry_select_region(GTK_ENTRY(dialog_textentry), 0,
- STRLEN(textfield));
- gtk_entry_set_max_length(GTK_ENTRY(dialog_textentry), IOSIZE - 1);
- gtk_entry_set_position(GTK_ENTRY(dialog_textentry), STRLEN(textfield));
- gtk_widget_show(dialog_textentry);
- gtk_window_set_focus(GTK_WINDOW(dlg), dialog_textentry);
- }
-
- gtk_signal_connect_object(GTK_OBJECT(dlg), "destroy",
- GTK_SIGNAL_FUNC(dlg_destroy), GTK_OBJECT(dlg));
- gnome_dialog_set_default(GNOME_DIALOG(dlg), dfltbutton + 1);
- gui_gtk_position_in_parent(GTK_WIDGET(gui.mainwin),
- GTK_WIDGET(dlg), VW_POS_MOUSE);
-
- return (1 + gnome_dialog_run_and_close(GNOME_DIALOG(dlg)));
- }
-
- # endif /* FEAT_GUI_GNOME */
-
- typedef struct _ButtonData
- {
- int *status;
- int index;
- GtkWidget *dialog;
- } ButtonData;
-
- typedef struct _CancelData
- {
- int *status;
- GtkWidget *dialog;
- } CancelData;
-
- /* ARGSUSED */
- static void
- dlg_button_clicked(GtkWidget * widget, ButtonData *data)
- {
- *(data->status) = data->index + 1;
- dlg_destroy(data->dialog);
- }
-
- /*
- * This makes the Escape key equivalent to the cancel button.
- */
- /*ARGSUSED*/
- static int
- dlg_key_press_event(GtkWidget * widget, GdkEventKey * event, CancelData *data)
- {
- if (event->keyval != GDK_Escape && event->keyval != GDK_Return)
- return FALSE;
-
- /* The result value of 0 from a dialog is signaling cancelation.
- * 1 means OK. */
- *(data->status) = (event->keyval == GDK_Return);
- dlg_destroy(data->dialog);
-
- return TRUE;
- }
-
- /*
- * Callback function for when the dialog was destroyed by a window manager.
- */
- static void
- dlg_destroy_cb(int *p)
- {
- *p = TRUE; /* set dialog_destroyed to break out of the loop */
- if (gtk_main_level() > 0)
- gtk_main_quit();
- }
-
- /* ARGSUSED */
- int
- gui_mch_dialog( int type, /* type of dialog */
- char_u *title, /* title of dialog */
- char_u *message, /* message text */
- char_u *buttons, /* names of buttons */
- int def_but, /* default button */
- char_u *textfield) /* text for textfield or NULL */
- {
- char_u *names;
- char_u *p;
- int i;
- int butcount;
- int dialog_status = -1;
- int dialog_destroyed = FALSE;
- int vertical;
-
- GtkWidget *dialog;
- GtkWidget *frame;
- GtkWidget *vbox;
- GtkWidget *table;
- GtkWidget *dialogmessage;
- GtkWidget *action_area;
- GtkWidget *sub_area;
- GtkWidget *separator;
- GtkAccelGroup *accel_group;
- GtkWidget *pixmap;
- GdkPixmap *icon = NULL;
- GdkBitmap *mask = NULL;
- char **icon_data = NULL;
-
- GtkWidget **button;
- ButtonData *data;
- CancelData cancel_data;
-
- /* if our pointer is currently hidden, then we should show it. */
- gui_mch_mousehide(FALSE);
-
- # ifdef FEAT_GUI_GNOME
- /* If Gnome is available, use it for the dialog. */
- if (gtk_socket_id == 0)
- return gui_gnome_dialog(type, title, message, buttons, def_but,
- textfield);
- # endif
-
- if (title == NULL)
- title = (char_u *)_("Vim dialog...");
-
- if ((type < 0) || (type > VIM_LAST_TYPE))
- type = VIM_GENERIC;
-
- /* Check 'v' flag in 'guioptions': vertical button placement. */
- vertical = (vim_strchr(p_go, GO_VERTICAL) != NULL);
-
- dialog = gtk_window_new(GTK_WINDOW_DIALOG);
- gtk_window_set_title(GTK_WINDOW(dialog), (const gchar *)title);
- gtk_window_set_transient_for(GTK_WINDOW(dialog), GTK_WINDOW(gui.mainwin));
- gtk_widget_realize(dialog);
- gdk_window_set_decorations(dialog->window, GDK_DECOR_BORDER);
- gdk_window_set_functions(dialog->window, GDK_FUNC_MOVE);
-
- cancel_data.status = &dialog_status;
- cancel_data.dialog = dialog;
- gtk_signal_connect_after(GTK_OBJECT(dialog), "key_press_event",
- GTK_SIGNAL_FUNC(dlg_key_press_event),
- (gpointer) &cancel_data);
- /* Catch the destroy signal, otherwise we don't notice a window manager
- * destroying the dialog window. */
- gtk_signal_connect_object(GTK_OBJECT(dialog), "destroy",
- GTK_SIGNAL_FUNC(dlg_destroy_cb),
- (gpointer)&dialog_destroyed);
-
- gtk_grab_add(dialog);
-
- /* this makes it look beter on Motif style window managers */
- frame = gtk_frame_new(NULL);
- gtk_container_add(GTK_CONTAINER(dialog), frame);
- gtk_widget_show(frame);
-
- vbox = gtk_vbox_new(FALSE, 0);
- gtk_container_add(GTK_CONTAINER(frame), vbox);
- gtk_widget_show(vbox);
-
- table = gtk_table_new(1, 3, FALSE);
- gtk_table_set_row_spacings(GTK_TABLE(table), 4);
- gtk_table_set_col_spacings(GTK_TABLE(table), 8);
- gtk_container_border_width(GTK_CONTAINER(table), 4);
- gtk_box_pack_start(GTK_BOX(vbox), table, 4, 4, 0);
- gtk_widget_show(table);
-
- /* Add pixmap */
- switch (type)
- {
- case VIM_GENERIC:
- icon_data = generic_xpm;
- break;
- case VIM_ERROR:
- icon_data = error_xpm;
- break;
- case VIM_WARNING:
- icon_data = alert_xpm;
- break;
- case VIM_INFO:
- icon_data = info_xpm;
- break;
- case VIM_QUESTION:
- icon_data = quest_xpm;
- break;
- default:
- icon_data = generic_xpm;
- };
- icon = gdk_pixmap_colormap_create_from_xpm_d(NULL,
- gtk_widget_get_colormap(dialog),
- &mask, NULL, icon_data);
- if (icon)
- {
- pixmap = gtk_pixmap_new(icon, mask);
- /* gtk_misc_set_alignment(GTK_MISC(pixmap), 0.5, 0.5); */
- gtk_table_attach_defaults(GTK_TABLE(table), pixmap, 0, 1, 0, 1);
- gtk_widget_show(pixmap);
- }
-
- /* Add label */
- dialogmessage = gtk_label_new((const gchar *)message);
- gtk_table_attach_defaults(GTK_TABLE(table), dialogmessage, 1, 2, 0, 1);
- gtk_widget_show(dialogmessage);
-
- dialog_textfield = textfield;
- if (textfield != NULL)
- {
- /* Add text entry field */
- dialog_textentry = gtk_entry_new();
- gtk_widget_set_usize(dialog_textentry, 400, -2);
- gtk_box_pack_start(GTK_BOX(vbox), dialog_textentry, TRUE, TRUE, 0);
- gtk_entry_set_text(GTK_ENTRY(dialog_textentry),
- (const gchar *)textfield);
- gtk_entry_select_region(GTK_ENTRY(dialog_textentry), 0,
- STRLEN(textfield));
- gtk_entry_set_max_length(GTK_ENTRY(dialog_textentry), IOSIZE - 1);
- gtk_entry_set_position(GTK_ENTRY(dialog_textentry), STRLEN(textfield));
- gtk_widget_show(dialog_textentry);
- }
-
- /* Add box for buttons */
- action_area = gtk_hbox_new(FALSE, 0);
- gtk_container_border_width(GTK_CONTAINER(action_area), 4);
- gtk_box_pack_end(GTK_BOX(vbox), action_area, FALSE, TRUE, 0);
- gtk_widget_show(action_area);
-
- /* Add a [vh]box in the hbox to center the buttons in the dialog. */
- if (vertical)
- sub_area = gtk_vbox_new(FALSE, 0);
- else
- sub_area = gtk_hbox_new(FALSE, 0);
- gtk_container_set_border_width(GTK_CONTAINER(sub_area), 0);
- gtk_box_pack_start(GTK_BOX(action_area), sub_area, TRUE, FALSE, 0);
- gtk_widget_show(sub_area);
-
- /*
- * Create the buttons.
- */
-
- /*
- * Translate the Vim accelerator character into an underscore for GTK+.
- * Double underscores to keep them in the label.
- */
- /* count the number of underscores */
- i = 1;
- for (p = buttons; *p; ++p)
- if (*p == '_')
- ++i;
-
- /* make a copy of "buttons" with the translated characters */
- names = alloc(STRLEN(buttons) + i);
- if (names == NULL)
- return -1;
-
- p = names;
- for (i = 0; buttons[i]; ++i)
- {
- if (buttons[i] == DLG_HOTKEY_CHAR)
- *p++ = '_';
- else
- {
- if (buttons[i] == '_')
- *p++ = '_';
- *p++ = buttons[i];
- }
- }
- *p = NUL;
-
- /* Count the number of buttons and allocate button[] and data[]. */
- butcount = 1;
- for (p = names; *p; ++p)
- if (*p == DLG_BUTTON_SEP)
- ++butcount;
- button = (GtkWidget **)alloc((unsigned)(butcount * sizeof(GtkWidget *)));
- data = (ButtonData *)alloc((unsigned)(butcount * sizeof(ButtonData)));
- if (button == NULL || data == NULL)
- {
- vim_free(names);
- vim_free(button);
- vim_free(data);
- return -1;
- }
-
- /* Attach the new accelerator group to the window. */
- accel_group = gtk_accel_group_new();
- gtk_accel_group_attach(accel_group, GTK_OBJECT(dialog));
-
- p = names;
- for (butcount = 0; *p; ++butcount)
- {
- char_u *next;
- GtkWidget *label;
- # ifdef GTK_USE_ACCEL
- guint accel_key;
- # endif
-
- /* Chunk out this single button. */
- for (next = p; *next; ++next)
- {
- if (*next == DLG_BUTTON_SEP)
- {
- *next++ = NUL;
- break;
- }
- }
-
- button[butcount] = gtk_button_new();
- GTK_WIDGET_SET_FLAGS(button[butcount], GTK_CAN_DEFAULT);
-
- label = gtk_accel_label_new("");
- gtk_accel_label_set_accel_widget(GTK_ACCEL_LABEL(label), dialog);
-
- # ifdef GTK_USE_ACCEL
- accel_key = gtk_label_parse_uline(GTK_LABEL(label), (const gchar *)p);
- /* Don't add accelator if 'winaltkeys' is "no". */
- if (accel_key != GDK_VoidSymbol)
- {
- gtk_widget_add_accelerator(button[butcount],
- "clicked",
- accel_group,
- accel_key, 0,
- 0);
- }
- # else
- (void)gtk_label_parse_uline(GTK_LABEL(label), (const gchar *)p);
- # endif
-
- gtk_container_add(GTK_CONTAINER(button[butcount]), label);
- gtk_widget_show_all(button[butcount]);
-
- data[butcount].status = &dialog_status;
- data[butcount].index = butcount;
- data[butcount].dialog = dialog;
- gtk_signal_connect(GTK_OBJECT(button[butcount]),
- (const char *)"clicked",
- GTK_SIGNAL_FUNC(dlg_button_clicked),
- (gpointer) &data[butcount]);
-
- gtk_box_pack_start(GTK_BOX(sub_area), button[butcount],
- TRUE, FALSE, 0);
- p = next;
- }
-
- vim_free(names);
-
- if (butcount > 0)
- {
- --def_but; /* 1 is first button */
- if (def_but >= butcount)
- def_but = -1;
- if (def_but >= 0)
- {
- gtk_widget_grab_focus(button[def_but]);
- gtk_widget_grab_default(button[def_but]);
- }
- }
-
- if (textfield != NULL)
- gtk_window_set_focus(GTK_WINDOW(dialog), dialog_textentry);
-
- separator = gtk_hseparator_new();
- gtk_box_pack_end(GTK_BOX(vbox), separator, FALSE, TRUE, 0);
- gtk_widget_show(separator);
-
- dialog_status = -1;
-
- gui_gtk_position_in_parent(GTK_WIDGET(gui.mainwin),
- GTK_WIDGET(dialog), VW_POS_MOUSE);
-
- gtk_widget_show(dialog);
-
- /* loop here until the dialog goes away */
- while (dialog_status == -1 && !dialog_destroyed
- && GTK_WIDGET_DRAWABLE(dialog))
- gtk_main_iteration_do(TRUE);
-
- if (dialog_status < 0)
- dialog_status = 0;
- if (dialog_status != 1 && textfield != NULL)
- *textfield = NUL; /* dialog was cancelled */
-
- /* let the garbage collector know that we don't need it any longer */
- gtk_accel_group_unref(accel_group);
-
- vim_free(button);
- vim_free(data);
-
- return dialog_status;
- }
-
- #endif /* FEAT_GUI_DIALOG && !HAVE_GTK2 */
-
-
- #if defined(FEAT_GUI_DIALOG) && defined(HAVE_GTK2)
-
- static GtkWidget *
- create_message_dialog(int type, char_u *title, char_u *message)
- {
- GtkWidget *dialog;
- GtkMessageType message_type;
-
- switch (type)
- {
- case VIM_ERROR: message_type = GTK_MESSAGE_ERROR; break;
- case VIM_WARNING: message_type = GTK_MESSAGE_WARNING; break;
- case VIM_QUESTION: message_type = GTK_MESSAGE_QUESTION; break;
- default: message_type = GTK_MESSAGE_INFO; break;
- }
-
- message = CONVERT_TO_UTF8(message);
- dialog = gtk_message_dialog_new(GTK_WINDOW(gui.mainwin),
- GTK_DIALOG_DESTROY_WITH_PARENT,
- message_type,
- GTK_BUTTONS_NONE,
- "%s", (const char *)message);
- CONVERT_TO_UTF8_FREE(message);
-
- if (title != NULL)
- {
- title = CONVERT_TO_UTF8(title);
- gtk_window_set_title(GTK_WINDOW(dialog), (const char *)title);
- CONVERT_TO_UTF8_FREE(title);
- }
- else if (type == VIM_GENERIC)
- {
- gtk_window_set_title(GTK_WINDOW(dialog), "VIM");
- }
-
- return dialog;
- }
-
- /*
- * Split up button_string into individual button labels by inserting
- * NUL bytes. Also replace the Vim-style mnemonic accelerator prefix
- * '&' with '_'. button_string must point to allocated memory!
- * Return an allocated array of pointers into button_string.
- */
- static char **
- split_button_string(char_u *button_string, int *n_buttons)
- {
- char **array;
- char_u *p;
- unsigned int count = 1;
-
- for (p = button_string; *p != NUL; ++p)
- if (*p == DLG_BUTTON_SEP)
- ++count;
-
- array = (char **)alloc((count + 1) * sizeof(char *));
- count = 0;
-
- if (array != NULL)
- {
- array[count++] = (char *)button_string;
- for (p = button_string; *p != NUL; ++p)
- {
- if (*p == DLG_BUTTON_SEP)
- {
- *p = NUL;
- array[count++] = (char *)p + 1;
- }
- else if (*p == DLG_HOTKEY_CHAR)
- *p = '_';
- #ifdef FEAT_MBYTE
- else if (has_mbyte)
- p += (*mb_ptr2len_check)(p) - 1;
- #endif
- }
- array[count] = NULL; /* currently not relied upon, but doesn't hurt */
- }
-
- *n_buttons = count;
- return array;
- }
-
- static char **
- split_button_translation(const char *message)
- {
- char **buttons = NULL;
- char_u *str;
- int n_buttons = 0;
- int n_expected = 1;
-
- for (str = (char_u *)message; *str != NUL; ++str)
- if (*str == DLG_BUTTON_SEP)
- ++n_expected;
-
- str = (char_u *)_(message);
- if (str != NULL)
- {
- if (output_conv.vc_type != CONV_NONE)
- str = string_convert(&output_conv, str, NULL);
- else
- str = vim_strsave(str);
-
- if (str != NULL)
- buttons = split_button_string(str, &n_buttons);
- }
- /*
- * Uh-oh... this should never ever happen. But we don't wanna crash
- * if the translation is broken, thus fall back to the untranslated
- * buttons string in case of emergency.
- */
- if (buttons == NULL || n_buttons != n_expected)
- {
- vim_free(buttons);
- vim_free(str);
- buttons = NULL;
- str = vim_strsave((char_u *)message);
-
- if (str != NULL)
- buttons = split_button_string(str, &n_buttons);
- if (buttons == NULL)
- vim_free(str);
- }
-
- return buttons;
- }
-
- static int
- button_equal(const char *a, const char *b)
- {
- while (*a != '\0' && *b != '\0')
- {
- if (*a == '_' && *++a == '\0')
- break;
- if (*b == '_' && *++b == '\0')
- break;
-
- if (g_unichar_tolower(g_utf8_get_char(a))
- != g_unichar_tolower(g_utf8_get_char(b)))
- return FALSE;
-
- a = g_utf8_next_char(a);
- b = g_utf8_next_char(b);
- }
-
- return (*a == '\0' && *b == '\0');
- }
-
- static void
- dialog_add_buttons(GtkDialog *dialog, char_u *button_string)
- {
- char **ok;
- char **ync; /* "yes no cancel" */
- char **buttons;
- int n_buttons = 0;
- int index;
-
- button_string = vim_strsave(button_string); /* must be writable */
- if (button_string == NULL)
- return;
- /*
- * Yes this is ugly, I don't particularly like it either. But doing it
- * this way has the compelling advantage that translations need not to
- * be touched at all. See below what 'ok' and 'ync' are used for.
- */
- ok = split_button_translation(N_("&Ok"));
- ync = split_button_translation(N_("&Yes\n&No\n&Cancel"));
- buttons = split_button_string(button_string, &n_buttons);
-
- /*
- * Yes, the buttons are in reversed order to match the GNOME 2 desktop
- * environment. Don't hit me -- it's all about consistency.
- */
- for (index = n_buttons; index > 0; --index)
- {
- char *label;
- char_u *label8;
-
- label = buttons[index - 1];
- /*
- * Perform some guesswork to find appropriate stock items for the
- * buttons. We have to compare with a sample of the translated
- * button string to get things right. Yes, this is hackish :/
- *
- * But even the common button labels aren't necessarily translated,
- * since anyone can create their own dialogs using Vim functions.
- * Thus we have to check for those too.
- */
- if (ok != NULL && ync != NULL) /* almost impossible to fail */
- {
- if (button_equal(label, ok[0])) label = GTK_STOCK_OK;
- else if (button_equal(label, ync[0])) label = GTK_STOCK_YES;
- else if (button_equal(label, ync[1])) label = GTK_STOCK_NO;
- else if (button_equal(label, ync[2])) label = GTK_STOCK_CANCEL;
- else if (button_equal(label, "Ok")) label = GTK_STOCK_OK;
- else if (button_equal(label, "Yes")) label = GTK_STOCK_YES;
- else if (button_equal(label, "No")) label = GTK_STOCK_NO;
- else if (button_equal(label, "Cancel")) label = GTK_STOCK_CANCEL;
- }
- label8 = CONVERT_TO_UTF8((char_u *)label);
- gtk_dialog_add_button(dialog, (const gchar *)label8, index);
- CONVERT_TO_UTF8_FREE(label8);
- }
-
- if (ok != NULL)
- vim_free(*ok);
- if (ync != NULL)
- vim_free(*ync);
- vim_free(ok);
- vim_free(ync);
- vim_free(buttons);
- vim_free(button_string);
- }
-
- /*
- * Allow mnemonic accelerators to be activated without pressing <Alt>.
- * I'm not sure if it's a wise idea to do this. However, the old GTK+ 1.2
- * GUI used to work this way, and I consider the impact on UI consistency
- * low enough to justify implementing this as a special Vim feature.
- */
- /*ARGSUSED2*/
- static gboolean
- dialog_key_press_event_cb(GtkWidget *widget, GdkEventKey *event, gpointer data)
- {
- if ((event->state & gtk_accelerator_get_default_mod_mask()) == 0)
- {
- return gtk_window_mnemonic_activate(
- GTK_WINDOW(widget), event->keyval,
- gtk_window_get_mnemonic_modifier(GTK_WINDOW(widget)));
- }
- return FALSE; /* continue emission */
- }
-
- int
- gui_mch_dialog(int type, /* type of dialog */
- char_u *title, /* title of dialog */
- char_u *message, /* message text */
- char_u *buttons, /* names of buttons */
- int def_but, /* default button */
- char_u *textfield) /* text for textfield or NULL */
- {
- GtkWidget *dialog;
- GtkWidget *entry = NULL;
- char_u *text;
- int response;
-
- dialog = create_message_dialog(type, title, message);
- dialog_add_buttons(GTK_DIALOG(dialog), buttons);
-
- if (textfield != NULL)
- {
- GtkWidget *alignment;
-
- entry = gtk_entry_new();
- gtk_widget_show(entry);
-
- text = CONVERT_TO_UTF8(textfield);
- gtk_entry_set_text(GTK_ENTRY(entry), (const char *)text);
- CONVERT_TO_UTF8_FREE(text);
-
- alignment = gtk_alignment_new((float)0.5, (float)0.5,
- (float)1.0, (float)1.0);
- gtk_container_add(GTK_CONTAINER(alignment), entry);
- gtk_container_set_border_width(GTK_CONTAINER(alignment), 5);
- gtk_widget_show(alignment);
-
- gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dialog)->vbox),
- alignment, TRUE, FALSE, 0);
- }
- else
- {
- /* Allow activation of mnemonic accelerators without pressing <Alt>.
- * For safety, connect this signal handler only if the dialog has
- * no other other interaction widgets but buttons. */
- g_signal_connect(G_OBJECT(dialog), "key_press_event",
- G_CALLBACK(&dialog_key_press_event_cb), NULL);
- }
-
- if (def_but > 0)
- gtk_dialog_set_default_response(GTK_DIALOG(dialog), def_but);
-
- /* Show the mouse pointer if it's currently hidden. */
- gui_mch_mousehide(FALSE);
-
- response = gtk_dialog_run(GTK_DIALOG(dialog));
-
- /* GTK_RESPONSE_NONE means the dialog was programmatically destroyed. */
- if (response != GTK_RESPONSE_NONE)
- {
- if (textfield != NULL)
- {
- text = (char_u *)gtk_entry_get_text(GTK_ENTRY(entry));
- text = CONVERT_FROM_UTF8(text);
-
- STRNCPY(textfield, text, IOSIZE);
- textfield[IOSIZE - 1] = NUL;
-
- CONVERT_FROM_UTF8_FREE(text);
- }
- gtk_widget_destroy(dialog);
- }
-
- return response > 0 ? response : 0;
- }
-
- #endif /* FEAT_GUI_DIALOG && HAVE_GTK2 */
-
-
- #if defined(FEAT_MENU) || defined(PROTO)
-
- void
- gui_mch_show_popupmenu(vimmenu_T *menu)
- {
- # if defined(FEAT_XIM) && defined(HAVE_GTK2)
- /*
- * Append a submenu for selecting an input method. This is
- * currently the only way to switch input methods at runtime.
- */
- if (xic != NULL && g_object_get_data(G_OBJECT(menu->submenu_id),
- "vim-has-im-menu") == NULL)
- {
- GtkWidget *menuitem;
- GtkWidget *submenu;
- char_u *name;
-
- menuitem = gtk_separator_menu_item_new();
- gtk_widget_show(menuitem);
- gtk_menu_shell_append(GTK_MENU_SHELL(menu->submenu_id), menuitem);
-
- name = (char_u *)_("Input _Methods");
- name = CONVERT_TO_UTF8(name);
- menuitem = gtk_menu_item_new_with_mnemonic((const char *)name);
- CONVERT_TO_UTF8_FREE(name);
- gtk_widget_show(menuitem);
-
- submenu = gtk_menu_new();
- gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), submenu);
- gtk_menu_shell_append(GTK_MENU_SHELL(menu->submenu_id), menuitem);
-
- gtk_im_multicontext_append_menuitems(GTK_IM_MULTICONTEXT(xic),
- GTK_MENU_SHELL(submenu));
- g_object_set_data(G_OBJECT(menu->submenu_id),
- "vim-has-im-menu", GINT_TO_POINTER(TRUE));
- }
- # endif /* FEAT_XIM && HAVE_GTK2 */
-
- gtk_menu_popup(GTK_MENU(menu->submenu_id),
- NULL, NULL,
- (GtkMenuPositionFunc)NULL, NULL,
- 3U, (guint32)GDK_CURRENT_TIME);
- }
-
- /*
- * Menu position callback; used by gui_make_popup() to place the menu
- * at the current text cursor position.
- *
- * Note: The push_in output argument seems to affect scrolling of huge
- * menus that don't fit on the screen. Leave it at the default for now.
- */
- /*ARGSUSED0*/
- static void
- popup_menu_position_func(GtkMenu *menu,
- gint *x, gint *y,
- # ifdef HAVE_GTK2
- gboolean *push_in,
- # endif
- gpointer user_data)
- {
- if (curwin != NULL && gui.drawarea != NULL && gui.drawarea->window != NULL)
- {
- gdk_window_get_origin(gui.drawarea->window, x, y);
-
- /* Find the cursor position in the current window */
- *x += FILL_X(W_WINCOL(curwin) + curwin->w_wcol + 1) + 1;
- *y += FILL_Y(W_WINROW(curwin) + curwin->w_wrow + 1) + 1;
- }
- }
-
- void
- gui_make_popup(char_u *path_name)
- {
- vimmenu_T *menu;
-
- menu = gui_find_menu(path_name);
-
- if (menu != NULL && menu->submenu_id != NULL)
- {
- gtk_menu_popup(GTK_MENU(menu->submenu_id),
- NULL, NULL,
- &popup_menu_position_func, NULL,
- 0U, (guint32)GDK_CURRENT_TIME);
- }
- }
-
- #endif /* FEAT_MENU */
-
-
- /*
- * We don't create it twice.
- */
-
- typedef struct _SharedFindReplace
- {
- GtkWidget *dialog; /* the main dialog widget */
- GtkWidget *wword; /* 'Whole word only' check button */
- GtkWidget *mcase; /* 'Match case' check button */
- GtkWidget *up; /* search direction 'Up' radio button */
- GtkWidget *down; /* search direction 'Down' radio button */
- GtkWidget *what; /* 'Find what' entry text widget */
- GtkWidget *with; /* 'Replace with' entry text widget */
- GtkWidget *find; /* 'Find Next' action button */
- GtkWidget *replace; /* 'Replace With' action button */
- GtkWidget *all; /* 'Replace All' action button */
- } SharedFindReplace;
-
- static SharedFindReplace find_widgets = { NULL, };
- static SharedFindReplace repl_widgets = { NULL, };
-
- /* ARGSUSED */
- static int
- find_key_press_event(
- GtkWidget *widget,
- GdkEventKey *event,
- SharedFindReplace *frdp)
- {
- /* If the user is holding one of the key modifiers we will just bail out,
- * thus preserving the possibility of normal focus traversal.
- */
- if (event->state & (GDK_CONTROL_MASK | GDK_SHIFT_MASK))
- return FALSE;
-
- /* the Escape key synthesizes a cancellation action */
- if (event->keyval == GDK_Escape)
- {
- gtk_widget_hide(frdp->dialog);
-
- return TRUE;
- }
- /*
- * What the **** is this for? Disabled for GTK+ 2 because due to
- * gtk_signal_connect_after() it doesn't have any effect anyway.
- * (Fortunately.)
- */
- #ifndef HAVE_GTK2
- /* block traversal resulting from those keys */
- if (event->keyval == GDK_Left
- || event->keyval == GDK_Right
- || event->keyval == GDK_space)
- return TRUE;
- #endif
-
- /* It would be delightfull if it where possible to do search history
- * operations on the K_UP and K_DOWN keys here.
- */
-
- return FALSE;
- }
-
- #ifdef HAVE_GTK2
- static GtkWidget *
- create_image_button(const char *stock_id, const char *label)
- {
- char_u *text;
- GtkWidget *box;
- GtkWidget *alignment;
- GtkWidget *button;
-
- text = CONVERT_TO_UTF8((char_u *)label);
-
- box = gtk_hbox_new(FALSE, 3);
- gtk_box_pack_start(GTK_BOX(box),
- gtk_image_new_from_stock(stock_id, GTK_ICON_SIZE_BUTTON),
- FALSE, FALSE, 0);
- gtk_box_pack_start(GTK_BOX(box),
- gtk_label_new((const char *)text),
- FALSE, FALSE, 0);
-
- CONVERT_TO_UTF8_FREE(text);
-
- alignment = gtk_alignment_new((float)0.5, (float)0.5,
- (float)0.0, (float)0.0);
- gtk_container_add(GTK_CONTAINER(alignment), box);
- gtk_widget_show_all(alignment);
-
- button = gtk_button_new();
- gtk_container_add(GTK_CONTAINER(button), alignment);
-
- return button;
- }
-
- /*
- * This is currently only used by find_replace_dialog_create(), and
- * I'd really like to keep it at that. In other words: don't spread
- * this nasty hack all over the code. Think twice.
- */
- static const char *
- convert_localized_message(char_u **buffer, const char *message)
- {
- if (output_conv.vc_type == CONV_NONE)
- return message;
-
- vim_free(*buffer);
- *buffer = string_convert(&output_conv, (char_u *)message, NULL);
-
- return (const char *)*buffer;
- }
- #endif /* HAVE_GTK2 */
-
- static void
- find_replace_dialog_create(char_u *arg, int do_replace)
- {
- #ifndef HAVE_GTK2
- GtkWidget *frame;
- #endif
- GtkWidget *hbox; /* main top down box */
- GtkWidget *actionarea;
- GtkWidget *table;
- GtkWidget *tmp;
- GtkWidget *vbox;
- gboolean sensitive;
- SharedFindReplace *frdp;
- char_u *entry_text;
- int wword = FALSE;
- int mcase = !p_ic;
- #ifdef HAVE_GTK2
- char_u *conv_buffer = NULL;
- # define CONV(message) convert_localized_message(&conv_buffer, (message))
- #else
- # define CONV(message) (message)
- #endif
-
- frdp = (do_replace) ? (&repl_widgets) : (&find_widgets);
-
- /* Get the search string to use. */
- entry_text = get_find_dialog_text(arg, &wword, &mcase);
-
- #ifdef HAVE_GTK2
- if (entry_text != NULL && output_conv.vc_type != CONV_NONE)
- {
- char_u *old_text = entry_text;
- entry_text = string_convert(&output_conv, entry_text, NULL);
- vim_free(old_text);
- }
- #endif
-
- /*
- * If the dialog already exists, just raise it.
- */
- if (frdp->dialog)
- {
- #ifndef HAVE_GTK2
- /* always make the dialog appear where you want it even if the mainwin
- * has moved -- dbv */
- gui_gtk_position_in_parent(GTK_WIDGET(gui.mainwin),
- GTK_WIDGET(frdp->dialog), VW_POS_MOUSE);
- gui_gtk_synch_fonts();
-
- if (!GTK_WIDGET_VISIBLE(frdp->dialog))
- {
- gtk_widget_grab_focus(frdp->what);
- gtk_widget_show(frdp->dialog);
- }
- #endif
- if (entry_text != NULL)
- {
- gtk_entry_set_text(GTK_ENTRY(frdp->what), (char *)entry_text);
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(frdp->wword),
- (gboolean)wword);
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(frdp->mcase),
- (gboolean)mcase);
- }
- #ifdef HAVE_GTK2
- gtk_window_present(GTK_WINDOW(frdp->dialog));
- #else
- gdk_window_raise(frdp->dialog->window);
- #endif
- vim_free(entry_text);
- return;
- }
-
- #ifdef HAVE_GTK2
- frdp->dialog = gtk_dialog_new();
- gtk_dialog_set_has_separator(GTK_DIALOG(frdp->dialog), FALSE);
- gtk_window_set_transient_for(GTK_WINDOW(frdp->dialog), GTK_WINDOW(gui.mainwin));
- gtk_window_set_destroy_with_parent(GTK_WINDOW(frdp->dialog), TRUE);
- #else
- frdp->dialog = gtk_window_new(GTK_WINDOW_DIALOG);
- #endif
-
- if (do_replace)
- {
- #ifndef HAVE_GTK2
- gtk_window_set_wmclass(GTK_WINDOW(frdp->dialog), "searchrepl", "gvim");
- #endif
- gtk_window_set_title(GTK_WINDOW(frdp->dialog),
- CONV(_("VIM - Search and Replace...")));
- }
- else
- {
- #ifndef HAVE_GTK2
- gtk_window_set_wmclass(GTK_WINDOW(frdp->dialog), "search", "gvim");
- #endif
- gtk_window_set_title(GTK_WINDOW(frdp->dialog),
- CONV(_("VIM - Search...")));
- }
-
- #ifndef HAVE_GTK2 /* Utter crack. Shudder. */
- gtk_widget_realize(frdp->dialog);
- gdk_window_set_decorations(frdp->dialog->window,
- GDK_DECOR_TITLE | GDK_DECOR_BORDER | GDK_DECOR_RESIZEH);
- gdk_window_set_functions(frdp->dialog->window,
- GDK_FUNC_RESIZE | GDK_FUNC_MOVE);
- #endif
-
- #ifndef HAVE_GTK2
- /* this makes it look better on Motif style window managers */
- frame = gtk_frame_new(NULL);
- gtk_container_add(GTK_CONTAINER(frdp->dialog), frame);
- #endif
-
- hbox = gtk_hbox_new(FALSE, 0);
- #ifdef HAVE_GTK2
- gtk_container_set_border_width(GTK_CONTAINER(hbox), 10);
- gtk_container_add(GTK_CONTAINER(GTK_DIALOG(frdp->dialog)->vbox), hbox);
- #else
- gtk_container_add(GTK_CONTAINER(frame), hbox);
- #endif
-
- if (do_replace)
- table = gtk_table_new(1024, 4, FALSE);
- else
- table = gtk_table_new(1024, 3, FALSE);
- gtk_box_pack_start(GTK_BOX(hbox), table, TRUE, TRUE, 0);
- gtk_container_border_width(GTK_CONTAINER(table), 4);
-
- tmp = gtk_label_new(CONV(_("Find what:")));
- gtk_misc_set_alignment(GTK_MISC(tmp), (gfloat)0.0, (gfloat)0.5);
- gtk_table_attach(GTK_TABLE(table), tmp, 0, 1, 0, 1,
- GTK_FILL, GTK_EXPAND, 2, 2);
- frdp->what = gtk_entry_new();
- sensitive = (entry_text != NULL && entry_text[0] != NUL);
- if (entry_text != NULL)
- gtk_entry_set_text(GTK_ENTRY(frdp->what), (char *)entry_text);
- #ifndef HAVE_GTK2
- gtk_signal_connect(GTK_OBJECT(frdp->what), "changed",
- GTK_SIGNAL_FUNC(entry_changed_cb), frdp->dialog);
- #endif
- gtk_signal_connect_after(GTK_OBJECT(frdp->what), "key_press_event",
- GTK_SIGNAL_FUNC(find_key_press_event),
- (gpointer) frdp);
- gtk_table_attach(GTK_TABLE(table), frdp->what, 1, 1024, 0, 1,
- GTK_EXPAND | GTK_FILL, GTK_EXPAND, 2, 2);
-
- if (do_replace)
- {
- tmp = gtk_label_new(CONV(_("Replace with:")));
- gtk_misc_set_alignment(GTK_MISC(tmp), (gfloat)0.0, (gfloat)0.5);
- gtk_table_attach(GTK_TABLE(table), tmp, 0, 1, 1, 2,
- GTK_FILL, GTK_EXPAND, 2, 2);
- frdp->with = gtk_entry_new();
- gtk_signal_connect(GTK_OBJECT(frdp->with), "activate",
- GTK_SIGNAL_FUNC(find_replace_cb),
- GINT_TO_POINTER(FRD_R_FINDNEXT));
- gtk_signal_connect_after(GTK_OBJECT(frdp->with), "key_press_event",
- GTK_SIGNAL_FUNC(find_key_press_event),
- (gpointer) frdp);
- gtk_table_attach(GTK_TABLE(table), frdp->with, 1, 1024, 1, 2,
- GTK_EXPAND | GTK_FILL, GTK_EXPAND, 2, 2);
-
- /*
- * Make the entry activation only change the input focus onto the
- * with item.
- */
- gtk_signal_connect(GTK_OBJECT(frdp->what), "activate",
- GTK_SIGNAL_FUNC(entry_activate_cb), frdp->with);
- }
- else
- {
- /*
- * Make the entry activation do the search.
- */
- gtk_signal_connect(GTK_OBJECT(frdp->what), "activate",
- GTK_SIGNAL_FUNC(find_replace_cb),
- GINT_TO_POINTER(FRD_FINDNEXT));
- }
-
- /* whole word only button */
- frdp->wword = gtk_check_button_new_with_label(CONV(_("Match whole word only")));
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(frdp->wword),
- (gboolean)wword);
- gtk_signal_connect(GTK_OBJECT(frdp->wword), "clicked",
- GTK_SIGNAL_FUNC(wword_match_cb), NULL);
- if (do_replace)
- gtk_table_attach(GTK_TABLE(table), frdp->wword, 0, 1023, 2, 3,
- GTK_FILL, GTK_EXPAND, 2, 2);
- else
- gtk_table_attach(GTK_TABLE(table), frdp->wword, 0, 1023, 1, 2,
- GTK_FILL, GTK_EXPAND, 2, 2);
-
- /* match case button */
- frdp->mcase = gtk_check_button_new_with_label(CONV(_("Match case")));
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(frdp->mcase),
- (gboolean)mcase);
- gtk_signal_connect(GTK_OBJECT(frdp->mcase), "clicked",
- GTK_SIGNAL_FUNC(mcase_match_cb), NULL);
- if (do_replace)
- gtk_table_attach(GTK_TABLE(table), frdp->mcase, 0, 1023, 3, 4,
- GTK_FILL, GTK_EXPAND, 2, 2);
- else
- gtk_table_attach(GTK_TABLE(table), frdp->mcase, 0, 1023, 2, 3,
- GTK_FILL, GTK_EXPAND, 2, 2);
-
- tmp = gtk_frame_new(CONV(_("Direction")));
- if (do_replace)
- gtk_table_attach(GTK_TABLE(table), tmp, 1023, 1024, 2, 4,
- GTK_FILL, GTK_FILL, 2, 2);
- else
- gtk_table_attach(GTK_TABLE(table), tmp, 1023, 1024, 1, 3,
- GTK_FILL, GTK_FILL, 2, 2);
- vbox = gtk_vbox_new(FALSE, 0);
- gtk_container_border_width(GTK_CONTAINER(vbox), 0);
- gtk_container_add(GTK_CONTAINER(tmp), vbox);
-
- /* 'Up' and 'Down' buttons */
- frdp->up = gtk_radio_button_new_with_label(NULL, CONV(_("Up")));
- gtk_box_pack_start(GTK_BOX(vbox), frdp->up, TRUE, TRUE, 0);
- frdp->down = gtk_radio_button_new_with_label(
- gtk_radio_button_group(GTK_RADIO_BUTTON(frdp->up)),
- CONV(_("Down")));
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(frdp->down), TRUE);
- gtk_signal_connect(GTK_OBJECT(frdp->down), "clicked",
- (do_replace) ? GTK_SIGNAL_FUNC(repl_dir_cb)
- : GTK_SIGNAL_FUNC(find_direction_cb),
- NULL);
- #ifdef HAVE_GTK2
- gtk_container_set_border_width(GTK_CONTAINER(vbox), 2);
- #endif
- gtk_box_pack_start(GTK_BOX(vbox), frdp->down, TRUE, TRUE, 0);
-
- /* vbox to hold the action buttons */
- actionarea = gtk_vbutton_box_new();
- gtk_container_border_width(GTK_CONTAINER(actionarea), 2);
- #ifndef HAVE_GTK2
- if (do_replace)
- {
- gtk_button_box_set_layout(GTK_BUTTON_BOX(actionarea),
- GTK_BUTTONBOX_END);
- gtk_button_box_set_spacing(GTK_BUTTON_BOX(actionarea), 0);
- }
- #endif
- gtk_box_pack_end(GTK_BOX(hbox), actionarea, FALSE, FALSE, 0);
-
- /* 'Find Next' button */
- #ifdef HAVE_GTK2
- frdp->find = create_image_button(GTK_STOCK_FIND, _("Find Next"));
- #else
- frdp->find = gtk_button_new_with_label(_("Find Next"));
- #endif
- gtk_widget_set_sensitive(frdp->find, sensitive);
-
- gtk_signal_connect(GTK_OBJECT(frdp->find), "clicked",
- GTK_SIGNAL_FUNC(find_replace_cb),
- (do_replace) ? GINT_TO_POINTER(FRD_R_FINDNEXT)
- : GINT_TO_POINTER(FRD_FINDNEXT));
-
- GTK_WIDGET_SET_FLAGS(frdp->find, GTK_CAN_DEFAULT);
- gtk_box_pack_start(GTK_BOX(actionarea), frdp->find, FALSE, FALSE, 0);
- gtk_widget_grab_default(frdp->find);
-
- if (do_replace)
- {
- /* 'Replace' button */
- #ifdef HAVE_GTK2
- frdp->replace = create_image_button(GTK_STOCK_CONVERT, _("Replace"));
- #else
- frdp->replace = gtk_button_new_with_label(_("Replace"));
- #endif
- gtk_widget_set_sensitive(frdp->replace, sensitive);
- GTK_WIDGET_SET_FLAGS(frdp->replace, GTK_CAN_DEFAULT);
- gtk_box_pack_start(GTK_BOX(actionarea), frdp->replace, FALSE, FALSE, 0);
- gtk_signal_connect(GTK_OBJECT(frdp->replace), "clicked",
- GTK_SIGNAL_FUNC(find_replace_cb),
- GINT_TO_POINTER(FRD_REPLACE));
-
- /* 'Replace All' button */
- #ifdef HAVE_GTK2
- frdp->all = create_image_button(GTK_STOCK_CONVERT, _("Replace All"));
- #else
- frdp->all = gtk_button_new_with_label(_("Replace All"));
- #endif
- gtk_widget_set_sensitive(frdp->all, sensitive);
- GTK_WIDGET_SET_FLAGS(frdp->all, GTK_CAN_DEFAULT);
- gtk_box_pack_start(GTK_BOX(actionarea), frdp->all, FALSE, FALSE, 0);
- gtk_signal_connect(GTK_OBJECT(frdp->all), "clicked",
- GTK_SIGNAL_FUNC(find_replace_cb),
- GINT_TO_POINTER(FRD_REPLACEALL));
- }
-
- /* 'Cancel' button */
- #ifdef HAVE_GTK2
- tmp = gtk_button_new_from_stock(GTK_STOCK_CLOSE);
- #else
- tmp = gtk_button_new_with_label(_("Cancel"));
- #endif
- GTK_WIDGET_SET_FLAGS(tmp, GTK_CAN_DEFAULT);
- gtk_box_pack_end(GTK_BOX(actionarea), tmp, FALSE, FALSE, 0);
- gtk_signal_connect_object(GTK_OBJECT(tmp),
- "clicked", GTK_SIGNAL_FUNC(gtk_widget_hide),
- GTK_OBJECT(frdp->dialog));
- gtk_signal_connect_object(GTK_OBJECT(frdp->dialog),
- "delete_event", GTK_SIGNAL_FUNC(gtk_widget_hide_on_delete),
- GTK_OBJECT(frdp->dialog));
-
- tmp = gtk_vseparator_new();
- #ifdef HAVE_GTK2
- gtk_box_pack_end(GTK_BOX(hbox), tmp, FALSE, FALSE, 10);
- #else
- gtk_box_pack_end(GTK_BOX(hbox), tmp, FALSE, TRUE, 0);
- #endif
-
- #ifndef HAVE_GTK2
- gtk_widget_grab_focus(frdp->what);
-
- /* show the frame and realize the frdp->dialog this gives us a window size
- * request that we'll use to position the window within the boundary of
- * the mainwin --dbv */
- gtk_widget_show_all(frame);
- gui_gtk_position_in_parent(GTK_WIDGET(gui.mainwin),
- GTK_WIDGET(frdp->dialog), VW_POS_MOUSE);
- gui_gtk_synch_fonts();
- #endif
-
- #ifdef HAVE_GTK2
- /* Suppress automatic show of the unused action area */
- gtk_widget_hide(GTK_DIALOG(frdp->dialog)->action_area);
- gtk_widget_show_all(hbox);
- gtk_widget_show(frdp->dialog);
- #endif
-
- vim_free(entry_text);
- #ifdef HAVE_GTK2
- vim_free(conv_buffer);
- #endif
- #undef CONV
- }
-
- void
- gui_mch_find_dialog(exarg_T *eap)
- {
- if (gui.in_use)
- find_replace_dialog_create(eap->arg, FALSE);
- }
-
- void
- gui_mch_replace_dialog(exarg_T *eap)
- {
- if (gui.in_use)
- find_replace_dialog_create(eap->arg, TRUE);
- }
-
-
- #if !defined(HAVE_GTK2) || defined(PROTO)
- /*
- * Synchronize all gui elements, which are dependant upon the
- * main text font used. Those are in esp. the find/replace dialogs.
- * If you don't understand why this should be needed, please try to
- * search for "pięść" in iso8859-2.
- *
- * (<danielk> I converted the comment above to UTF-8 to put
- * a stopper to the encoding mess. Forgive me :)
- *
- * Obsolete with GTK2.
- */
- void
- gui_gtk_synch_fonts(void)
- {
- SharedFindReplace *frdp;
- int do_replace;
-
- /* OK this loop is a bit tricky... */
- for (do_replace = 0; do_replace <= 1; ++do_replace)
- {
- frdp = (do_replace) ? (&repl_widgets) : (&find_widgets);
- if (frdp->dialog)
- {
- GtkStyle *style;
-
- /* synch the font with whats used by the text itself */
- style = gtk_style_copy(gtk_widget_get_style(frdp->what));
- gdk_font_unref(style->font);
- # ifdef FEAT_XFONTSET
- if (gui.fontset != NOFONTSET)
- style->font = gui.fontset;
- else
- # endif
- style->font = gui.norm_font;
- gdk_font_ref(style->font);
- gtk_widget_set_style(frdp->what, style);
- gtk_style_unref(style);
- if (do_replace)
- {
- style = gtk_style_copy(gtk_widget_get_style(frdp->with));
- gdk_font_unref(style->font);
- # ifdef FEAT_XFONTSET
- if (gui.fontset != NOFONTSET)
- style->font = gui.fontset;
- else
- # endif
- style->font = gui.norm_font;
- gdk_font_ref(style->font);
- gtk_widget_set_style(frdp->with, style);
- gtk_style_unref(style);
- }
- }
- }
- }
- #endif /* !HAVE_GTK2 */
-
-
- /*
- * Callback for actions of the find and replace dialogs
- */
- /*ARGSUSED*/
- static void
- find_replace_cb(GtkWidget *widget, gpointer data)
- {
- int flags;
- char_u *find_text;
- char_u *repl_text;
- gboolean direction_down;
- SharedFindReplace *sfr;
- int rc;
-
- flags = (int)(long)data; /* avoid a lint warning here */
-
- /* Get the search/replace strings from the dialog */
- if (flags == FRD_FINDNEXT)
- {
- repl_text = NULL;
- sfr = &find_widgets;
- }
- else
- {
- repl_text = (char_u *)gtk_entry_get_text(GTK_ENTRY(repl_widgets.with));
- sfr = &repl_widgets;
- }
-
- find_text = (char_u *)gtk_entry_get_text(GTK_ENTRY(sfr->what));
- direction_down = GTK_TOGGLE_BUTTON(sfr->down)->active;
-
- if (GTK_TOGGLE_BUTTON(sfr->wword)->active)
- flags |= FRD_WHOLE_WORD;
- if (GTK_TOGGLE_BUTTON(sfr->mcase)->active)
- flags |= FRD_MATCH_CASE;
-
- #ifdef HAVE_GTK2
- repl_text = CONVERT_FROM_UTF8(repl_text);
- find_text = CONVERT_FROM_UTF8(find_text);
- #endif
- rc = gui_do_findrepl(flags, find_text, repl_text, direction_down);
- #ifdef HAVE_GTK2
- CONVERT_FROM_UTF8_FREE(repl_text);
- CONVERT_FROM_UTF8_FREE(find_text);
- #endif
-
- if (rc && gtk_main_level() > 0)
- gtk_main_quit(); /* make sure cmd will be handled immediately */
- }
-
- /* our usual callback function */
- /*ARGSUSED*/
- static void
- entry_activate_cb(GtkWidget *widget, gpointer data)
- {
- gtk_widget_grab_focus(GTK_WIDGET(data));
- }
-
- /*
- * The following are used to synchronize the direction setting
- * between the search and the replace dialog.
- */
- /*ARGSUSED*/
- static void
- find_direction_cb(GtkWidget * widget, gpointer data)
- {
- gboolean direction_down = GTK_TOGGLE_BUTTON(widget)->active;
-
- if (repl_widgets.dialog)
- {
- GtkWidget *w;
- w = direction_down ? repl_widgets.down : repl_widgets.up;
-
- if (!GTK_TOGGLE_BUTTON(w)->active)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(w), TRUE);
- }
- }
-
- /*ARGSUSED*/
- static void
- repl_dir_cb(GtkWidget *widget, gpointer data)
- {
- gboolean direction_down = GTK_TOGGLE_BUTTON(widget)->active;
-
- if (find_widgets.dialog)
- {
- GtkWidget *w;
- w = direction_down ? find_widgets.down : find_widgets.up;
-
- if (!GTK_TOGGLE_BUTTON(w)->active)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(w), TRUE);
- }
- }
-
- /*ARGSUSED*/
- static void
- wword_match_cb(GtkWidget * widget, gpointer data)
- {
- gboolean active = GTK_TOGGLE_BUTTON(widget)->active;
-
- if (find_widgets.dialog)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(find_widgets.wword),
- active);
- if (repl_widgets.dialog)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(repl_widgets.wword),
- active);
- }
-
- /*ARGSUSED*/
- static void
- mcase_match_cb(GtkWidget * widget, gpointer data)
- {
- gboolean active = GTK_TOGGLE_BUTTON(widget)->active;
-
- if (find_widgets.dialog)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(find_widgets.mcase),
- active);
- if (repl_widgets.dialog)
- gtk_toggle_button_set_state(GTK_TOGGLE_BUTTON(repl_widgets.mcase),
- active);
- }
-
- /*
- * Syncing the find/replace dialogs on the fly is utterly useless crack,
- * and causes nothing but problems. Please tell me a use case for which
- * you'd need both a find dialog and a find/replace one at the same time,
- * without being able to actually use them separately since they're syncing
- * all the time. I don't think it's worthwhile to fix this nonsense,
- * particularly evil incarnation of braindeadness, whatever; I'd much rather
- * see it extinguished from this planet. Thanks for listening. Sorry.
- */
- #ifndef HAVE_GTK2
- static void
- entry_changed_cb(GtkWidget * entry, GtkWidget * dialog)
- {
- const gchar *entry_text;
- gboolean nonempty;
-
- entry_text = gtk_entry_get_text(GTK_ENTRY(entry));
-
- if (!entry_text)
- return; /* shouldn't happen */
-
- nonempty = (entry_text[0] != '\0');
-
- if (dialog == find_widgets.dialog)
- {
- gtk_widget_set_sensitive(find_widgets.find, nonempty);
- if (repl_widgets.dialog)
- {
- gtk_widget_set_sensitive(repl_widgets.find, nonempty);
- gtk_widget_set_sensitive(repl_widgets.replace, nonempty);
- gtk_widget_set_sensitive(repl_widgets.all, nonempty);
- if (strcmp(entry_text,
- gtk_entry_get_text(GTK_ENTRY(repl_widgets.what))))
- gtk_entry_set_text(GTK_ENTRY(repl_widgets.what), entry_text);
- }
- }
- if (dialog == repl_widgets.dialog)
- {
- gtk_widget_set_sensitive(repl_widgets.find, nonempty);
- gtk_widget_set_sensitive(repl_widgets.replace, nonempty);
- gtk_widget_set_sensitive(repl_widgets.all, nonempty);
- if (find_widgets.dialog)
- {
- gtk_widget_set_sensitive(find_widgets.find, nonempty);
- if (strcmp(entry_text,
- gtk_entry_get_text(GTK_ENTRY(find_widgets.what))))
- gtk_entry_set_text(GTK_ENTRY(find_widgets.what), entry_text);
- }
- }
- }
- #endif
-
- /*
- * ":helpfind"
- */
- /*ARGSUSED*/
- void
- ex_helpfind(eap)
- exarg_T *eap;
- {
- /* This will fail when menus are not loaded. Well, it's only for
- * backwards compatibility anyway. */
- do_cmdline_cmd((char_u *)"emenu ToolBar.FindHelp");
- }
-
- #if !defined(HAVE_GTK2) || defined(PROTO) /* Crack crack crack. Brrrr. */
-
- /* gui_gtk_position_in_parent
- *
- * this function causes a child window to be placed within the boundary of
- * the parent (mainwin) window.
- *
- * you can specify where the window will be positioned by the third argument
- * (defined in gui.h):
- * VW_POS_CENTER at center of parent window
- * VW_POS_MOUSE center of child at mouse position
- * VW_POS_TOP_CENTER top of child at top of parent centered
- * horizontally about the mouse.
- *
- * NOTE: for this function to act as desired the child window must have a
- * window size requested. this can be accomplished by packing/placing
- * child widgets onto a gtk_frame widget rather than the gtk_window
- * widget...
- *
- * brent -- dbv
- */
- void
- gui_gtk_position_in_parent(
- GtkWidget *parent,
- GtkWidget *child,
- gui_win_pos_T where)
- {
- GtkRequisition c_size;
- gint xPm, yPm;
- gint xP, yP, wP, hP, pos_x, pos_y;
-
- /* make sure the child widget is set up then get its size. */
- gtk_widget_size_request(child, &c_size);
-
- /* get origin and size of parent window */
- gdk_window_get_origin((GdkWindow *)(parent->window), &xP, &yP);
- gdk_window_get_size((GdkWindow *)(parent->window), &wP, &hP);
-
- if (c_size.width > wP || c_size.height > hP)
- {
- /* doh! maybe the user should consider giving gVim a little more
- * screen real estate */
- gtk_widget_set_uposition(child , xP + 2 , yP + 2);
- return;
- }
-
- if (where == VW_POS_MOUSE)
- {
- /* position window at mouse pointer */
- gtk_widget_get_pointer(parent, &xPm, &yPm);
- pos_x = xP + xPm - (c_size.width) / 2;
- pos_y = yP + yPm - (c_size.height) / 2;
- }
- else
- {
- /* set child x origin so it is in center of Vim window */
- pos_x = xP + (wP - c_size.width) / 2;
-
- if (where == VW_POS_TOP_CENTER)
- pos_y = yP + 2;
- else
- /* where == VW_POS_CENTER */
- pos_y = yP + (hP - c_size.height) / 2;
- }
-
- /* now, make sure the window will be inside the Vim window... */
- if (pos_x < xP)
- pos_x = xP + 2;
- if (pos_y < yP)
- pos_y = yP + 2;
- if ((pos_x + c_size.width) > (wP + xP))
- pos_x = xP + wP - c_size.width - 2;
- /* Assume 'guiheadroom' indicates the title bar height... */
- if ((pos_y + c_size.height + p_ghr / 2) > (hP + yP))
- pos_y = yP + hP - c_size.height - 2 - p_ghr / 2;
-
- gtk_widget_set_uposition(child, pos_x, pos_y);
- }
-
- #endif /* !HAVE_GTK2 */
-
-