new proto

2001-07-12  JP Rosevear  <jpr@ximian.com>

	* cal-util/cal-util.h: new proto

	* cal-util/cal-util.c (cal_util_new_top_level): standard place to
	get your top level calendar component

	* pcs/cal-backend-file.c (create_cal): use it

	* gui/itip-utils.c (itip_send_comp): ditto

	* gui/e-calendar-table.c (e_calendar_table_copy_clipboard): ditto

svn path=/trunk/; revision=11053

1 files changed, 2 insertions, 18 deletions

diff --git a/calendar/pcs/cal-backend-file.c b/calendar/pcs/cal-backend-file.c
index c906b09ffd..028949aa1a 100644
--- a/calendar/pcs/cal-backend-file.c
+++ b/calendar/pcs/cal-backend-file.c
@@ -24,6 +24,7 @@
 #include <gtk/gtksignal.h>
 #include "e-util/e-dbhash.h"
 #include "cal-util/cal-recur.h"
+#include "cal-util/cal-util.h"
 #include "cal-backend-file.h"
 
 
@@ -677,30 +678,13 @@ static CalBackendOpenStatus
 create_cal (CalBackendFile *cbfile, GnomeVFSURI *uri)
 {
 	CalBackendFilePrivate *priv;
-	icalproperty *prop;
 
 	priv = cbfile->priv;
 
 	/* Create the new calendar information */
-
-	priv->icalcomp = icalcomponent_new (ICAL_VCALENDAR_COMPONENT);
-
-	/* RFC 2445, section 4.7.1 */
-	prop = icalproperty_new_calscale ("GREGORIAN");
-	icalcomponent_add_property (priv->icalcomp, prop);
-
-	/* RFC 2445, section 4.7.3 */
-	prop = icalproperty_new_prodid ("-//Ximian//NONSGML Evolution Calendar//EN");
-	icalcomponent_add_property (priv->icalcomp, prop);
-
-	/* RFC 2445, section 4.7.4.  This is the iCalendar spec version, *NOT*
-	 * the product version!  Do not change this!
-	 */
-	prop = icalproperty_new_version ("2.0");
-	icalcomponent_add_property (priv->icalcomp, prop);
+	priv->icalcomp = cal_util_new_top_level ();
 
 	/* Create our internal data */
-
 	priv->comp_uid_hash = g_hash_table_new (g_str_hash, g_str_equal);
 
 	gnome_vfs_uri_ref (uri);