aboutsummaryrefslogtreecommitdiffstats
path: root/mail/folder-browser-factory.c
blob: 9c22bfc2a874e038604bc9b0e075b34a98ee117c (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * folder-browser-factory.c: A Bonobo Control factory for Folder Browsers
 *
 * Author:
 *   Miguel de Icaza (miguel@helixcode.com)
 *
 * (C) 2000 Helix Code, Inc.
 */
#include <config.h>
#include <gnome.h>
#include <bonobo/bonobo-main.h>
#include <bonobo/bonobo-object.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-control.h> 
#include "e-util/e-util.h"
#include "e-util/e-gui-utils.h"
#include "folder-browser.h"
#include "main.h"


static const gchar *warning_dialog_buttons[] = {
    "Cancel",
    "OK",
    NULL
};
                       
static int
development_warning ()
{
    gint result;
    GtkWidget *label, *warning_dialog;

    warning_dialog = gnome_dialog_new ("Don't do that",
                   "I know what I'm doing",
                   "I'll try it later",
                   NULL);

    label = gtk_label_new ("This is a developement version of Evolution.\n "
                   "Using the mail component on your mail files\n "
                   "is extremely hazardous. It could destroy all your\n"
                   "mails. Please backup all your mails before trying\n "
                   "this program. You have been warned\n");
    gtk_widget_show (label);

    gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (warning_dialog)->vbox), 
                label, TRUE, TRUE, 0);

    result = gnome_dialog_run (GNOME_DIALOG (warning_dialog));
    
    gtk_object_unref (GTK_OBJECT (label));
    gtk_object_unref (GTK_OBJECT (warning_dialog));

    return result;
    
} 

/*
 * Creates the Folder Browser, wraps it in a Bonobo Control, and
 * sets the Bonobo Control properties to point to the Folder Browser
 * Properties
 */
static BonoboObject *
folder_browser_factory (BonoboGenericFactory *factory, void *closure)
{
    BonoboControl *control;
    GtkWidget *folder_browser;
    gint warning_result;

    warning_result = development_warning ();
    
    if (warning_result) 
        folder_browser = gtk_label_new ("This should be the mail component");
    else {
        folder_browser = folder_browser_new ();
        folder_browser_set_uri (FOLDER_BROWSER (folder_browser), "inbox");
    }
    
    if (folder_browser == NULL)
        return NULL;

    gtk_widget_show(folder_browser);
    
    control = bonobo_control_new (folder_browser);
    
    if (control == NULL){
        gtk_object_destroy (GTK_OBJECT (folder_browser));
        return NULL;
    }
    
    if (!warning_result)
        bonobo_control_set_property_bag (
             control,
             FOLDER_BROWSER (folder_browser)->properties);
    
    return BONOBO_OBJECT (control);

}

void
folder_browser_factory_init (void)
{
    static BonoboGenericFactory *bonobo_folder_browser_factory = NULL;

    if (bonobo_folder_browser_factory != NULL)
        return;

    bonobo_folder_browser_factory =
        bonobo_generic_factory_new (
            "GOADID:Evolution:FolderBrowserFactory:1.0",
            folder_browser_factory, NULL);

    if (bonobo_folder_browser_factory == NULL){
        e_notice (NULL, GNOME_MESSAGE_BOX_ERROR,
              _("We are sorry, Evolution's Folder Browser can not be initialized.")); 
        exit (1);
    }
}