aboutsummaryrefslogblamecommitdiffstats
path: root/executive-summary/component/e-summary.c
blob: dca8f98f0f1d276128ebdbd887d3ee0b667c0be1 (plain) (tree)































                                                                           
                            
 
                      
                              

                           


                                          


                              


                                              
                              
                                                 
 


                                 
                               
                                   


                                      

                   
                              
                         

  


                                                         



                                                     





                             
                                
 
                                                                   
                       






                                                
                     
 



                                 



                                                                                   
                                                       
                                                              
                                                       
                                                
                                                    














                                                              



                                        
                                                          

                                
 
                                                              



                                                       







                                                            

                                                                    
                                                                                                                                           
                                                                               
                                             














                                                                                
                                                                                                                                                                               
















                                                                               

                                 
                       
 





                                                                                  
                                                                                 
                                                                     
                                                                               

                                                                              

                                                                             


                                                                            








                                                                            
                             
                                                                
                                                         
                                                             








                                                                   
                              
                   

                                                        


                                 
 





                                                                  





















                                                                     
                                                                                 










                                             
                                                 
                                  
                                  


                                            
                         
                           



                                           
                                        
               


                                 


                                                                          
                                                                    
 
                                                     









                                                                                                                                    





                                                                                                        

                                                                                            
                                                                         

                                                                     



                                                                        
        
                                            
                                                                    



                                                                                                  


                                                                                              
      





                                                            
   



                                           
                                                                                                                       

                

                                                              


                                 





                                                                               










                                                                             
                                                                               


                                       
                                   




                                                                          
                                                                                  


                                                                    
                                                 
 

                                                                








                                                                                 


                       


    

                                                 

                                                           













                                                                      
                                     






                                                                       
                                                                           
                                                                 



     

                                                      
                                                                    
                                             

                                              







                                             

                                                     










                                                                       
                                                                      
                                                 

                                                







                                               

                                

                                         

                                                    




                                                                       
      
 
    
                                              
                                          
 








                                                   

                                                                      
                                                              
                                                     



                                                                      
    
                                                        
                                                    
 


                                 
                                                                       






                                                   
                              
        


                                                   
        
                                 



                            
                                                                                 
 
 





                                            
 


                                                             
 

                                                                            
 
                    
 











































































































































































































































































                                                                             
/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* e-summary.c
 *
 * Authors: Iain Holmes <iain@helixcode.com>
 *
 * Copyright (C) 2000  Helix Code, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <gnome.h>
#include <bonobo.h>

#include <gtkhtml/gtkhtml.h>
#include <gtkhtml/gtkhtml-stream.h>
#include <gal/util/e-util.h>

#include "e-summary.h"
#include "e-summary-factory.h"
#include "e-summary-util.h"
#include "e-summary-url.h"

#define PARENT_TYPE (gtk_vbox_get_type ())

/* From component-factory.c */
extern char *evolution_dir;

static GtkObjectClass *e_summary_parent_class;

struct _ESummaryPrivate {
    Evolution_Shell shell;
    Evolution_ShellView shell_view_interface;

    GtkWidget *html_scroller;
    GtkWidget *html;

    GHashTable *id_to_view;
    GHashTable *view_to_window;
    GHashTable *summary_to_window;
    GList *window_list;

    guint idle;

    GtkHTMLStream *stream;
    gboolean grabbed;
};

static gboolean on_object_requested (GtkHTML *html,
                     GtkHTMLEmbedded *eb,
                     ESummary *summary);
static void e_summary_save_state (ESummary *esummary,
                  const char *path);
static void e_summary_load_state (ESummary *esummary,
                  const char *path);
        
/* GtkObject methods */

static void
s2w_foreach (gpointer *key,
         gpointer *value,
         ESummary *esummary)
{
    e_summary_window_free ((ESummaryWindow *) value, esummary);
    g_free (value);
}

