Make the close button on the ShellView quit Evolution. (Yeah, this is

not correct, but at least it prevents some nasty GC errors and
prevents evolution-mail from being left in a messy state.)

svn path=/trunk/; revision=4828

1 files changed, 15 insertions, 1 deletions

diff --git a/shell/e-shell-view.c b/shell/e-shell-view.c
index 8b62e57d2b..36e69f51bb 100644
--- a/shell/e-shell-view.c
+++ b/shell/e-shell-view.c
@@ -526,6 +526,19 @@ unrealize (GtkWidget *widget)
 	gdk_flush ();
 }
 
+static  int
+delete_event (GtkWidget *widget,
+	      GdkEventAny *event)
+{
+	EShellView *shell_view;
+	EShell *shell;
+
+	shell_view = E_SHELL_VIEW (widget);
+
+	shell = e_shell_view_get_shell (shell_view);
+	e_shell_quit (shell);
+}
+
 
 /* Initialization.  */
 
@@ -540,7 +553,8 @@ class_init (EShellViewClass *klass)
 
 	object_class->destroy = destroy;
 
-	widget_class->unrealize = unrealize;
+	widget_class->unrealize    = unrealize;
+	widget_class->delete_event = delete_event;
 
 	parent_class = gtk_type_class (gnome_app_get_type ());