path: root/mail/mail-display.c

/*
 * mail-display.c: Mail display widget
 *
 * Author:
 *   Miguel de Icaza
 *
 * (C) 2000 Helix Code, Inc.
 */
#include <config.h>
#include <gnome.h>
#include "e-util/e-util.h"
#include "mail-display.h"

#define PARENT_TYPE (gtk_table_get_type ())

static GtkObjectClass *mail_display_parent_class;

static void
mail_display_init (GtkObject *object)
{
    MailDisplay *mail_display = MAIL_DISPLAY (object);

    mail_display->html = gtk_html_new ();
    gtk_widget_show (mail_display->html);
}

static void
mail_display_destroy (GtkObject *object)
{
    MailDisplay *mail_display = MAIL_DISPLAY (object);

    mail_display_parent_class->destroy (object);
}

static void
mail_display_class_init (GtkObjectClass *object_class)
{
    object_class->destroy = mail_display_destroy;
    mail_display_parent_class = gtk_type_class (PARENT_TYPE);
}

GtkWidget *
mail_display_new (void)
{
    MailDisplay *mail_display = gtk_type_new (mail_display_get_type ());
    GtkTable *table = GTK_TABLE (mail_display);
    
    table->homogeous = FALSE;
    gtk_table_resize (table, 1, 2);

    gtk_table_attach (table, mail_display->html,
              0, 1, 1, 2,
              GTK_EXPAND | GTK_FILL, GTK_EXPAND | GTK_FILL);
    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);