aboutsummaryrefslogblamecommitdiffstats
path: root/calendar/gui/dialogs/calendar-setup.c
blob: 01b63b9c1d9ff87d4d7ef613b33df8eae88d83c6 (plain) (tree)

























                                                                            
                           





                                 
                              

                                        
                                          

                                         
                          

                                  
                                  
                           
 





















                                                           
                                   



                                   





                                    
                                         
                                 

             









































                                                           


                             











































































                                                                                              
               
                                                    
 
                         
        

                             
        
                                                              
        

                                                                              
                
                                                                                                    
                                        
                
         
        
                        

 
          
                                                                                    
 
                                                              
                            
                          
        
 


                                






                                                                                            

                                                     
                                                                   


                                                                                                                        

                                  
                                                              





                                                           
         

                     





                                                      

                                                          

                        
                  


































                                                                                                    
                                  
                                                                 
                                                                               


                                                      





                                                             
                              



                             


                      

                                                   
 
                                                
 

                                                       
 
                               
 
 
               


















                                                                                      
 



                                                                                                                            
         
 






                                                                        

                                                                                 
                                                                                   
                                                                                                                  






                                                                                               

                                                                          










                                                                                                      
                                                                                      
                                     
                                                                                       
                                         
                                                                                           
                                        
                                                                                          





                                                                                                 
           





















                                                                                                         


































                                                                                                           
                                              


                                      
                                                    


                                     
                                                  











                                                                                                            
           


                                                
                                


                                                                                        







                                                                                                  

                                                                                                              
        

                                                  
 

                              



                                                                                   
                                                 
                



                                                                                                      

         

                                              

                                                                                          





                                                                                                    
                                          
                                                    















                                                                       







                                                                                                






















                                                                                                    

                                                                 

                                 
                                                                  


                                                                       



                                                                                                              

 
           
















                                                                                                               
                                                            



                                                                                                                    
 
                                              

 










                                                       
           
                                                 
 
                                                   


           
                                              



                                                                                                               

                                                                                                        
                                         
        


                                                   






                                                   
        
                                                                 

                                                               
                  
                         
 
                                                                                                                     





                                                                 
                                                                                                     
                     
                                                                                                 
                                               
                                                                           

                                      
        

                                                                                                        

                                                                                                









                                                                                                              
                                                                                   
 


                                                                                        
                                                                                    
                                                                                               
 

                                                                                              
                                                                                              


                                                                                              
                                                                      





                                                                                                                
 
                                                                                                            

















                                                                                                    

                                                                               
        
                                         
        

                                                                                                   






                                                                                         
 

                                                   

                    

           






                                                   


                                                                                                               

                                                                                                         
                                                                      
                                         
        



                                                   
                                               
 
                                                           








                                                   



                                                                  
                  
                         
 
                                                                                                                      





                                                                 
                                                                                                      
                     
                                                                                                  
                                               
                                                                           
                                      
                
 

                                                                                                        

                                                                                                














                                                                                                           
                                                                                    
                                                                                               
 

                                                                                              
 
                                                                                              


                                                                                              
                                                                      





                                                                                                                
 
                                                                                                            















                                                                                                

                                                                               

                                                                                                    
 



                                                                                                   






                                                                                         
 

                                                   

                    






                                                            
/* Evolution calendar - Calendar properties dialogs
 *
 * Copyright (C) 2003 Novell, Inc.
 *
 * Author: Hans Petter Jansson <hpj@ximian.com>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * 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 <string.h>
#include <bonobo/bonobo-i18n.h>
#include <gdk/gdkkeysyms.h>
#include <gtk/gtkdialog.h>
#include <gtk/gtkentry.h>
#include <gtk/gtkmenu.h>
#include <gtk/gtkmenuitem.h>
#include <gtk/gtkmessagedialog.h>
#include <gtk/gtkoptionmenu.h>
#include <libgnome/libgnome.h>
#include <libgnomeui/gnome-druid.h>
#include <libgnomeui/gnome-druid-page.h>
#include <libgnomeui/gnome-color-picker.h>
#include <glade/glade.h>
#include <libedataserver/e-source-list.h>
#include <libecal/e-cal.h>
#include <e-util/e-dialog-utils.h>
#include <e-util/e-url.h>
#include <e-util/e-icon-factory.h>
#include "calendar-setup.h"

#define GLADE_FILE_NAME "calendar-setup.glade"

typedef struct
{
    GladeXML     *gui_xml;

    /* Main widgets */
    GtkWidget    *window;
    GtkWidget    *druid;

    /* Source selection */
    ESourceList  *source_list;
    GtkWidget    *group_optionmenu;

    /* ESource we're currently editing (if any) */
    ESource      *source;

    /* Source group we're creating/editing source in */
    ESourceGroup *source_group;

    /* General page fields */
    GtkWidget    *name_entry;
    GtkWidget    *source_color;

    /* Location page fields */
    GtkWidget    *uri_entry;
    GtkWidget    *refresh_spin;

    /* sensitive blocks */
    GtkWidget    *uri_label;
    GtkWidget    *uri_hbox;
    GtkWidget    *refresh_label;
    GtkWidget    *refresh_hbox;
    GtkWidget    *refresh_optionmenu;
    GtkWidget    *add_button;
}
SourceDialog;

