path: root/shell/evolution-test-component.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* evolution-test-component.c
 *
 * Copyright (C) 2001, 2002  Ximian, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 *
 * Author: Ettore Perazzoli
 */

/* Simple test component for the Evolution shell.  */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "evolution-shell-component.h"

#include "evolution-activity-client.h"
#include "evolution-config-control.h"
#include "evolution-storage.h"

#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-main.h>
#include <bonobo/bonobo-widget.h>

#include <gdk-pixbuf/gdk-pixbuf.h>


#define COMPONENT_ID "OAFIID:GNOME_Evolution_TestComponent_ShellComponent"

#define CONFIGURATION_CONTROL_FACTORY_ID "OAFIID:GNOME_Evolution_TestComponent_ConfigurationControlFactory"
#define CONFIGURATION_CONTROL_ID         "OAFIID:GNOME_Evolution_TestComponent_ConfigurationControl"

static const EvolutionShellComponentFolderType folder_types[] = {
    { "test", "/usr/share/pixmaps/gnome-money.png", N_("Test"), N_("Test type"), FALSE, NULL, NULL },
    { NULL }
};


static BonoboGenericFactory *configuration_control_factory = NULL;

static EvolutionShellClient *parent_shell = NULL;

static int timeout_id = 0;


/* TEST #1: Configuration Control.  */

static BonoboObject *
create_configuration_page (void)
{
    GtkWidget *label;

    label = gtk_label_new ("This is the configuration page for the test component.");
    gtk_widget_show (label);

    return BONOBO_OBJECT (evolution_config_control_new (label));
}

static BonoboObject *
configuration_control_factory_fn (BonoboGenericFactory *factory,
                  const char *id,
                  void *closure)
{
    if (strcmp (id, CONFIGURATION_CONTROL_ID) == 0) {
        return create_configuration_page ();
    } else {
        g_warning ("Unknown ID in configuration control factory -- %s", id);
        return NULL;
    }
}

static void
register_configuration_control_factory (void)
{
    configuration_control_factory = bonobo_generic_factory_new_multi (CONFIGURATION_CONTROL_FACTORY_ID,
                                      configuration_control_factory_fn,
                                      NULL);

    if (configuration_control_factory == NULL)
        g_warning ("Cannot register configuration control factory!");
}


/* TEST #2: The ::Shortcut interface.  */

static void
spit_out_shortcuts (EvolutionShellClient *shell_client)
{
    GNOME_Evolution_Shortcuts shortcuts_interface;
    GNOME_Evolution_Shortcuts_GroupList *groups;
    CORBA_Environment ev;
    int i, j;

    CORBA_exception_init (&ev);

    shortcuts_interface = evolution_shell_client_get_shortcuts_interface (shell_client);
    if (CORBA_Object_is_nil (shortcuts_interface, &ev)) {
        g_warning ("No ::Shortcut interface on the shell");
        CORBA_exception_free (&ev);
        return;
    }

    groups = GNOME_Evolution_Shortcuts__get_groups (shortcuts_interface, &ev);
    if (ev._major != CORBA_NO_EXCEPTION) {
        g_warning ("Exception getting the groups: %s", ev._repo_id);
        CORBA_exception_free (&ev);
        return;
    }

    for (i = 0; i < groups->_length; i ++) {
        GNOME_Evolution_Shortcuts_Group *group;
        GNOME_Evolution_Shortcuts_ShortcutList *shortcuts;

        group = groups->_buffer + i;
        shortcuts = &group->shortcuts;

        g_print ("\tGROUP: %s\n", group->name);

        for (j = 0; j < shortcuts->_length; j ++) {
            GNOME_Evolution_Shortcuts_Shortcut *shortcut;

            shortcut = shortcuts->_buffer + j;

            g_print ("\t\tName: %s\n", shortcut->name);
            g_print ("\t\t\tType: %s\n", shortcut->type);
            g_print ("\t\t\tURI: %s\n", shortcut->uri);
        }
    }

    g_print ("** Done\n\n");

    CORBA_exception_free (&ev);
}


/* TEST #4: The multiple folder selector.  */

