More changes than a man can remember.

The UI works now. svn path=/trunk/; revision=2074
author: Bertrand Guiheneuf <bertrand@src.gnome.org> 2000-03-06 17:38:42 +0800
committer: Bertrand Guiheneuf <bertrand@src.gnome.org> 2000-03-06 17:38:42 +0800
commit: 7c164f12b9ae13cd2f7e068b1b8626701ab8390f (patch)
tree: 4027d784956aee7e7b28b78b563edcb639645cd5 /mail/mail-display.c
parent: ffad0d32ceef317c2995378f654e8214629948f0 (diff)
download: gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.tar.gz
gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.tar.zst
gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.zip
1 files changed, 368 insertions, 16 deletions
diff --git a/mail/mail-display.c b/mail/mail-display.c
index 7b0246b31c..01abcc008f 100644
--- a/mail/mail-display.c
+++ b/mail/mail-display.c
@@ -1,3 +1,4 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
 /*
  * mail-display.c: Mail display widget
  *
@@ -11,24 +12,332 @@
 #include "e-util/e-util.h"
 #include "mail-display.h"
 #include "html-stream.h"
+#include "camel/camel-formatter.h"
+
+/* corba/bonobo stuff */
+#include <bonobo.h>
+#include <libgnorba/gnorba.h>
+#include <bonobo/bonobo-stream-memory.h>
 
 #define PARENT_TYPE (gtk_table_get_type ())
 
 static GtkObjectClass *mail_display_parent_class;
 