static void
e_summary_destroy (GtkObject *object)
{
    ESummary *esummary = E_SUMMARY (object);
    ESummaryPrivate *priv;
    char *prefix;

    priv = esummary->private;
    if (priv == NULL)
        return;

    prefix = g_concat_dir_and_file (evolution_dir, "config/Executive-Summary");
    e_summary_save_state (esummary, prefix);
    g_free (prefix);

    g_hash_table_foreach (priv->summary_to_window, 
                  (GHFunc) s2w_foreach, esummary);
    g_hash_table_destroy (priv->summary_to_window);
    g_hash_table_destroy (priv->id_to_view);
    g_hash_table_destroy (priv->view_to_window);

    g_free (esummary->private);
    esummary->private = NULL;

    e_summary_parent_class->destroy (object);
}

static void
e_summary_class_init (GtkObjectClass *object_class)
{
    object_class->destroy = e_summary_destroy;
    
    e_summary_parent_class = gtk_type_class (PARENT_TYPE);
}

static void
e_summary_start_load (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *header = "<html><body bgcolor=\"#ffffff\">";

    priv = summary->private;

    priv->stream = gtk_html_begin (GTK_HTML (priv->html));

    /* Hack to stop page returning to the top */
    GTK_HTML (priv->html)->engine->newPage = FALSE;

    gtk_html_write (GTK_HTML (priv->html), priv->stream,
            header, strlen (header));
}

static void
load_default (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *def = "<table width=\"100%\"><tr><td align=\"right\">"
        "<img src=\"ccsplash.png\"></td></tr></table>"
        "<table><tr><td><a href=\"exec://bug-buddy\"><img src=\"file://gnome-spider.png\" width=\"24\" height=\"24\" border=\"0\">"
        "</a></td><td><a href=\"exec://bug-buddy\">Submit a bug report"
        "</a></td></tr></table><hr>";

    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_E_SUMMARY (summary));

    priv = summary->private;

    g_return_if_fail (priv->stream != NULL);

    gtk_html_write (GTK_HTML (priv->html), priv->stream, def, strlen (def));
}

static void
e_summary_end_load (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *footer = "<hr><p align=\"right\">All Executive Summary comments to <a href=\"mailto:iain@helixcode.com\">Iain Holmes (iain@helixcode.com)</a></p></body></html>";

    priv = summary->private;
    gtk_html_write (GTK_HTML (priv->html), priv->stream, 
            footer, strlen (footer));
    gtk_html_end (GTK_HTML (priv->html), priv->stream, GTK_HTML_STREAM_OK);

    priv->stream = NULL;
}

static void
e_summary_init (ESummary *esummary)
{
    GdkColor bgcolour = {0, 0xdfff, 0xdfff, 0xffff};
    ESummaryPrivate *priv;

    esummary->private = g_new0 (ESummaryPrivate, 1);
    priv = esummary->private;

    priv->window_list = NULL;
    priv->idle = 0;

    /* HTML widget */
    priv->html_scroller = gtk_scrolled_window_new (NULL, NULL);
    gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (priv->html_scroller),
                    GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
    priv->html = gtk_html_new ();
    gtk_html_set_editable (GTK_HTML (priv->html), FALSE);
    gtk_html_set_default_background_color (GTK_HTML (priv->html), &bgcolour);
    gtk_signal_connect (GTK_OBJECT (priv->html), "url-requested",
                GTK_SIGNAL_FUNC (e_summary_url_request), esummary);
    gtk_signal_connect (GTK_OBJECT (priv->html), "object-requested", 
                GTK_SIGNAL_FUNC (on_object_requested), esummary); 
    gtk_signal_connect (GTK_OBJECT (priv->html), "link-clicked",
                GTK_SIGNAL_FUNC (e_summary_url_click), esummary);
    gtk_signal_connect (GTK_OBJECT (priv->html), "on_url",
                GTK_SIGNAL_FUNC (e_summary_url_over), esummary);

    gtk_container_add (GTK_CONTAINER (priv->html_scroller), priv->html);
    gtk_widget_show_all (priv->html_scroller);

    e_summary_rebuild_page (esummary);

    /* Pack stuff */
    gtk_box_pack_start (GTK_BOX (esummary), priv->html_scroller, 
                TRUE, TRUE, 0);

    /* Init hashtables */
    priv->summary_to_window = g_hash_table_new (NULL, NULL);
    priv->id_to_view = g_hash_table_new (NULL, NULL);
    priv->view_to_window = g_hash_table_new (NULL, NULL);
}

