nautilus-application.c 18.6 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
 *  Nautilus 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
 *  Nautilus 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
/* FIXME bugzilla.eazel.com 2535: This is a workaround for ORBit bug where including idl files
 * in other idl files causes trouble. We should remove this workaround when the bug is fixed.
32 33 34 35
 */
#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
#include "nautilus-desktop-window.h"
#include "nautilus-first-time-druid.h"
#include "nautilus-shell.h"
43
#include "nautilus-main.h"
44 45 46
#include <bonobo.h>
#include <libnautilus-extensions/nautilus-file-utilities.h>
#include <libnautilus-extensions/nautilus-global-preferences.h>
47
#include <libnautilus-extensions/nautilus-gtk-macros.h>
48
#include <libnautilus-extensions/nautilus-icon-factory.h>
49
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
50
#include <libnautilus-extensions/nautilus-string-list.h>
51
#include <libnautilus-extensions/nautilus-undo-manager.h>
52
#include <liboaf/liboaf.h>
53

54 55 56
#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"
57
#define SEARCH_LIST_VIEW_IID "OAFIID:nautilus_file_manager_search_list_view:b186e381-198e-43cf-9c46-60b6bb35db0b"
58
#define SHELL_IID	"OAFIID:nautilus_shell:cd5183b2-3913-4b74-9b8e-10528b0de08d"
59

60 61 62 63 64
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,
Maciej Stachowiak's avatar
Maciej Stachowiak committed
65
								  const GNOME_stringlist  *params,
66 67 68 69 70
								  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);
71
static gboolean	     check_for_and_run_as_super_user 		 (void);
Ramiro Estrugo's avatar
Ramiro Estrugo committed
72
static gboolean	     need_to_show_first_time_druid		 (void);
73 74 75

NAUTILUS_DEFINE_CLASS_BOILERPLATE (NautilusApplication, nautilus_application, BONOBO_OBJECT_TYPE)

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

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

static CORBA_Object
100 101
create_object (PortableServer_Servant servant,
	       const CORBA_char *iid,
Maciej Stachowiak's avatar
Maciej Stachowiak committed
102
	       const GNOME_stringlist *params,
103
	       CORBA_Environment *ev)
104
{
105
	BonoboObject *object;
106
	FMDirectoryView *directory_view;
107
	NautilusApplication *application;
108

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

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

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

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

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

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

GSList *nautilus_application_windows (void)
{
	return nautilus_application_window_list;
}

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

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

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

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

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

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

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

static void
193
nautilus_application_destroy (GtkObject *object)
194
{
195 196
	/* 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
197
	 * calling this function would NOT cause the user to lose
198 199
	 * preferences.  The only effect would be to leak those
	 * objects - which would be collected at exit() time anyway,
200
	 * but it adds noise to memory profile tool runs.
201 202
	 */
	nautilus_global_preferences_shutdown ();
203

204
	nautilus_bookmarks_exiting ();
205

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

209
static void
210
nautilus_application_check_user_directories (NautilusApplication *application)
211
{
212 213 214
	char			*user_directory;
	char			*user_main_directory;
	char			*desktop_directory;
215 216
	NautilusStringList	*dir_list;
	
217
	g_assert (NAUTILUS_IS_APPLICATION (application));
218 219 220 221 222

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

223
	dir_list = nautilus_string_list_new (TRUE);
224 225
	
	/* FIXME bugzilla.eazel.com 1115: Need better name for "User Directory"
226 227
	 * and "User Data Directory". Perhaps it's OK to use the word "directory"
	 * instead of "folder" in this technical error case.
228 229 230
	 */

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

	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.");

256
		nautilus_error_dialog (error_string, _("Nautilus: Missing directories"), NULL);
257 258 259 260 261 262 263 264

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

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 292 293
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;
}

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

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

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

325 326
	CORBA_exception_init (&ev);

327 328 329 330 331 332 333 334 335
	/* 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. */
336 337
		case OAF_REG_ALREADY_ACTIVE:
			/* Another copy of . */
338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353
			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.");
354
			/* FIXME bugzilla.eazel.com 2536: The guesses and stuff here are lame. */
355 356
			detailed_message = _("Nautilus can't be used now. "
					     "Rebooting the computer or installing "
357
					     "Nautilus again may fix the problem.\n\n"
358 359 360 361
					     "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 "
362
					     "with a missing nautilus.oafinfo file.\n\n"
363
					     "Sometimes killing oafd and gconfd fixes "
364
					     "the problem, but we don't know why.\n\n"
365 366 367 368 369 370 371 372 373 374
					     "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.
			 */
375
			/* FIXME bugzilla.eazel.com 2537: Looks like this does happen with the
376 377 378 379
			 * current OAF. I guess I read the code
			 * wrong. Need to figure out when and make a
			 * good message.
			 */
380 381 382 383 384
			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;
		}
385 386 387 388 389 390 391 392 393 394 395 396

		/* 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) {
397
				/* FIXME bugzilla.eazel.com 2538: When can this happen? */
398 399 400 401 402 403
				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.");
			}
		}

