More work

svn path=/trunk/; revision=1628

1 files changed, 394 insertions, 0 deletions

diff --git a/mail/message-list.c b/mail/message-list.c
new file mode 100644
index 0000000000..07959d818e
--- /dev/null
+++ b/mail/message-list.c
@@ -0,0 +1,394 @@
+/*
+ * message-list.c: Displays the messages.
+ *                 Implements CORBA's Evolution::MessageList
+ *
+ * Author:
+ *     Miguel de Icaza (miguel@helixcode.com)
+ *
+ * (C) 2000 Helix Code, Inc.
+ */
+#include <config.h>
+#include <gnome.h>
+#include <bonobo/gnome-main.h>
+#include "camel/camel-folder.h"
+#include "e-table/e-table.h"
+#include "e-table/e-table-simple.h"
+#include "e-table/e-cell-text.h"
+#include "e-table/e-cell-toggle.h"
+#include "e-table/e-cell-checkbox.h"
+#include "message-list.h"
+#include "Mail.h"
+
+/*
+ * Default sizes for the ETable display
+ *
+ */
+#define N_CHARS(x) (CHAR_WIDTH * (x))
+
+#define COL_ICON_WIDTH        16
+#define COL_FROM_WIDTH        N_CHARS(24)
+#define COL_FROM_WIDTH_MIN    32
+#define COL_SUBJECT_WIDTH     N_CHARS(30)
+#define COL_SUBJECT_WIDTH_MIN 32
+#define COL_SENT_WIDTH        N_CHARS(20)
+#define COL_SENT_WIDTH_MIN    32
+#define COL_RECEIVE_WIDTH     N_CHARS(20)
+#define COL_RECEIVE_WIDTH_MIN 32
+#define COL_TO_WIDTH          N_CHARS(24)
+#define COL_TO_WIDTH_MIN      32
+#define COL_SIZE_WIDTH        N_CHARS(6)
+#define COL_SIZE_WIDTH_MIN    32
+
+#define PARENT_TYPE (gnome_object_get_type ())
+
+static GnomeObjectClass *message_list_parent_class;
+static POA_Evolution_MessageList__vepv evolution_message_list_vepv;
+
+/*
+ * SimpleTableModel::col_count
+ */
+static int
+ml_col_count (ETableModel *etm, void *data)
+{
+	return COL_LAST;
+}
+
+/*
+ * SimpleTableModel::row_count
+ */
+static int
+ml_row_count (ETableModel *etm, void *data)
+{
+	MessageList *message_list = data;
+	CamelException ex;
+	
+	return camel_folder_get_message_count (message_list->folder, &ex);
+}
+
+static void *
+ml_value_at (ETableModel *etm, int col, int row, void *data)
+{
+	static char buffer [10];
+	
+	switch (col){
+	case COL_ONLINE_STATUS:
+		return GINT_TO_POINTER (0);
+		
+	case COL_MESSAGE_STATUS:
+		return GINT_TO_POINTER (1);
+		
+	case COL_PRIORITY:
+		return GINT_TO_POINTER (10);
+		
+	case COL_ATTACHMENT:
+		return GINT_TO_POINTER (0);
+		
+	case COL_FROM:
+		return "miguel@dudical.com";
+		
+	case COL_SUBJECT:
+		return "MONEY FAST!";
+		
+	case COL_SENT:
+		return "sent";
+		
+	case COL_RECEIVE:
+		return "receive";
+			
+	case COL_TO:
+		return "dudes@server";
+		
+	case COL_SIZE:
+		sprintf (buffer, "%d", 20);
+		return buffer;
+			
+	default:
+		g_assert_not_reached ();
+	}
+	return NULL;
+}
+
+static void
+ml_set_value_at (ETableModel *etm, int col, int row, const void *value, void *data)
+{
+}
+
+static gboolean
+ml_is_cell_editable (ETableModel *etm, int col, int row, void *data)
+{
+	return FALSE;
+}
+
+static void
+message_list_init_renderers (MessageList *message_list)
+{
+	g_assert (message_list);
+	g_assert (message_list->table_model);
+	
+	message_list->render_text = e_cell_text_new (
+		message_list->table_model,
+		NULL, GTK_JUSTIFY_LEFT);
+
+	message_list->render_online_status = e_cell_checkbox_new ();
+	message_list->render_message_status = e_cell_checkbox_new ();
+	message_list->render_priority = e_cell_checkbox_new ();
+	message_list->render_attachment = e_cell_checkbox_new ();
+}
+
+static void
+message_list_init_header (MessageList *message_list)
+{
+	/*
+	 * FIXME:
+	 *
+	 * Use the font metric to compute this.
+	 */
+#define CHAR_WIDTH 10
+	
+	message_list->header_model = e_table_header_new ();
+
+	message_list->table_cols [COL_ONLINE_STATUS] =
+		e_table_col_new (COL_ONLINE_STATUS, _("Online status"),
+				 COL_ICON_WIDTH, COL_ICON_WIDTH,
+				 message_list->render_online_status,
+				 g_int_equal, FALSE);
+
+	message_list->table_cols [COL_MESSAGE_STATUS] =
+		e_table_col_new (COL_MESSAGE_STATUS, _("Message status"),
+				 COL_ICON_WIDTH, COL_ICON_WIDTH,
+				 message_list->render_message_status,
+				 g_int_equal, FALSE);
+
+	message_list->table_cols [COL_PRIORITY] =
+		e_table_col_new (COL_PRIORITY, _("Priority"),
+				 COL_ICON_WIDTH, COL_ICON_WIDTH,
+				 message_list->render_priority,
+				 g_int_equal, FALSE);
+
+	message_list->table_cols [COL_ATTACHMENT] =
+		e_table_col_new (COL_ATTACHMENT, _("Attachment"),
+				 COL_ICON_WIDTH, COL_ICON_WIDTH,
+				 message_list->render_attachment,
+				 g_int_equal, FALSE);
+
+	message_list->table_cols [COL_FROM] =
+		e_table_col_new (COL_FROM, _("From"),
+				 COL_FROM_WIDTH, COL_FROM_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+
+	message_list->table_cols [COL_SUBJECT] =
+		e_table_col_new (COL_SUBJECT, _("Subject"),
+				 COL_SUBJECT_WIDTH, COL_SUBJECT_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+
+	message_list->table_cols [COL_SENT] =
+		e_table_col_new (COL_SENT, _("Sent"),
+				 COL_SUBJECT_WIDTH, COL_SENT_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+
+	message_list->table_cols [COL_RECEIVE] =
+		e_table_col_new (COL_SENT, _("Receive"),
+				 COL_RECEIVE_WIDTH, COL_RECEIVE_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+	message_list->table_cols [COL_TO] =
+		e_table_col_new (COL_TO, _("To"),
+				 COL_TO_WIDTH, COL_TO_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+
+	message_list->table_cols [COL_SIZE] =
+		e_table_col_new (COL_SIZE, _("Size"),
+				 COL_SIZE_WIDTH, COL_SIZE_WIDTH_MIN,
+				 message_list->render_text,
+				 g_str_equal, TRUE);
+}
+
+/*
+ * GtkObject::init
+ */
+static void
+message_list_init (GtkObject *object)
+{
+	MessageList *message_list = MESSAGE_LIST (object);
+
+	message_list->table_model = e_table_simple_new (
+		ml_col_count, ml_row_count, ml_value_at,
+		ml_set_value_at, ml_is_cell_editable, message_list);
+
+	message_list_init_renderers (message_list);
+	message_list_init_header (message_list);
+
+	/*
+	 * The etable
+	 */
+	
+	message_list->etable = e_table_new (
+		message_list->header_model,
+		message_list->table_model,
+		"1,2,3,4,5,6,7", NULL);
+
+	/*
+	 * We do own the Etable, not some widget container
+	 */
+	gtk_object_ref (GTK_OBJECT (message_list->etable));
+	gtk_object_sink (GTK_OBJECT (message_list->etable));
+}
+
+static void
+message_list_destroy (GtkObject *object)
+{
+	MessageList *message_list = MESSAGE_LIST (object);
+	int i;
+
+	gtk_object_unref (GTK_OBJECT (message_list->table_model));
+	gtk_object_unref (GTK_OBJECT (message_list->header_model));
+
+	/*
+	 * Renderers
+	 */
+	gtk_object_unref (GTK_OBJECT (message_list->render_text));
+	gtk_object_unref (GTK_OBJECT (message_list->render_online_status));
+	gtk_object_unref (GTK_OBJECT (message_list->render_message_status));
+	gtk_object_unref (GTK_OBJECT (message_list->render_priority));
+	gtk_object_unref (GTK_OBJECT (message_list->render_attachment));
+	
+	gtk_object_unref (GTK_OBJECT (message_list->etable));
+
+	for (i = 0; i < COL_LAST; i++)
+		gtk_object_unref (GTK_OBJECT (message_list->table_cols [i]));
+
+	GTK_OBJECT_CLASS (message_list_parent_class)->destroy (object);
+}
+
+/*
+ * CORBA method: Evolution::MessageList::select_message
+ */
+static void
+MessageList_select_message (PortableServer_Servant _servant,
+			    const CORBA_long message_number,
+			    CORBA_Environment *ev)
+{
+	printf ("FIXME: select message method\n");
+}
+
+/*
+ * CORBA method: Evolution::MessageList::open_message
+ */
+static void
+MessageList_open_message (PortableServer_Servant _servant,
+			  const CORBA_long message_number,
+			  CORBA_Environment *ev)
+{
+	printf ("FIXME: open message method\n");
+}
+
+static POA_Evolution_MessageList__epv *
+evolution_message_list_get_epv (void)
+{
+	POA_Evolution_MessageList__epv *epv;
+
+	epv = g_new0 (POA_Evolution_MessageList__epv, 1);
+
+	epv->select_message = MessageList_select_message;
+	epv->open_message   = MessageList_open_message;
+
+	return epv;
+}
+
+static void
+message_list_corba_class_init (void)
+{
+	evolution_message_list_vepv.GNOME_Unknown_epv = gnome_object_get_epv ();
+	evolution_message_list_vepv.Evolution_MessageList_epv = evolution_message_list_get_epv ();
+}
+
+/*
+ * GtkObjectClass::init
+ */
+static void
+message_list_class_init (GtkObjectClass *object_class)
+{
+	message_list_parent_class = gtk_type_class (PARENT_TYPE);
+
+	object_class->destroy = message_list_destroy;
+
+	message_list_corba_class_init ();
+}
+
+static void
+message_list_construct (MessageList *message_list, Evolution_MessageList corba_message_list)
+{
+	gnome_object_construct (GNOME_OBJECT (message_list), corba_message_list);
+}
+
+static Evolution_MessageList
+create_corba_message_list (GnomeObject *object)
+{
+	POA_Evolution_MessageList *servant;
+	CORBA_Environment ev;
+
+	servant = (POA_Evolution_MessageList *) g_new0 (GnomeObjectServant, 1);
+	servant->vepv = &evolution_message_list_vepv;
+
+	CORBA_exception_init (&ev);
+	POA_Evolution_MessageList__init ((PortableServer_Servant) servant, &ev);
+	if (ev._major != CORBA_NO_EXCEPTION){
+		g_free (servant);
+		CORBA_exception_free (&ev);
+		return CORBA_OBJECT_NIL;
+	}
+
+	CORBA_exception_free (&ev);
+	return (Evolution_MessageList) gnome_object_activate_servant (object, servant);
+}
+
+GnomeObject *
+message_list_new (void)
+{
+	Evolution_MessageList corba_object;
+	MessageList *message_list;
+
+	message_list = gtk_type_new (message_list_get_type ());
+
+	corba_object = create_corba_message_list (GNOME_OBJECT (message_list));
+	if (corba_object == CORBA_OBJECT_NIL){
+		gtk_object_destroy (GTK_OBJECT (message_list));
+		return NULL;
+	}
+
+	message_list_construct (message_list, corba_object);
+
+	return GNOME_OBJECT (message_list);
+}
+
+void
+message_list_set_folder (MessageList *message_list, CamelFolder *camel_folder)
+{
+	g_return_if_fail (message_list != NULL);
+	g_return_if_fail (camel_folder != NULL);
+	g_return_if_fail (IS_MESSAGE_LIST (message_list));
+	g_return_if_fail (CAMEL_IS_FOLDER (camel_folder));
+	g_return_if_fail (camel_has_summary_capability (camel_folder));
+	
+	if (message_list->folder)
+		gtk_object_unref (GTK_OBJECT (message_list->folder));
+
+	message_list->folder = camel_folder;
+	message_list->folder_summary = camel_folder_get_summary (camel_folder);
+	
+	gtk_object_ref (GTK_OBJECT (camel_folder));
+
+	e_table_model_changed (message_list->table_model);
+}
+
+GtkWidget *
+message_list_get_widget (MessageList *message_list)
+{
+	return message_list->etable;
+}
+
+E_MAKE_TYPE (message_list, "MessageList", MessageList, message_list_class_init, message_list_init, PARENT_TYPE);