nautilus-application.c 15.8 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 40 41 42 43 44
#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>
45
#include <libnautilus-extensions/nautilus-gtk-macros.h>
46
#include <libnautilus-extensions/nautilus-icon-factory.h>
47
#include <libnautilus-extensions/nautilus-stock-dialogs.h>
48
#include <libnautilus-extensions/nautilus-string-list.h>
49
#include <libnautilus-extensions/nautilus-undo-manager.h>
50
#include <liboaf/liboaf.h>
51

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"
#define SHELL_IID	"OAFIID:nautilus_shell:cd5183b2-3913-4b74-9b8e-10528b0de08d"
56

57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
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);

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

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

static CORBA_Object
94 95 96 97
create_object (PortableServer_Servant servant,
	       const CORBA_char *iid,
	       const Bonobo_stringlist *params,
	       CORBA_Environment *ev)
98
{
99
	BonoboObject *object;
100
	FMDirectoryView *directory_view;
101
	NautilusApplication *application;
102

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

	return CORBA_Object_duplicate (bonobo_object_corba_objref (object), ev);
120 121
}

122
static CORBA_Object
123 124 125
create_factory (PortableServer_POA poa,
		NautilusApplication *bonobo_object,
		CORBA_Environment *ev)
126
{
127
	BonoboObjectServant *servant;
Gene Z. Ragan's avatar
CVS:  
Gene Z. Ragan committed
128

129 130
	servant = g_new0 (BonoboObjectServant, 1);
	((POA_Bonobo_GenericFactory *) servant)->vepv = &vepv;
131 132
	POA_Bonobo_GenericFactory__init ((PortableServer_Servant) servant, ev);
	return bonobo_object_activate_servant (BONOBO_OBJECT (bonobo_object), servant);
133 134
}

135 136 137 138 139 140 141 142 143 144 145
/* 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;
}

146
static void
147
nautilus_application_initialize_class (NautilusApplicationClass *klass)
148
{
149
	GTK_OBJECT_CLASS (klass)->destroy = nautilus_application_destroy;
150 151 152
}

static void
153
nautilus_application_initialize (NautilusApplication *application)
154
{
155
	CORBA_Environment ev;
156
	CORBA_Object corba_object;
157

158
	CORBA_exception_init (&ev);
159
	corba_object = create_factory (bonobo_poa (), application, &ev);
160 161 162 163 164
	if (ev._major != CORBA_NO_EXCEPTION) {
		g_error ("could not create factory");
	}
	CORBA_exception_free (&ev);

165
	bonobo_object_construct (BONOBO_OBJECT (application), corba_object);
166

167 168
	/* Create an undo manager */
	application->undo_manager = nautilus_undo_manager_new ();
169 170
}

171 172
NautilusApplication *
nautilus_application_new (void)
173
{
174
	return NAUTILUS_APPLICATION (gtk_object_new (nautilus_application_get_type (), NULL));
175 176 177
}

static void
178
nautilus_application_destroy (GtkObject *object)
179
{
180 181
	/* Shut down preferences. This is needed so that the global
	 * preferences object and all its allocations are freed. Not
182 183 184
	 * 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,
185
	 * but it adds noise to memory profile tool runs.
186 187
	 */
	nautilus_global_preferences_shutdown ();
188

189
	nautilus_bookmarks_exiting ();
190

191 192
	NAUTILUS_CALL_PARENT_CLASS (GTK_OBJECT_CLASS, destroy, (object));
}
193

194
static void
195
nautilus_application_check_user_directories (NautilusApplication *application)
196
{
197 198 199
	char			*user_directory;
	char			*user_main_directory;
	char			*desktop_directory;
200 201
	NautilusStringList	*dir_list;
	
202
	g_assert (NAUTILUS_IS_APPLICATION (application));
203 204 205 206 207 208 209 210 211 212 213 214 215 216

	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");
	}
217
	g_free (user_directory);
218 219 220 221
	    
	if (!g_file_test (user_main_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "User Main Directory");
	}
222
	g_free (user_main_directory);
223 224 225 226
	    
	if (!g_file_test (desktop_directory, G_FILE_TEST_ISDIR)) {
		nautilus_string_list_insert (dir_list, "Desktop Directory");
	}
