path: root/widgets/table/e-table-group-container.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * E-Table-Group.c: Implements the grouping objects for elements on a table
 *
 * Author:
 *   Chris Lahey <clahey@ximian.com>
 *   Miguel de Icaza (miguel@gnu.org)
 *
 * Copyright 1999, 2000 Ximian, Inc.
 */

#include <config.h>
#include <gtk/gtksignal.h>
#include <libgnomeui/gnome-canvas-rect-ellipse.h>
#include "e-table-group-container.h"
#include "e-table-group-leaf.h"
#include "e-table-item.h"
#include "gal/util/e-util.h"
#include "gal/widgets/e-canvas.h"
#include "gal/widgets/e-canvas-utils.h"
#include "gal/e-text/e-text.h"
#include "e-table-defines.h"

#define TITLE_HEIGHT         16

#define PARENT_TYPE e_table_group_get_type ()

static GnomeCanvasGroupClass *etgc_parent_class;

/* The arguments we take */
enum {
    ARG_0,
    ARG_HEIGHT,
    ARG_WIDTH,
    ARG_MINIMUM_WIDTH,
    ARG_FROZEN,
    ARG_TABLE_DRAW_GRID,
    ARG_TABLE_DRAW_FOCUS,
    ARG_CURSOR_MODE,
    ARG_TABLE_SELECTION_MODEL,
    ARG_LENGTH_THRESHOLD,
};

typedef struct {
    ETableGroup *child;
    void *key;
    char *string;
    GnomeCanvasItem *text;
    GnomeCanvasItem *rect;
    gint count;
} ETableGroupContainerChildNode;

static EPrintable *
etgc_get_printable (ETableGroup *etg);


static void
e_table_group_container_child_node_free (ETableGroupContainer          *etgc,
                    ETableGroupContainerChildNode *child_node)
{
    ETableGroup *etg = E_TABLE_GROUP (etgc);
    ETableGroup *child = child_node->child;

    gtk_object_destroy (GTK_OBJECT (child));
    e_table_model_free_value (etg->model, etgc->ecol->col_idx,
                  child_node->key);
    g_free(child_node->string);
    gtk_object_destroy (GTK_OBJECT (child_node->text));
    gtk_object_destroy (GTK_OBJECT (child_node->rect));
}

static void
e_table_group_container_list_free (ETableGroupContainer *etgc)
{
    ETableGroupContainerChildNode *child_node;
    GList *list;

    for (list = etgc->children; list; list = g_list_next (list)) {
        child_node = (ETableGroupContainerChildNode *) list->data;
        e_table_group_container_child_node_free (etgc, child_node);
    }

    g_list_free (etgc->children);
}

static void
etgc_destroy (GtkObject *object)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER (object);

    if (etgc->font)
        gdk_font_unref (etgc->font);
        etgc->font = NULL;

    if (etgc->ecol)
        gtk_object_unref (GTK_OBJECT(etgc->ecol));

    if (etgc->sort_info)
        gtk_object_unref (GTK_OBJECT(etgc->sort_info));

    if (etgc->table_selection_model)
        gtk_object_unref (GTK_OBJECT(etgc->table_selection_model));

    if (etgc->rect)
        gtk_object_destroy (GTK_OBJECT(etgc->rect));

    e_table_group_container_list_free (etgc);

    GTK_OBJECT_CLASS (etgc_parent_class)->destroy (object);
}

void
e_table_group_container_construct (GnomeCanvasGroup *parent, ETableGroupContainer *etgc,
                   ETableHeader *full_header,
                   ETableHeader     *header,
                   ETableModel *model, ETableSortInfo *sort_info, int n)
{
    ETableCol *col;
    ETableSortColumn column = e_table_sort_info_grouping_get_nth(sort_info, n);

    col = e_table_header_get_column_by_col_idx(full_header, column.column);
    if (col == NULL)
        col = e_table_header_get_column (full_header, e_table_header_count (full_header) - 1);

    e_table_group_construct (parent, E_TABLE_GROUP (etgc), full_header, header, model);
    etgc->ecol = col;
    gtk_object_ref (GTK_OBJECT(etgc->ecol));
    etgc->sort_info = sort_info;
    gtk_object_ref (GTK_OBJECT(etgc->sort_info));
    etgc->n = n;
    etgc->ascending = column.ascending;

    
    etgc->font = gdk_font_load ("lucidasans-10");
    if (!etgc->font){
        etgc->font = GTK_WIDGET (GNOME_CANVAS_ITEM (etgc)->canvas)->style->font;
        
        gdk_font_ref (etgc->font);
    }
    etgc->open = TRUE;
}

ETableGroup *
e_table_group_container_new (GnomeCanvasGroup *parent, ETableHeader *full_header,
                 ETableHeader     *header,
                 ETableModel *model, ETableSortInfo *sort_info, int n)
{
    ETableGroupContainer *etgc;

    g_return_val_if_fail (parent != NULL, NULL);
    
    etgc = gtk_type_new (e_table_group_container_get_type ());

    e_table_group_container_construct (parent, etgc, full_header, header,
                       model, sort_info, n);
    return E_TABLE_GROUP (etgc);
}


