evolution/shell/e-shell-settings-dialog.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* e-shell-settings-dialog.c
 *
 * Copyright (C) 2002  Ximian, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 *
 * Author: Ettore Perazzoli <ettore@ximian.com>
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "e-shell-settings-dialog.h"

#include <gal/util/e-util.h>

#include <bonobo/bonobo-widget.h>

#include <liboaf/liboaf.h>

#include <string.h>


#define PARENT_TYPE e_multi_config_dialog_get_type ()
static EMultiConfigDialogClass *parent_class = NULL;


static GSList *
get_language_list (void)
{
	const char *env;
	const char *p;

	env = g_getenv ("LANGUAGE");
	if (env == NULL) {
		env = g_getenv ("LANG");
		if (env == NULL)
			return NULL;
	}

	p = strchr (env, '=');
	if (p != NULL)
		return g_slist_prepend (NULL, (void *) (p + 1));
	else
		return g_slist_prepend (NULL, (void *) env);
}

static void
load_pages (EShellSettingsDialog *dialog)
{
	OAF_ServerInfoList *control_list;
	CORBA_Environment ev;
	GSList *language_list;
	int i;

	CORBA_exception_init (&ev);

	control_list = oaf_query ("defined(evolution:config_item:title)", NULL, &ev);
	if (ev._major != CORBA_NO_EXCEPTION || control_list == NULL) {
		g_warning ("Cannot load configuration pages -- %s", ev._repo_id);
		CORBA_exception_free (&ev);
		return;
	}

	language_list = get_language_list ();

	for (i = 0; i < control_list->_length; i ++) {
		CORBA_Object corba_object;
		OAF_ServerInfo *info;
		const char *title;
		const char *description;
		const char *icon_path;
		GdkPixbuf *icon;

		info = & control_list->_buffer[i];

		title       = oaf_server_info_prop_lookup (info, "evolution:config_item:title", language_list);
		description = oaf_server_info_prop_lookup (info, "evolution:config_item:description", language_list);
		icon_path   = oaf_server_info_prop_lookup (info, "evolution:config_item:icon_path", language_list);

		if (icon_path == NULL)
			icon = NULL;
		else
			icon = gdk_pixbuf_new_from_file (icon_path);

		corba_object = oaf_activate_from_id ((char *) info->iid, 0, NULL, &ev);
		if (ev._major == CORBA_NO_EXCEPTION) {
			GtkWidget *widget;

			widget = bonobo_widget_new_control_from_objref (corba_object, CORBA_OBJECT_NIL);
			e_multi_config_dialog_add_page (E_MULTI_CONFIG_DIALOG (dialog),
							title, description, icon, widget);
		}

		if (icon != NULL)
			gdk_pixbuf_unref (icon);
	}

	CORBA_free (control_list);

	g_slist_free (language_list);

	CORBA_exception_free (&ev);
}


/* GtkObject methods.  */

static void
impl_destroy (GtkObject *object)
{
	EShellSettingsDialog *dialog;

	dialog = E_SHELL_SETTINGS_DIALOG (object);

	/* (Really nothing to do here for now.)  */

	(* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
}


static void
class_init (EShellSettingsDialog *class)
{
	GtkObjectClass *object_class;

	object_class = GTK_OBJECT_CLASS (class);
	object_class->destroy = impl_destroy;

	parent_class = gtk_type_class (PARENT_TYPE);
}

static void
init (EShellSettingsDialog *dialog)
{
	load_pages (dialog);

	gtk_window_set_default_size (GTK_WINDOW (dialog), 600, 450);
}


GtkWidget *
e_shell_settings_dialog_new (void)
{
	EShellSettingsDialog *new;

	new = gtk_type_new (e_shell_settings_dialog_get_type ());

	return GTK_WIDGET (new);
}


E_MAKE_TYPE (e_shell_settings_dialog, "EShellSettingsDialog", EShellSettingsDialog,
	     class_init, init, PARENT_TYPE)