nautilus-application.c 19.4 KB
Newer Older
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
1
/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
2 3 4 5 6 7 8

/*
 *  Nautilus
 *
 *  Copyright (C) 1999, 2000 Red Hat, Inc.
 *  Copyright (C) 2000 Eazel, Inc.
 *
9
 *  This program is free software; you can redistribute it and/or
10 11 12 13
 *  modify it under the terms of the GNU General Public License as
 *  published by the Free Software Foundation; either version 2 of the
 *  License, or (at your option) any later version.
 *
14
 *  This program is distributed in the hope that it will be useful,
15 16 17 18 19
 *  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
20
 *  along with this program; if not, write to the Free Software
21 22 23 24 25 26
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  Author: Elliot Lee <sopwith@redhat.com>,
 *
 */

27
#include <config.h>
28
#include "nautilus-application.h"
29

30 31 32 33 34 35
/* FIXME: This is a workaround for ORBit bug where including idl files
 * in other idl files causes trouble.
 */
#include "nautilus-shell-interface.h"
#define nautilus_view_component_H

36
#include "file-manager/fm-icon-view.h"
37
#include "file-manager/fm-desktop-icon-view.h"
38
#include "file-manager/fm-list-view.h"
39
#include "file-manager/fm-search-list-view.h"
40 41 42 43 44 45
#include "nautilus-desktop-window.h"
#include "nautilus-first-time-druid.h"
#include "nautilus-shell.h"
#include <bonobo.h>
#include <libnautilus-extensions/nautilus-file-utilities.h>
#include <libnautilus-extensions/nautilus-global-preferences.h>
46
#include <libnautilus-extensions/nautilus-gtk-macros.h>
47
#include <libnautilus-extensions/nautilus-icon-factory.h>
48
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
49
#include <libnautilus-extensions/nautilus-string-list.h>
50
#include <libnautilus-extensions/nautilus-undo-manager.h>
51
#include <liboaf/liboaf.h>
52

53 54 55
#define FACTORY_IID	"OAFIID:nautilus_factory:bd1e1862-92d7-4391-963e-37583f0daef3"
#define ICON_VIEW_IID	"OAFIID:nautilus_file_manager_icon_view:42681b21-d5ca-4837-87d2-394d88ecc058"
#define LIST_VIEW_IID	"OAFIID:nautilus_file_manager_list_view:521e489d-0662-4ad7-ac3a-832deabe111c"
56
#define SEARCH_LIST_VIEW_IID "OAFIID:nautilus_file_manager_search_list_view:b186e381-198e-43cf-9c46-60b6bb35db0b"
57
#define SHELL_IID	"OAFIID:nautilus_shell:cd5183b2-3913-4b74-9b8e-10528b0de08d"
58

59 60 61 62 63 64 65 66 67 68 69
static CORBA_boolean manufactures                                (PortableServer_Servant    servant,
								  const CORBA_char         *iid,
								  CORBA_Environment        *ev);
static CORBA_Object  create_object                               (PortableServer_Servant    servant,
								  const CORBA_char         *iid,
								  const Bonobo_stringlist  *params,
								  CORBA_Environment        *ev);
static void          nautilus_application_initialize             (NautilusApplication      *application);
static void          nautilus_application_initialize_class       (NautilusApplicationClass *klass);
static void          nautilus_application_destroy                (GtkObject                *object);
static void          nautilus_application_check_user_directories (NautilusApplication      *application);
70
static gboolean	     check_for_and_run_as_super_user 		 (void);
Ramiro Estrugo's avatar
Ramiro Estrugo committed
71
static gboolean	     need_to_show_first_time_druid		 (void);
72 73 74 75

NAUTILUS_DEFINE_CLASS_BOILERPLATE (NautilusApplication, nautilus_application, BONOBO_OBJECT_TYPE)