+            
+
+
+
+
+static gchar default_header_html_string[] = "
+<!doctype html public \"-//w3c//dtd html 4.0 transitional//en\">
+<html>
+<head>
+   <meta name=\"GENERATOR\" content=\"Evolution Mail Component (Rhon Rhon release)\">
+</head>
+<body text=\"#000000\" bgcolor=\"#999999\">
+<table CELLSPACING=0 WIDTH=\"100\%\">
+<tr>
+<td><b>From:&nbsp;</b></td>
+<td><b>To:&nbsp;</b></td>
+</tr>
+
+<tr>
+<td><b>Subject:&nbsp;</b></td>
+<td><b>Cc:&nbsp;</b></td>
+</tr>
+</table>
+</body>
+</html>
+";
+
+
+
+static gchar default_body_html_string[] = "
+<!doctype html public \"-//w3c//dtd html 4.0 transitional//en\">
+<html>
+<head>
+   <meta name=\"GENERATOR\" content=\"Evolution Mail Component (Rhon Rhon release)\">
+</head>
+<body text=\"#000000\" bgcolor=\"#FFFFFF\">
+<center>
+Nothing to display in this view
+</center>
+</body>
+</html>
+";
+
+
+
+/* stuff to display Bonobo Components  inside the html message 
+ * body view */
+static gboolean
+hydrate_persist_stream_from_gstring (Bonobo_PersistStream persist_stream,
+				     GString* gstr)
+{
+	CORBA_Environment ev;
+	BonoboStream* mem_stream =
+		bonobo_stream_mem_create (gstr->str, gstr->len, TRUE);
+        /*
+	 * If the component doesn't support
+	 * PersistStream, then we destroy the
+	 * stream we created and bail.
+	 */
+	if (persist_stream == CORBA_OBJECT_NIL) {
+		gnome_warning_dialog (_("The component now claims that it "
+					"doesn't support PersistStream!"));
+		bonobo_object_unref (BONOBO_OBJECT (mem_stream));
+		return FALSE;
+	}
+				
+	CORBA_exception_init (&ev);
+
+	/*
+	 * Load the file into the component using PersistStream.
+	 */
+	Bonobo_PersistStream_load (persist_stream,
+				   (Bonobo_Stream) bonobo_object_corba_objref (BONOBO_OBJECT (mem_stream)),
+				   &ev);
+
+	bonobo_object_unref (BONOBO_OBJECT (mem_stream));
+				
+	if (ev._major != CORBA_NO_EXCEPTION) {
+		gnome_warning_dialog (_("An exception occured while trying "
+					"to load data into the component with "
+					"PersistStream"));
+		CORBA_exception_free (&ev);
+		return FALSE;
+	}
+
+	CORBA_exception_free (&ev);
+	return TRUE;
+}
+
+
+static GString*
+camel_stream_to_gstring (CamelStream* stream)
+{
+	gchar tmp_buffer[4097];
+	GString *tmp_gstring = g_string_new ("");
+
+	do { /* read next chunk of text */
+			
+		gint nb_bytes_read;
+			
+		nb_bytes_read = camel_stream_read (stream,
+						   tmp_buffer,
+						   4096);
+		tmp_buffer [nb_bytes_read] = '\0';
+
+                /* If there's any text, append it to the gstring */
+		if (nb_bytes_read > 0) {
+			tmp_gstring = g_string_append (tmp_gstring, tmp_buffer);
+		}
+			
+	} while (!camel_stream_eos (stream));
+
+	return tmp_gstring;
+}
+
+/*
+ * As a page is loaded, when gtkhtml comes across <object> tags, this
+ * callback is invoked. The GtkHTMLEmbedded param is a GtkContainer;
+ * our job in this function is to simply add a child widget to it.
+ */
+static void
+on_object_requested (GtkHTML *html, GtkHTMLEmbedded *eb, void *unused)
+{
+	CamelStream *stream;
+	GString *camel_stream_gstr;
+
+	GtkWidget *bonobo_embeddable;
+	BonoboObjectClient* server;
+	Bonobo_PersistStream persist;	
+	CORBA_Environment ev;
+	gchar *uid = gtk_html_embedded_get_parameter (eb, "uid");
+
+	printf ("Here\n");
+	/* Both the classid (which specifies which bonobo object to
+         * fire up) and the uid (which tells us where to find data to
+         * persist from) must be available; if one of them isn't,
+         * print an error and bail. */
+	if (!uid || !eb->classid) {
+		printf ("on_object_requested: couldn't find %s%s%s\n",
+			uid?"a uid":"",
+			(!uid && !eb->classid)?" or ":"",
+			eb->classid?"a classid":"");
+		return;
+	}
+	printf ("object requested : %s\n", eb->classid);
+     	printf ("UID = %s\n", uid);
+
+	/* Try to get a server with goadid specified by eb->classid */
+	bonobo_embeddable = bonobo_widget_new_subdoc  (eb->classid, NULL);
+	server = bonobo_widget_get_server (BONOBO_WIDGET (bonobo_embeddable));
+	if (!server) {
+		printf ("Couldn't get the server for the bonobo embeddable\n");
+		return;
+	}
+
+	/* The UID should be a pointer to a CamelStream */
+	if (sscanf (uid, "camel://%p", &stream) != 1) {
+		printf ("Couldn't get a pointer from url \"%s\"\n", uid);
+		gtk_object_unref (GTK_OBJECT (bonobo_embeddable));
+		
+		return;
+	}
+
+	/* Try to get a PersistStream interface from the server;
+	   if it doesn't support that interface, bail. */
+	persist = (Bonobo_PersistStream) bonobo_object_client_query_interface (
+		server,
+		"IDL:Bonobo/PersistStream:1.0",
+		NULL);
+
+	if (persist == CORBA_OBJECT_NIL) {
+		gchar* msg = g_strdup_printf (
+			_("The %s component doesn't support PersistStream!\n"),
+			uid);
+		
+		gnome_warning_dialog (msg);
+		gtk_object_unref (GTK_OBJECT (bonobo_embeddable));
+		
+		return;
+	}
+
+	/* Hydrate the PersistStream from the CamelStream */
+	camel_stream_gstr = camel_stream_to_gstring (stream);	
+	printf ("on_object_requested: The CamelStream has %d elements\n",
+		camel_stream_gstr->len);
+	hydrate_persist_stream_from_gstring (persist, camel_stream_gstr);
+	
+	/* Give our new window to the container */
+	
+	gtk_widget_show (bonobo_embeddable);
+	gtk_container_add (GTK_CONTAINER(eb), bonobo_embeddable);
+	
+	/* Destroy the PersistStream object.*/
+	CORBA_exception_init (&ev);
+	Bonobo_Unknown_unref (persist, &ev);
+	CORBA_Object_release (persist, &ev);
+	CORBA_exception_free (&ev);				
+
+	g_string_free (camel_stream_gstr, FALSE);
+}
+
+
+
+void 
+mail_display_set_message (MailDisplay *mail_display, 
+			  CamelMedium *medium)
+{
+	CamelFormatter *camel_formatter;
+
+	/* okay, we should not create a formatter
+	 * each time we need to display a message
+	 * but I don't know how the formatter reacts
+	 * to consecutive call to *_to_html - ber */
+	camel_formatter = camel_formatter_new ();
+
+
+	/*
+	 * for the moment, camel-formatter deals only with 
+	 * mime messages, but in the future, it should be 
+	 * able to deal with any medium.
+	 * It can work on pretty much data wrapper, but in 
+	 * fact, only the medium class has the distinction 
+	 * header / body 
+	 */
+	if (CAMEL_IS_MIME_MESSAGE (medium)) {
+		
+		/* 
+		 * reset the html stream to clean 
+		 * the gtkhtml widget 
+		 */
+		camel_stream_reset (mail_display->body_stream);
+		camel_stream_reset (mail_display->headers_stream);
+		
+		/* 
+		 * convert the message into html
+		 * and stream the result to the gtkhtml
+		 * widgets 
+		 */
+		camel_stream_write_string (mail_display->headers_stream, "
+<!doctype html public \"-//w3c//dtd html 4.0 transitional//en\">
+<html>
+<head>
+   <meta name=\"GENERATOR\" content=\"Evolution Mail Component (Rhon Rhon release)\">
+</head>
+<body text=\"#000000\" bgcolor=\"#999999\">
+<font>
+");;
+
+		camel_stream_write_string (mail_display->body_stream, "
+<!doctype html public \"-//w3c//dtd html 4.0 transitional//en\">
+<html>
+<head>
+   <meta name=\"GENERATOR\" content=\"Evolution Mail Component (Rhon Rhon release)\">
+</head>
+<body text=\"#000000\" bgcolor=\"#FFFFFF\">
+");;
+
+
+		 camel_formatter_mime_message_to_html 
+			(camel_formatter,
+			 CAMEL_MIME_MESSAGE (medium),
+			 mail_display->headers_stream,
+			 mail_display->body_stream);
+		
+		
+		 /*camel_formatter_wrapper_to_html (camel_formatter,
+						 CAMEL_DATA_WRAPPER (medium),
+						 mail_display->body_stream);*/
+
+		camel_stream_write_string (mail_display->headers_stream, "
+</font>
+</body>
+</html>
+");;
+
+		camel_stream_write_string (mail_display->body_stream, "
+</body>
+</html>
+");;
+
+		camel_stream_close (mail_display->body_stream);
+		camel_stream_close (mail_display->headers_stream);
+		
+	}	
+}
+
+
+/* generic class stuff */
+
+
 static void
 mail_display_init (GtkObject *object)
 {
 	MailDisplay *mail_display = MAIL_DISPLAY (object);
 
-	mail_display->html =  (GtkHTML *) gtk_html_new ();
-	gtk_widget_show (GTK_WIDGET (mail_display->html));
+	/* create the headers html widget */
+	mail_display->headers_html_widget =  (GtkHTML *) gtk_html_new ();	
+	mail_display->headers_stream = html_stream_new (mail_display->headers_html_widget);
+	gtk_widget_show (GTK_WIDGET (mail_display->headers_html_widget));
+	
+	/* create the body html widget */
+	mail_display->body_html_widget =  (GtkHTML *) gtk_html_new ();	
+	gtk_signal_connect (GTK_OBJECT (mail_display->body_html_widget), 
+			    "object_requested",
+			    GTK_SIGNAL_FUNC (on_object_requested), 
+			    NULL);
+
+	mail_display->body_stream = html_stream_new (mail_display->body_html_widget);
+	gtk_widget_show (GTK_WIDGET (mail_display->body_html_widget));
 }
 
 static void
 mail_display_destroy (GtkObject *object)
 {
-	MailDisplay *mail_display = MAIL_DISPLAY (object);
+	/* MailDisplay *mail_display = MAIL_DISPLAY (object); */
 
 	mail_display_parent_class->destroy (object);
 }
@@ -41,28 +350,71 @@ mail_display_class_init (GtkObjectClass *object_class)
 }
 
 GtkWidget *
-mail_display_new (void)
+mail_display_new (FolderBrowser *parent_folder_browser)
 {
 	MailDisplay *mail_display = gtk_type_new (mail_display_get_type ());
 	GtkTable *table = GTK_TABLE (mail_display);
+	GtkWidget *scroll_wnd;
+	GtkWidget* frame_wnd = NULL;
+
+	g_assert (parent_folder_browser);
+
+	mail_display->parent_folder_browser = parent_folder_browser;
+
+	/* the table has table with 1 column and 2 lines */
+  	table->homogeneous = FALSE; 
+
+  	gtk_table_resize (table, 1, 2); 
+	gtk_widget_show (GTK_WIDGET (mail_display));
+
+
+	/* create a scrolled window and put the headers 
+	 * html widget inside */
+	scroll_wnd = gtk_scrolled_window_new (NULL, NULL);
+	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scroll_wnd),
+					GTK_POLICY_AUTOMATIC,
+					GTK_POLICY_NEVER);
+	frame_wnd = gtk_frame_new (NULL);
+	gtk_frame_set_shadow_type (
+				   GTK_FRAME (frame_wnd), GTK_SHADOW_OUT);
+	gtk_widget_show (scroll_wnd);
+	gtk_container_add (GTK_CONTAINER (frame_wnd), scroll_wnd);
+	gtk_widget_show (frame_wnd);
+	gtk_container_add (GTK_CONTAINER (scroll_wnd), 
+			   GTK_WIDGET (mail_display->headers_html_widget));
+	gtk_widget_set_usize (GTK_WIDGET (scroll_wnd), -1, 50);
+	/* add it on the top part of the table */
+  	gtk_table_attach (table, GTK_WIDGET (frame_wnd), 
+  			  0, 1, 0, 1,
+  			  GTK_EXPAND | GTK_FILL, GTK_FILL, 0, 0); 
+
+
+	/* create a scrolled window and put the body 
+	 * html widget inside */
+	scroll_wnd = gtk_scrolled_window_new (NULL, NULL);
+	gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scroll_wnd),
+					GTK_POLICY_AUTOMATIC,
+					GTK_POLICY_ALWAYS);
+
+	gtk_widget_show (scroll_wnd);
+	gtk_container_add (GTK_CONTAINER (scroll_wnd), 
+			   GTK_WIDGET (mail_display->body_html_widget));
 	
