path: root/calendar/gui/dialogs/alarm-page.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */

/* Evolution calendar - Alarm page of the calendar component dialogs
 *
 * Copyright (C) 2001-2003 Ximian, Inc.
 *
 * Authors: Federico Mena-Quintero <federico@ximian.com>
 *          Miguel de Icaza <miguel@ximian.com>
 *          Seth Alves <alves@hungry.com>
 *          JP Rosevear <jpr@ximian.com>
 *          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 <gtk/gtklabel.h>
#include <gtk/gtkcellrenderertext.h>
#include <gtk/gtksignal.h>
#include <gtk/gtktreeview.h>
#include <gtk/gtktreeselection.h>
#include <gtk/gtkoptionmenu.h>
#include <libgnome/gnome-i18n.h>
#include <glade/glade.h>
#include "e-util/e-dialog-widgets.h"
#include "e-util/e-time-utils.h"
#include <libecal/e-cal-util.h>
#include <libecal/e-cal-time-util.h>
#include "../calendar-config.h"
#include "comp-editor-util.h"
#include "alarm-options.h"
#include "../e-alarm-list.h"
#include "alarm-page.h"



/* Private part of the AlarmPage structure */
struct _AlarmPagePrivate {
    /* Glade XML data */
    GladeXML *xml;

    /* Widgets from the Glade file */

    GtkWidget *main;

    GtkWidget *summary;
    GtkWidget *date_time;

    GtkWidget *list;
    GtkWidget *add;
    GtkWidget *delete;

    GtkWidget *action;
    GtkWidget *interval_value;
    GtkWidget *value_units;
    GtkWidget *relative;
    GtkWidget *time;

    GtkWidget *button_options;

    /* Alarm options dialog and the alarm we maintain */
    ECalComponentAlarm *alarm;

    /* Alarm store for the GtkTreeView list widget */
    EAlarmList *list_store;

    gboolean updating;

    /* Old summary, to detect changes */
    gchar *old_summary;
};

/* "relative" types */
enum {
    BEFORE,
    AFTER
};

/* Time units */
enum {
    MINUTES,
    HOURS,
    DAYS
};

/* Option menu maps */
static const int action_map[] = {
    E_CAL_COMPONENT_ALARM_DISPLAY,
    E_CAL_COMPONENT_ALARM_AUDIO,
    E_CAL_COMPONENT_ALARM_PROCEDURE,
    E_CAL_COMPONENT_ALARM_EMAIL,
    -1
};

static const char *action_map_cap[] = {
    CAL_STATIC_CAPABILITY_NO_DISPLAY_ALARMS,
    CAL_STATIC_CAPABILITY_NO_AUDIO_ALARMS,
        CAL_STATIC_CAPABILITY_NO_PROCEDURE_ALARMS,
    CAL_STATIC_CAPABILITY_NO_EMAIL_ALARMS
};

static const int value_map[] = {
    MINUTES,
    HOURS,
    DAYS,
    -1
};

static const int relative_map[] = {
    BEFORE,
    AFTER,
    -1
};

static const int time_map[] = {
    E_CAL_COMPONENT_ALARM_TRIGGER_RELATIVE_START,
    E_CAL_COMPONENT_ALARM_TRIGGER_RELATIVE_END,
    -1
};



static void alarm_page_class_init (AlarmPageClass *class);
static void alarm_page_init (AlarmPage *apage);
static void alarm_page_finalize (GObject *object);

static GtkWidget *alarm_page_get_widget (CompEditorPage *page);
static void alarm_page_focus_main_widget (CompEditorPage *page);
static void alarm_page_fill_widgets (CompEditorPage *page, ECalComponent *comp);
static gboolean alarm_page_fill_component (CompEditorPage *page, ECalComponent *comp);
static void alarm_page_set_summary (CompEditorPage *page, const char *summary);
static void alarm_page_set_dates (CompEditorPage *page, CompEditorPageDates *dates);

static CompEditorPageClass *parent_class = NULL;



/**
 * alarm_page_get_type:
 *
 * Registers the #AlarmPage class if necessary, and returns the type ID
 * associated to it.
 *
 * Return value: The type ID of the #AlarmPage class.
 **/

E_MAKE_TYPE (alarm_page, "AlarmPage", AlarmPage, alarm_page_class_init,
         alarm_page_init, TYPE_COMP_EDITOR_PAGE);

