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
#include "file-manager/fm-desktop-icon-view.h"
31
#include "file-manager/fm-icon-view.h"
32
#include "file-manager/fm-list-view.h"
33
#include "file-manager/fm-search-list-view.h"
34 35
#include "nautilus-desktop-window.h"
#include "nautilus-first-time-druid.h"
36
#include "nautilus-main.h"
37 38 39 40 41
#include "nautilus-shell-interface.h"
#include "nautilus-shell.h"
#include <bonobo/bonobo-main.h>
#include <bonobo/bonobo-object.h>
#include <gtk/gtksignal.h>
42 43 44 45
#include <libgnome/gnome-i18n.h>
#include <libgnome/gnome-util.h>
#include <libgnomeui/gnome-messagebox.h>
#include <libgnomeui/gnome-stock.h>
46
#include <libnautilus-extensions/nautilus-file-utilities.h>
47
#include <libnautilus-extensions/nautilus-gtk-macros.h>
48
#include <libnautilus-extensions/nautilus-icon-factory.h>
49
#include <libnautilus-extensions/nautilus-sound.h>
50
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
51
#include <libnautilus-extensions/nautilus-string-list.h>
52
#include <libnautilus-extensions/nautilus-undo-manager.h>
53
#include <liboaf/liboaf.h>
54

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

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

NAUTILUS_DEFINE_CLASS_BOILERPLATE (NautilusApplication, nautilus_application, BONOBO_OBJECT_TYPE)

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

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

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

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

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

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

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

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

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

GSList *nautilus_application_windows (void)
{
	return nautilus_application_window_list;
}

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

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

168
	CORBA_exception_init (&ev);
169
	corba_object = create_factory (bonobo_poa (), application, &ev);
170 171 172 173
	if (ev._major != CORBA_NO_EXCEPTION) {
		g_error ("could not create factory");
	}
	CORBA_exception_free (&ev);
174
	
175
	bonobo_object_construct (BONOBO_OBJECT (application), corba_object);
176
	
177 178
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();
179 180
}

181 182
NautilusApplication *
nautilus_application_new (void)
183
{
184
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
185 186 187
}

static void
188
nautilus_application_destroy (GtkObject *object)
189
{
190 191 192 193
	NautilusApplication *application;

	application = NAUTILUS_APPLICATION (object);

194
	nautilus_bookmarks_exiting ();
195

196 197
	bonobo_object_unref (BONOBO_OBJECT (application->undo_manager));

198 199
	NAUTILUS_CALL_PARENT_CLASS (GTK_OBJECT_CLASS, destroy, (object));
}
200

201
static void
202
nautilus_application_check_user_directories (NautilusApplication *application)
203
{
204 205 206
	char			*user_directory;
	char			*user_main_directory;
	char			*desktop_directory;
207 208
	NautilusStringList	*dir_list;
	
209
	g_assert (NAUTILUS_IS_APPLICATION (application));
210 211 212 213 214

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

215
	dir_list = nautilus_string_list_new (TRUE);
216 217
	
	/* FIXME bugzilla.eazel.com 1115: Need better name for "User Directory"
218 219
	 * and "User Data Directory". Perhaps it's OK to use the word "directory"
	 * instead of "folder" in this technical error case.
220 221 222
	 */

	if (!g_file_test (user_directory, G_FILE_TEST_ISDIR)) {
223
		nautilus_string_list_insert (dir_list, _("User Directory"));
224
	}
225
	g_free (user_directory);
226 227
	    
	if (!g_file_test (user_main_directory, G_FILE_TEST_ISDIR)) {
228
		nautilus_string_list_insert (dir_list, _("User Main Directory"));
229
	}
230
	g_free (user_main_directory);
231 232
	    
	if (!g_file_test (desktop_directory, G_FILE_TEST_ISDIR)) {
233
		nautilus_string_list_insert (dir_list, _("Desktop Directory"));
234
	}
235
	g_free (desktop_directory);
236 237 238 239 240 241 242 243 244 245 246 247

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

248
		nautilus_error_dialog (error_string, _("Missing Directories"), NULL);
249 250 251 252 253 254 255 256

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285
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;
}

286
void
287
nautilus_application_startup (NautilusApplication *application,
288
			      gboolean kill_shell,
289
			      gboolean restart_shell,
290 291
			      gboolean stop_desktop,
			      gboolean start_desktop,
292
			      const char *urls[])