static int
etgc_event (GnomeCanvasItem *item, GdkEvent *event)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(item);
    gboolean return_val = TRUE;
    gboolean change_focus = FALSE;
    gboolean use_col = FALSE;
    gint start_col = 0;
    gint old_col;
    EFocus direction = E_FOCUS_START;

    switch (event->type) {
    case GDK_KEY_PRESS:
        if (event->key.keyval == GDK_Tab || 
            event->key.keyval == GDK_KP_Tab || 
            event->key.keyval == GDK_ISO_Left_Tab) {
            change_focus = TRUE;
            use_col      = TRUE;
            start_col    = (event->key.state & GDK_SHIFT_MASK) ? -1 : 0;
            direction    = (event->key.state & GDK_SHIFT_MASK) ? E_FOCUS_END : E_FOCUS_START;
        } else if (event->key.keyval == GDK_Left ||
               event->key.keyval == GDK_KP_Left) {
            change_focus = TRUE;
            use_col      = TRUE;
            start_col    = -1;
            direction    = E_FOCUS_END;
        } else if (event->key.keyval == GDK_Right ||
               event->key.keyval == GDK_KP_Right) {
            change_focus = TRUE;
            use_col   = TRUE;
            start_col = 0;
            direction = E_FOCUS_START;
        } else if (event->key.keyval == GDK_Down ||
               event->key.keyval == GDK_KP_Down) {
            change_focus = TRUE;
            use_col      = FALSE;
            direction    = E_FOCUS_START;
        } else if (event->key.keyval == GDK_Up ||
               event->key.keyval == GDK_KP_Up) {
            change_focus = TRUE;
            use_col      = FALSE;
            direction    = E_FOCUS_END;
        } else if (event->key.keyval == GDK_Return ||
               event->key.keyval == GDK_KP_Enter) {
            change_focus = TRUE;
            use_col      = FALSE;
            direction    = E_FOCUS_START;
        }
        if (change_focus){      
            GList *list;
            for (list = etgc->children; list; list = list->next) {
                ETableGroupContainerChildNode *child_node;
                ETableGroup                   *child;

                child_node = (ETableGroupContainerChildNode *)list->data;
                child      = child_node->child;

                if (e_table_group_get_focus (child)) {
                    old_col = e_table_group_get_focus_column (child);
                    if (old_col == -1)
                        old_col = 0;
                    if (start_col == -1)
                        start_col = e_table_header_count (e_table_group_get_header (child)) - 1;
                    
                    if (direction == E_FOCUS_END)
                        list = list->prev;
                    else
                        list = list->next;
                    
                    if (list) {
                        child_node = (ETableGroupContainerChildNode *)list->data;
                        child = child_node->child;
                        if (use_col)
                            e_table_group_set_focus (child, direction, start_col);
                        else
                            e_table_group_set_focus (child, direction, old_col);
                        return 1;
                    } else {
                        return 0;
                    }
                }
            }
            if (direction == E_FOCUS_END)
                list = g_list_last(etgc->children);
            else
                list = etgc->children;
            if (list) {
                ETableGroupContainerChildNode *child_node;
                ETableGroup                   *child;

                child_node = (ETableGroupContainerChildNode *)list->data;
                child = child_node->child;

                if (start_col == -1)
                    start_col = e_table_header_count (e_table_group_get_header (child)) - 1;

                e_table_group_set_focus (child, direction, start_col);
                return 1;
            }
        }
        return_val = FALSE;
        break;
    default:
        return_val = FALSE;
        break;
    }
    if (return_val == FALSE) {
        if (GNOME_CANVAS_ITEM_CLASS(etgc_parent_class)->event)
            return GNOME_CANVAS_ITEM_CLASS (etgc_parent_class)->event (item, event);
    }
    return return_val;
    
}

/* Realize handler for the text item */
static void
etgc_realize (GnomeCanvasItem *item)
{
    ETableGroupContainer *etgc;

    if (GNOME_CANVAS_ITEM_CLASS (etgc_parent_class)->realize)
        (* GNOME_CANVAS_ITEM_CLASS (etgc_parent_class)->realize) (item);

    etgc = E_TABLE_GROUP_CONTAINER (item);

    e_canvas_item_request_reflow (GNOME_CANVAS_ITEM (etgc));
}

/* Unrealize handler for the etgc item */
static void
etgc_unrealize (GnomeCanvasItem *item)
{
    ETableGroupContainer *etgc;

    etgc = E_TABLE_GROUP_CONTAINER (item);
    
    if (GNOME_CANVAS_ITEM_CLASS (etgc_parent_class)->unrealize)
        (* GNOME_CANVAS_ITEM_CLASS (etgc_parent_class)->unrealize) (item);
}

static void
compute_text (ETableGroupContainer *etgc, ETableGroupContainerChildNode *child_node)
{
    gchar *text;
    if (etgc->ecol->text)
        text = g_strdup_printf ("%s : %s (%d item%s)",
                    etgc->ecol->text,
                    child_node->string,
                    (gint) child_node->count,
                    child_node->count == 1 ? "" : "s");
    else
        text = g_strdup_printf ("%s (%d item%s)",
                    child_node->string,
                    (gint) child_node->count,
                    child_node->count == 1 ? "" : "s");
    gnome_canvas_item_set (child_node->text, 
                   "text", text,
                   NULL);
    g_free (text);
}