static void
dialog_clicked_callback (GnomeDialog *dialog,
             int button_num,
             void *data)
{
    GNOME_Evolution_StorageSetView storage_set_view_iface;
    CORBA_Environment ev;
    GNOME_Evolution_FolderList *folder_list;

    if (button_num == 1) {
        /* Close.  */
        gtk_widget_destroy (GTK_WIDGET (dialog));
        return;
    }

    CORBA_exception_init (&ev);

    storage_set_view_iface = (GNOME_Evolution_StorageSetView) data;

    folder_list = GNOME_Evolution_StorageSetView__get_checkedFolders (storage_set_view_iface, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Cannot get checkedFolders -- %s", BONOBO_EX_ID (&ev));
    } else {
        int i;

        for (i = 0; i < folder_list->_length; i ++) {
#define PRINT(s) g_print ("\t" #s ": %s\n", folder_list->_buffer[i].s);
            g_print ("Folder #%d:\n", i + 1);
            PRINT (type);
            PRINT (description);
            PRINT (displayName);
            PRINT (physicalUri);
            PRINT (evolutionUri);
#undef PRINT

            g_print ("\tunreadCount: %d\n", folder_list->_buffer[i].unreadCount);
        }
    }

    CORBA_exception_free (&ev);
}

static void
dialog_destroy_callback (GtkObject *object,
             void *data)
{
    GNOME_Evolution_StorageSetView storage_set_view_iface;
    CORBA_Environment ev;

    CORBA_exception_init (&ev);

    storage_set_view_iface = (GNOME_Evolution_StorageSetView) data;
    Bonobo_Unknown_unref (storage_set_view_iface, &ev);

    CORBA_exception_free (&ev);
}

static void
create_new_folder_selector (EvolutionShellComponent *shell_component)
{
    EvolutionShellClient *shell_client;
    GNOME_Evolution_Shell corba_shell;
    GNOME_Evolution_StorageSetView storage_set_view_iface;
    GtkWidget *dialog;
    GtkWidget *control_widget;
    CORBA_Environment ev;

    CORBA_exception_init (&ev);

    shell_client = evolution_shell_component_get_owner (shell_component);
    g_assert (shell_client != NULL);
    corba_shell = bonobo_object_corba_objref (BONOBO_OBJECT (shell_client));

    control_widget = evolution_shell_client_create_storage_set_view (shell_client,
                                     CORBA_OBJECT_NIL,
                                     NULL,
                                     &storage_set_view_iface,
                                     &ev);
    if (control_widget == NULL) {
        g_warning ("Can't create the StorageSetView control -- %s", BONOBO_EX_ID (&ev));
        CORBA_exception_free (&ev);
        return;
    }

    dialog = gnome_dialog_new ("Test the Selector here.", GNOME_STOCK_BUTTON_APPLY, GNOME_STOCK_BUTTON_CLOSE, NULL);
    gtk_window_set_default_size (GTK_WINDOW (dialog), 200, 400);
    gtk_window_set_policy (GTK_WINDOW (dialog), FALSE, TRUE, FALSE);

    gtk_container_add (GTK_CONTAINER (GNOME_DIALOG (dialog)->vbox), control_widget);

    GNOME_Evolution_StorageSetView__set_showCheckboxes (storage_set_view_iface, TRUE, &ev);
    if (BONOBO_EX (&ev))
        g_warning ("Cannot show checkboxes -- %s", BONOBO_EX_ID (&ev));

    g_signal_connect (dialog, "clicked",
              G_CALLBACK (dialog_clicked_callback), storage_set_view_iface);

    /* This is necessary to unref the StorageSetView iface once we are done
       with it.  */
    g_signal_connect (dialog, "destroy",
              G_CALLBACK (dialog_destroy_callback), storage_set_view_iface);

    gtk_widget_show (control_widget);
    gtk_widget_show (dialog);

    CORBA_exception_free (&ev);
}


/* TEST #5: Test custom storage.  */

static int
shared_folder_discovery_timeout_callback (void *data)
{
    GNOME_Evolution_Storage_FolderResult result;
    CORBA_Environment ev;
    Bonobo_Listener listener;
    CORBA_any any;
    EvolutionStorage *storage;

    storage = EVOLUTION_STORAGE (data);

    listener = (Bonobo_Listener) gtk_object_get_data (GTK_OBJECT (storage), "listener");

    result.result = GNOME_Evolution_Storage_OK;
    result.path = "/Shared Folders/The Public Folder";

    any._type = TC_GNOME_Evolution_Storage_FolderResult;
    any._value = &result;

    CORBA_exception_init (&ev);

    Bonobo_Listener_event (listener, "result", &any, &ev);
    if (BONOBO_EX (&ev))
        g_warning ("Cannot report result for shared folder discovery -- %s",
               BONOBO_EX_ID (&ev));

    Bonobo_Unknown_unref (listener, &ev);
    CORBA_Object_release (listener, &ev);

    CORBA_exception_free (&ev);

    g_object_set_data (storage, "listener", NULL);
    g_object_set_data (storage, "timeout_id", NULL);

    return FALSE;
}