227
	g_free (desktop_directory);
228 229 230 231 232 233 234 235 236 237 238 239

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

240
		nautilus_error_dialog (error_string, NULL);
241 242 243 244 245 246 247 248

		g_free (dir_list_concatenated);
		g_free (error_string);
	}

	nautilus_string_list_free (dir_list);
}

249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277
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;
}

278
gboolean
279 280 281
nautilus_application_startup (NautilusApplication *application,
			      gboolean manage_desktop,
			      const char *urls[])
282
{
283 284
	CORBA_Environment ev;
	Nautilus_Shell shell;
285 286 287
	OAF_RegistrationResult result;
	const char *message, *detailed_message;
	GnomeDialog *dialog;
288 289 290 291 292 293 294 295 296
	Nautilus_URIList *url_list;

	/* 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 ()) {
		nautilus_first_time_druid_show (application, manage_desktop, urls);
297
		return TRUE;
298 299 300
	}

	/* Check the user's ~/.nautilus directories and post warnings
301
	 * if there are problems.
302
	 */
303
	nautilus_application_check_user_directories (application);
304

305 306
	CORBA_exception_init (&ev);

307 308 309 310 311 312 313 314 315
	/* 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. */
316 317
		case OAF_REG_ALREADY_ACTIVE:
			/* Another copy of . */
318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 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 "
					     "Nautilus again may fix the problem. "
					     "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 "
					     "with a missing nautilus.oafinfo file. "
					     "Sometimes killing oafd and gconfd fixes "
					     "the problem, but we don't know why. "
					     "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.
			 */
355 356 357 358 359
			/* 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.
			 */
360 361 362 363 364
			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;
		}
365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383

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

384 385 386 387 388
		if (message != NULL) {
			dialog = nautilus_error_dialog_with_details
				(message, detailed_message, NULL);
			gtk_signal_connect (GTK_OBJECT (dialog), "destroy",
					    gtk_main_quit, NULL);
389
			goto out;
390 391 392
		}
	}

393 394
	/* Set up the desktop. */
	if (manage_desktop) {
395
		Nautilus_Shell_manage_desktop (shell, &ev);
396
	}
397

398 399
  	/* Create the other windows. */
	if (urls != NULL) {
400 401 402
		url_list = nautilus_make_uri_list_from_strv (urls);
		Nautilus_Shell_open_windows (shell, url_list, &ev);
		CORBA_free (url_list);
403
	}
404

405
	if (!manage_desktop && urls == NULL) {
406
		Nautilus_Shell_open_default_window (shell, &ev);
407
	}
408

409 410 411 412
	/* We're done with the shell now, so let it go. */
	Nautilus_Shell_unref (shell, &ev);
	CORBA_Object_release (shell, &ev);

413
 out:
414
	CORBA_exception_free (&ev);
415
	return nautilus_application_window_list != NULL || nautilus_application_desktop != NULL;
416 417 418
}

static void
419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443
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)
444
{
445 446 447 448 449 450 451 452 453 454 455 456 457
	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)
{
	gtk_widget_destroy (GTK_WIDGET (nautilus_application_desktop));
	if (nautilus_application_window_list == NULL) {
458 459
		gtk_main_quit ();
	}
460 461
}

462 463
static void
nautilus_application_destroy_window (GtkObject *obj, NautilusApplication *application)
464
{
465 466 467 468
	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 ();
	}
469 470 471
}

NautilusWindow *
472
nautilus_application_create_window (NautilusApplication *application)
473
{
474
	NautilusWindow *window;
475 476

	g_return_val_if_fail (NAUTILUS_IS_APPLICATION (application), NULL);
477
	
478
	window = NAUTILUS_WINDOW (gtk_object_new (nautilus_window_get_type (),
479
						  "app", GTK_OBJECT (application),
480 481
						  "app_id", "nautilus", NULL));
	gtk_signal_connect (GTK_OBJECT (window),
482 483 484
			    "destroy", nautilus_application_destroy_window,
			    application);

485
	nautilus_application_window_list = g_slist_prepend (nautilus_application_window_list, window);
486

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

492
	return window;
493
}