From da9fc39c3fadbcdf20c8e2c9c487e78f0c4f348e Mon Sep 17 00:00:00 2001 From: Dan Winship Date: Fri, 14 Apr 2000 14:43:00 +0000 Subject: Fix up the warning message a bit. (folder_browser_factory): Make the * folder-browser-factory.c (development_warning): Fix up the warning message a bit. (folder_browser_factory): Make the warning bypassable. svn path=/trunk/; revision=2425 --- mail/folder-browser-factory.c | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'mail/folder-browser-factory.c') diff --git a/mail/folder-browser-factory.c b/mail/folder-browser-factory.c index a6075f7858..57b452a286 100644 --- a/mail/folder-browser-factory.c +++ b/mail/folder-browser-factory.c @@ -75,16 +75,17 @@ development_warning () warning_dialog = gnome_dialog_new ( "Don't do that", - "I know what I'm doing,\nI want to crash my mail files", + "I know what I'm doing,\nI want to lose mail!", "I'll try it later", NULL); label = gtk_label_new ( - _("This is a development version of Evolution.\n " - "Using the mail component on your mail files\n " - "is extremely hazardous.\n" - "Please backup all your mails before trying\n " - "this program. \n You have been warned\n")); + _("This is a development version of Evolution.\n" + "Using the mail component on your mail files\n" + "is extremely hazardous.\n\n" + "Do not run this program on your real mail\n " + "and do not give it access to your real mail server.\n\n" + "You have been warned\n")); gtk_widget_show (label); gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (warning_dialog)->vbox), @@ -139,7 +140,6 @@ random_cb (GtkWidget *button, gpointer user_data) printf ("Yow! I am called back!\n"); } - static void control_activate (BonoboControl *control, BonoboUIHandler *uih) { @@ -244,10 +244,11 @@ folder_browser_factory (BonoboGenericFactory *factory, void *closure) { BonoboControl *control; GtkWidget *folder_browser; - gint warning_result; + gint warning_result = 0; - warning_result = development_warning (); + if (!getenv ("EVOLVE_ME_HARDER")) + warning_result = development_warning (); if (warning_result) folder_browser = gtk_label_new ("This should be the mail component"); -- cgit v1.2.3