-	table->homogeneous = FALSE;
-	gtk_table_resize (table, 1, 2);
+	/* add it at the bottom part of the table */
+  	gtk_table_attach (table, GTK_WIDGET (scroll_wnd), 
+  			  0, 1, 1, 2,
+  			  GTK_EXPAND | GTK_FILL, GTK_EXPAND | GTK_FILL, 0, 0); 
+
+	
+	/* write the default text to the  html widgets */
+	camel_stream_write_string (mail_display->headers_stream, default_header_html_string);
+	camel_stream_write_string (mail_display->body_stream,    default_body_html_string);
+	 
 
-	gtk_table_attach (table, GTK_WIDGET (mail_display->html),
-			  0, 1, 1, 2,
-			  GTK_EXPAND | GTK_FILL, GTK_EXPAND | GTK_FILL, 0, 0);
 	return GTK_WIDGET (mail_display);
 }
 
-CamelStream *
-mail_display_get_stream (MailDisplay *mail_display)
-{
-	g_return_val_if_fail (mail_display != NULL, NULL);
-	g_return_val_if_fail (IS_MAIL_DISPLAY (mail_display), NULL);
 
-	return html_stream_new (mail_display->html);
-}
 
 E_MAKE_TYPE (mail_display, "MailDisplay", MailDisplay, mail_display_class_init, mail_display_init, PARENT_TYPE);
author	Bertrand Guiheneuf <bertrand@src.gnome.org>	2000-03-06 17:38:42 +0800
committer	Bertrand Guiheneuf <bertrand@src.gnome.org>	2000-03-06 17:38:42 +0800
commit	7c164f12b9ae13cd2f7e068b1b8626701ab8390f (patch)
tree	4027d784956aee7e7b28b78b563edcb639645cd5 /mail/mail-display.c
parent	ffad0d32ceef317c2995378f654e8214629948f0 (diff)
download	gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.tar.gz gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.tar.zst gsoc2013-evolution-7c164f12b9ae13cd2f7e068b1b8626701ab8390f.zip