/* Class initialization function for the alarm page */
static void
alarm_page_class_init (AlarmPageClass *class)
{
    CompEditorPageClass *editor_page_class;
    GObjectClass *gobject_class;

    editor_page_class = (CompEditorPageClass *) class;
    gobject_class = (GObjectClass *) class;

    parent_class = g_type_class_ref (TYPE_COMP_EDITOR_PAGE);

    editor_page_class->get_widget = alarm_page_get_widget;
    editor_page_class->focus_main_widget = alarm_page_focus_main_widget;
    editor_page_class->fill_widgets = alarm_page_fill_widgets;
    editor_page_class->fill_component = alarm_page_fill_component;
    editor_page_class->set_summary = alarm_page_set_summary;
    editor_page_class->set_dates = alarm_page_set_dates;

    gobject_class->finalize = alarm_page_finalize;
}

/* Object initialization function for the alarm page */
static void
alarm_page_init (AlarmPage *apage)
{
    AlarmPagePrivate *priv;
    icalcomponent *icalcomp;
    icalproperty *icalprop;

    priv = g_new0 (AlarmPagePrivate, 1);
    apage->priv = priv;

    priv->xml = NULL;

    priv->main = NULL;
    priv->summary = NULL;
    priv->date_time = NULL;
    priv->list = NULL;
    priv->add = NULL;
    priv->delete = NULL;
    priv->action = NULL;
    priv->interval_value = NULL;
    priv->value_units = NULL;
    priv->relative = NULL;
    priv->time = NULL;
    priv->button_options = NULL;

    /* create the default alarm, which will contain the
     * X-EVOLUTION-NEEDS-DESCRIPTION property, so that we
     * set a correct description if none is set */
    priv->alarm = e_cal_component_alarm_new ();

    icalcomp = e_cal_component_alarm_get_icalcomponent (priv->alarm);
    icalprop = icalproperty_new_x ("1");
    icalproperty_set_x_name (icalprop, "X-EVOLUTION-NEEDS-DESCRIPTION");
        icalcomponent_add_property (icalcomp, icalprop);

    priv->updating = FALSE;
    priv->old_summary = NULL;
}

/* Destroy handler for the alarm page */
static void
alarm_page_finalize (GObject *object)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    g_return_if_fail (object != NULL);
    g_return_if_fail (IS_ALARM_PAGE (object));

    apage = ALARM_PAGE (object);
    priv = apage->priv;

    if (priv->main)
        gtk_widget_unref (priv->main);

    if (priv->xml) {
        g_object_unref (priv->xml);
        priv->xml = NULL;
    }

    if (priv->alarm) {
        e_cal_component_alarm_free (priv->alarm);
        priv->alarm = NULL;
    }

    if (priv->list_store) {
        g_object_unref (priv->list_store);
        priv->list_store = NULL;
    }

    if (priv->old_summary) {
        g_free (priv->old_summary);
        priv->old_summary = NULL;
    }

    g_free (priv);
    apage->priv = NULL;

    if (G_OBJECT_CLASS (parent_class)->finalize)
        (* G_OBJECT_CLASS (parent_class)->finalize) (object);
}



/* get_widget handler for the alarm page */
static GtkWidget *
alarm_page_get_widget (CompEditorPage *page)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    apage = ALARM_PAGE (page);
    priv = apage->priv;

    return priv->main;
}

/* focus_main_widget handler for the alarm page */
static void
alarm_page_focus_main_widget (CompEditorPage *page)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    apage = ALARM_PAGE (page);
    priv = apage->priv;

    gtk_widget_grab_focus (priv->action);
}

/* Fills the widgets with default values */
static void
clear_widgets (AlarmPage *apage)
{
    AlarmPagePrivate *priv;

    priv = apage->priv;

    /* Summary */
    gtk_label_set_text (GTK_LABEL (priv->summary), "");

    /* Start date */
    gtk_label_set_text (GTK_LABEL (priv->date_time), "");

    /* Sane defaults */
    e_dialog_option_menu_set (priv->action, E_CAL_COMPONENT_ALARM_DISPLAY, action_map);
    e_dialog_spin_set (priv->interval_value, 15);
    e_dialog_option_menu_set (priv->value_units, MINUTES, value_map);
    e_dialog_option_menu_set (priv->relative, BEFORE, relative_map);
    e_dialog_option_menu_set (priv->time, E_CAL_COMPONENT_ALARM_TRIGGER_RELATIVE_START, time_map);

    /* List data */
    e_alarm_list_clear (priv->list_store);
}