static void
child_cursor_change (ETableGroup *etg, int row,
            ETableGroupContainer *etgc)
{
    e_table_group_cursor_change (E_TABLE_GROUP (etgc), row);
}

static void
child_double_click (ETableGroup *etg, int row, int col, GdkEvent *event,
            ETableGroupContainer *etgc)
{
    e_table_group_double_click (E_TABLE_GROUP (etgc), row, col, event);
}

static gint
child_right_click (ETableGroup *etg, int row, int col, GdkEvent *event,
           ETableGroupContainer *etgc)
{
    return e_table_group_right_click (E_TABLE_GROUP (etgc), row, col, event);
}

static gint
child_click (ETableGroup *etg, int row, int col, GdkEvent *event,
           ETableGroupContainer *etgc)
{
    return e_table_group_click (E_TABLE_GROUP (etgc), row, col, event);
}

static gint
child_key_press (ETableGroup *etg, int row, int col, GdkEvent *event,
         ETableGroupContainer *etgc)
{
    return e_table_group_key_press (E_TABLE_GROUP (etgc), row, col, event);
}

static void
etgc_add (ETableGroup *etg, gint row)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER (etg);
    void *val = e_table_model_value_at (etg->model, etgc->ecol->col_idx, row);
    GCompareFunc comp = etgc->ecol->compare;
    GList *list = etgc->children;
    ETableGroup *child;
    ETableGroupContainerChildNode *child_node;
    int i = 0;

    for (; list; list = g_list_next (list), i++){
        int comp_val;

        child_node = list->data;
        comp_val = (*comp)(child_node->key, val);
        if (comp_val == 0) {
            child = child_node->child;
            child_node->count ++;
            e_table_group_add (child, row);
            compute_text (etgc, child_node);
            return;
        }
        if ((comp_val > 0 && etgc->ascending) ||
            (comp_val < 0 && (!etgc->ascending)))
            break;
    }
    child_node = g_new (ETableGroupContainerChildNode, 1);
    child_node->rect = gnome_canvas_item_new (GNOME_CANVAS_GROUP (etgc),
                          gnome_canvas_rect_get_type (),
                          "fill_color", "grey70",
                          "outline_color", "grey50",
                          NULL);
    child_node->text = gnome_canvas_item_new (GNOME_CANVAS_GROUP (etgc),
                          e_text_get_type (),
                          "font_gdk", etgc->font,
                          "anchor", GTK_ANCHOR_SW,
                          "fill_color", "black",
                          "draw_background", FALSE,
                          NULL);
    child = e_table_group_new (GNOME_CANVAS_GROUP (etgc), etg->full_header,
                   etg->header, etg->model, etgc->sort_info, etgc->n + 1);
    gnome_canvas_item_set(GNOME_CANVAS_ITEM(child),
                  "drawgrid", etgc->draw_grid,
                  "drawfocus", etgc->draw_focus,
                  "cursor_mode", etgc->cursor_mode,
                  "table_selection_model", etgc->table_selection_model,
                  "length_threshold", etgc->length_threshold,
                  "minimum_width", etgc->minimum_width - GROUP_INDENT,
                  NULL);

    gtk_signal_connect (GTK_OBJECT (child), "cursor_change",
                GTK_SIGNAL_FUNC (child_cursor_change), etgc);
    gtk_signal_connect (GTK_OBJECT (child), "double_click",
                GTK_SIGNAL_FUNC (child_double_click), etgc);
    gtk_signal_connect (GTK_OBJECT (child), "right_click",
                GTK_SIGNAL_FUNC (child_right_click), etgc);
    gtk_signal_connect (GTK_OBJECT (child), "click",
                GTK_SIGNAL_FUNC (child_click), etgc);
    gtk_signal_connect (GTK_OBJECT (child), "key_press",
                GTK_SIGNAL_FUNC (child_key_press), etgc);
    child_node->child = child;
    child_node->key = e_table_model_duplicate_value (etg->model, etgc->ecol->col_idx, val);
    child_node->string = e_table_model_value_to_string (etg->model, etgc->ecol->col_idx, val);
    child_node->count = 1;
    e_table_group_add (child, row);

    if (list)
        etgc->children = g_list_insert (etgc->children, child_node, i);
    else
        etgc->children = g_list_append (etgc->children, child_node);

    compute_text (etgc, child_node);
    e_canvas_item_request_reflow (GNOME_CANVAS_ITEM (etgc));
}

static void
etgc_add_all (ETableGroup *etg)
{
    int rows = e_table_model_row_count(etg->model);
    int i;
    for (i = 0; i < rows; i++)
        etgc_add(etg, i);
}

