nautilus-application.c 17.7 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);
71 72 73 74

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
75
	NULL,
76 77 78 79 80 81 82
	&manufactures,
	&create_object
};
static PortableServer_ServantBase__epv base_epv;
static POA_Bonobo_GenericFactory__vepv vepv = {
	&base_epv,
	&factory_epv
83 84 85
};

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

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

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

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

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

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

142 143 144 145 146 147 148 149 150 151 152
/* 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;
}

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

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

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

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

174 175
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();
176 177
}

178 179
NautilusApplication *
nautilus_application_new (void)
180
{
181
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
182 183 184
}

static void
185
nautilus_application_destroy (GtkObject *object)
186
{
187 188
	/* Shut down preferences. This is needed so that the global
	 * preferences object and all its allocations are freed. Not
189 190 191
	 * calling this function would have NOT cause the user to lose
	 * preferences.  The only effect would be to leak those
	 * objects - which would be collected at exit() time anyway,
192
	 * but it adds noise to memory profile tool runs.
193 194
	 */
	nautilus_global_preferences_shutdown ();
195

196
	nautilus_bookmarks_exiting ();
197

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 215 216 217 218 219 220 221 222 223

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

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

247
		nautilus_error_dialog (error_string, NULL);
248 249 250 251 252 253 254 255

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

256 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
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;
}

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

300 301 302 303 304
	/* Perform check for nautilus being run as super user */
	if (!check_for_and_run_as_super_user ()) {
		return FALSE;
	}
	
305 306 307 308 309 310
	/* Check if this is the first time running the program by seeing
	 * if the user_main_directory exists; if not, run the first time druid 
	 * instead of launching the application
	 */
	/* FIXME: You will get multiple druids if you invoke nautilus again. */
	if (!nautilus_user_main_directory_exists ()) {
311
		nautilus_first_time_druid_show (application, start_desktop, urls);
312
		return TRUE;
313 314 315
	}

	/* Check the user's ~/.nautilus directories and post warnings
316
	 * if there are problems.
317
	 */
318
	nautilus_application_check_user_directories (application);
319

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 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351
			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 "
352
					     "Nautilus again may fix the problem.\n\n"
353 354 355 356
					     "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 "
357
					     "with a missing nautilus.oafinfo file.\n\n"
358
					     "Sometimes killing oafd and gconfd fixes "
359
					     "the problem, but we don't know why.\n\n"
360 361 362 363 364 365 366 367 368 369
					     "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.
			 */
370 371 372 373 374
			/* 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.
			 */
375 376 377 378 379
			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;
		}
380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398

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

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

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

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

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

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

434 435 436
	need_main_loop = nautilus_application_window_list != NULL
		|| nautilus_application_desktop != NULL;

437
 out:
438
	CORBA_exception_free (&ev);
439
	return need_main_loop;
440 441 442
}

static void
443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467
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)
468
{
469 470 471 472 473 474 475 476 477 478 479
	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)
{
480 481 482 483 484
	if (nautilus_application_desktop != NULL) {
		gtk_widget_destroy (GTK_WIDGET (nautilus_application_desktop));
	}
	
	if (nautilus_application_window_list == NULL && gtk_main_level () > 0) {
485 486
		gtk_main_quit ();
	}
487 488
}

489 490 491
void
nautilus_application_close_all_windows (void)
{
492
	while (nautilus_application_window_list != NULL) {
493 494 495 496 497
		nautilus_window_close (NAUTILUS_WINDOW (nautilus_application_window_list->data));
	}
}


498 499
static void
nautilus_application_destroy_window (GtkObject *obj, NautilusApplication *application)
500
{
501 502 503 504
	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 ();
	}
505 506 507
}

NautilusWindow *
508
nautilus_application_create_window (NautilusApplication *application)
509
{
510
	NautilusWindow *window;
511 512

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

521
	nautilus_application_window_list = g_slist_prepend (nautilus_application_window_list, window);
522

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

528
	return window;
529
}
530 531 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

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