static void
sensitize_buttons (AlarmPage *apage)
{
    AlarmPagePrivate *priv;
    ECal *client;
    GtkTreeSelection *selection;
    GtkTreeIter iter;
    gboolean have_selected;

    priv = apage->priv;

    client = COMP_EDITOR_PAGE (apage)->client;
    selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (priv->list));
    have_selected = gtk_tree_selection_get_selected (selection, NULL, &iter);

    gtk_widget_set_sensitive (priv->add,
                  e_cal_get_one_alarm_only (client) && have_selected ? FALSE : TRUE);
    gtk_widget_set_sensitive (priv->delete, have_selected);
}

/* Appends an alarm to the list */
static void
append_reminder (AlarmPage *apage, ECalComponentAlarm *alarm)
{
    AlarmPagePrivate *priv;
    GtkTreeView *view;
    GtkTreeIter  iter;

    priv = apage->priv;
    view = GTK_TREE_VIEW (priv->list);

    e_alarm_list_append (priv->list_store, &iter, alarm);
    gtk_tree_selection_select_iter (gtk_tree_view_get_selection (view), &iter);

    sensitize_buttons (apage);
}

/* fill_widgets handler for the alarm page */
static void
alarm_page_fill_widgets (CompEditorPage *page, ECalComponent *comp)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;
    GtkWidget *menu;
    ECalComponentText text;
    GList *alarms, *l;
    CompEditorPageDates dates;
    int i;
    
    apage = ALARM_PAGE (page);
    priv = apage->priv;

    /* Don't send off changes during this time */
    priv->updating = TRUE;

    /* Clean the page */
    clear_widgets (apage);

    /* Summary */
    e_cal_component_get_summary (comp, &text);
    alarm_page_set_summary (page, text.value);

    /* Dates */
    comp_editor_dates (&dates, comp);
    alarm_page_set_dates (page, &dates);
    comp_editor_free_dates (&dates);

    /* List */
    if (!e_cal_component_has_alarms (comp))
        goto out;

    alarms = e_cal_component_get_alarm_uids (comp);

    for (l = alarms; l != NULL; l = l->next) {
        ECalComponentAlarm *ca, *ca_copy;
        const char *auid;

        auid = l->data;
        ca = e_cal_component_get_alarm (comp, auid);
        g_assert (ca != NULL);

        ca_copy = e_cal_component_alarm_clone (ca);
        e_cal_component_alarm_free (ca);

        append_reminder (apage, ca_copy);
    }
    cal_obj_uid_list_free (alarms);

 out:

    /* Alarm types */
    menu = gtk_option_menu_get_menu (GTK_OPTION_MENU (priv->action));
    for (i = 0, l = GTK_MENU_SHELL (menu)->children; action_map[i] != -1; i++, l = l->next) {
        if (e_cal_get_static_capability (page->client, action_map_cap[i]))
            gtk_widget_set_sensitive (l->data, FALSE);
        else
            gtk_widget_set_sensitive (l->data, TRUE);
    }
    
    sensitize_buttons (apage);

    priv->updating = FALSE;
}