static void
storage_discover_shared_folder_callback (EvolutionStorage *storage,
                     Bonobo_Listener listener,
                     const char *user,
                     const char *folder_name,
                     void *data)
{
    CORBA_Environment ev;
    Bonobo_Listener listener_copy;

    CORBA_exception_init (&ev);
    listener_copy = CORBA_Object_duplicate (listener, &ev);
    Bonobo_Unknown_ref (listener, &ev);
    CORBA_exception_free (&ev);

    g_print ("Listener copy %p\n", listener_copy);

    timeout_id = g_timeout_add (1000, shared_folder_discovery_timeout_callback, storage);

    g_object_set_data (storage, "listener", listener_copy);
    g_object_set_data (storage, "timeout_id", GINT_TO_POINTER (timeout_id));
}

static void
storage_cancel_discover_shared_folder_callback (EvolutionStorage *storage,
                        const char *user,
                        const char *folder_name,
                        void *data)
{
    Bonobo_Listener listener;
    CORBA_Environment ev;
    int timeout_id;

    timeout_id = GPOINTER_TO_INT (gtk_object_get_data (GTK_OBJECT (storage), "timeout_id"));
    if (timeout_id == 0)
        return;

    g_source_remove (timeout_id);
    g_object_set_data (storage, "timeout_id", NULL);

    listener = (Bonobo_Listener) gtk_object_get_data (GTK_OBJECT (storage), "listener");

    CORBA_exception_init (&ev);
    Bonobo_Unknown_unref (listener, &ev);
    CORBA_Object_release (listener, &ev);
    CORBA_exception_free (&ev);

    g_object_set_data (storage, "listener", NULL);
}

static void
storage_show_folder_properties_callback (EvolutionStorage *storage,
                     const char *path,
                     unsigned int itemNumber,
                     unsigned long parentWindowId,
                     void *data)
{
    g_print ("Show properties #%d -- %s\n", itemNumber, path);
}

static void
setup_custom_storage (EvolutionShellClient *shell_client)
{
    EvolutionStorage *the_storage;
    EvolutionStorageResult result;

    the_storage = evolution_storage_new ("TestStorage", TRUE);

    g_signal_connect (the_storage, "discover_shared_folder",
              G_CALLBACK (storage_discover_shared_folder_callback), shell_client);
    g_signal_connect (the_storage, "cancel_discover_shared_folder",
              G_CALLBACK (storage_cancel_discover_shared_folder_callback), shell_client);

    /* Add some custom "Properties" items.  */
    evolution_storage_add_property_item (the_storage, "Sharing...",
                         "Change sharing properties for this folder", NULL); 
    evolution_storage_add_property_item (the_storage, "Permissions...",
                         "Change permissions for this folder", NULL);

    g_signal_connect (the_storage, "show_folder_properties",
              G_CALLBACK (storage_show_folder_properties_callback), NULL);

    result = evolution_storage_register_on_shell (the_storage, BONOBO_OBJREF (shell_client));
    if (result != EVOLUTION_STORAGE_OK) {
        g_warning ("Cannot register storage on the shell.");
        bonobo_object_unref (BONOBO_OBJECT (the_storage));
        return;
    }

    /* Test the sorting_priority arg here: if it was just sorting in
       alphabetical order, FirstFolder would come before SecondFolder, but
       we are specifying -1 sorting priority for SecondFolder and zero for
       FirstFolder so the order is reversed.  */

    evolution_storage_new_folder (the_storage, "/FirstFolder", "FirstFolder",
                      "mail", "file:///tmp/blah", "", "inbox", 0, TRUE, 0);
    evolution_storage_new_folder (the_storage, "/SecondFolder", "SecondFolder",
                      "calendar", "file:///tmp/bleh", "", NULL, 0, FALSE, -1);
}


/* Callbacks.  */

static void
activity_client_cancel_callback (EvolutionActivityClient *client,
                 void *data)
{
    g_print ("User requested that the operation be cancelled.\n");
}

static void
activity_client_show_details_callback (EvolutionActivityClient *client,
                       void *data)
{
    g_print ("User wants to see details.\n");
}