E_MAKE_TYPE (e_summary, "ESummary", ESummary, e_summary_class_init,
         e_summary_init, PARENT_TYPE);

GtkWidget *
e_summary_new (const Evolution_Shell shell)
{
    ESummary *esummary;
    ESummaryPrivate *priv;
    char *path;

    esummary = gtk_type_new (e_summary_get_type ());
    priv = esummary->private;

    priv->shell = shell;

    /* Restore services */
    path = g_concat_dir_and_file (evolution_dir, 
                      "config/Executive-Summary");
    e_summary_load_state (esummary, path);
    g_free (path);

    return GTK_WIDGET (esummary);
}

static gboolean
on_object_requested (GtkHTML *html,
             GtkHTMLEmbedded *eb,
             ESummary *summary)
{
    ESummaryWindow *window;
    int type;

    if (sscanf (eb->classid, "cid:%d-%p", &type, &window) != 2) {
        g_warning ("Could not get the window reference\n");
        return FALSE;
    }

    switch (type) {
    case 1:
        g_assert_not_reached ();
        break;

    case 2:
        g_warning ("Bonobo services are not supported in this version.");
        break;

    default:
        g_assert_not_reached ();
    }

    return TRUE;
}

static void
e_summary_display_window (ESummary *esummary,
              ESummaryWindow *window,
              int row,
              int col)
{
    ESummaryPrivate *priv;
    char *footer = "</td></tr></table>";
    char *title_html;
    char *control_html;
    char *colour[2] = {"e6e8e4", 
               "edeeeb"};
    char *title_colour[2] = {"bac1b6", 
                 "cdd1c7"};
    const char *title, *icon, *html;
    int id;

    priv = esummary->private;

    title = executive_summary_component_view_get_title (window->view);
    icon = executive_summary_component_view_get_icon (window->view);
    html = executive_summary_component_view_get_html (window->view);
    id = executive_summary_component_view_get_id (window->view);

    /** FIXME: Make this faster by caching it? */

    control_html = g_strdup_printf 
        ("<table width=\"32\" height=\"48\"><tr><td>"
         "<a href=\"close://%d\"><img border=\"0\" src=\"service-close.png\"></a></td>"
         "<td><a href=\"configure://%d\"><img border=\"0\" src=\"service-configure.png\"></a></td></tr>"
         "<tr><td><a href=\"left://%d\"><img border=\"0\" src=\"service-left.png\"></a></td>"
         "<td><a href=\"right://%d\"><img border=\"0\" src=\"service-right.png\"></a></td></tr>"
         "<tr><td><a href=\"down://%d\"><img border=\"0\" src=\"service-down.png\"></a></td>"
         "<td><a href=\"up://%d\"><img border=\"0\" src=\"service-up.png\"></a></td></tr></table>", id, id, id, id, id, id);
    
    title_html = g_strdup_printf ("<table cellspacing=\"0\" "
                      "cellpadding=\"0\" border=\"0\" width=\"100%%\" height=\"100%%\">"
                      "<tr><td bgcolor=\"#%s\">"
                      "<table width=\"100%%\"><tr><td>"
                      "<img src=\"%s\"></td>"
                      "<td nowrap align=\"center\" width=\"100%%\">"
                      "<b>%s</b></td><td>%s</td></tr></table></td></tr><tr>"
                      "<td bgcolor=\"#%s\" height=\"100%%\">",
                      title_colour[col % 2], icon, title,
                      control_html, colour[col % 2]);
    g_free (control_html);
    
    gtk_html_write (GTK_HTML (priv->html), priv->stream, title_html,
            strlen (title_html));
    g_free (title_html);
    
    if (html != NULL && *html != '\0') {
        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                html, strlen (html));
    } else {
        g_warning ("Bonobo executive summary components are not supported at this time.");
#if 0
        body_cid = g_strdup_printf ("<object classid=\"cid:2-%p\"></object>", window);
        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                body_cid, strlen (body_cid));