static POA_Bonobo_GenericFactory__epv factory_epv = {
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
76
	NULL,
77 78 79 80 81 82 83
	&manufactures,
	&create_object
};
static PortableServer_ServantBase__epv base_epv;
static POA_Bonobo_GenericFactory__vepv vepv = {
	&base_epv,
	&factory_epv
84 85 86
};

static CORBA_boolean
87 88 89
manufactures (PortableServer_Servant servant,
	      const CORBA_char *iid,
	      CORBA_Environment *ev)
90
{
91
	return strcmp (iid, ICON_VIEW_IID) == 0
92
		|| strcmp (iid, NAUTILUS_DESKTOP_ICON_VIEW_IID) == 0
93
		|| strcmp (iid, LIST_VIEW_IID) == 0
94
		|| strcmp (iid, SEARCH_LIST_VIEW_IID) == 0
95
		|| strcmp (iid, SHELL_IID) == 0;
96 97 98
}

static CORBA_Object
99 100 101 102
create_object (PortableServer_Servant servant,
	       const CORBA_char *iid,
	       const Bonobo_stringlist *params,
	       CORBA_Environment *ev)
103
{
104
	BonoboObject *object;
105
	FMDirectoryView *directory_view;
106
	NautilusApplication *application;
107

108
	if (strcmp (iid, ICON_VIEW_IID) == 0) {
109
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_icon_view_get_type (), NULL));
110
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
111 112 113
	} else if (strcmp (iid, NAUTILUS_DESKTOP_ICON_VIEW_IID) == 0) {
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_desktop_icon_view_get_type (), NULL));
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
114
	} else if (strcmp (iid, LIST_VIEW_IID) == 0) {
115
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_list_view_get_type (), NULL));
116
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
117 118 119
	} else if (strcmp (iid, SEARCH_LIST_VIEW_IID) == 0) {
		directory_view = FM_DIRECTORY_VIEW (gtk_object_new (fm_search_list_view_get_type (), NULL));
		object = BONOBO_OBJECT (fm_directory_view_get_nautilus_view (directory_view));
120
	} else if (strcmp (iid, SHELL_IID) == 0) {
121 122
		application = NAUTILUS_APPLICATION (((BonoboObjectServant *) servant)->bonobo_object);
		object = BONOBO_OBJECT (nautilus_shell_new (application));
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
123
	} else {
124
		return CORBA_OBJECT_NIL;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
125
	}
126 127

	return CORBA_Object_duplicate (bonobo_object_corba_objref (object), ev);
128 129
}

130
static CORBA_Object
131 132 133
create_factory (PortableServer_POA poa,
		NautilusApplication *bonobo_object,
		CORBA_Environment *ev)
134
{
135
	BonoboObjectServant *servant;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
136

137 138
	servant = g_new0 (BonoboObjectServant, 1);
	((POA_Bonobo_GenericFactory *) servant)->vepv = &vepv;
139 140
	POA_Bonobo_GenericFactory__init ((PortableServer_Servant) servant, ev);
	return bonobo_object_activate_servant (BONOBO_OBJECT (bonobo_object), servant);
141 142
}

143 144 145 146 147 148 149 150 151 152 153
/* Keeps track of the one and only desktop window. */
static NautilusDesktopWindow *nautilus_application_desktop;

/* Keeps track of all the nautilus windows. */
static GSList *nautilus_application_window_list;

GSList *nautilus_application_windows (void)
{
	return nautilus_application_window_list;
}

154
static void
155
nautilus_application_initialize_class (NautilusApplicationClass *klass)
156
{
157
	GTK_OBJECT_CLASS (klass)->destroy = nautilus_application_destroy;
158 159 160
}