293
{
294 295
	CORBA_Environment ev;
	Nautilus_Shell shell;
296 297 298
	OAF_RegistrationResult result;
	const char *message, *detailed_message;
	GnomeDialog *dialog;
299 300
	Nautilus_URIList *url_list;

301 302
	/* Perform check for nautilus being run as super user */
	if (!check_for_and_run_as_super_user ()) {
303
		return;
304
	}
Ramiro Estrugo's avatar
Ramiro Estrugo committed
305 306 307

	/* Run the first time startup druid if needed. */
	if (need_to_show_first_time_druid ()) {
308
		nautilus_first_time_druid_show (application, start_desktop, urls);
309
		return;
310
	}
Ramiro Estrugo's avatar
Ramiro Estrugo committed
311
	
312
	/* Check the user's ~/.nautilus directories and post warnings
313
	 * if there are problems.
314
	 */
315
	nautilus_application_check_user_directories (application);
316

317 318 319
	/* initialize the sound machinery */
	nautilus_sound_initialize ();
	
320 321
	CORBA_exception_init (&ev);

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

		/* 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) {
393
				/* FIXME bugzilla.eazel.com 2538: When can this happen? */
394 395 396 397 398 399
				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.");
			}
		}

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

408 409
	if (kill_shell) {
		Nautilus_Shell_quit (shell, &ev);
410 411
	} else if (restart_shell) {
		Nautilus_Shell_restart (shell, &ev);
412 413 414 415
	} else {
		if (start_desktop) {
			Nautilus_Shell_start_desktop (shell, &ev);
		}
416

417 418 419
		if (stop_desktop) {
			Nautilus_Shell_stop_desktop (shell, &ev);
		}
420

421 422 423 424 425 426 427 428
	  	/* 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);
		}
429
	}
430

431
	/* We're done with the shell now, so let it go. */
432
	bonobo_object_release_unref (shell, &ev);
433

434
 out:
435
	CORBA_exception_free (&ev);
436 437 438
}

static void
439 440
nautilus_application_create_desktop_window (NautilusApplication *application)
{
441 442
	g_return_if_fail (nautilus_application_desktop_window == NULL);
	g_return_if_fail (NAUTILUS_IS_APPLICATION (application));
443

444 445
	nautilus_application_desktop_window = nautilus_desktop_window_new (application);
	gtk_widget_show (GTK_WIDGET (nautilus_application_desktop_window));
446 447 448 449
}

void
nautilus_application_open_desktop (NautilusApplication *application)
450
{
451 452
	if (nautilus_application_desktop_window == NULL) {
		nautilus_application_create_desktop_window (application);
453 454 455 456 457 458
	}
}

void
nautilus_application_close_desktop (void)
{
459
	if (nautilus_application_desktop_window != NULL) {
460
		gtk_widget_destroy (GTK_WIDGET (nautilus_application_desktop_window));
461
		nautilus_application_desktop_window = NULL;
462
	}	
463 464
}

465 466 467
void
nautilus_application_close_all_windows (void)
{
468
	while (nautilus_application_window_list != NULL) {
469 470 471 472
		nautilus_window_close (NAUTILUS_WINDOW (nautilus_application_window_list->data));
	}
}

473
static void
474
nautilus_application_destroyed_window (GtkObject *object, NautilusApplication *application)
475
{
476
	nautilus_application_window_list = g_slist_remove (nautilus_application_window_list, object);
477 478
}

479 480 481 482 483 484 485 486 487 488 489 490 491
static gboolean
nautilus_window_delete_event_callback (GtkWidget *widget,
				       GdkEvent *event,
				       gpointer user_data)
{
	NautilusWindow *window;

	window = NAUTILUS_WINDOW (widget);
	nautilus_window_close (window);

	return TRUE;
}				       

492
NautilusWindow *
493
nautilus_application_create_window (NautilusApplication *application)
494
{
495
	NautilusWindow *window;
496 497

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
498
	
499
	window = NAUTILUS_WINDOW (gtk_widget_new (nautilus_window_get_type (),
500
						  "app", GTK_OBJECT (application),
501
						  "app_id", "nautilus", NULL));
502
	
503 504 505 506
	gtk_signal_connect (GTK_OBJECT (window), 
			    "delete_event", GTK_SIGNAL_FUNC (nautilus_window_delete_event_callback),
                    	    NULL);

507
	gtk_signal_connect (GTK_OBJECT (window),
508
			    "destroy", nautilus_application_destroyed_window,
509 510
			    application);

511
	nautilus_application_window_list = g_slist_prepend (nautilus_application_window_list, window);
512

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

518
	return window;
519
}
520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550

/*
 * 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
551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585

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

586
	result = !g_file_exists (druid_flag_file_name);	
Ramiro Estrugo's avatar
Ramiro Estrugo committed
587 588 589 590
	g_free (druid_flag_file_name);

	return result;
}