404
		if (message != NULL) {
405
			dialog = nautilus_error_dialog_with_details (message, NULL, detailed_message, NULL);
406 407
			/* We need the main event loop so the user has a chance to see the dialog. */
			nautilus_main_event_loop_register (GTK_OBJECT (dialog));
408
			goto out;
409 410 411
		}
	}

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

421 422 423
		if (stop_desktop) {
			Nautilus_Shell_stop_desktop (shell, &ev);
		}
424

425 426 427 428 429 430 431 432
	  	/* 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);
		}
433
	}
434

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

439
 out:
440
	CORBA_exception_free (&ev);
441 442 443
}

static void
444 445
nautilus_application_create_desktop_window (NautilusApplication *application)
{
446 447
	g_return_if_fail (nautilus_application_desktop_window == NULL);
	g_return_if_fail (NAUTILUS_IS_APPLICATION (application));
448

449 450
	nautilus_application_desktop_window = nautilus_desktop_window_new (application);
	gtk_widget_show (GTK_WIDGET (nautilus_application_desktop_window));
451 452 453 454
}

void
nautilus_application_open_desktop (NautilusApplication *application)
455
{
456 457
	if (nautilus_application_desktop_window == NULL) {
		nautilus_application_create_desktop_window (application);
458 459 460 461 462 463
	}
}

void
nautilus_application_close_desktop (void)
{
464
	if (nautilus_application_desktop_window != NULL) {
465
		gtk_widget_destroy (GTK_WIDGET (nautilus_application_desktop_window));
466
		nautilus_application_desktop_window = NULL;
467
	}	
468 469
}

470 471 472
void
nautilus_application_close_all_windows (void)
{
473
	while (nautilus_application_window_list != NULL) {
474 475 476 477
		nautilus_window_close (NAUTILUS_WINDOW (nautilus_application_window_list->data));
	}
}

478
static void
479
nautilus_application_destroyed_window (GtkObject *object, NautilusApplication *application)
480
{
481
	nautilus_application_window_list = g_slist_remove (nautilus_application_window_list, object);
482 483 484
}

NautilusWindow *
485
nautilus_application_create_window (NautilusApplication *application)
486
{
487
	NautilusWindow *window;
488 489

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
490
	
491
	window = NAUTILUS_WINDOW (gtk_object_new (nautilus_window_get_type (),
492
						  "app", GTK_OBJECT (application),
493 494
						  "app_id", "nautilus", NULL));
	gtk_signal_connect (GTK_OBJECT (window),
495
			    "destroy", nautilus_application_destroyed_window,
496 497
			    application);

498
	nautilus_application_window_list = g_slist_prepend (nautilus_application_window_list, window);
499

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

505
	return window;
506
}
507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537

/*
 * 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
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 564 565 566 567 568 569 570 571 572

/*
 * 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);

573
	result = !g_file_exists (druid_flag_file_name);	
Ramiro Estrugo's avatar
Ramiro Estrugo committed
574 575 576 577
	g_free (druid_flag_file_name);

	return result;
}