/* Timeout #3: We are done.  */
static int
timeout_callback_3 (void *data)
{
    EvolutionActivityClient *activity_client;

    activity_client = EVOLUTION_ACTIVITY_CLIENT (data);

    g_object_unref (activity_client);

    g_print ("--> Done.\n");

    return FALSE;
}

/* Timeout #2: Update the progress until it reaches 100%.  */
static int
timeout_callback_2 (void *data)
{
    EvolutionActivityClient *activity_client;
    int progress;

    activity_client = EVOLUTION_ACTIVITY_CLIENT (data);
    progress = GPOINTER_TO_INT (gtk_object_get_data (GTK_OBJECT (activity_client), "my_progress"));

    if (progress < 0)
        progress = 0;

    g_print ("--> Updating %d\n", progress);

    if (! evolution_activity_client_update (activity_client, "Operation Foo in progress",
                        (float) progress / 100.0)) {
        g_warning ("Error when updating operation");
        return FALSE;
    }

    progress ++;
    g_object_set_data (activity_client, "my_progress", GINT_TO_POINTER (progress));

    if (progress > 100) {
        gtk_timeout_add (200, timeout_callback_3, activity_client);
        return FALSE;
    }

    return TRUE;
}

/* Timeout #1: Set busy.  */
static int
timeout_callback_1 (void *data)
{
    EvolutionActivityClient *activity_client;
    gboolean suggest_display;
    GdkPixbuf *animated_icon[2];
    static int count = 0;

#define NUM_ACTIVITIES 10

    animated_icon[0] = gdk_pixbuf_new_from_file (gnome_pixmap_file ("gnome-money.png"));
    animated_icon[1] = NULL;

    g_assert (animated_icon[0] != NULL);

    activity_client = evolution_activity_client_new (parent_shell, COMPONENT_ID,
                             animated_icon,
                             "Operation Foo started!",
                             TRUE,
                             &suggest_display);
    if (activity_client == CORBA_OBJECT_NIL) {
        g_warning ("Cannot create EvolutionActivityClient object");
        return FALSE;
    }

    g_object_set_data (activity_client, "my_progress", GINT_TO_POINTER (-1));

    g_signal_connect (activity_client, "cancel",
              G_CALLBACK (activity_client_cancel_callback), NULL);
    g_signal_connect (activity_client, "show_details",
              G_CALLBACK (activity_client_show_details_callback), NULL);

    g_print ("Component becoming busy -- %s\n", COMPONENT_ID);
    if (suggest_display)
        g_print (" --> Could display dialog box.\n");

    gtk_timeout_add (100, timeout_callback_2, activity_client);

    if (count < NUM_ACTIVITIES) {
        count ++;
        gtk_timeout_add ((rand () % 5 + 1) * 500, timeout_callback_1, NULL);
    }

    return FALSE;
}


static EvolutionShellComponentResult
create_view_fn (EvolutionShellComponent *shell_component,
        const char *physical_uri,
        const char *folder_type,
        const char *view_data,
        BonoboControl **control_return,
        void *closure)
{
    GtkWidget *vbox;
    GtkWidget *label_1, *label_2, *label_3, *label_4;
    GtkWidget *event_box_1, *event_box_2;

    label_1 = gtk_label_new ("This is just a test component, displaying the following URI:");
    label_2 = gtk_label_new (physical_uri);

    if (*view_data) {
        label_3 = gtk_label_new ("And the following view_data:");
        label_4 = gtk_label_new (view_data);
    } else
        label_3 = label_4 = NULL;

    event_box_1 = gtk_event_box_new ();
    event_box_2 = gtk_event_box_new ();

    vbox = gtk_vbox_new (FALSE, 5);

    gtk_box_pack_start (GTK_BOX (vbox), event_box_1, TRUE, TRUE, 0);
    gtk_box_pack_start (GTK_BOX (vbox), label_1, FALSE, TRUE, 0);
    gtk_box_pack_start (GTK_BOX (vbox), label_2, FALSE, TRUE, 0);
    if (label_3) {
        gtk_box_pack_start (GTK_BOX (vbox), label_3, FALSE, TRUE, 0);
        gtk_box_pack_start (GTK_BOX (vbox), label_4, FALSE, TRUE, 0);
    }
    gtk_box_pack_start (GTK_BOX (vbox), event_box_2, TRUE, TRUE, 0);

    gtk_widget_show_all (vbox);

    *control_return = bonobo_control_new (vbox);

    g_assert (timeout_id == 0);
    timeout_id = gtk_timeout_add (2000, timeout_callback_1, NULL);

    return EVOLUTION_SHELL_COMPONENT_OK;
}