static gchar *
print_uri_noproto (EUri *uri)
{
    gchar *uri_noproto;

    if (uri->port != 0)
        uri_noproto = g_strdup_printf (
            "%s%s%s%s%s%s%s:%d%s%s%s",
            uri->user ? uri->user : "",
            uri->authmech ? ";auth=" : "",
            uri->authmech ? uri->authmech : "",
            uri->passwd ? ":" : "",
            uri->passwd ? uri->passwd : "",
            uri->user ? "@" : "",
            uri->host ? uri->host : "",
            uri->port,
            uri->path ? uri->path : "",
            uri->query ? "?" : "",
            uri->query ? uri->query : "");
    else
        uri_noproto = g_strdup_printf (
                        "%s%s%s%s%s%s%s%s%s%s",
                        uri->user ? uri->user : "",
                        uri->authmech ? ";auth=" : "",
                        uri->authmech ? uri->authmech : "",
                        uri->passwd ? ":" : "",
                        uri->passwd ? uri->passwd : "",
                        uri->user ? "@" : "",
                        uri->host ? uri->host : "",
                        uri->path ? uri->path : "",
                        uri->query ? "?" : "",
                        uri->query ? uri->query : "");

    return uri_noproto;
}

static gboolean
source_group_is_remote (ESourceGroup *group)
{
    EUri     *uri;
    gboolean  is_remote = FALSE;
    
    if (!group)
        return FALSE;

    uri = e_uri_new (e_source_group_peek_base_uri (group));
    if (!uri)
        return FALSE;

    if (uri->protocol && uri->protocol [0] && strcmp (uri->protocol, "file"))
        is_remote = TRUE;

    e_uri_free (uri);
    return is_remote;
}

static gboolean
source_is_remote (ESource *source)
{
    gchar    *uri_str;
    EUri     *uri;
    gboolean  is_remote = FALSE;

    uri_str = e_source_get_uri (source);
    if (!uri_str)
        return FALSE;

    uri = e_uri_new (uri_str);
    g_free (uri_str);

    if (!uri)
        return FALSE;

    if (uri->protocol && uri->protocol [0] && strcmp (uri->protocol, "file"))
        is_remote = TRUE;

    e_uri_free (uri);
    return is_remote;
}

static gboolean
validate_remote_uri (const gchar *source_location, gboolean interactive, GtkWidget *parent)
{
    EUri *uri;

    if (!source_location || !strlen (source_location)) {
        if (interactive)
            e_notice (parent, GTK_MESSAGE_ERROR,
                  _("You must specify a location to get the calendar from."));
        return FALSE;
    }

    uri = e_uri_new (source_location);
    if (!uri) {
        if (interactive)
            e_notice (parent, GTK_MESSAGE_ERROR,
                  _("The source location '%s' is not well-formed."),
                  source_location);
        return FALSE;
    }

    /* Make sure we're in agreement with the protocol. Note that EUri sets it
     * to 'file' if none was specified in the input URI. We don't want to
     * silently translate an explicit file:// into http:// though. */
    if (uri->protocol &&
        strcmp (uri->protocol, "http") &&
        strcmp (uri->protocol, "webcal")) {
        e_uri_free (uri);

        if (interactive)
            e_notice (parent, GTK_MESSAGE_ERROR,
                  _("The source location '%s' is not a webcal source."),
                  source_location);
        return FALSE;
    }

    e_uri_free (uri);
    return TRUE;
}

