From b40242c395b0eec33a622ddfe90634fd6d63e4c6 Mon Sep 17 00:00:00 2001
From: Ettore Perazzoli <ettore@src.gnome.org>
Date: Thu, 20 Jul 2000 13:37:56 +0000
Subject: Add support for saving the current configuration of all the
 components.

svn path=/trunk/; revision=4237
---
 shell/e-shell.c | 112 +++++++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 95 insertions(+), 17 deletions(-)

(limited to 'shell/e-shell.c')

diff --git a/shell/e-shell.c b/shell/e-shell.c
index 63c4b08f92..a7c0ca8c03 100644
--- a/shell/e-shell.c
+++ b/shell/e-shell.c
@@ -610,30 +610,16 @@ e_shell_get_folder_type_registry (EShell *shell)
 }
 
 
-/**
- * e_shell_save_settings:
- * @shell: 
- * 
- * Save the settings for this shell.
- * 
- * Return value: %TRUE if it worked, %FALSE otherwise.  Even if %FALSE is
- * returned, it is possible that at least part of the settings for the views
- * have been saved.
- **/
-gboolean
-e_shell_save_settings (EShell *shell)
+static gboolean
+save_settings_for_views (EShell *shell)
 {
 	EShellPrivate *priv;
+	GConfError *err = NULL;
 	GList *p;
 	gboolean retval;
-	GConfError *err = NULL;
 	int i;
 
-	g_return_val_if_fail (shell != NULL, FALSE);
-	g_return_val_if_fail (E_IS_SHELL (shell), FALSE);
-
 	priv = shell->priv;
-
 	retval = TRUE;
 
 	for (p = priv->views, i = 0; p != NULL; p = p->next, i++) {
@@ -656,9 +642,101 @@ e_shell_save_settings (EShell *shell)
 			      g_list_length (priv->views), &err);
 	gconf_client_suggest_sync (priv->gconf_client, NULL);
 
+	return TRUE;
+}
+
+static gboolean
+save_settings_for_component (EShell *shell,
+			     const char *id,
+			     EvolutionShellComponentClient *client)
+{
+	Bonobo_Unknown unknown_interface;
+	Evolution_Session session_interface;
+	CORBA_Environment ev;
+	char *prefix;
+	gboolean retval;
+
+	unknown_interface = bonobo_object_corba_objref (BONOBO_OBJECT (client));
+	g_assert (unknown_interface != CORBA_OBJECT_NIL);
+
+	CORBA_exception_init (&ev);
+
+	session_interface = Bonobo_Unknown_query_interface (unknown_interface, "IDL:Evolution/Session:1.0", &ev);
+	if (ev._major != CORBA_NO_EXCEPTION || CORBA_Object_is_nil (session_interface, &ev)) {
+		CORBA_exception_free (&ev);
+		return TRUE;
+	}
+
+	prefix = g_strconcat ("/apps/Evolution/Shell/Components/", id, NULL);
+	Evolution_Session_save_configuration (session_interface, prefix, &ev);
+
+	if (ev._major == CORBA_NO_EXCEPTION)
+		retval = TRUE;
+	else
+		retval = FALSE;
+
+	g_free (prefix);
+
+	CORBA_exception_free (&ev);
+
 	return retval;
 }
 
+static gboolean
+save_settings_for_components (EShell *shell)
+{
+	EShellPrivate *priv;
+	GList *component_ids;
+	GList *p;
+	gboolean retval;
+
+	priv = shell->priv;
+
+	g_assert (priv->component_registry);
+	component_ids = e_component_registry_get_id_list (priv->component_registry);
+
+	retval = TRUE;
+	for (p = component_ids; p != NULL; p = p->next) {
+		EvolutionShellComponentClient *client;
+		const char *id;
+
+		id = p->data;
+		client = e_component_registry_get_component_by_id (priv->component_registry, id);
+
+		if (! save_settings_for_component (shell, id, client))
+			retval = FALSE;
+	}
+
+	e_free_string_list (component_ids);
+
+	return retval;
+}
+
+/**
+ * e_shell_save_settings:
+ * @shell: 
+ * 
+ * Save the settings for this shell.
+ * 
+ * Return value: %TRUE if it worked, %FALSE otherwise.  Even if %FALSE is
+ * returned, it is possible that at least part of the settings for the views
+ * have been saved.
+ **/
+gboolean
+e_shell_save_settings (EShell *shell)
+{
+	gboolean views_saved;
+	gboolean components_saved;
+
+	g_return_val_if_fail (shell != NULL, FALSE);
+	g_return_val_if_fail (E_IS_SHELL (shell), FALSE);
+
+	views_saved      = save_settings_for_views (shell);
+	components_saved = save_settings_for_components (shell);
+
+	return views_saved && components_saved;
+}
+
 /**
  * e_shell_restore_from_settings:
  * @shell: An EShell object.
-- 
cgit v1.2.3