From e5e79cb370b32909d1fbc1fc923aeb1f0a6446fa Mon Sep 17 00:00:00 2001 From: Peter Williams Date: Tue, 26 Jun 2001 22:37:13 +0000 Subject: Mail: 001-06-26 Peter Williams * folder-browser-ui.c: New file derived from folder-browser-factory.c. Contains the Bonobo UI code, split into three groups as described in ui/ChangeLog. Also contains the GalView stuff and the hookups into the Bonobo UI stuff. * folder-browser-factory.c: Move most of the UI stuff to folder-browser-ui.c. (control_activate): Add all three kinds of UI element to this folderbrowser. (control_deactivate): Remove all three kinds. * folder-browser-ui.h: New file. Prototypes functions to add UI elements to a FolderBrowser. * Makefile.am: Add folder-browser-ui.{c,h} * message-browser.c (PARENT_TYPE): Change to BONOBO_TYPE_WINDOW (message_browser_destroy): Chain to parent destroy function. (set_bonobo_ui): New function. Add the 'message' functions from the folder browser to our UI. (message_browser_close): BonoboVerbify this. * message-browser.h: Convert to BonoboWindow. UI: 6-26 Peter Williams * evolution-mail-global.xml: * evolution-mail-list.xml: * evolution-mail-message.xml: New files. These are the result of splitting evolution-mail.xml into three pieces: one for the global mailer operations, one for the operations on a messagelist, and one for the operations on one or more messages. * evolution-mail-messagedisplay: New file. UI for the standalone message browser that you get when you double-click. Very skeleton. * evolution-mail.xml: Removed. * Makefile.am: Updated to install new files. svn path=/trunk/; revision=10514 --- mail/folder-browser-ui.c | 390 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 390 insertions(+) create mode 100644 mail/folder-browser-ui.c (limited to 'mail/folder-browser-ui.c') diff --git a/mail/folder-browser-ui.c b/mail/folder-browser-ui.c new file mode 100644 index 0000000000..f856c34617 --- /dev/null +++ b/mail/folder-browser-ui.c @@ -0,0 +1,390 @@ +/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */ +/* + * folder-browser-ui.c: Sets up the Bonobo UI for FolderBrowsers + * + * Author: + * Peter Williams + * + * (C) 2001 Ximian, Inc. + */ + +#ifdef HAVE_CONFIG_H +#include +#endif + +#include +#include /* gnome_util_prepend_user_home */ + +#include +#include + +#include "widgets/menus/gal-view-menus.h" /* GalView stuff */ +#include +#include + +#include "mail-callbacks.h" /* almost all the verbs */ +#include "mail-session.h" /* mail_session_forget_passwords */ + +#include "folder-browser-ui.h" + +#include "evolution-shell-component-utils.h" /* Pixmap stuff */ +#include "camel/camel-vtrash-folder.h" /* vtrash checking */ + +/* + * Add with 'folder_browser' + */ + +static BonoboUIVerb message_verbs [] = { + BONOBO_UI_UNSAFE_VERB ("MailNext", next_msg), + BONOBO_UI_UNSAFE_VERB ("MailNextFlagged", next_flagged_msg), + BONOBO_UI_UNSAFE_VERB ("MailNextUnread", next_unread_msg), +/* BONOBO_UI_UNSAFE_VERB ("MailNextThread", next_thread),*/ + BONOBO_UI_UNSAFE_VERB ("MailPrevious", previous_msg), + BONOBO_UI_UNSAFE_VERB ("MailPreviousFlagged", previous_flagged_msg), + BONOBO_UI_UNSAFE_VERB ("MailPreviousUnread", previous_unread_msg), + BONOBO_UI_UNSAFE_VERB ("MessageApplyFilters", apply_filters), + BONOBO_UI_UNSAFE_VERB ("MessageCopy", copy_msg), + BONOBO_UI_UNSAFE_VERB ("MessageDelete", delete_msg), + BONOBO_UI_UNSAFE_VERB ("MessageForward", forward), + BONOBO_UI_UNSAFE_VERB ("MessageForwardAttached", forward_attached), + BONOBO_UI_UNSAFE_VERB ("MessageForwardInline", forward_inline), + BONOBO_UI_UNSAFE_VERB ("MessageForwardQuoted", forward_quoted), +/* BONOBO_UI_UNSAFE_VERB ("MessageMarkAsImportant", mark_as_important),*/ + BONOBO_UI_UNSAFE_VERB ("MessageMarkAsRead", mark_as_seen), + BONOBO_UI_UNSAFE_VERB ("MessageMarkAsUnRead", mark_as_unseen), + BONOBO_UI_UNSAFE_VERB ("MessageMove", move_msg), + BONOBO_UI_UNSAFE_VERB ("MessageOpen", open_message), + BONOBO_UI_UNSAFE_VERB ("MessageReplyAll", reply_to_all), + BONOBO_UI_UNSAFE_VERB ("MessageReplyList", reply_to_list), + BONOBO_UI_UNSAFE_VERB ("MessageReplySender", reply_to_sender), + BONOBO_UI_UNSAFE_VERB ("MessageResend", resend_msg), + BONOBO_UI_UNSAFE_VERB ("MessageSaveAs", save_msg), + BONOBO_UI_UNSAFE_VERB ("MessageSearch", search_msg), + BONOBO_UI_UNSAFE_VERB ("MessageUndelete", undelete_msg), + BONOBO_UI_UNSAFE_VERB ("PrintMessage", print_msg), + BONOBO_UI_UNSAFE_VERB ("PrintPreviewMessage", print_preview_msg), + BONOBO_UI_UNSAFE_VERB ("ToolsFilterMailingList", filter_mlist), + BONOBO_UI_UNSAFE_VERB ("ToolsFilterRecipient", filter_recipient), + BONOBO_UI_UNSAFE_VERB ("ToolsFilterSender", filter_sender), + BONOBO_UI_UNSAFE_VERB ("ToolsFilterSubject", filter_subject), + BONOBO_UI_UNSAFE_VERB ("ToolsVFolderMailingList", vfolder_mlist), + BONOBO_UI_UNSAFE_VERB ("ToolsVFolderRecipient", vfolder_recipient), + BONOBO_UI_UNSAFE_VERB ("ToolsVFolderSender", vfolder_sender), + BONOBO_UI_UNSAFE_VERB ("ToolsVFolderSubject", vfolder_subject), + BONOBO_UI_UNSAFE_VERB ("ViewLoadImages", load_images), + /* ViewHeaders stuff is a radio */ + + BONOBO_UI_VERB_END +}; + +static BonoboUIVerb list_verbs [] = { + BONOBO_UI_UNSAFE_VERB ("EditCut", folder_browser_cut), + BONOBO_UI_UNSAFE_VERB ("EditCopy", folder_browser_copy), + BONOBO_UI_UNSAFE_VERB ("EditPaste", folder_browser_paste), + BONOBO_UI_UNSAFE_VERB ("EditInvertSelection", invert_selection), + BONOBO_UI_UNSAFE_VERB ("EditSelectAll", select_all), +/* BONOBO_UI_UNSAFE_VERB ("EditSelectThread", select_thread),*/ + BONOBO_UI_UNSAFE_VERB ("ChangeFolderProperties", configure_folder), + BONOBO_UI_UNSAFE_VERB ("FolderExpunge", expunge_folder), + /* HideDeleted is a toggle */ + BONOBO_UI_UNSAFE_VERB ("MessageMarkAllAsRead", mark_all_as_seen), + BONOBO_UI_UNSAFE_VERB ("ViewHideRead", hide_read), + BONOBO_UI_UNSAFE_VERB ("ViewHideSelected", hide_selected), + BONOBO_UI_UNSAFE_VERB ("ViewShowAll", hide_none), + /* ViewThreaded is a toggle */ + + BONOBO_UI_VERB_END +}; + +static BonoboUIVerb global_verbs [] = { + BONOBO_UI_UNSAFE_VERB ("EmptyTrash", empty_trash), + BONOBO_UI_UNSAFE_VERB ("ForgetPasswords", mail_session_forget_passwords), + BONOBO_UI_UNSAFE_VERB ("MailCompose", compose_msg), + BONOBO_UI_UNSAFE_VERB ("MailGetSend", send_receive_mail), + BONOBO_UI_UNSAFE_VERB ("MailStop", stop_threads), + BONOBO_UI_UNSAFE_VERB ("ToolsFilters", filter_edit), + BONOBO_UI_UNSAFE_VERB ("ToolsSettings", providers_config), + BONOBO_UI_UNSAFE_VERB ("ToolsSubscriptions", manage_subscriptions), + BONOBO_UI_UNSAFE_VERB ("ToolsVFolders", vfolder_edit_vfolders), + /* ViewPreview is a toggle */ + + BONOBO_UI_VERB_END +}; + +static EPixmap message_pixcache [] = { + E_PIXMAP ("/commands/PrintMessage", "print.xpm"), + E_PIXMAP ("/commands/PrintPreviewMessage", "print-preview.xpm"), + E_PIXMAP ("/commands/MessageDelete", "delete_message.xpm"), + E_PIXMAP ("/commands/MessageUndelete", "undelete_message.xpm"), + E_PIXMAP ("/commands/MessageCopy", "copy_16_message.xpm"), + E_PIXMAP ("/commands/MessageMove", "move_message.xpm"), + E_PIXMAP ("/commands/MessageReplyAll", "reply_to_all.xpm"), + E_PIXMAP ("/commands/MessageReplySender", "reply.xpm"), + E_PIXMAP ("/commands/MessageForward", "forward.xpm"), + + E_PIXMAP ("/Toolbar/MailMessageToolbar/MessageReplySender", "buttons/reply.png"), + E_PIXMAP ("/Toolbar/MailMessageToolbar/MessageReplyAll", "buttons/reply-to-all.png"), + E_PIXMAP ("/Toolbar/MailMessageToolbar/MessageForward", "buttons/forward.png"), + E_PIXMAP ("/Toolbar/MailMessageToolbar/MessageMove", "buttons/move-message.png"), + E_PIXMAP ("/Toolbar/MailMessageToolbar/MessageCopy", "buttons/copy-message.png"), + + E_PIXMAP_END +}; + +static EPixmap list_pixcache [] = { + E_PIXMAP ("/commands/ChangeFolderProperties", "configure_16_folder.xpm"), + E_PIXMAP ("/commands/ViewHideRead", "hide_read_messages.xpm"), + E_PIXMAP ("/commands/ViewHideSelected", "hide_selected_messages.xpm"), + E_PIXMAP ("/commands/ViewShowAll", "show_all_messages.xpm"), + + E_PIXMAP_END +}; + +static EPixmap global_pixcache [] = { + E_PIXMAP ("/commands/MailCompose", "new-message.xpm"), + E_PIXMAP ("/commands/MailGetSend", "send-receive.xpm"), + E_PIXMAP ("/commands/ToolsSettings", "configure_16_mail.xpm"), + + E_PIXMAP ("/Toolbar/MailGetSend", "buttons/send-24-receive.png"), + E_PIXMAP ("/Toolbar/MailCompose", "buttons/compose-message.png"), + + E_PIXMAP_END +}; + +static void ui_add (FolderBrowser *fb, + const gchar *name, + BonoboUIVerb verb[], + EPixmap pixcache[]) +{ + BonoboUIComponent *uic = fb->uicomp; + gchar *file; + + bonobo_ui_component_add_verb_list_with_data (uic, verb, fb); + + bonobo_ui_component_freeze (uic, NULL); + + file = g_strconcat ("evolution-mail-", name, ".xml", NULL); + bonobo_ui_util_set_ui (uic, EVOLUTION_DATADIR, file, "evolution-mail"); + g_free (file); + + e_pixmaps_update (uic, pixcache); + + bonobo_ui_component_thaw (uic, NULL); +} + +/* unused args, for now... */ + +static void ui_rm (FolderBrowser *fb, + const gchar *name, + BonoboUIVerb verb[], + EPixmap pixcache[]) +{ + BonoboUIComponent *uic = fb->uicomp; + + bonobo_ui_component_rm (uic, "/", NULL); + bonobo_ui_component_unset_container (uic); +} + +/* more complex stuff */ + +static void +display_view(GalViewCollection *collection, + GalView *view, + gpointer data) +{ + FolderBrowser *fb = data; + if (GAL_IS_VIEW_ETABLE(view)) { + e_tree_set_state_object(fb->message_list->tree, GAL_VIEW_ETABLE(view)->state); + } +} + +static void +folder_browser_setup_view_menus (FolderBrowser *fb, + BonoboUIComponent *uic) +{ + GalViewFactory *factory; + ETableSpecification *spec; + char *local_dir; + + g_assert (fb->view_collection == NULL); + g_assert (fb->view_menus == NULL); + + fb->view_collection = gal_view_collection_new(); + + local_dir = gnome_util_prepend_user_home ("/evolution/views/mail/"); + gal_view_collection_set_storage_directories( + fb->view_collection, + EVOLUTION_DATADIR "/evolution/views/mail/", + local_dir); + g_free (local_dir); + + spec = e_table_specification_new(); + e_table_specification_load_from_file(spec, EVOLUTION_ETSPECDIR "/message-list.etspec"); + + factory = gal_view_factory_etable_new (spec); + gtk_object_unref (GTK_OBJECT (spec)); + gal_view_collection_add_factory (fb->view_collection, factory); + gtk_object_unref (GTK_OBJECT (factory)); + + gal_view_collection_load(fb->view_collection); + + fb->view_menus = gal_view_menus_new(fb->view_collection); + gal_view_menus_apply(fb->view_menus, uic, NULL); + gtk_signal_connect(GTK_OBJECT(fb->view_collection), "display_view", + display_view, fb); +} + +/* Gets rid of the view collection and view menus objects */ +static void +folder_browser_discard_view_menus (FolderBrowser *fb) +{ + g_assert (fb->view_collection != NULL); + g_assert (fb->view_menus != NULL); + + gtk_object_unref (GTK_OBJECT (fb->view_collection)); + fb->view_collection = NULL; + + gtk_object_unref (GTK_OBJECT (fb->view_menus)); + fb->view_menus = NULL; +} + +static void +folder_browser_setup_property_menu (FolderBrowser *fb, + BonoboUIComponent *uic) +{ + char *name, *base = NULL; + + if (fb->uri) + base = g_basename (fb->uri); + + if (base && base [0] != 0) + name = g_strdup_printf (_("Properties for \"%s\""), base); + else + name = g_strdup (_("Properties")); + + bonobo_ui_component_set_prop ( + uic, "/menu/File/Folder/ChangeFolderProperties", + "label", name, NULL); + g_free (name); +} + +/* Must be in the same order as MailConfigDisplayStyle */ +/* used in folder-browser.c as well (therefore not static) */ +char *message_display_styles[] = { + "/commands/ViewNormal", + "/commands/ViewFullHeaders", + "/commands/ViewSource" +}; + +/* public */ + +void +folder_browser_ui_add_message (FolderBrowser *fb) +{ + int state; + BonoboUIComponent *uic = fb->uicomp; + + ui_add (fb, "message", message_verbs, message_pixcache); + + /* Display Style */ + + state = mail_config_get_message_display_style (); + bonobo_ui_component_set_prop (uic, message_display_styles[state], + "state", "1", NULL); + bonobo_ui_component_add_listener (uic, "ViewNormal", folder_browser_set_message_display_style, fb); + bonobo_ui_component_add_listener (uic, "ViewFullHeaders", folder_browser_set_message_display_style, fb); + bonobo_ui_component_add_listener (uic, "ViewSource", folder_browser_set_message_display_style, fb); + /* FIXME: this kind of bypasses bonobo but seems the only way when we change components */ + folder_browser_set_message_display_style (uic, strrchr (message_display_styles[state], '/') + 1, + Bonobo_UIComponent_STATE_CHANGED, "1", fb); + + /* Resend Message */ + + if (fb->folder && !folder_browser_is_sent (fb)) + bonobo_ui_component_set_prop (uic, "/commands/MessageResend", "sensitive", "0", NULL); +} + +void +folder_browser_ui_rm_message (FolderBrowser *fb) +{ + ui_rm (fb, "message", message_verbs, message_pixcache); +} + +void +folder_browser_ui_add_list (FolderBrowser *fb) +{ + int state; + BonoboUIComponent *uic = fb->uicomp; + + ui_add (fb, "list", list_verbs, list_pixcache); + + /* Hide Deleted */ + + if (fb->folder && CAMEL_IS_VTRASH_FOLDER(fb->folder)) { + bonobo_ui_component_set_prop(uic, "/commands/HideDeleted", "sensitive", "0", NULL); + state = FALSE; + } else { + state = mail_config_get_hide_deleted(); + } + bonobo_ui_component_set_prop (uic, "/commands/HideDeleted", "state", state ? "1" : "0", NULL); + bonobo_ui_component_add_listener (uic, "HideDeleted", folder_browser_toggle_hide_deleted, + fb); + /* FIXME: this kind of bypasses bonobo but seems the only way when we change components */ + folder_browser_toggle_hide_deleted (uic, "", Bonobo_UIComponent_STATE_CHANGED, + state ? "1" : "0", fb); + + /* Threaded toggle */ + + state = mail_config_get_thread_list (FOLDER_BROWSER (fb)->uri); + bonobo_ui_component_set_prop (uic, "/commands/ViewThreaded", "state", state ? "1" : "0", NULL); + bonobo_ui_component_add_listener (uic, "ViewThreaded", folder_browser_toggle_threads, fb); + /* FIXME: this kind of bypasses bonobo but seems the only way when we change components */ + folder_browser_toggle_threads (uic, "", Bonobo_UIComponent_STATE_CHANGED, state ? "1" : "0", fb); + + /* Property menu */ + + folder_browser_setup_property_menu (fb, fb->uicomp); +} + +void +folder_browser_ui_rm_list (FolderBrowser *fb) +{ + ui_rm (fb, "list", list_verbs, list_pixcache); +} + +void +folder_browser_ui_add_global (FolderBrowser *fb) +{ + int state; + BonoboUIComponent *uic = fb->uicomp; + + ui_add (fb, "global", global_verbs, global_pixcache); + + /* (Pre)view toggle */ + + state = mail_config_get_show_preview (FOLDER_BROWSER (fb)->uri); + bonobo_ui_component_set_prop (uic, "/commands/ViewPreview", "state", state ? "1" : "0", NULL); + bonobo_ui_component_add_listener (uic, "ViewPreview", folder_browser_toggle_preview, fb); + /* FIXME: this kind of bypasses bonobo but seems the only way when we change components */ + folder_browser_toggle_preview (uic, "", Bonobo_UIComponent_STATE_CHANGED, state ? "1" : "0", fb); + + /* Stop button */ + + bonobo_ui_component_set_prop(uic, "/commands/MailStop", "sensitive", "0", NULL); + + /* View menu */ + + folder_browser_setup_view_menus (fb, fb->uicomp); + +} + +void +folder_browser_ui_rm_global (FolderBrowser *fb) +{ + ui_rm (fb, "global", global_verbs, global_pixcache); + + /* View menu */ + + folder_browser_discard_view_menus (fb); +} + -- cgit