static gboolean
etgc_remove (ETableGroup *etg, gint row)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    GList *list;

    for (list = etgc->children ; list; list = g_list_next (list)) {
        ETableGroupContainerChildNode *child_node = list->data;
        ETableGroup                   *child = child_node->child;

        if (e_table_group_remove (child, row)) {
            child_node->count --;
            if (child_node->count == 0) {
                e_table_group_container_child_node_free (etgc, child_node);
                etgc->children = g_list_remove (etgc->children, child_node);
                g_free (child_node);
            } else
                compute_text (etgc, child_node);

            e_canvas_item_request_reflow (GNOME_CANVAS_ITEM (etgc));

            return TRUE;
        }
    }
    return FALSE;
}

static int
etgc_row_count (ETableGroup *etg)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    GList *list;
    gint count = 0;
    for (list = etgc->children; list; list = g_list_next(list)) {
        ETableGroup *group = ((ETableGroupContainerChildNode *)list->data)->child;
        gint this_count = e_table_group_row_count(group);
        count += this_count;
    }
    return count;
}

static void
etgc_increment (ETableGroup *etg, gint position, gint amount)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    GList *list = etgc->children;

    for (list = etgc->children ; list; list = g_list_next (list))
        e_table_group_increment (((ETableGroupContainerChildNode *)list->data)->child,
                     position, amount);
}

static void
etgc_decrement (ETableGroup *etg, gint position, gint amount)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    GList *list = etgc->children;

    for (list = etgc->children ; list; list = g_list_next (list))
        e_table_group_decrement (((ETableGroupContainerChildNode *)list->data)->child,
                     position, amount);
}

static void
etgc_set_focus (ETableGroup *etg, EFocus direction, gint view_col)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    if (etgc->children) {
        if (direction == E_FOCUS_END)
            e_table_group_set_focus (((ETableGroupContainerChildNode *)g_list_last (etgc->children)->data)->child,
                         direction, view_col);
        else
            e_table_group_set_focus (((ETableGroupContainerChildNode *)etgc->children->data)->child,
                         direction, view_col);
    }
}

static gint
etgc_get_focus_column (ETableGroup *etg)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    if (etgc->children) {
        GList *list;
        for (list = etgc->children; list; list = list->next) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            ETableGroup *child = child_node->child;
            if (e_table_group_get_focus (child)) {
                return e_table_group_get_focus_column (child);
            }
        }
    }
    return 0;
}

static void
etgc_compute_location (ETableGroup *etg, int *x, int *y, int *row, int *col)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);

    if (row)
        *row = -1;
    if (col)
        *col = -1;

    *x -= GROUP_INDENT;
    *y -= TITLE_HEIGHT;

    if (*x >= 0 && *y >= 0 && etgc->children) {
        GList *list;
        for (list = etgc->children; list; list = list->next) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            ETableGroup *child = child_node->child;

            e_table_group_compute_location (child, x, y, row, col);
            if ((*row != -1) && (*col != -1))
                return;
        }
    }
}

static void etgc_thaw (ETableGroup *etg)
{
    e_canvas_item_request_reflow (GNOME_CANVAS_ITEM(etg));
}

static void
etgc_set_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    ETableGroup *etg = E_TABLE_GROUP (object);
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER (object);
    GList *list;

    switch (arg_id) {
    case ARG_FROZEN:
        if (GTK_VALUE_BOOL (*arg))
            etg->frozen = TRUE;
        else {
            etg->frozen = FALSE;
            etgc_thaw (etg);
        }
        break;
    case ARG_MINIMUM_WIDTH:
    case ARG_WIDTH:
        etgc->minimum_width = GTK_VALUE_DOUBLE(*arg);

        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "minimum_width", etgc->minimum_width - GROUP_INDENT,
                    NULL);
        }
        break;
    case ARG_LENGTH_THRESHOLD:
        etgc->length_threshold = GTK_VALUE_INT (*arg);
        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "length_threshold", GTK_VALUE_INT (*arg),
                    NULL);
        }
        break;

    case ARG_TABLE_SELECTION_MODEL:
        if (etgc->table_selection_model)
            gtk_object_unref(GTK_OBJECT(etgc->table_selection_model));
        etgc->table_selection_model = E_TABLE_SELECTION_MODEL(GTK_VALUE_OBJECT (*arg));
        if (etgc->table_selection_model)
            gtk_object_ref(GTK_OBJECT(etgc->table_selection_model));
        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "table_selection_model", etgc->table_selection_model,
                    NULL);
        }
        break;

    case ARG_TABLE_DRAW_GRID:
        etgc->draw_grid = GTK_VALUE_BOOL (*arg);
        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "drawgrid", GTK_VALUE_BOOL (*arg),
                    NULL);
        }
        break;

    case ARG_TABLE_DRAW_FOCUS:
        etgc->draw_focus = GTK_VALUE_BOOL (*arg);
        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "drawfocus", GTK_VALUE_BOOL (*arg),
                    NULL);
        }
        break;

    case ARG_CURSOR_MODE:
        etgc->cursor_mode = GTK_VALUE_INT (*arg);
        for (list = etgc->children; list; list = g_list_next (list)) {
            ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *)list->data;
            gtk_object_set (GTK_OBJECT(child_node->child),
                    "cursor_mode", GTK_VALUE_INT (*arg),
                    NULL);
        }
        break;
    default:
        break;
    }
}