static gboolean
source_group_is_mutable (ESourceGroup *source_group)
{
    gboolean mutable;
    
    if (!source_group)
        return FALSE;
    
    mutable = !e_source_group_get_readonly (source_group);
    
    if (mutable) {
        const char *uri = e_source_group_peek_base_uri (source_group);
        
        if (g_str_has_prefix (uri, "groupwise://") || g_str_has_prefix (uri, "exchange://"))
            mutable = FALSE;
        
    }
    
    return mutable; 
}

static int
source_group_menu_add_groups (GtkMenuShell *menu_shell, SourceDialog *source_dialog)
{
    ESourceList *source_list = source_dialog->source_list;
    GSList *groups, *sl;
    int index=-1, i=0;
    

    if (source_list == NULL)
        return index;

    groups = e_source_list_peek_groups (source_list);
    for (sl = groups; sl; sl = g_slist_next (sl)) {
        GtkWidget    *menu_item;
        ESourceGroup *group = sl->data;

        menu_item = gtk_menu_item_new_with_label (e_source_group_peek_name (group));
        gtk_widget_show (menu_item);

        if (!source_group_is_mutable (group))
            gtk_widget_set_sensitive(menu_item, FALSE);
        
        if (source_dialog->source_group 
            && !strcmp (e_source_group_peek_uid (source_dialog->source_group), e_source_group_peek_uid (group)))
            index = i;

        gtk_menu_shell_append (menu_shell, menu_item);
        i++;
    }

    if (!source_dialog->source_group && groups) {
        source_dialog->source_group = groups->data;
        return -1;
    }

    return index;
}

static ESource *
create_new_source_with_group (GtkWindow *parent,
                  ESourceGroup *group,
                  const char *source_name,
                  const char *source_location,
                  ECalSourceType source_type)
{
    ESource *source;
    ECal *cal;

    if (e_source_group_peek_source_by_name (group, source_name)) {
        e_notice (parent, GTK_MESSAGE_ERROR,
              _("Source with name '%s' already exists in the selected group"),
              source_name);
        return NULL;
    }

    if (source_group_is_remote (group)) {
        EUri  *uri;
        gchar *relative_uri;

        /* Remote source */

        if (!source_location || !strlen (source_location)) {
            e_notice (parent, GTK_MESSAGE_ERROR,
                  _("The group '%s' is remote. You must specify a location "
                    "to get the calendar from"),
                  e_source_group_peek_name (group));
            return NULL;
        }

        if (!validate_remote_uri (source_location, TRUE, GTK_WIDGET (parent)))
            return NULL;

        /* Our relative_uri is everything but protocol, which is supplied by parent group */
        uri = e_uri_new (source_location);
        relative_uri = print_uri_noproto (uri);
        e_uri_free (uri);

        /* Create source */
        source = e_source_new (source_name, relative_uri);

        g_free (relative_uri);
    } else {
        /* Local source */
        source = e_source_new (source_name, source_name);
        e_source_set_relative_uri (source, e_source_peek_uid (source));
    }

    e_source_group_add_source (group, source, -1);

    /* create the calendar in the backend */
    cal = e_cal_new (source, source_type);
    if (!e_cal_open (cal, FALSE, NULL)) {
        e_source_group_remove_source (group, source);
        g_object_unref (source);
        source = NULL;
    }

    g_object_unref (cal);

    return source;
}

static void
source_dialog_destroy (SourceDialog *source_dialog)
{
    g_object_unref (source_dialog->gui_xml);

    if (source_dialog->source)
        g_object_unref (source_dialog->source);

    g_free (source_dialog);
}

static gboolean
remote_page_verify (SourceDialog *source_dialog)
{
    const gchar *uri;

    uri = gtk_entry_get_text (GTK_ENTRY (source_dialog->uri_entry));
    if (!uri || !uri [0])
        return FALSE;

    if (!validate_remote_uri (uri, FALSE, NULL))
        return FALSE;

    return TRUE;
}

static void
general_entry_modified (SourceDialog *source_dialog)
{
    const char *text = gtk_entry_get_text (GTK_ENTRY (source_dialog->name_entry));
    gboolean sensitive = text && *text != '\0';

    sensitive = sensitive && (source_dialog->source_group != NULL);

    if (source_group_is_remote (source_dialog->source_group) && source_group_is_mutable (source_dialog->source_group)) {
        sensitive = sensitive && remote_page_verify (source_dialog);
    }

    gtk_widget_set_sensitive (source_dialog->add_button, sensitive);
}