#endif
    }

    gtk_html_write (GTK_HTML (priv->html), priv->stream,
            footer, strlen (footer));
}

int
e_summary_rebuild_page (ESummary *esummary)
{
    ESummaryPrivate *priv;
    GList *windows;
    char *service_table = "<table numcols=\"3\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\" height=\"100%\">";
    int loc;

    g_return_val_if_fail (esummary != NULL, FALSE);
    g_return_val_if_fail (IS_E_SUMMARY (esummary), FALSE);

    priv = esummary->private;

    /* If there is a selection, don't redraw the page so that the selection
       isn't cleared */
    if (GTK_HTML (priv->html)->in_selection == TRUE ||
        GTK_HTML (priv->html)->engine->active_selection == TRUE)
        return TRUE;

    gtk_layout_freeze (GTK_LAYOUT (priv->html));
    e_summary_start_load (esummary);
    load_default (esummary);

    /* Load the start of the services */
    gtk_html_write (GTK_HTML (priv->html), priv->stream, service_table,
            strlen (service_table));
    /* Load each of the services */
    loc = 0;
    for (windows = priv->window_list; windows; windows = windows->next) {
        ESummaryWindow *window;
        char *td = "<td height=\"100%\" width=\"33%\" valign=\"top\">";
        
        window = windows->data;

        if (loc % 3 == 0) {
            if (loc != 0) {
                gtk_html_write (GTK_HTML (priv->html),
                        priv->stream, "</tr>", 5);
            }
            gtk_html_write (GTK_HTML (priv->html),
                    priv->stream, "<tr height=\"100%\">", 18);
        }

        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                td, strlen (td));

        e_summary_display_window (esummary, window, 
                      (loc / 3), (loc % 3));

        gtk_html_write (GTK_HTML (priv->html), priv->stream, "</td>", 5);
        loc++;
    }
                
    gtk_html_write (GTK_HTML (priv->html), priv->stream, "</tr></table>",
            13);
    e_summary_end_load (esummary);
    gtk_layout_thaw (GTK_LAYOUT (priv->html));

    priv->idle = 0;
    return FALSE;
}

void
e_summary_add_service (ESummary *esummary,
               ExecutiveSummary *summary,
               ExecutiveSummaryComponentView *view,
               const char *iid)     
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;
    int id;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));
    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_EXECUTIVE_SUMMARY (summary));
    g_return_if_fail (view != NULL);
    g_return_if_fail (IS_EXECUTIVE_SUMMARY_COMPONENT_VIEW (view));

    window = g_new0 (ESummaryWindow, 1);
    window->summary = summary;
    window->iid = g_strdup (iid);
    window->view = view;

    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);
    g_hash_table_insert (priv->summary_to_window, summary, window);
    
    id = executive_summary_component_view_get_id (view);
    g_hash_table_insert (priv->id_to_view, GINT_TO_POINTER (id), view);
    g_hash_table_insert (priv->view_to_window, view, window);
}

#if 0
void
e_summary_add_html_service (ESummary *esummary,
                ExecutiveSummary *summary,
                ExecutiveSummaryComponentClient *client,
                const char *html,
                const char *title,
                const char *icon)
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;

    window = g_new0 (ESummaryWindow, 1);
    window->type = E_SUMMARY_WINDOW_HTML;
    window->html = g_strdup (html);
    window->title = g_strdup (title);
    window->icon = icon ? g_strdup (icon) : NULL;
    window->client = client;

    window->summary = summary;
    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);

    g_hash_table_insert (priv->summary_to_window, summary, window);
}

void
e_summary_add_bonobo_service (ESummary *esummary,
                  ExecutiveSummary *summary,
                  ExecutiveSummaryComponentClient *client,
                  GtkWidget *control,
                  const char *title,
                  const char *icon)
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;
    
    window = g_new0 (ESummaryWindow, 1);
    window->type = E_SUMMARY_WINDOW_BONOBO;
    window->control = control;

    window->client = client;

    window->title = g_strdup (title);
    window->summary = summary;
    window->icon = icon ? g_strdup (icon): NULL;

    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);

    g_hash_table_insert (priv->summary_to_window, summary, window);
}
#endif

