/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
* E-shell-view.c: Implements a Shell View of Evolution
*
* Authors:
* Miguel de Icaza (miguel@helixcode.com)
*
* (C) 2000 Helix Code, Inc.
*/
#include <config.h>
#include <gnome.h>
#include "shortcut-bar/e-shortcut-bar.h"
#include "e-util/e-util.h"
#include "e-shell-view.h"
#include "e-shell-view-menu.h"
#include "e-shell-shortcut.h"
#include "Evolution.h"
#include <bonobo.h>
#include <libgnorba/gnorba.h>
#define PARENT_TYPE gnome_app_get_type ()
static GtkObjectClass *parent_class;
static void
esv_destroy (GtkObject *object)
{
EShellView *eshell_view = E_SHELL_VIEW (object);
e_shell_unregister_view (eshell_view->eshell, eshell_view);
parent_class->destroy (object);
}
static void
e_shell_view_class_init (GtkObjectClass *object_class)
{
object_class->destroy = esv_destroy;
parent_class = gtk_type_class (PARENT_TYPE);
}
static void
e_shell_view_setup (EShellView *eshell_view)
{
/*
* FIXME, should load the config if (load_config)....
*/
gtk_window_set_default_size (GTK_WINDOW (eshell_view), 600, 400);
}
static void
e_shell_view_setup_shortcut_display (EShellView *eshell_view)
{
eshell_view->shortcut_bar = e_shortcut_bar_view_new (eshell_view->eshell->shortcut_bar);
eshell_view->shortcut_hpaned = gtk_hpaned_new ();
gtk_widget_show (eshell_view->shortcut_hpaned);
gtk_paned_set_position (GTK_PANED (eshell_view->shortcut_hpaned), 100);
gtk_paned_pack1 (GTK_PANED (eshell_view->shortcut_hpaned),
eshell_view->shortcut_bar, FALSE, TRUE);
gtk_widget_show (eshell_view->shortcut_bar);
gnome_app_set_contents (GNOME_APP (eshell_view), eshell_view->shortcut_hpaned);
gtk_signal_connect (
GTK_OBJECT (eshell_view->shortcut_bar), "item_selected",
GTK_SIGNAL_FUNC (shortcut_bar_item_selected), eshell_view);
}
static GtkWidget *
get_view (EShellView *eshell_view, EFolder *efolder, Bonobo_UIHandler uih)
{
GtkWidget *w = NULL;
EFolderType e_folder_type;
BonoboControlFrame *control_frame = NULL;
BonoboObjectClient *server;
EShell *shell_model;
Evolution_Shell corba_shell = CORBA_OBJECT_NIL;
CORBA_Environment ev;
shell_model = eshell_view->eshell;
if (shell_model)
corba_shell = bonobo_object_corba_objref (BONOBO_OBJECT (shell_model));
else
g_warning ("The shell Bonobo object does not have an associated CORBA object\n");
/* get the folder type */
e_folder_type = e_folder_get_folder_type (efolder);
/* initialize the corba environment */
CORBA_exception_init (&ev);
/* depending on the type of folder,
* we launch a different bonobo component */
switch (e_folder_type) {
case E_FOLDER_MAIL :
{
Evolution_ServiceRepository corba_sr;
w = bonobo_widget_new_control ("control:evolution-mail",
uih);
server = bonobo_widget_get_server (BONOBO_WIDGET (w));
corba_sr = (Evolution_ServiceRepository)
bonobo_object_client_query_interface (server,
"IDL:Evolution/ServiceRepository:1.0",
NULL);
if (corba_sr != CORBA_OBJECT_NIL) {
Evolution_ServiceRepository_set_shell (corba_sr, corba_shell, &ev);
} else {
g_warning ("The bonobo component for the mail doesn't seem to implement the "
"Evolution::ServiceRepository interface\n");
}
}
break;
default :
printf ("No bonobo component associated to %s\n",
e_folder_get_description (efolder));
}
if (!control_frame)
control_frame = bonobo_widget_get_control_frame (BONOBO_WIDGET (w));
bonobo_control_frame_set_autoactivate (control_frame, FALSE);
bonobo_control_frame_control_activate (control_frame);
if (w) gtk_widget_show (w);
return w;
}
void
e_shell_view_set_view (EShellView *eshell_view, EFolder *efolder)
{
GtkWidget *w;
Bonobo_UIHandler uih;
uih = bonobo_object_corba_objref (BONOBO_OBJECT (eshell_view->uih));
w = get_view (eshell_view, efolder, uih);
if (eshell_view->contents){
gtk_widget_destroy (eshell_view->contents);
}
eshell_view->contents = w;
if (!w)
return;
if (eshell_view->shortcut_displayed){
gtk_paned_pack2 (GTK_PANED (eshell_view->shortcut_hpaned),
eshell_view->contents, FALSE, TRUE);
} else {
gnome_app_set_contents (GNOME_APP (eshell_view), eshell_view->contents);
}
}
GtkWidget *
e_shell_view_new (EShell *eshell, EFolder *efolder, gboolean show_shortcut_bar)
{
EShellView *eshell_view;
eshell_view = gtk_type_new (e_shell_view_get_type ());
gnome_app_construct (GNOME_APP (eshell_view), "Evolution", "Evolution");
eshell_view->eshell = eshell;
e_shell_view_setup (eshell_view);
e_shell_view_setup_menus (eshell_view);
e_shell_register_view (eshell, eshell_view);
eshell_view->shortcut_displayed = show_shortcut_bar;
e_shell_view_setup_shortcut_display (eshell_view);
e_shell_view_set_view (eshell_view, efolder);
return (GtkWidget *) eshell_view;
}
void
e_shell_view_display_shortcut_bar (EShellView *eshell_view, gboolean display)
{
g_return_if_fail (eshell_view != NULL);
g_return_if_fail (E_IS_SHELL_VIEW (eshell_view));
g_error ("Switching code for the shortcut bar is not written yet");
}
E_MAKE_TYPE (e_shell_view, "EShellView", EShellView, e_shell_view_class_init, NULL, PARENT_TYPE);
void
e_shell_view_new_folder (EShellView *esv)
{
g_return_if_fail (esv != NULL);
g_return_if_fail (E_IS_SHELL_VIEW (esv));
}
void
e_shell_view_new_shortcut (EShellView *esv)
{
g_return_if_fail (esv != NULL);
g_return_if_fail (E_IS_SHELL_VIEW (esv));
}