static void
etgc_get_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    ETableGroup *etg = E_TABLE_GROUP (object);
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER (object);

    switch (arg_id) {
    case ARG_FROZEN:
        GTK_VALUE_BOOL (*arg) = etg->frozen;
        break;
    case ARG_HEIGHT:
        GTK_VALUE_DOUBLE (*arg) = etgc->height;
        break;
    case ARG_WIDTH: 
        GTK_VALUE_DOUBLE (*arg) = etgc->width;
        break;
    case ARG_MINIMUM_WIDTH:
        etgc->minimum_width = GTK_VALUE_DOUBLE(*arg);
        break;
    default:
        arg->type = GTK_TYPE_INVALID;
        break;
    }
}

static void
etgc_class_init (GtkObjectClass *object_class)
{
    GnomeCanvasItemClass *item_class = (GnomeCanvasItemClass *) object_class;
    ETableGroupClass *e_group_class = E_TABLE_GROUP_CLASS(object_class);

    object_class->destroy = etgc_destroy;
    object_class->set_arg = etgc_set_arg;
    object_class->get_arg = etgc_get_arg;

    item_class->event = etgc_event;
    item_class->realize = etgc_realize;
    item_class->unrealize = etgc_unrealize;

    etgc_parent_class = gtk_type_class (PARENT_TYPE);

    e_group_class->add = etgc_add;
    e_group_class->add_all = etgc_add_all;
    e_group_class->remove = etgc_remove;
    e_group_class->increment  = etgc_increment;
    e_group_class->decrement  = etgc_decrement;
    e_group_class->row_count  = etgc_row_count;
    e_group_class->set_focus  = etgc_set_focus;
    e_group_class->get_focus_column = etgc_get_focus_column;
    e_group_class->get_printable = etgc_get_printable;
    e_group_class->compute_location = etgc_compute_location;

    gtk_object_add_arg_type ("ETableGroupContainer::drawgrid", GTK_TYPE_BOOL,
                 GTK_ARG_WRITABLE, ARG_TABLE_DRAW_GRID);
    gtk_object_add_arg_type ("ETableGroupContainer::drawfocus", GTK_TYPE_BOOL,
                 GTK_ARG_WRITABLE, ARG_TABLE_DRAW_FOCUS);
    gtk_object_add_arg_type ("ETableGroupContainer::cursor_mode", GTK_TYPE_INT,
                 GTK_ARG_WRITABLE, ARG_CURSOR_MODE);
    gtk_object_add_arg_type ("ETableGroupContainer::table_selection_model", GTK_TYPE_OBJECT,
                 GTK_ARG_WRITABLE, ARG_TABLE_SELECTION_MODEL);
    gtk_object_add_arg_type ("ETableGroupContainer::length_threshold", GTK_TYPE_INT,
                 GTK_ARG_WRITABLE, ARG_LENGTH_THRESHOLD);

    gtk_object_add_arg_type ("ETableGroupContainer::frozen", GTK_TYPE_BOOL,
                 GTK_ARG_READWRITE, ARG_FROZEN);
    gtk_object_add_arg_type ("ETableGroupContainer::height", GTK_TYPE_DOUBLE, 
                 GTK_ARG_READABLE, ARG_HEIGHT);
    gtk_object_add_arg_type ("ETableGroupContainer::width", GTK_TYPE_DOUBLE, 
                 GTK_ARG_READWRITE, ARG_WIDTH);
    gtk_object_add_arg_type ("ETableGroupContainer::minimum_width", GTK_TYPE_DOUBLE,
                 GTK_ARG_READWRITE, ARG_MINIMUM_WIDTH);
}

static void
etgc_reflow (GnomeCanvasItem *item, gint flags)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(item);
    gboolean frozen;

        gtk_object_get (GTK_OBJECT(etgc), 
            "frozen", &frozen,
            NULL);

    if (frozen)
        return;
    

    if (GTK_OBJECT_FLAGS(etgc)& GNOME_CANVAS_ITEM_REALIZED){
        gdouble running_height = 0;
        gdouble running_width = 0;
        gdouble old_height;
        gdouble old_width;
        
        old_height = etgc->height;
        old_width = etgc->width;
        if (etgc->children == NULL){
        } else {
            GList *list;
            gdouble extra_height = 0;
            gdouble item_height = 0;
            gdouble item_width = 0;
            
            if (etgc->font)
                extra_height += etgc->font->ascent + etgc->font->descent + BUTTON_PADDING * 2;
            
            extra_height = MAX(extra_height, BUTTON_HEIGHT + BUTTON_PADDING * 2);
                
            running_height = extra_height;
            
            for ( list = etgc->children; list; list = g_list_next (list)){
                ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *) list->data;
                ETableGroup *child = child_node->child;
                
                gtk_object_get (GTK_OBJECT(child),
                        "width", &item_width,
                        NULL);

                if (item_width > running_width)
                    running_width = item_width;
            }
            for ( list = etgc->children; list; list = g_list_next (list)){
                ETableGroupContainerChildNode *child_node = (ETableGroupContainerChildNode *) list->data;
                ETableGroup *child = child_node->child;
                gtk_object_get (GTK_OBJECT(child),
                        "height", &item_height,
                        NULL);
                
                e_canvas_item_move_absolute (GNOME_CANVAS_ITEM(child_node->text),
                                GROUP_INDENT,
                                running_height - BUTTON_PADDING);
                
                e_canvas_item_move_absolute (GNOME_CANVAS_ITEM(child),
                                GROUP_INDENT,
                                running_height);
                
                gnome_canvas_item_set (GNOME_CANVAS_ITEM(child_node->rect),
                              "x1", (double) 0,
                              "x2", (double) running_width + GROUP_INDENT,
                              "y1", (double) running_height - extra_height,
                              "y2", (double) running_height + item_height,
                              NULL);
                
                running_height += item_height + extra_height;
            }
            running_height -= extra_height;
        }
        if (running_height != old_height || running_width != old_width) {
            etgc->height = running_height;
            etgc->width = running_width;
            e_canvas_item_request_parent_reflow (item);
        }
    }
}

