Make `EvolutionStorage' and `ELocalstorage' actually update the CORBA

listeners and fix a bug with the creation of the
`EvolutionStorageListener' servant.

svn path=/trunk/; revision=5334

1 files changed, 23 insertions, 1 deletions

diff --git a/shell/evolution-storage-listener.c b/shell/evolution-storage-listener.c
index 7f1e64e70f..e059fd72b6 100644
--- a/shell/evolution-storage-listener.c
+++ b/shell/evolution-storage-listener.c
@@ -115,7 +115,7 @@ create_servant (EvolutionStorageListener *listener)
 
 	CORBA_exception_init (&ev);
 
-	servant = g_new (EvolutionStorageListenerServant, 1);
+	servant = g_new0 (EvolutionStorageListenerServant, 1);
 	corba_servant = (POA_Evolution_StorageListener *) servant;
 
 	corba_servant->vepv = &my_Evolution_StorageListener_vepv;
@@ -302,5 +302,27 @@ evolution_storage_listener_new (void)
 }
 
 
+/**
+ * evolution_storage_listener_corba_objref:
+ * @listener: A pointer to an EvolutionStorageListener
+ * 
+ * Get the CORBA object reference for the interface embedded in this GTK+
+ * object wrapper.
+ * 
+ * Return value: A pointer to the CORBA object reference.
+ **/
+Evolution_StorageListener
+evolution_storage_listener_corba_objref (EvolutionStorageListener *listener)
+{
+	EvolutionStorageListenerPrivate *priv;
+
+	g_return_val_if_fail (listener != NULL, CORBA_OBJECT_NIL);
+	g_return_val_if_fail (EVOLUTION_IS_STORAGE_LISTENER (listener), CORBA_OBJECT_NIL);
+
+	priv = listener->priv;
+	return priv->corba_objref;
+}
+
+
 E_MAKE_TYPE (evolution_storage_listener, "EvolutionStorageListener", EvolutionStorageListener,
 	     class_init, init, PARENT_TYPE)