/* fill_component handler for the alarm page */
static gboolean
alarm_page_fill_component (CompEditorPage *page, ECalComponent *comp)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;
    GtkTreeView *view;
    GtkTreeModel *model;
    GtkTreeIter iter;
    gboolean valid_iter;
    GList *list, *l;

    apage = ALARM_PAGE (page);
    priv = apage->priv;

    /* Remove all the alarms from the component */

    list = e_cal_component_get_alarm_uids (comp);
    for (l = list; l; l = l->next) {
        const char *auid;

        auid = l->data;
        e_cal_component_remove_alarm (comp, auid);
    }
    cal_obj_uid_list_free (list);

    /* Add the new alarms */

    view  = GTK_TREE_VIEW  (priv->list);
    model = GTK_TREE_MODEL (priv->list_store);

    for (valid_iter = gtk_tree_model_get_iter_first (model, &iter); valid_iter;
         valid_iter = gtk_tree_model_iter_next (model, &iter)) {
        ECalComponentAlarm *alarm, *alarm_copy;
        icalcomponent *icalcomp;
        icalproperty *icalprop;

        alarm = (ECalComponentAlarm *) e_alarm_list_get_alarm (priv->list_store, &iter);
        g_assert (alarm != NULL);

        /* We set the description of the alarm if it's got
         * the X-EVOLUTION-NEEDS-DESCRIPTION property.
         */
        icalcomp = e_cal_component_alarm_get_icalcomponent (alarm);
        icalprop = icalcomponent_get_first_property (icalcomp, ICAL_X_PROPERTY);
        while (icalprop) {
            const char *x_name;
            ECalComponentText summary;

            x_name = icalproperty_get_x_name (icalprop);
            if (!strcmp (x_name, "X-EVOLUTION-NEEDS-DESCRIPTION")) {
                e_cal_component_get_summary (comp, &summary);
                e_cal_component_alarm_set_description (alarm, &summary);

                icalcomponent_remove_property (icalcomp, icalprop);
                break;
            }

            icalprop = icalcomponent_get_next_property (icalcomp, ICAL_X_PROPERTY);
        }

        /* We clone the alarm to maintain the invariant that the alarm
         * structures in the list did *not* come from the component.
         */

        alarm_copy = e_cal_component_alarm_clone (alarm);
        e_cal_component_add_alarm (comp, alarm_copy);
        e_cal_component_alarm_free (alarm_copy);
    }

    return TRUE;
}

/* set_summary handler for the alarm page */
static void
alarm_page_set_summary (CompEditorPage *page, const char *summary)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    apage = ALARM_PAGE (page);
    priv = apage->priv;

    gtk_label_set_text (GTK_LABEL (priv->summary), summary);

    /* iterate over all alarms */
    if (priv->old_summary) {
        GtkTreeView *view;
        GtkTreeModel *model;
        GtkTreeIter iter;
        gboolean valid_iter;

        view = GTK_TREE_VIEW (priv->list);
        model = GTK_TREE_MODEL (priv->list_store);

        for (valid_iter = gtk_tree_model_get_iter_first (model, &iter); valid_iter;
             valid_iter = gtk_tree_model_iter_next (model, &iter)) {
            ECalComponentAlarm *alarm;
            ECalComponentText desc;

            alarm = (ECalComponentAlarm *) e_alarm_list_get_alarm (priv->list_store, &iter);
            g_assert (alarm != NULL);

            e_cal_component_alarm_get_description (alarm, &desc);
            if (desc.value && *desc.value) {
                if (!strcmp (desc.value, priv->old_summary)) {
                    desc.value = summary;
                    e_cal_component_alarm_set_description (alarm, &desc);
                }
            }
        }

        g_free (priv->old_summary);
    }
    
    /* update old summary */
    priv->old_summary = g_strdup (summary);
}

/* set_dates handler for the alarm page */
static void
alarm_page_set_dates (CompEditorPage *page, CompEditorPageDates *dates)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    apage = ALARM_PAGE (page);
    priv = apage->priv;

    comp_editor_date_label (dates, priv->date_time);
}



/* Gets the widgets from the XML file and returns TRUE if they are all available. */
static gboolean
get_widgets (AlarmPage *apage)
{
    CompEditorPage *page = COMP_EDITOR_PAGE (apage);
    AlarmPagePrivate *priv;
    GSList *accel_groups;
    GtkWidget *toplevel;

    priv = apage->priv;

#define GW(name) glade_xml_get_widget (priv->xml, name)

    priv->main = GW ("alarm-page");
    if (!priv->main)
        return FALSE;

    /* Get the GtkAccelGroup from the toplevel window, so we can install
       it when the notebook page is mapped. */
    toplevel = gtk_widget_get_toplevel (priv->main);
    accel_groups = gtk_accel_groups_from_object (G_OBJECT (toplevel));
    if (accel_groups) {
        page->accel_group = accel_groups->data;
        gtk_accel_group_ref (page->accel_group);
    }

    gtk_widget_ref (priv->main);
    gtk_container_remove (GTK_CONTAINER (priv->main->parent), priv->main);

    priv->summary = GW ("summary");
    priv->date_time = GW ("date-time");

    priv->list = GW ("list");
    priv->add = GW ("add");
    priv->delete = GW ("delete");

    priv->action = GW ("action");
    priv->interval_value = GW ("interval-value");
    priv->value_units = GW ("value-units");
    priv->relative = GW ("relative");
    priv->time = GW ("time");

    priv->button_options = GW ("button-options");

#undef GW

    return (priv->summary
        && priv->date_time
        && priv->list
        && priv->add
        && priv->delete
        && priv->action
        && priv->interval_value
        && priv->value_units
        && priv->relative
        && priv->time
        && priv->button_options);
}