static void
etgc_init (GtkObject *object)
{
    ETableGroupContainer *container = E_TABLE_GROUP_CONTAINER(object);
    container->children = FALSE;
    
    e_canvas_item_set_reflow_callback (GNOME_CANVAS_ITEM(object), etgc_reflow);

    container->draw_grid = 1;
    container->draw_focus = 1;
    container->cursor_mode = E_TABLE_CURSOR_SIMPLE;
    container->length_threshold = -1;
    container->table_selection_model = NULL;
}

E_MAKE_TYPE (e_table_group_container, "ETableGroupContainer", ETableGroupContainer, etgc_class_init, etgc_init, PARENT_TYPE);

void
e_table_group_apply_to_leafs (ETableGroup *etg, ETableGroupLeafFn fn, void *closure)
{
    if (E_IS_TABLE_GROUP_CONTAINER (etg)){
        ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER (etg);
        GList *list = etgc->children;

        /* Protect from unrefs in the callback functions */
        gtk_object_ref (GTK_OBJECT (etg));

        for (list = etgc->children; list; list = list->next){
            ETableGroupContainerChildNode *child_node = list->data;

            e_table_group_apply_to_leafs (child_node->child, fn, closure);
        }

        gtk_object_unref (GTK_OBJECT (etg));
    } else if (E_IS_TABLE_GROUP_LEAF (etg)){
        (*fn) (E_TABLE_GROUP_LEAF (etg)->item, closure);
    } else {
        g_error ("Unknown ETableGroup found: %s",
             gtk_type_name (GTK_OBJECT (etg)->klass->type));
    }
}


typedef struct {
    ETableGroupContainer *etgc;
    GList *child;
    EPrintable *child_printable;
} ETGCPrintContext;

#if 0
#define CHECK(x) if((x) == -1) return -1;

static gint
gp_draw_rect (GnomePrintContext *context, gdouble x, gdouble y, gdouble width, gdouble height, gdouble r, gdouble g, gdouble b)
{
    CHECK(gnome_print_moveto(context, x, y));
    CHECK(gnome_print_lineto(context, x + width, y));
    CHECK(gnome_print_lineto(context, x + width, y - height));
    CHECK(gnome_print_lineto(context, x, y - height));
    CHECK(gnome_print_lineto(context, x, y));
    return gnome_print_fill(context);
}
#endif

#define CHECK(x) if((x) == -1) return -1;

static gint
gp_draw_rect (GnomePrintContext *context, gdouble x, gdouble y, gdouble width, gdouble height)
{
    CHECK(gnome_print_moveto(context, x, y));
    CHECK(gnome_print_lineto(context, x + width, y));
    CHECK(gnome_print_lineto(context, x + width, y - height));
    CHECK(gnome_print_lineto(context, x, y - height));
    CHECK(gnome_print_lineto(context, x, y));
    return gnome_print_fill(context);
}

#define TEXT_HEIGHT (12)
#define TEXT_AREA_HEIGHT (TEXT_HEIGHT + 4)