void
e_summary_window_free (ESummaryWindow *window,
               ESummary *esummary)
{
    ESummaryPrivate *priv;

    g_return_if_fail (window != NULL);
    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    priv = esummary->private;
    g_free (window->iid);

    priv->window_list = g_list_remove (priv->window_list, window);

    bonobo_object_unref (BONOBO_OBJECT (window->summary));
    gtk_object_unref (GTK_OBJECT (window->view));
}

/* Call this before e_summary_window_free, execpt when you are freeing
   the hash table */
void
e_summary_window_remove_from_ht (ESummaryWindow *window,
                 ESummary *esummary)
{
    ESummaryPrivate *priv;

    priv = esummary->private;
    g_hash_table_remove (priv->summary_to_window, window->summary);
}

void
e_summary_update_window (ESummary *esummary,
             ExecutiveSummary *summary,
             const char *html)
{
    ESummaryPrivate *priv;
    
    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));
    g_return_if_fail (summary != NULL);
    
    priv = esummary->private;
    
    if (priv->idle != 0)
        return;
    
    priv->idle = g_idle_add ((GSourceFunc) e_summary_rebuild_page, esummary);
}

ExecutiveSummaryComponentView *
e_summary_view_from_id (ESummary *esummary,
            int id)
{
    ESummaryPrivate *priv;
    ExecutiveSummaryComponentView *view;

    g_return_val_if_fail (esummary != NULL, NULL);
    g_return_val_if_fail (IS_E_SUMMARY (esummary), NULL);
    g_return_val_if_fail (id > 0, NULL);

    priv = esummary->private;
    view = g_hash_table_lookup (priv->id_to_view, GINT_TO_POINTER (id));

    return view;
}

void
e_summary_set_shell_view_interface (ESummary *summary,
                    Evolution_ShellView svi)
{
    ESummaryPrivate *priv;

    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_E_SUMMARY (summary));
    g_return_if_fail (svi != CORBA_OBJECT_NIL);

    priv = summary->private;
    priv->shell_view_interface = svi;
}

/* Wrappers for Evolution_ShellView */
void
e_summary_set_message (ESummary *esummary,
               const char *message,
               gboolean busy)
{
    ESummaryPrivate *priv;
    Evolution_ShellView svi;
    CORBA_Environment ev;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    priv = esummary->private;

    svi = priv->shell_view_interface;
    if (svi == NULL)
        return;

    CORBA_exception_init (&ev);
    if (message != NULL)
        Evolution_ShellView_set_message (svi, message, busy, &ev);
    else 
        Evolution_ShellView_set_message (svi, "", busy, &ev);
    CORBA_exception_free (&ev);
}

void
e_summary_unset_message (ESummary *esummary)
{
    ESummaryPrivate *priv;
    Evolution_ShellView svi;
    CORBA_Environment ev;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    priv = esummary->private;

    svi = priv->shell_view_interface;
    if (svi == NULL)
        return;

    CORBA_exception_init (&ev);
    Evolution_ShellView_unset_message (svi, &ev);
    CORBA_exception_free (&ev);
}

void
e_summary_change_current_view (ESummary *esummary,
                   const char *uri)
{
    ESummaryPrivate *priv;
    Evolution_ShellView svi;
    CORBA_Environment ev;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    priv = esummary->private;

    svi = priv->shell_view_interface;
    if (svi == NULL)
        return;

    CORBA_exception_init (&ev);
    Evolution_ShellView_change_current_view (svi, uri, &ev);
    CORBA_exception_free (&ev);
}

void
e_summary_set_title (ESummary *esummary,
             const char *title)
{
    ESummaryPrivate *priv;
    Evolution_ShellView svi;
    CORBA_Environment ev;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    priv = esummary->private;

    svi = priv->shell_view_interface;
    if (svi == NULL)
        return;

    CORBA_exception_init (&ev);
    Evolution_ShellView_set_title (svi, title, &ev);
    CORBA_exception_free (&ev);
}

