Pass %FALSE as @has_shared_folders to evolution_storage_new().

* e-local-storage.c (construct): Pass %FALSE as
@has_shared_folders to evolution_storage_new().

* evolution-storage.c: New member has_shared_folders in
EvolutionStoragePrivate.
(init): Initialize to FALSE.
(evolution_storage_new): New arg @has_shared_folders.
(evolution_storage_construct): Likewise.
(impl_Storage__get_folderList): Renamed from
impl_Storage__get_folder_list.
(impl_Storage__get_hasSharedFolders): New, implementation for
::hasSharedFolders.
(evolution_storage_get_epv): Install the CORBA method
implementation.

* Evolution-Storage.idl: Make Storage::name a readonly attribute.  New attribute Storage::

* component-factory.c (add_storage): Pass %FALSE as
@has_shared_folders to evolution_storage_new().

* gui/component/addressbook-storage.c
(addressbook_get_other_contact_storage): Pass %FALSE as
@has_shared_folders to evolution_storage_new().

svn path=/trunk/; revision=16733

1 files changed, 6 insertions, 3 deletions

diff --git a/shell/Evolution-Storage.idl b/shell/Evolution-Storage.idl
index 84d323c3bd..be6eaafcab 100644
--- a/shell/Evolution-Storage.idl
+++ b/shell/Evolution-Storage.idl
@@ -37,12 +37,15 @@ module Evolution {
 			string path;
 		};
 
+		/* The name of the storage.  */
+		readonly attribute string name;
+
+		/* Whether the storage has folders from other user's.  */
+		readonly attribute boolean hasSharedFolders;
+		
 		/* Flat list of the folders in the storage.  */
 		readonly attribute FolderList folderList;
 
-		/* The name of the storage.  */
-		attribute string name;
-		
 		void asyncCreateFolder (in string path,
 					in string type,
 					in string description,