static void
general_update_dialog (SourceDialog *source_dialog)
{
    gboolean remote = FALSE;
    gboolean mutable = source_group_is_mutable (source_dialog->source_group);

    if (source_dialog->source && e_source_get_readonly (source_dialog->source))
        gtk_widget_set_sensitive (glade_xml_get_widget (source_dialog->gui_xml, "settings-table"), FALSE);

    /* These are calendar specific so make sure we have them */
    if (source_dialog->uri_entry)
        g_signal_handlers_block_matched (source_dialog->uri_entry, G_SIGNAL_MATCH_DATA,
                         0, 0, NULL, NULL, source_dialog);

    remote = (source_dialog->source && source_is_remote (source_dialog->source)) 
          || source_group_is_remote (source_dialog->source_group);


    if (!remote) {
        if (source_dialog->uri_entry)
            gtk_entry_set_text (GTK_ENTRY (source_dialog->uri_entry), "");
        if (source_dialog->refresh_spin)
            gtk_spin_button_set_value (GTK_SPIN_BUTTON (source_dialog->refresh_spin), 30);
    }
    
    general_entry_modified (source_dialog);

    if (source_dialog->uri_hbox)
        gtk_widget_set_sensitive (source_dialog->uri_hbox, remote && mutable);
    if (source_dialog->uri_label)
        gtk_widget_set_sensitive (source_dialog->uri_label, remote && mutable);
    if (source_dialog->refresh_label)
        gtk_widget_set_sensitive (source_dialog->refresh_label, remote && mutable);
    if (source_dialog->refresh_hbox)
        gtk_widget_set_sensitive (source_dialog->refresh_hbox, remote && mutable);

    if (source_dialog->uri_entry)
        g_signal_handlers_unblock_matched (source_dialog->uri_entry, G_SIGNAL_MATCH_DATA,
                           0, 0, NULL, NULL, source_dialog);
}

static void
colorpicker_set_color (GnomeColorPicker *color, guint32 rgb)
{
    gnome_color_picker_set_i8 (color, (rgb & 0xff0000) >> 16, (rgb & 0xff00) >> 8, rgb & 0xff, 0xff);
}

static guint32
colorpicker_get_color (GnomeColorPicker *color)
{
    guint8 r, g, b, a;
    guint32 rgb = 0;
    
    gnome_color_picker_get_i8 (color, &r, &g, &b, &a);
    
    rgb   = r;
    rgb <<= 8;
    rgb  |= g;
    rgb <<= 8;
    rgb  |= b;
    
    return rgb;
}                       

static char *
get_refresh_minutes (SourceDialog *source_dialog)
{
    int setting = gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (source_dialog->refresh_spin));

    if (source_dialog->refresh_optionmenu)      
        switch (gtk_option_menu_get_history (GTK_OPTION_MENU (source_dialog->refresh_optionmenu))){
        case 0: /* minutes */
            break;
        case 1: /* hours */
            setting *= 60;
            break;
        case 2: /* days */
            setting *= 1440;
            break;
        case 3: /* weeks wtf? why so long */
            setting *= 10080;
            break;
        default:
            g_warning ("Time unit out of range");
            break;
        }

    return g_strdup_printf ("%d", setting);
}

static void
set_refresh_time (SourceDialog *source_dialog) {
        int time;
    int item_num = 0;
    
    const char *refresh_str = e_source_get_property (source_dialog->source, "refresh");
    time = refresh_str ? atoi (refresh_str) : 30;

    if (source_dialog->refresh_optionmenu) {
        if (time && !(time % 10080)) {
            /* weeks */
            item_num = 3;
            time /= 10080;
        } else if (time && !(time % 1440)) {
            /* days */
            item_num = 2;
            time /= 1440;
        } else if (time && !(time % 60)) {
            /* days */
            item_num = 1;
            time /= 60;
        }

        gtk_option_menu_set_history (GTK_OPTION_MENU (source_dialog->refresh_optionmenu), item_num);
    }

    gtk_spin_button_set_value (GTK_SPIN_BUTTON (source_dialog->refresh_spin), time);
    return;
}

