More framework work -miguel

svn path=/trunk/; revision=1539

1 files changed, 106 insertions, 0 deletions

diff --git a/shell/e-shell.c b/shell/e-shell.c
new file mode 100644
index 0000000000..ef03135102
--- /dev/null
+++ b/shell/e-shell.c
@@ -0,0 +1,106 @@
+/*
+ * E-shell.c: Shell object for Evolution
+ *
+ * Authors:
+ *   Miguel de Icaza (miguel@helixcode.com)
+ *
+ * (C) 1999 Miguel de Icaza
+ * (C) 2000 Helix Code, Inc.
+ */
+#include <config.h>
+#include "Shell.h"
+#include "e-util/e-util.h"
+#include "e-shell.h"
+
+#define PARENT_TYPE (gnome_object_get_type ())
+
+static GnomeObjectClass *e_shell_parent_class;
+POA_GNOME_Evolution_Shell__vepv eshell_vepv;
+
+GtkType e_shell_get_type (void);
+
+static POA_GNOME_Evolution_Shell__epv *
+e_shell_get_epv (void)
+{
+	POA_GNOME_Evolution_Shell__epv *epv;
+
+	epv = g_new0 (POA_GNOME_Evolution_Shell__epv, 1);
+
+	return epv;
+}
+
+static void
+init_e_shell_corba_class (void)
+{
+	eshell_vepv.GNOME_Unknown_epv = gnome_object_get_epv ();
+	eshell_vepv.GNOME_Evolution_Shell_epv = e_shell_get_epv ();
+}
+
+static void
+e_shell_destroy (GtkObject *object)
+{
+	EShell *eshell = E_SHELL (object);
+
+	if (eshell->base_uri)
+		g_free (eshell->base_uri);
+
+	GTK_OBJECT_CLASS (e_shell_parent_class)->destroy (object);
+}
+
+static void
+e_shell_class_init (GtkObjectClass *object_class)
+{
+	e_shell_parent_class = gtk_type_class (PARENT_TYPE);
+	init_e_shell_corba_class ();
+
+	object_class->destroy = e_shell_destroy;
+}
+
+static void
+e_shell_init (GtkObject *object)
+{
+	EShell *eshell = E_SHELL (object);
+
+	eshell->gnome_app = gnome_app_new ("Evolution", "Evolution");
+}
+
+void
+e_shell_set_base_uri (EShell *eshell, const char *base_uri)
+{
+	g_return_if_fail (eshell != NULL);
+	g_return_if_fail (!E_IS_SHELL (eshell));
+	g_return_if_fail (base_uri != NULL);
+
+	if (eshell->base_uri)
+		g_free (eshell->base_uri);
+	
+	eshell->base_uri = g_strdup (base_uri);
+}
+
+const char *
+e_shell_get_base_uri (EShell *eshell)
+{
+	g_return_val_if_fail (eshell != NULL, NULL);
+	g_return_val_if_fail (!E_IS_SHELL (eshell), NULL);
+
+	return eshell->base_uri;
+}
+
+EShell *
+e_shell_new (const char *base_uri)
+{
+	EShell *eshell;
+
+	g_return_val_if_fail (base_uri  != NULL, NULL);
+	
+	eshell = gtk_type_new (e_shell_get_type ());
+	e_shell_set_base_uri (eshell, base_uri);
+
+	return eshell;
+}
+
+E_MAKE_TYPE (e_shell, "EShell", EShell, e_shell_class_init, e_shell_init, PARENT_TYPE);
+
+
+
+