static void
161
nautilus_application_initialize (NautilusApplication *application)
162
{
163
	CORBA_Environment ev;
164
	CORBA_Object corba_object;
165

166
	CORBA_exception_init (&ev);
167
	corba_object = create_factory (bonobo_poa (), application, &ev);
168 169 170 171 172
	if (ev._major != CORBA_NO_EXCEPTION) {
		g_error ("could not create factory");
	}
	CORBA_exception_free (&ev);

173
	bonobo_object_construct (BONOBO_OBJECT (application), corba_object);
174

Ramiro Estrugo's avatar
Ramiro Estrugo committed
175 176 177 178 179 180
	/* Initialize preferences. This is needed so that proper 
	 * defaults are available before any preference peeking 
	 * happens.
	 */
	nautilus_global_preferences_initialize ();

181 182
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();
183 184
}

185 186
NautilusApplication *
nautilus_application_new (void)
187
{
188
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
189 190 191
}

static void
192
nautilus_application_destroy (GtkObject *object)
193
{
194 195
	/* Shut down preferences. This is needed so that the global
	 * preferences object and all its allocations are freed. Not
Ramiro Estrugo's avatar
Ramiro Estrugo committed
196
	 * calling this function would NOT cause the user to lose
197 198
	 * preferences.  The only effect would be to leak those
	 * objects - which would be collected at exit() time anyway,
199
	 * but it adds noise to memory profile tool runs.
200 201
	 */
	nautilus_global_preferences_shutdown ();
202

203
	nautilus_bookmarks_exiting ();
204

205 206
	NAUTILUS_CALL_PARENT_CLASS (GTK_OBJECT_CLASS, destroy, (object));
}
207