static void
e_summary_load_state (ESummary *esummary,
              const char *path)
{
    char *fullpath;
    char **argv;
    int argc, i;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    fullpath = g_strdup_printf ("=%s=/services/iids", path);
    gnome_config_get_vector (fullpath, &argc, &argv);

    for (i = 0; i < argc; i++) {
        e_summary_factory_embed_service_from_id (esummary, argv[i]);
    }
    
    g_free (argv);
    g_free (fullpath);
}

static void
e_summary_save_state (ESummary *esummary,
              const char *path)
{
    ESummaryPrivate *priv;
    GList *windows;
    char *fullpath;
    char **argv;
    int argc, i;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));

    fullpath = g_strdup_printf("=%s=/services/iids", path);
    priv = esummary->private;

    argc = g_list_length (priv->window_list);
    argv = g_new (char *, argc);

    for (windows = priv->window_list, i = 0; windows; 
         windows = windows->next, i++) {
        ESummaryWindow *window;

        window = windows->data;
        g_print ("%s: IID: %s\n", path, window->iid);
        argv[i] = window->iid;
    }

    gnome_config_set_vector (fullpath, argc, (const char **)argv);

    gnome_config_sync ();
    gnome_config_drop_all ();

    g_free (fullpath);
    g_free (argv);
}

ESummaryWindow *
e_summary_window_from_view (ESummary *esummary,
                ExecutiveSummaryComponentView *view)
{
    ESummaryPrivate *priv;

    priv = esummary->private;
    return g_hash_table_lookup (priv->view_to_window, view);
}

void
e_summary_window_move_left (ESummary *esummary,
                ESummaryWindow *window)
{
    ESummaryPrivate *priv;
    GList *win_item, *grandparent;
    int position;

    priv = esummary->private;

    /* Need to cache this location */
    win_item = g_list_find (priv->window_list, window);
    
    /* Find the item 2 previous. */
    if (win_item->prev == NULL)
        return; /* Item was first, can't be moved left */

    grandparent = win_item->prev->prev;

    /* Remove it from the list */
    priv->window_list = g_list_remove_link (priv->window_list, win_item);

    /* Insert it after the grandparent */
    position = g_list_position (priv->window_list, grandparent);
    priv->window_list = g_list_insert (priv->window_list, win_item->data,
                       position + 1);
    g_list_free_1 (win_item);
}

void
e_summary_window_move_right (ESummary *esummary,
                 ESummaryWindow *window)
{
    ESummaryPrivate *priv;
    GList *win_item, *child;
    int position;

    priv = esummary->private;

    win_item = g_list_find (priv->window_list, window);

    if (win_item->next == NULL)
        return;

    child = win_item->next;
    
    priv->window_list = g_list_remove_link (priv->window_list, win_item);
    
    position = g_list_position (priv->window_list, child);
    priv->window_list = g_list_insert (priv->window_list, win_item->data,
                       position + 1);
    g_list_free_1 (win_item);
}

void
e_summary_window_move_up (ESummary *esummary,
              ESummaryWindow *window)
{
    ESummaryPrivate *priv;
    GList *win_item;
    int position;

    priv = esummary->private;

    win_item = g_list_find (priv->window_list, window);
    
    position = g_list_position (priv->window_list, win_item);
    priv->window_list = g_list_remove_link (priv->window_list, win_item);

    priv->window_list = g_list_insert (priv->window_list, win_item->data,
                       position - 3);
    g_list_free_1 (win_item);
}

void
e_summary_window_move_down (ESummary *esummary,
                ESummaryWindow *window)
{
    ESummaryPrivate *priv;
    GList *win_item;
    int position;

    priv = esummary->private;

    win_item = g_list_find (priv->window_list, window);

    position = g_list_position (priv->window_list, win_item);
    priv->window_list = g_list_remove_link (priv->window_list, win_item);

    priv->window_list = g_list_insert (priv->window_list, win_item->data,
                       position + 3);
}