static void
source_to_dialog (SourceDialog *source_dialog)
{
    ESource *source = source_dialog->source;
    gboolean remote = FALSE;

    g_signal_handlers_block_matched (source_dialog->name_entry, G_SIGNAL_MATCH_DATA,
                     0, 0, NULL, NULL, source_dialog);

    /* These are calendar specific so make sure we have them */
    if (source_dialog->uri_entry)
        g_signal_handlers_block_matched (source_dialog->uri_entry, G_SIGNAL_MATCH_DATA,
                         0, 0, NULL, NULL, source_dialog);
    if (source_dialog->refresh_spin)
        g_signal_handlers_block_matched (source_dialog->refresh_spin, G_SIGNAL_MATCH_DATA,
                         0, 0, NULL, NULL, source_dialog);

    gtk_entry_set_text (GTK_ENTRY (source_dialog->name_entry), source ? e_source_peek_name (source) : "");
    
    if (source && source_is_remote (source)) {
        gchar       *uri_str;

        remote = TRUE;

        uri_str = e_source_get_uri (source);
        gtk_entry_set_text (GTK_ENTRY (source_dialog->uri_entry), uri_str);
        g_free (uri_str);

        set_refresh_time (source_dialog);
    } else {
        if (source_dialog->uri_entry)
            gtk_entry_set_text (GTK_ENTRY (source_dialog->uri_entry), "");
        if (source_dialog->refresh_spin)
            gtk_spin_button_set_value (GTK_SPIN_BUTTON (source_dialog->refresh_spin), 30);
    }

    general_update_dialog (source_dialog);

    g_signal_handlers_unblock_matched (source_dialog->name_entry, G_SIGNAL_MATCH_DATA,
                       0, 0, NULL, NULL, source_dialog);
    if (source_dialog->uri_entry)
        g_signal_handlers_unblock_matched (source_dialog->uri_entry, G_SIGNAL_MATCH_DATA,
                           0, 0, NULL, NULL, source_dialog);
    if (source_dialog->refresh_spin)
        g_signal_handlers_unblock_matched (source_dialog->refresh_spin, G_SIGNAL_MATCH_DATA,
                           0, 0, NULL, NULL, source_dialog);
    if (source_dialog->source_color) {
        static guint32 assigned_colors[] = {
            0xBECEDD, /* 190 206 221     Blue */
            0xE2F0EF, /* 226 240 239     Light Blue */
            0xC6E2B7, /* 198 226 183     Green */
            0xE2F0D3, /* 226 240 211     Light Green */
            0xE2D4B7, /* 226 212 183     Khaki */
            0xEAEAC1, /* 234 234 193     Light Khaki */
            0xF0B8B7, /* 240 184 183     Pink */
            0xFED4D3, /* 254 212 211     Light Pink */
            0xE2C6E1, /* 226 198 225     Purple */
            0xF0E2EF  /* 240 226 239     Light Purple */
        };
        GRand *rand = g_rand_new ();
        guint32 color;

        color = assigned_colors[g_rand_int_range (rand, 0, 9)];
        g_rand_free (rand);

        if (source_dialog->source)
            e_source_get_color (source_dialog->source, &color);
        else 
            /* FIXME */;

        colorpicker_set_color (GNOME_COLOR_PICKER (source_dialog->source_color), color);
    }
}

static void
dialog_to_source (SourceDialog *source_dialog)
{
    ESource *source = source_dialog->source;

    g_return_if_fail (source != NULL);

    e_source_set_name (source, gtk_entry_get_text (GTK_ENTRY (source_dialog->name_entry)));
    if (source_is_remote (source)) {
        EUri  *uri;
        gchar *relative_uri;
        gchar *refresh_str;

        /* Our relative_uri is everything but protocol, which is supplied by parent group */
        uri = e_uri_new (gtk_entry_get_text (GTK_ENTRY (source_dialog->uri_entry)));
        if (!uri) {
            g_warning ("Invalid remote URI!");
            return;
        }

        relative_uri = print_uri_noproto (uri);
        e_source_set_relative_uri (source, relative_uri);
        g_free (relative_uri);
        e_uri_free (uri);

        refresh_str = get_refresh_minutes (source_dialog);
        e_source_set_property (source, "refresh", refresh_str);
        g_free (refresh_str);
    }
    
    if (source_dialog->source_color)
        e_source_set_color (source, 
                    colorpicker_get_color (GNOME_COLOR_PICKER (source_dialog->source_color)));
}

static void
dialog_hide_unused_options (SourceDialog *source_dialog)
{
    ESource *source = source_dialog->source;

    if (source && (!source_is_remote (source) || !source_group_is_mutable (source_dialog->source_group))) {
        if (source_dialog->uri_hbox)
            gtk_widget_hide (source_dialog->uri_hbox);
        if (source_dialog->uri_label)
            gtk_widget_hide (source_dialog->uri_label);
        if (source_dialog->refresh_label)
            gtk_widget_hide (source_dialog->refresh_label);
        if (source_dialog->refresh_hbox)
            gtk_widget_hide (source_dialog->refresh_hbox);
    }
}