208
static void
209
nautilus_application_check_user_directories (NautilusApplication *application)
210
{
211 212 213
	char			*user_directory;
	char			*user_main_directory;
	char			*desktop_directory;
214 215
	NautilusStringList	*dir_list;
	
216
	g_assert (NAUTILUS_IS_APPLICATION (application));
217 218 219 220 221 222 223 224 225 226 227 228 229 230

	user_directory = nautilus_get_user_directory ();
	user_main_directory = nautilus_get_user_main_directory ();
	desktop_directory = nautilus_get_desktop_directory ();

	dir_list = nautilus_string_list_new ();
	
	/* FIXME bugzilla.eazel.com 1115: Need better name for "User Directory"
	 * and "User Data Directory".
	 */

	if (!g_file_test (user_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Directory");
	}
231
	g_free (user_directory);
232 233 234 235
	    
	if (!g_file_test (user_main_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Main Directory");
	}
236
	g_free (user_main_directory);
237 238 239 240
	    
	if (!g_file_test (desktop_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "Desktop Directory");
	}
241
	g_free (desktop_directory);
242 243 244 245 246 247 248 249 250 251 252 253

	if (nautilus_string_list_get_length (dir_list) > 0) {
		char *dir_list_concatenated;
		char *error_string;

		dir_list_concatenated = nautilus_string_list_as_concatenated_string (dir_list, "\n");
		
		error_string = g_strdup_printf ("%s\n\n%s\n\n%s",
						"The following directories are missing:",
						dir_list_concatenated,
						"Please restart Nautilus to fix this problem.");

254
		nautilus_error_dialog (error_string, NULL);
255 256 257 258 259 260 261 262

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291
static int
nautilus_strv_length (const char * const *strv)
{
	const char * const *p;

	for (p = strv; *p != NULL; p++) { }
	return p - strv;
}

static Nautilus_URIList *
nautilus_make_uri_list_from_strv (const char * const *strv)
{
	int length, i;
	Nautilus_URIList *uri_list;

	length = nautilus_strv_length (strv);

	uri_list = Nautilus_URIList__alloc ();
	uri_list->_maximum = length;
	uri_list->_length = length;
	uri_list->_buffer = CORBA_sequence_Nautilus_URI_allocbuf (length);
	for (i = 0; i < length; i++) {
		uri_list->_buffer[i] = CORBA_string_dup (strv[i]);
	}
	CORBA_sequence_set_release (uri_list, CORBA_TRUE);

	return uri_list;
}

292
gboolean
293
nautilus_application_startup (NautilusApplication *application,
294 295 296
			      gboolean kill_shell,
			      gboolean stop_desktop,
			      gboolean start_desktop,
297
			      const char *urls[])
298
{
299 300
	CORBA_Environment ev;
	Nautilus_Shell shell;
301 302 303
	OAF_RegistrationResult result;
	const char *message, *detailed_message;
	GnomeDialog *dialog;
304
	Nautilus_URIList *url_list;
305
	gboolean need_main_loop;
306

307 308 309 310
	/* Perform check for nautilus being run as super user */
	if (!check_for_and_run_as_super_user ()) {
		return FALSE;
	}
Ramiro Estrugo's avatar
Ramiro Estrugo committed
311 312 313

	/* Run the first time startup druid if needed. */
	if (need_to_show_first_time_druid ()) {
314
		nautilus_first_time_druid_show (application, start_desktop, urls);
315
		return TRUE;
316
	}
Ramiro Estrugo's avatar
Ramiro Estrugo committed
317
	
318
	/* Check the user's ~/.nautilus directories and post warnings
319
	 * if there are problems.
320
	 */
321
	nautilus_application_check_user_directories (application);
322

323 324
	CORBA_exception_init (&ev);

325 326 327 328 329 330 331 332 333
	/* Start up the factory. */
	for (;;) {
		/* Try to register the file manager view factory with OAF. */
		result = oaf_active_server_register
			(FACTORY_IID,
			 bonobo_object_corba_objref (BONOBO_OBJECT (application)));
		switch (result) {
		case OAF_REG_SUCCESS:
			/* We are registered with OAF and all is right with the world. */
334 335
		case OAF_REG_ALREADY_ACTIVE:
			/* Another copy of . */
336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354
			message = NULL;
			break;
		case OAF_REG_NOT_LISTED:
			/* Can't register myself due to trouble locating the
			 * nautilus.oafinfo file. This has happened when you
			 * launch Nautilus with an LD_LIBRARY_PATH that
			 * doesn't include the directory containg the oaf
			 * library. It could also happen if the
			 * nautilus.oafinfo file was not present for some
			 * reason. Sometimes killing oafd and gconfd fixes
			 * this problem but we don't exactly understand why,
			 * since neither of the above causes explain it.
			 */
			message = _("Nautilus can't be used now. "
				    "Rebooting the computer or installing "
				    "Nautilus again may fix the problem.");
			/* FIXME: The guesses and stuff here are lame. */
			detailed_message = _("Nautilus can't be used now. "
					     "Rebooting the computer or installing "
355
					     "Nautilus again may fix the problem.\n\n"
356 357 358 359
					     "OAF couldn't locate the nautilus.oafinfo file. "
					     "One cause of this seems to be an LD_LIBRARY_PATH "
					     "that does not include the oaf library's directory. "
					     "Another possible cause would be bad install "
360
					     "with a missing nautilus.oafinfo file.\n\n"
361
					     "Sometimes killing oafd and gconfd fixes "
362
					     "the problem, but we don't know why.\n\n"
363 364 365 366 367 368 369 370 371 372
					     "We need a much less confusing message here for Nautilus 1.0.");
			break;
		default:
			/* This should never happen. */
			g_warning ("bad error code from oaf_active_server_register");
		case OAF_REG_ERROR:
			/* Some misc. error (can never happen with current
			 * version of OAF). Show dialog and terminate the
			 * program.
			 */
373 374 375 376 377
			/* FIXME: Looks like this does happen with the
			 * current OAF. I guess I read the code
			 * wrong. Need to figure out when and make a
			 * good message.
			 */
378 379 380 381 382
			message = _("Nautilus can't be used now, due to an unexpected error.");
			detailed_message = _("Nautilus can't be used now, due to an unexpected error "
					     "from OAF when attempting to register the file manager view server.");
			break;
		}
383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401

		/* Get the shell object. */
		if (message == NULL) {
			shell = oaf_activate_from_id (SHELL_IID, 0, NULL, NULL);
			if (!CORBA_Object_is_nil (shell, &ev)) {
				break;
			}

			/* If we couldn't find ourselves it's a bad problem so
			 * we better stop looping.
			 */
			if (result == OAF_REG_SUCCESS) {
				/* FIXME: When can this happen? */
				message = _("Nautilus can't be used now, due to an unexpected error.");
				detailed_message = _("Nautilus can't be used now, due to an unexpected error "
						     "from OAF when attempting to locate the factory.");
			}
		}

402 403 404 405 406
		if (message != NULL) {
			dialog = nautilus_error_dialog_with_details
				(message, detailed_message, NULL);
			gtk_signal_connect (GTK_OBJECT (dialog), "destroy",
					    gtk_main_quit, NULL);
407
			need_main_loop = TRUE;
408
			goto out;
409 410 411
		}
	}

412 413 414 415 416 417
	if (kill_shell) {
		Nautilus_Shell_quit (shell, &ev);
	} else {
		if (start_desktop) {
			Nautilus_Shell_start_desktop (shell, &ev);
		}
418

419 420 421
		if (stop_desktop) {
			Nautilus_Shell_stop_desktop (shell, &ev);
		}
422

423 424 425 426 427 428 429 430
	  	/* Create the other windows. */
		if (urls != NULL) {
			url_list = nautilus_make_uri_list_from_strv (urls);
			Nautilus_Shell_open_windows (shell, url_list, &ev);
			CORBA_free (url_list);
		} else if (!start_desktop && !stop_desktop) {
			Nautilus_Shell_open_default_window (shell, &ev);
		}
431
	}
432

433 434 435 436
	/* We're done with the shell now, so let it go. */
	Nautilus_Shell_unref (shell, &ev);
	CORBA_Object_release (shell, &ev);

437 438 439
	need_main_loop = nautilus_application_window_list != NULL
		|| nautilus_application_desktop != NULL;

440
 out:
441
	CORBA_exception_free (&ev);
442
	return need_main_loop;
443 444 445
}

static void
446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470
nautilus_application_destroy_desktop_window (GtkObject *obj, NautilusApplication *application)
{
	nautilus_application_desktop = NULL;
}

static NautilusDesktopWindow *
nautilus_application_create_desktop_window (NautilusApplication *application)
{
	NautilusDesktopWindow *window;
	
	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);

	window = nautilus_desktop_window_new (application);

	gtk_signal_connect (GTK_OBJECT (window),
			    "destroy", nautilus_application_destroy_desktop_window,
			    application);

	nautilus_application_desktop = window;

	return window;
}

void
nautilus_application_open_desktop (NautilusApplication *application)
471
{
472 473 474 475 476 477 478 479 480 481 482
	NautilusDesktopWindow *desktop_window;

	if (nautilus_application_desktop == NULL) {
		desktop_window = nautilus_application_create_desktop_window (application);
	}
	gtk_widget_show (GTK_WIDGET (desktop_window));
}

void
nautilus_application_close_desktop (void)
{
483 484 485 486 487
	if (nautilus_application_desktop != NULL) {
		gtk_widget_destroy (GTK_WIDGET (nautilus_application_desktop));
	}
	
	if (nautilus_application_window_list == NULL && gtk_main_level () > 0) {
488 489
		gtk_main_quit ();
	}
490 491
}

492 493 494
void
nautilus_application_close_all_windows (void)
{
495
	while (nautilus_application_window_list != NULL) {
496 497 498 499 500
		nautilus_window_close (NAUTILUS_WINDOW (nautilus_application_window_list->data));
	}
}


501 502
static void
nautilus_application_destroy_window (GtkObject *obj, NautilusApplication *application)
503
{
504 505 506 507
	nautilus_application_window_list = g_slist_remove (nautilus_application_window_list, obj);
	if (nautilus_application_window_list == NULL && nautilus_application_desktop == NULL) {
		gtk_main_quit ();
	}
508 509 510
}

NautilusWindow *
511
nautilus_application_create_window (NautilusApplication *application)
512
{
513
	NautilusWindow *window;
514 515

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
516
	
517
	window = NAUTILUS_WINDOW (gtk_object_new (nautilus_window_get_type (),
518
						  "app", GTK_OBJECT (application),
519 520
						  "app_id", "nautilus", NULL));
	gtk_signal_connect (GTK_OBJECT (window),
521 522 523
			    "destroy", nautilus_application_destroy_window,
			    application);

524
	nautilus_application_window_list = g_slist_prepend (nautilus_application_window_list, window);
525

Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
526
	/* Do not yet show the window. It will be shown later on if it can
527 528 529
	 * successfully display its initial URI. Otherwise it will be destroyed
	 * without ever having seen the light of day.
	 */
530

531
	return window;
532
}
533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563

/*
 * check_for_super_user:
 *
 * Puts out a warning if the user is running nautilus as root.
 */
static gboolean
check_for_and_run_as_super_user (void)
{
	GtkWidget *warning_dlg;
	gint result;
	if (geteuid () != 0) {
		return TRUE;
	}

	warning_dlg = gnome_message_box_new (
		_("You are running Nautilus as root.\n\n"
		  "As root, you can damage your system if you are not careful, and\n"
		  "Nautilus will not stop you from doing it."),
		GNOME_MESSAGE_BOX_WARNING,
		GNOME_STOCK_BUTTON_OK, GNOME_STOCK_BUTTON_CANCEL, NULL);

	result = gnome_dialog_run_and_close (GNOME_DIALOG (warning_dlg));

	/* If they pressed cancel, quit the application */
	if (result == 1) {
		return FALSE;
	}

	return TRUE;
}
Ramiro Estrugo's avatar
Ramiro Estrugo committed
564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626

/*
 * need_to_show_first_time_druid
 *
 * Determine whether Nautilus needs to show the first time druid.
 * 
 * Note that the flag file indicating whether the druid has been
 * presented is: ~/.nautilus/first-time-wizard.
 *
 * Another alternative could be to use preferences to store this flag
 * However, there because of bug 1229 this is not yet possible.
 *
 * Also, for debugging purposes, it is convenient to have just one file
 * to kill in order to test the startup wizard:
 *
 * rm -f ~/.nautilus/first-time-wizard
 *
 * In order to accomplish the same thing with preferences, you would have
 * to either kill ALL your preferences or spend time digging in ~/.gconf
 * xml files finding the right one.
 */
static gboolean
need_to_show_first_time_druid (void)
{
	gboolean result;
	char *user_directory;
	char *druid_flag_file_name;

	user_directory = nautilus_get_user_directory ();

	druid_flag_file_name = g_strdup_printf ("%s/%s",
						user_directory,
						"first-time-wizard-flag");
	g_free (user_directory);

	result = !g_file_exists (druid_flag_file_name);

	/* Touch the file so that next time around out states changes */
	if (result) {
		FILE *stream;
		
		stream = fopen (druid_flag_file_name, "w");

		/* If for some crazy reason we cant touch the file,
		 * then the worst that will happen is that the user
		 * will get the startup druid again next time, so we
		 * dont report this failure to the user.
		 */
		if (stream) {
			const char *blurb =
				_("Existence of this file indicates that the Nautilus configuration wizard\n"
				  "has been presented.\n\n"
				  "You can manually erase this file to present the wizard again.\n\n");
			
			fwrite (blurb, sizeof (char), strlen (blurb), stream);
			fclose (stream);
		}
	}
	
	g_free (druid_flag_file_name);

	return result;
}