Put the EStorageSetView in an EScrollFrame.

* evolution-storage-set-view-factory.c
(evolution_storage_set_view_factory_new_view): Put the
EStorageSetView in an EScrollFrame.

* e-shell.c (impl_Shell_createStorageSetView):
CORBA_Object_duplicate the object before returning.

* evolution-test-component.c
(create_new_folder_selector): New function to create a simple test
environment for the new checkbox-enabled StorageSetView.
(register_component): Add user-creatable type FolderSelector.
(user_create_new_item_callback): Handle FolderSelector.
(dialog_clicked_callback): Print out the checked items in the
folder selector.
(main): Print out a message before going into bonobo_main().

* evolution-storage-set-view.c
(impl_StorageSetView__get_showFolders): Renamed from
impl_StorageSetView__get_show_folders.
(impl_StorageSetView__set_showFolders): Renamed from
impl_StorageSetView__set_show_folders.
(impl_StorageSetView__set_showCheckboxes): New, write the
showCheckboxes CORBA attribute.
(impl_StorageSetView__get_showCheckboxes): New, read the
showCheckboxes CORBA attribute.
(impl_StorageSetView__get_checkedFolders): New, read the
checkedFolders CORBA attribute.
(corba_class_init): Install the new CORBA methods methods.

* e-storage-set-view.c (essv_add_to_list): strdup() the path.
(e_storage_set_view_get_storage_set): New.

* e-folder.c (e_folder_to_corba): New.

* Evolution-StorageSetView.idl: Add showCheckboxes and
checkedFolders attributes.

* Evolution-common.idl: Add typedef for FolderList.

svn path=/trunk/; revision=16704

1 files changed, 16 insertions, 3 deletions

diff --git a/shell/evolution-storage-set-view-factory.c b/shell/evolution-storage-set-view-factory.c
index 5449033491..8712536f70 100644
--- a/shell/evolution-storage-set-view-factory.c
+++ b/shell/evolution-storage-set-view-factory.c
@@ -30,6 +30,8 @@
 
 #include "evolution-storage-set-view-factory.h"
 
+#include <gal/widgets/e-scroll-frame.h>
+
 
 BonoboControl *
 evolution_storage_set_view_factory_new_view (EShell *shell)
@@ -38,14 +40,13 @@ evolution_storage_set_view_factory_new_view (EShell *shell)
 	GtkWidget *storage_set_view;
 	BonoboControl *control;
 	EvolutionStorageSetView *storage_set_view_interface;
+	GtkWidget *scroll_frame;
 
 	g_return_val_if_fail (shell != NULL, NULL);
 	g_return_val_if_fail (E_IS_SHELL (shell), NULL);
 
 	storage_set = e_shell_get_storage_set (shell);
 	storage_set_view = e_storage_set_new_view (storage_set, NULL /*XXX*/);
-	gtk_widget_show (storage_set_view);
-
 	e_storage_set_view_set_allow_dnd (E_STORAGE_SET_VIEW (storage_set_view), FALSE);
 
 	storage_set_view_interface = evolution_storage_set_view_new (E_STORAGE_SET_VIEW (storage_set_view));
@@ -54,7 +55,19 @@ evolution_storage_set_view_factory_new_view (EShell *shell)
 		return NULL;
 	}
 
-	control = bonobo_control_new (storage_set_view);
+	scroll_frame = e_scroll_frame_new (NULL, NULL);
+	e_scroll_frame_set_policy (E_SCROLL_FRAME (scroll_frame),
+				   GTK_POLICY_AUTOMATIC,
+				   GTK_POLICY_AUTOMATIC);
+	e_scroll_frame_set_shadow_type (E_SCROLL_FRAME (scroll_frame),
+					GTK_SHADOW_IN);
+
+	gtk_container_add (GTK_CONTAINER (scroll_frame), storage_set_view);
+
+	gtk_widget_show (scroll_frame);
+	gtk_widget_show (storage_set_view);
+
+	control = bonobo_control_new (scroll_frame);
 	bonobo_object_add_interface (BONOBO_OBJECT (control), BONOBO_OBJECT (storage_set_view_interface));
 
 	return control;