static void
source_group_changed_sensitive (SourceDialog *source_dialog)
{
    source_dialog->source_group =
        g_slist_nth (e_source_list_peek_groups (source_dialog->source_list),
                 gtk_option_menu_get_history (GTK_OPTION_MENU (source_dialog->group_optionmenu)))->data;

    general_update_dialog (source_dialog);
}

static gboolean
key_press_event (GtkWidget *widget, GdkEventKey *event)
{
    if (event->keyval == GDK_Escape) {
        gtk_widget_destroy (widget);
        return TRUE;
    }

    return FALSE;
}

static void
new_calendar_cancel (SourceDialog *source_dialog)
{
    gtk_widget_destroy (source_dialog->window);
}

static void
new_calendar_add (SourceDialog *source_dialog)
{
    source_dialog->source =
        create_new_source_with_group (GTK_WINDOW (source_dialog->window), source_dialog->source_group, 
                          gtk_entry_get_text (GTK_ENTRY (source_dialog->name_entry)),
                          gtk_entry_get_text (GTK_ENTRY (source_dialog->uri_entry)),
                          E_CAL_SOURCE_TYPE_EVENT);
    dialog_to_source (source_dialog);
    
    gtk_widget_destroy (source_dialog->window);
}

static void
edit_calendar_finish (SourceDialog *source_dialog)
{
    dialog_to_source (source_dialog);
    gtk_widget_destroy (source_dialog->window);
}

gboolean
calendar_setup_edit_calendar (GtkWindow *parent, ESource *source)
{
    SourceDialog *source_dialog = g_new0 (SourceDialog, 1);
    int index;
    GList *icon_list;

    source_dialog->gui_xml = glade_xml_new (EVOLUTION_GLADEDIR "/" GLADE_FILE_NAME, "add-calendar-window", NULL);
    if (!source_dialog->gui_xml) {
        g_warning (G_STRLOC ": Cannot load Glade file.");
        g_free (source_dialog);
        return FALSE;
    }

    source_dialog->window = glade_xml_get_widget (source_dialog->gui_xml, "add-calendar-window");
    if (source) {
        gtk_window_set_title (GTK_WINDOW (source_dialog->window), "Calendar Properties");
        source_dialog->source = source;
        source_dialog->source_group = e_source_peek_group (source);
        g_object_ref (source);
    }
    
    g_signal_connect (source_dialog->window, "key-press-event", G_CALLBACK (key_press_event), NULL);

    source_dialog->name_entry = glade_xml_get_widget (source_dialog->gui_xml, "name-entry");
    g_signal_connect_swapped (source_dialog->name_entry, "changed",
                  G_CALLBACK (general_entry_modified), source_dialog);      
    source_dialog->source_list = e_source_list_new_for_gconf_default ("/apps/evolution/calendar/sources");

    source_dialog->group_optionmenu =
        glade_xml_get_widget (source_dialog->gui_xml, "group-optionmenu");
    if (!GTK_IS_MENU (gtk_option_menu_get_menu (GTK_OPTION_MENU (source_dialog->group_optionmenu)))) {
        GtkWidget *menu = gtk_menu_new ();
        gtk_option_menu_set_menu (GTK_OPTION_MENU (source_dialog->group_optionmenu), menu);
        gtk_widget_show (menu);
    }
    gtk_widget_set_sensitive (source_dialog->group_optionmenu, source == NULL);

    /* NOTE: This assumes that we have sources. If they don't exist, they're set up
     * on startup of the calendar component. */
    index = source_group_menu_add_groups (GTK_MENU_SHELL (gtk_option_menu_get_menu (
        GTK_OPTION_MENU (source_dialog->group_optionmenu))), source_dialog);
    gtk_option_menu_set_history (GTK_OPTION_MENU (source_dialog->group_optionmenu), index);

    g_signal_connect_swapped (source_dialog->group_optionmenu, "changed",
                  G_CALLBACK (source_group_changed_sensitive), source_dialog);
    source_dialog->uri_entry = glade_xml_get_widget (source_dialog->gui_xml, "uri-entry");
    source_dialog->uri_label = glade_xml_get_widget (source_dialog->gui_xml, "uri-label");
    source_dialog->uri_hbox = glade_xml_get_widget (source_dialog->gui_xml, "uri-hbox");

    g_signal_connect_swapped (source_dialog->uri_entry, "changed",
                  G_CALLBACK (general_entry_modified), source_dialog);

    source_dialog->refresh_spin = glade_xml_get_widget (source_dialog->gui_xml, "refresh-spin");
    source_dialog->refresh_optionmenu = glade_xml_get_widget (source_dialog->gui_xml, "refresh-optionmenu");
    source_dialog->refresh_label = glade_xml_get_widget (source_dialog->gui_xml, "refresh-label");
    source_dialog->refresh_hbox = glade_xml_get_widget (source_dialog->gui_xml, "refresh-hbox");

    g_signal_connect_swapped (glade_xml_get_widget (source_dialog->gui_xml, "cancel-button"), "clicked",
                  G_CALLBACK (new_calendar_cancel), source_dialog);

    source_dialog->add_button = glade_xml_get_widget (source_dialog->gui_xml, "add-button");
    gtk_widget_set_sensitive (source_dialog->add_button, FALSE);

    if (source) {
        gtk_button_set_use_stock (GTK_BUTTON (source_dialog->add_button), TRUE);
        gtk_button_set_label (GTK_BUTTON (source_dialog->add_button), GTK_STOCK_OK);

        g_signal_connect_swapped (source_dialog->add_button, "clicked",
                      G_CALLBACK (edit_calendar_finish), source_dialog);
    } else {
        g_signal_connect_swapped (source_dialog->add_button, "clicked",
                      G_CALLBACK (new_calendar_add), source_dialog);
    }

    source_dialog->source_color = glade_xml_get_widget (source_dialog->gui_xml, "source-color");

    g_object_weak_ref (G_OBJECT (source_dialog->window),
               (GWeakNotify) source_dialog_destroy, source_dialog);
    
    source_to_dialog (source_dialog);
    
    gtk_window_set_type_hint (GTK_WINDOW (source_dialog->window), GDK_WINDOW_TYPE_HINT_DIALOG);
    gtk_window_set_modal (GTK_WINDOW (source_dialog->window), TRUE);
    
    icon_list = e_icon_factory_get_icon_list ("stock_calendar");
    if (icon_list) {
        gtk_window_set_icon_list (GTK_WINDOW (source_dialog->window), icon_list);
        g_list_foreach (icon_list, (GFunc) g_object_unref, NULL);
        g_list_free (icon_list);
    }

    dialog_hide_unused_options (source_dialog);
    gtk_widget_show (source_dialog->window);
    return TRUE;
}

