Fixes #15710

2002-08-08  Rodrigo Moya <rodrigo@ximian.com>

	Fixes #15710

	* cal-util/cal-component.[ch] (cal_component_alarm_get_icalcomponent):
	new function for getting the icalcomponent from a CalComponentAlarm.

	* gui/comp-util.c (cal_comp_event_new_with_defaults): added
	X-EVOLUTION-NEEDS-DESCRIPTION property to the default reminder alarm,
	so that we can identify it when saving the component.

	* gui/dialogs/alarm-page.c (alarm_page_fill_component): if the alarm
	has the X-EVOLUTION-NEEDS-DESCRIPTION property, set the description to
	be the same as of the component.

svn path=/trunk/; revision=17744

2 files changed, 31 insertions, 1 deletions

diff --git a/calendar/gui/comp-util.c b/calendar/gui/comp-util.c
index 5edfb90af5..6b3c0b0594 100644
--- a/calendar/gui/comp-util.c
+++ b/calendar/gui/comp-util.c
@@ -273,6 +273,8 @@ cal_comp_event_new_with_defaults (void)
 	int interval;
 	CalUnits units;
 	CalComponentAlarm *alarm;
+	icalcomponent *icalcomp;
+	icalproperty *icalprop;
 	CalAlarmTrigger trigger;
 
 	comp = cal_component_new ();
@@ -288,8 +290,13 @@ cal_comp_event_new_with_defaults (void)
 	alarm = cal_component_alarm_new ();
 
 	/* We don't set the description of the alarm; we'll copy it from the
-	 * summary when it gets committed to the server.
+	 * summary when it gets committed to the server. For that, we add a
+	 * X-EVOLUTION-NEEDS-DESCRIPTION property to the alarm's component.
 	 */
+	icalcomp = cal_component_alarm_get_icalcomponent (alarm);
+	icalprop = icalproperty_new_x ("1");
+	icalproperty_set_x_name (icalprop, "X-EVOLUTION-NEEDS-DESCRIPTION");
+	icalcomponent_add_property (icalcomp, icalprop);
 
 	cal_component_alarm_set_action (alarm, CAL_ALARM_DISPLAY);
 
diff --git a/calendar/gui/dialogs/alarm-page.c b/calendar/gui/dialogs/alarm-page.c
index c06e975ed7..85dd67a073 100644
--- a/calendar/gui/dialogs/alarm-page.c
+++ b/calendar/gui/dialogs/alarm-page.c
@@ -570,10 +570,33 @@ alarm_page_fill_component (CompEditorPage *page, CalComponent *comp)
 	clist = GTK_CLIST (priv->list);
 	for (i = 0; i < clist->rows; i++) {
 		CalComponentAlarm *alarm, *alarm_copy;
+		icalcomponent *icalcomp;
+		icalproperty *icalprop;
 
 		alarm = gtk_clist_get_row_data (clist, i);
 		g_assert (alarm != NULL);
 
+		/* We set the description of the alarm if it's got
+		 * the X-EVOLUTION-NEEDS-DESCRIPTION property.
+		 */
+		icalcomp = cal_component_alarm_get_icalcomponent (alarm);
+		icalprop = icalcomponent_get_first_property (icalcomp, ICAL_X_PROPERTY);
+		while (icalprop) {
+			const char *x_name;
+			CalComponentText summary;
+
+			x_name = icalproperty_get_x_name (icalprop);
+			if (!strcmp (x_name, "X-EVOLUTION-NEEDS-DESCRIPTION")) {
+				cal_component_get_summary (comp, &summary);
+				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.
 		 */