static gboolean
request_quit_fn (EvolutionShellComponent *shell_component,
         void *closure)
{
    GtkWidget *confirm_dialog;
    GtkWidget *label;
    int button;

    confirm_dialog = gnome_dialog_new ("Quit?", GNOME_STOCK_BUTTON_OK, GNOME_STOCK_BUTTON_CANCEL, NULL);
    label = gtk_label_new ("Please confirm that you want to quit now.");
    gtk_container_add (GTK_CONTAINER (GNOME_DIALOG (confirm_dialog)->vbox), label);
    gtk_widget_show_all (confirm_dialog);

    button = gnome_dialog_run (GNOME_DIALOG (confirm_dialog));
    gtk_widget_destroy (confirm_dialog);

    if (button == 0)
        return TRUE;    /* OK */
    else
        return FALSE;   /* Cancel */
}


/* Callbacks.  */

static void
owner_set_callback (EvolutionShellComponent *shell_component,
            EvolutionShellClient *shell_client,
            const char *evolution_homedir)
{
    g_assert (parent_shell == NULL);

    g_print ("We have an owner -- home directory is `%s'\n", evolution_homedir);

    parent_shell = shell_client;

    if (evolution_shell_client_get_activity_interface (parent_shell) == CORBA_OBJECT_NIL)
        g_warning ("Shell doesn't have a ::Activity interface -- weird!");

    spit_out_shortcuts (shell_client);

    setup_custom_storage (shell_client);
}

static int
owner_unset_idle_callback (void *data)
{
    gtk_main_quit ();
    return FALSE;
}

static void
owner_unset_callback (EvolutionShellComponent *shell_component,
              void *data)
{
    g_idle_add_full (G_PRIORITY_LOW, owner_unset_idle_callback, NULL, NULL);
}

static void
user_create_new_item_callback (EvolutionShellComponent *shell_component,
                   const char *id,
                   const char *parent_folder_physical_uri,
                   const char *parent_folder_type)
{
    g_print ("\n*** Should create -- %s\n", id);
    g_print ("\n\tType %s, URI %s\n", parent_folder_type, parent_folder_physical_uri);

    if (strcmp (id, "FolderSelector") == 0)
        create_new_folder_selector (shell_component);
}


static void
register_component (void)
{
    EvolutionShellComponent *shell_component;
    int result;

    shell_component = evolution_shell_component_new (folder_types,
                             NULL,
                             create_view_fn,
                             NULL, NULL, NULL, NULL, NULL, NULL,
                             request_quit_fn,
                             NULL);

    g_signal_connect (shell_component, "owner_set",
              G_CALLBACK (owner_set_callback), NULL);
    g_signal_connect (shell_component, "owner_unset",
              G_CALLBACK (owner_unset_callback), NULL);

    evolution_shell_component_add_user_creatable_item (shell_component, "Stuff",
                               "New Stuff", "New _Stuff",
                               "Create some new stuff",
                               NULL,
                               '\0', NULL);
    evolution_shell_component_add_user_creatable_item (shell_component, "MoreStuff",
                               "New More Stuff", "New _More Stuff",
                               "Create more stuff",
                               NULL,
                               'n', NULL);
    evolution_shell_component_add_user_creatable_item (shell_component, "FolderSelector",
                               "Folder Selector", "New Folder _Selector",
                               "Show a folder selector",
                               NULL,
                               's', NULL);

    g_signal_connect (shell_component, "user_create_new_item",
              G_CALLBACK (user_create_new_item_callback), NULL);

    result = oaf_active_server_register (COMPONENT_ID,
                         bonobo_object_corba_objref (BONOBO_OBJECT (shell_component)));

    if (result == OAF_REG_ERROR)
        g_error ("Cannot register active server into OAF");
}


int
main (int argc, char **argv)
{
    CORBA_ORB orb;

    bindtextdomain (PACKAGE, EVOLUTION_LOCALEDIR);
    textdomain (PACKAGE);

    gnome_init_with_popt_table ("evolution-test-component", VERSION,
                    argc, argv, oaf_popt_options, 0, NULL);

    orb = oaf_init (argc, argv);

    if (bonobo_init (orb, CORBA_OBJECT_NIL, CORBA_OBJECT_NIL) == FALSE)
        g_error ("Cannot initialize the test component.");

    register_configuration_control_factory ();

    register_component ();

    g_print ("Test Component up and running.\n");

    bonobo_main ();

    return 0;
}