diff options
| -rw-r--r-- | mail/test-mail.c | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/mail/test-mail.c b/mail/test-mail.c new file mode 100644 index 0000000000..883c7fedf4 --- /dev/null +++ b/mail/test-mail.c @@ -0,0 +1,58 @@ +/* + * Tests the mail summary display bonobo component + * + * Author: + * Miguel de Icaza (miguel@kernel.org) + * + * (C) 2000 Helix Code, Inc. + */ +#include <gnome.h> +#include <bonobo.h> + +static void +create_container (void) +{ + GtkWidget *window, *control; + + window = gtk_window_new (GTK_WINDOW_TOPLEVEL); + gtk_widget_show (window); + + control = bonobo_widget_new_control ("GOADID:Evolution:FolderBrowser:1.0"); + if (control == NULL){ + printf ("Could not launch mail control\n"); + exit (1); + } + gtk_container_add (GTK_CONTAINER (window), control); + + gtk_widget_show (window); + gtk_widget_show (control); +} + +int +main (int argc, char *argv []) +{ + CORBA_Environment ev; + CORBA_ORB orb; + + CORBA_exception_init (&ev); + + gnome_CORBA_init ("sample-control-container", "1.0", &argc, argv, 0, &ev); + + CORBA_exception_free (&ev); + + orb = gnome_CORBA_ORB (); + + if (bonobo_init (orb, NULL, NULL) == FALSE) + g_error ("Could not initialize Bonobo\n"); + + bonobo_activate (); + + create_container (); + + /* + * Main loop + */ + gtk_main (); + + return 0; +} |