static void
e_table_group_container_print_page  (EPrintable *ep,
                     GnomePrintContext *context,
                     gdouble width,
                     gdouble height,
                     gboolean quantize,
                     ETGCPrintContext *groupcontext)
{
    gdouble yd = height;
    gdouble child_height;
    ETableGroupContainerChildNode *child_node;
    GList *child;
    EPrintable *child_printable;
    gchar *string;

    GnomeFont *font = gnome_font_new ("Helvetica", TEXT_HEIGHT);

    child_printable = groupcontext->child_printable;
    child = groupcontext->child;

    if (child_printable) {
        if (child)
            child_node = child->data;
        else
            child_node = NULL;
        gtk_object_ref(GTK_OBJECT(child_printable));
    } else {
        if (!child) {
            return;
        } else {
            child_node = child->data;
            child_printable = e_table_group_get_printable(child_node->child);
            if (child_printable)
                gtk_object_ref(GTK_OBJECT(child_printable));
            e_printable_reset(child_printable);
        }
    }

    while (1) {
        child_height = e_printable_height(child_printable, context, width - 36, yd - TEXT_AREA_HEIGHT, quantize);

        if (gnome_print_gsave(context) == -1)
            /* FIXME */;
        if (gnome_print_moveto(context, 0, yd - child_height - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 36, yd - child_height - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 36, yd - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width, yd - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width, yd) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, yd) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, yd - child_height - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_setrgbcolor(context, .7, .7, .7) == -1)
            /* FIXME */;
        if (gnome_print_fill(context) == -1)
            /* FIXME */;
        if (gnome_print_grestore(context) == -1)
            /* FIXME */;

        if (gnome_print_gsave(context) == -1)
            /* FIXME */;
        if (gnome_print_moveto(context, 0, yd - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width, yd - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width, yd) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, yd) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, yd - TEXT_AREA_HEIGHT) == -1)
            /* FIXME */;
        if (gnome_print_clip(context) == -1)
            /* FIXME */;

        if (gnome_print_moveto(context, 2, yd - (TEXT_AREA_HEIGHT + gnome_font_get_ascender(font) - gnome_font_get_descender(font)) / 2) == -1)
            /* FIXME */;
        if (gnome_print_setfont(context, font))
            /* FIXME */;
        if (groupcontext->etgc->ecol->text)
            string = g_strdup_printf ("%s : %s (%d item%s)",
                          groupcontext->etgc->ecol->text,
                          child_node->string,
                          (gint) child_node->count,
                          child_node->count == 1 ? "" : "s");
        else
            string = g_strdup_printf ("%s (%d item%s)",
                          child_node->string,
                          (gint) child_node->count,
                          child_node->count == 1 ? "" : "s");
        if (gnome_print_show(context, string))
            /* FIXME */;
        g_free(string);
        if (gnome_print_grestore(context) == -1)
            /* FIXME */;

        if (gnome_print_gsave(context) == -1)
            /* FIXME */;
        if (gnome_print_translate(context, 36, yd - TEXT_AREA_HEIGHT - child_height) == -1)
            /* FIXME */;
        if (gnome_print_moveto(context, 0, 0) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width - 36, 0) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, width - 36, child_height) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, child_height) == -1)
            /* FIXME */;
        if (gnome_print_lineto(context, 0, 0) == -1)
            /* FIXME */;
        if (gnome_print_clip(context) == -1)
            /* FIXME */;
        e_printable_print_page(child_printable, context, width - 36, child_height, quantize);
        if (gnome_print_grestore(context) == -1)
            /* FIXME */;

        gp_draw_rect(context, 0, yd - child_height - TEXT_AREA_HEIGHT + 1, width, 1);
        gp_draw_rect(context, width - 1, yd, 1, yd - child_height - TEXT_AREA_HEIGHT);
        gp_draw_rect(context, 0, yd, 1, yd - child_height - TEXT_AREA_HEIGHT);

        yd -= child_height + TEXT_AREA_HEIGHT;

        if (e_printable_data_left(child_printable))
            break;

        child = child->next;
        if (!child) {
            child_printable = NULL;
            break;
        }

        child_node = child->data;
        if (child_printable)
            gtk_object_unref(GTK_OBJECT(child_printable));
        child_printable = e_table_group_get_printable(child_node->child);
        if (child_printable)
            gtk_object_ref(GTK_OBJECT(child_printable));
        e_printable_reset(child_printable);
    }

    gp_draw_rect(context, 0, height, width, 1);

    if (groupcontext->child_printable)
        gtk_object_unref(GTK_OBJECT(groupcontext->child_printable));
    groupcontext->child_printable = child_printable;
    groupcontext->child = child;
            
}

static gboolean
e_table_group_container_data_left   (EPrintable *ep,
                     ETGCPrintContext *groupcontext)
{
    gtk_signal_emit_stop_by_name(GTK_OBJECT(ep), "data_left");
    return groupcontext->child != NULL;
}

static void
e_table_group_container_reset       (EPrintable *ep,
                     ETGCPrintContext *groupcontext)
{
    groupcontext->child = groupcontext->etgc->children;
    if (groupcontext->child_printable)
        gtk_object_unref(GTK_OBJECT(groupcontext->child_printable));
    groupcontext->child_printable = NULL;
}

static gdouble
e_table_group_container_height      (EPrintable *ep,
                     GnomePrintContext *context,
                     gdouble width,
                     gdouble max_height,
                     gboolean quantize,
                     ETGCPrintContext *groupcontext)
{
    gdouble height = 0;
    gdouble child_height;
    gdouble yd = max_height;
    ETableGroupContainerChildNode *child_node;
    GList *child;
    EPrintable *child_printable;

    child_printable = groupcontext->child_printable;
    child = groupcontext->child;

    if (child_printable)
        gtk_object_ref(GTK_OBJECT(child_printable));
    else {
        if (!child) {
            gtk_signal_emit_stop_by_name(GTK_OBJECT(ep), "height");
            return 0;
        } else {
            child_node = child->data;
            child_printable = e_table_group_get_printable(child_node->child);
            if (child_printable)
                gtk_object_ref(GTK_OBJECT(child_printable));
            e_printable_reset(child_printable);
        }
    }

    if (yd != -1 && yd < TEXT_AREA_HEIGHT)
        return 0;
    
    while (1) {
        child_height = e_printable_height(child_printable, context, width - 36, yd - (yd == -1 ? 0 : TEXT_AREA_HEIGHT), quantize);

        height += child_height + TEXT_AREA_HEIGHT;

        if (yd != -1) {
            if (!e_printable_will_fit(child_printable, context, width - 36, yd - (yd == -1 ? 0 : TEXT_AREA_HEIGHT), quantize)) {
                break;
            }

            yd -= child_height + TEXT_AREA_HEIGHT;
        }

        child = child->next;
        if (!child) {
            break;
        }
        
        child_node = child->data;
        if (child_printable)
            gtk_object_unref(GTK_OBJECT(child_printable));
        child_printable = e_table_group_get_printable(child_node->child);
        if (child_printable)
            gtk_object_ref(GTK_OBJECT(child_printable));
        e_printable_reset(child_printable);
    }
    if (child_printable)
        gtk_object_unref(GTK_OBJECT(child_printable));
    gtk_signal_emit_stop_by_name(GTK_OBJECT(ep), "height");
    return height;
}