static void
new_task_list_cancel (SourceDialog *source_dialog)
{
    gtk_widget_destroy (source_dialog->window);
}

static void
new_task_list_add (SourceDialog *source_dialog)
{
    source_dialog->source =
        create_new_source_with_group (GTK_WINDOW (source_dialog->window), source_dialog->source_group, 
                          gtk_entry_get_text (GTK_ENTRY (source_dialog->name_entry)),
                          gtk_entry_get_text (GTK_ENTRY (source_dialog->uri_entry)),
                          E_CAL_SOURCE_TYPE_TODO);
    dialog_to_source (source_dialog);
    
    gtk_widget_destroy (source_dialog->window);
}

gboolean
calendar_setup_new_calendar (GtkWindow *parent)
{
    return calendar_setup_edit_calendar (parent, NULL);
}

static void
edit_task_list_finish (SourceDialog *source_dialog)
{
    dialog_to_source (source_dialog);
    gtk_widget_destroy (source_dialog->window);
}

gboolean
calendar_setup_edit_task_list (GtkWindow *parent, ESource *source)
{
    SourceDialog *source_dialog = g_new0 (SourceDialog, 1);
    int index;
    GList *icon_list;

    source_dialog->gui_xml = glade_xml_new (EVOLUTION_GLADEDIR "/" GLADE_FILE_NAME, "add-task-list-window", NULL);
    if (!source_dialog->gui_xml) {
        g_warning (G_STRLOC ": Cannot load Glade file.");
        g_free (source_dialog);
        return FALSE;
    }

    source_dialog->window = glade_xml_get_widget (source_dialog->gui_xml, "add-task-list-window");
    if (source) {
        gtk_window_set_title (GTK_WINDOW (source_dialog->window), "Task List Properties");
        source_dialog->source = source;
        source_dialog->source_group = e_source_peek_group (source);
        g_object_ref (source);
    }   

    g_signal_connect (source_dialog->window, "key-press-event", G_CALLBACK (key_press_event), NULL);

    source_dialog->name_entry = glade_xml_get_widget (source_dialog->gui_xml, "name-entry");
    g_signal_connect_swapped (source_dialog->name_entry, "changed",
                  G_CALLBACK (general_entry_modified), source_dialog);      
    source_dialog->source_list = e_source_list_new_for_gconf_default ("/apps/evolution/tasks/sources");

    source_dialog->group_optionmenu =
        glade_xml_get_widget (source_dialog->gui_xml, "group-optionmenu");
    if (!GTK_IS_MENU (gtk_option_menu_get_menu (GTK_OPTION_MENU (source_dialog->group_optionmenu)))) {
        GtkWidget *menu = gtk_menu_new ();
        gtk_option_menu_set_menu (GTK_OPTION_MENU (source_dialog->group_optionmenu), menu);
        gtk_widget_show (menu);
    }
    gtk_widget_set_sensitive (source_dialog->group_optionmenu, source == NULL);

    /* NOTE: This assumes that we have sources. If they don't exist, they're set up
     * on startup of the calendar component. */
    index = source_group_menu_add_groups (GTK_MENU_SHELL (gtk_option_menu_get_menu (
        GTK_OPTION_MENU (source_dialog->group_optionmenu))), source_dialog);
    gtk_option_menu_set_history (GTK_OPTION_MENU (source_dialog->group_optionmenu), index);

    g_signal_connect_swapped (source_dialog->group_optionmenu, "changed",
                  G_CALLBACK (source_group_changed_sensitive), source_dialog);

    source_dialog->uri_entry = glade_xml_get_widget (source_dialog->gui_xml, "uri-entry");
    source_dialog->uri_label = glade_xml_get_widget (source_dialog->gui_xml, "uri-label");
    source_dialog->uri_hbox = glade_xml_get_widget (source_dialog->gui_xml, "uri-hbox");

    g_signal_connect_swapped (source_dialog->uri_entry, "changed",
                  G_CALLBACK (general_entry_modified), source_dialog);

    source_dialog->refresh_spin = glade_xml_get_widget (source_dialog->gui_xml, "refresh-spin");
    source_dialog->refresh_optionmenu = glade_xml_get_widget (source_dialog->gui_xml, "refresh-optionmenu");
    source_dialog->refresh_label = glade_xml_get_widget (source_dialog->gui_xml, "refresh-label");
    source_dialog->refresh_hbox = glade_xml_get_widget (source_dialog->gui_xml, "refresh-hbox");

    g_signal_connect_swapped (glade_xml_get_widget (source_dialog->gui_xml, "cancel-button"), "clicked",
                  G_CALLBACK (new_task_list_cancel), source_dialog);

    source_dialog->add_button = glade_xml_get_widget (source_dialog->gui_xml, "add-button");
    gtk_widget_set_sensitive (source_dialog->add_button, FALSE);
    
    if (source) {
        gtk_button_set_use_stock (GTK_BUTTON (source_dialog->add_button), TRUE);
        gtk_button_set_label (GTK_BUTTON (source_dialog->add_button), GTK_STOCK_OK);

        g_signal_connect_swapped (source_dialog->add_button, "clicked",
                      G_CALLBACK (edit_task_list_finish), source_dialog);
    } else {
        g_signal_connect_swapped (source_dialog->add_button, "clicked",
                      G_CALLBACK (new_task_list_add), source_dialog);
    }

    g_object_weak_ref (G_OBJECT (source_dialog->window),
               (GWeakNotify) source_dialog_destroy, source_dialog);
    
    source_dialog->source_color = glade_xml_get_widget (source_dialog->gui_xml, "source-color");

    source_to_dialog (source_dialog);

    gtk_window_set_type_hint (GTK_WINDOW (source_dialog->window), GDK_WINDOW_TYPE_HINT_DIALOG);
    gtk_window_set_modal (GTK_WINDOW (source_dialog->window), TRUE);
    
    icon_list = e_icon_factory_get_icon_list ("stock_task");
    if (icon_list) {
        gtk_window_set_icon_list (GTK_WINDOW (source_dialog->window), icon_list);
        g_list_foreach (icon_list, (GFunc) g_object_unref, NULL);
        g_list_free (icon_list);
    }

    dialog_hide_unused_options (source_dialog);
    gtk_widget_show (source_dialog->window);
    return TRUE;
}

gboolean
calendar_setup_new_task_list (GtkWindow *parent)
{
    return calendar_setup_edit_task_list (parent, NULL);
}