/* This is called when any field is changed; it notifies upstream. */
static void
field_changed_cb (GtkWidget *widget, gpointer data)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;

    apage = ALARM_PAGE (data);
    priv = apage->priv;

    if (!priv->updating)
        comp_editor_page_notify_changed (COMP_EDITOR_PAGE (apage));
}

/* Callback used for the "add reminder" button */
static void
add_clicked_cb (GtkButton *button, gpointer data)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;
    ECalComponentAlarm *alarm;
    ECalComponentAlarmTrigger trigger;
    ECalComponentAlarmAction action;
    
    apage = ALARM_PAGE (data);
    priv = apage->priv;

    alarm = e_cal_component_alarm_clone (priv->alarm);

    memset (&trigger, 0, sizeof (ECalComponentAlarmTrigger));
    trigger.type = e_dialog_option_menu_get (priv->time, time_map);
    if (e_dialog_option_menu_get (priv->relative, relative_map) == BEFORE)
        trigger.u.rel_duration.is_neg = 1;
    else
        trigger.u.rel_duration.is_neg = 0;

    switch (e_dialog_option_menu_get (priv->value_units, value_map)) {
    case MINUTES:
        trigger.u.rel_duration.minutes =
            e_dialog_spin_get_int (priv->interval_value);
        break;

    case HOURS:
        trigger.u.rel_duration.hours =
            e_dialog_spin_get_int (priv->interval_value);
        break;

    case DAYS:
        trigger.u.rel_duration.days =
            e_dialog_spin_get_int (priv->interval_value);
        break;

    default:
        g_assert_not_reached ();
    }
    e_cal_component_alarm_set_trigger (alarm, trigger);

    action = e_dialog_option_menu_get (priv->action, action_map);
    e_cal_component_alarm_set_action (alarm, action);
    if (action == E_CAL_COMPONENT_ALARM_EMAIL && !e_cal_component_alarm_has_attendees (alarm)) {
        char *email;
        
        if (!e_cal_get_alarm_email_address (COMP_EDITOR_PAGE (apage)->client, &email, NULL)) {
            ECalComponentAttendee *a;
            GSList attendee_list;

            a = g_new0 (ECalComponentAttendee, 1);
            a->value = email;
            attendee_list.data = a;
            attendee_list.next = NULL;
            e_cal_component_alarm_set_attendee_list (alarm, &attendee_list);
            g_free (email);
            g_free (a);
        }
    }

    append_reminder (apage, alarm);
}

/* Callback used for the "delete reminder" button */
static void
delete_clicked_cb (GtkButton *button, gpointer data)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;
    GtkTreeSelection *selection;
    GtkTreeIter iter;
    GtkTreePath *path;
    gboolean valid_iter;

    apage = ALARM_PAGE (data);
    priv = apage->priv;

    selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (priv->list));
    if (!gtk_tree_selection_get_selected (selection, NULL, &iter)) {
        g_warning ("Could not get a selection to delete.");
        return;
    }

    path = gtk_tree_model_get_path (GTK_TREE_MODEL (priv->list_store), &iter);
    e_alarm_list_remove (priv->list_store, &iter);

    /* Select closest item after removal */
    valid_iter = gtk_tree_model_get_iter (GTK_TREE_MODEL (priv->list_store), &iter, path);
    if (!valid_iter) {
        gtk_tree_path_prev (path);
        valid_iter = gtk_tree_model_get_iter (GTK_TREE_MODEL (priv->list_store), &iter, path);
    }

    if (valid_iter)
        gtk_tree_selection_select_iter (selection, &iter);

    sensitize_buttons (apage);

    gtk_tree_path_free (path);
}