static gboolean
e_table_group_container_will_fit      (EPrintable *ep,
                       GnomePrintContext *context,
                       gdouble width,
                       gdouble max_height,
                       gboolean quantize,
                       ETGCPrintContext *groupcontext)
{
    gboolean will_fit = TRUE;
    gdouble child_height;
    gdouble yd = max_height;
    ETableGroupContainerChildNode *child_node;
    GList *child;
    EPrintable *child_printable;

    child_printable = groupcontext->child_printable;
    child = groupcontext->child;

    if (child_printable)
        gtk_object_ref(GTK_OBJECT(child_printable));
    else {
        if (!child) {
            gtk_signal_emit_stop_by_name(GTK_OBJECT(ep), "will_fit");
            return will_fit;
        } else {
            child_node = child->data;
            child_printable = e_table_group_get_printable(child_node->child);
            if (child_printable)
                gtk_object_ref(GTK_OBJECT(child_printable));
            e_printable_reset(child_printable);
        }
    }
    
    if (yd != -1 && yd < TEXT_AREA_HEIGHT)
        will_fit = FALSE;
    else {
        while (1) {
            child_height = e_printable_height(child_printable, context, width - 36, yd - (yd == -1 ? 0 : TEXT_AREA_HEIGHT), quantize);
            
            if (yd != -1) {
                if (!e_printable_will_fit(child_printable, context, width - 36, yd - (yd == -1 ? 0 : TEXT_AREA_HEIGHT), quantize)) {
                    will_fit = FALSE;
                    break;
                }
                
                yd -= child_height + TEXT_AREA_HEIGHT;
            }
            
            child = child->next;
            if (!child) {
                break;
            }
            
            child_node = child->data;
            if (child_printable)
                gtk_object_unref(GTK_OBJECT(child_printable));
            child_printable = e_table_group_get_printable(child_node->child);
            if (child_printable)
                gtk_object_ref(GTK_OBJECT(child_printable));
            e_printable_reset(child_printable);
        }
    }

    if (child_printable)
        gtk_object_unref(GTK_OBJECT(child_printable));

    gtk_signal_emit_stop_by_name(GTK_OBJECT(ep), "will_fit");
    return will_fit;
}

static void
e_table_group_container_printable_destroy (GtkObject *object,
                ETGCPrintContext *groupcontext)
{
    gtk_object_unref(GTK_OBJECT(groupcontext->etgc));
    if (groupcontext->child_printable)
        gtk_object_ref(GTK_OBJECT(groupcontext->child_printable));
    g_free(groupcontext);
}

static EPrintable *
etgc_get_printable (ETableGroup *etg)
{
    ETableGroupContainer *etgc = E_TABLE_GROUP_CONTAINER(etg);
    EPrintable *printable = e_printable_new();
    ETGCPrintContext *groupcontext;

    groupcontext = g_new(ETGCPrintContext, 1);
    groupcontext->etgc = etgc;
    gtk_object_ref(GTK_OBJECT(etgc));
    groupcontext->child = etgc->children;
    groupcontext->child_printable = NULL;

    gtk_signal_connect (GTK_OBJECT(printable),
                "print_page",
                GTK_SIGNAL_FUNC(e_table_group_container_print_page),
                groupcontext);
    gtk_signal_connect (GTK_OBJECT(printable),
                "data_left",
                GTK_SIGNAL_FUNC(e_table_group_container_data_left),
                groupcontext);
    gtk_signal_connect (GTK_OBJECT(printable),
                "reset",
                GTK_SIGNAL_FUNC(e_table_group_container_reset),
                groupcontext);
    gtk_signal_connect (GTK_OBJECT(printable),
                "height",
                GTK_SIGNAL_FUNC(e_table_group_container_height),
                groupcontext);
    gtk_signal_connect (GTK_OBJECT(printable),
                "will_fit",
                GTK_SIGNAL_FUNC(e_table_group_container_will_fit),
                groupcontext);
    gtk_signal_connect (GTK_OBJECT(printable),
                "destroy",
                GTK_SIGNAL_FUNC(e_table_group_container_printable_destroy),
                groupcontext);

    return printable;
}