/* Callback used when the alarm options button is clicked */
static void
button_options_clicked_cb (GtkWidget *widget, gpointer data)
{
    AlarmPage *apage;
    AlarmPagePrivate *priv;
    gboolean repeat;
    char *email;
    
    apage = ALARM_PAGE (data);
    priv = apage->priv;

    e_cal_component_alarm_set_action (priv->alarm,
                    e_dialog_option_menu_get (priv->action, action_map));

    repeat = !e_cal_get_static_capability (COMP_EDITOR_PAGE (apage)->client,
                            CAL_STATIC_CAPABILITY_NO_ALARM_REPEAT);

    if (e_cal_get_alarm_email_address (COMP_EDITOR_PAGE (apage)->client, &email, NULL)) {
        if (!alarm_options_dialog_run (priv->alarm, email, repeat))
            g_message ("button_options_clicked_cb(): Could not create the alarm options dialog");
    }
}

/* Hooks the widget signals */
static void
init_widgets (AlarmPage *apage)
{
    AlarmPagePrivate *priv;
    GtkTreeViewColumn *column;
    GtkCellRenderer *cell_renderer;

    priv = apage->priv;

    /* Reminder buttons */
    g_signal_connect ((priv->add), "clicked",
              G_CALLBACK (add_clicked_cb), apage);
    g_signal_connect ((priv->delete), "clicked",
              G_CALLBACK (delete_clicked_cb), apage);

    /* Connect the default signal handler to use to make sure we notify
     * upstream of changes to the widget values.
     */
    g_signal_connect ((priv->add), "clicked",
              G_CALLBACK (field_changed_cb), apage);
    g_signal_connect ((priv->delete), "clicked",
              G_CALLBACK (field_changed_cb), apage);

    /* Options button */
    g_signal_connect ((priv->button_options), "clicked",
              G_CALLBACK (button_options_clicked_cb), apage);

    /* Alarm list */

    /* Model */
    priv->list_store = e_alarm_list_new ();
    gtk_tree_view_set_model (GTK_TREE_VIEW (priv->list),
                 GTK_TREE_MODEL (priv->list_store));

    /* View */
    column = gtk_tree_view_column_new ();
    gtk_tree_view_column_set_title (column, "Action/Trigger");  /* Not shown */
    cell_renderer = GTK_CELL_RENDERER (gtk_cell_renderer_text_new ());
    gtk_tree_view_column_pack_start (column, cell_renderer, TRUE);
    gtk_tree_view_column_add_attribute (column, cell_renderer, "text", E_ALARM_LIST_COLUMN_DESCRIPTION);
    gtk_tree_view_append_column (GTK_TREE_VIEW (priv->list), column);

#if 0
    /* If we want the alarm setup widgets to reflect the currently selected alarm, we
     * need to do something like this */
    g_signal_connect (gtk_tree_view_get_selection (GTK_TREE_VIEW (priv->list)), "changed",
              G_CALLBACK (alarm_selection_changed_cb), apage);
#endif
}



/**
 * alarm_page_construct:
 * @apage: An alarm page.
 *
 * Constructs an alarm page by loading its Glade data.
 *
 * Return value: The same object as @apage, or NULL if the widgets could not be
 * created.
 **/
AlarmPage *
alarm_page_construct (AlarmPage *apage)
{
    AlarmPagePrivate *priv;

    priv = apage->priv;

    priv->xml = glade_xml_new (EVOLUTION_GLADEDIR "/alarm-page.glade",
                   NULL, NULL);
    if (!priv->xml) {
        g_message ("alarm_page_construct(): "
               "Could not load the Glade XML file!");
        return NULL;
    }

    if (!get_widgets (apage)) {
        g_message ("alarm_page_construct(): "
               "Could not find all widgets in the XML file!");
        return NULL;
    }

    init_widgets (apage);

    return apage;
}

/**
 * alarm_page_new:
 *
 * Creates a new alarm page.
 *
 * Return value: A newly-created alarm page, or NULL if the page could not be
 * created.
 **/
AlarmPage *
alarm_page_new (void)
{
    AlarmPage *apage;

    apage = g_object_new (TYPE_ALARM_PAGE, NULL);
    if (!alarm_page_construct (apage)) {
        g_object_unref (apage);
        return NULL;
    }

    return apage;
}